7 #ifdef HAVE_LAPACK_CONFIG_H
8 #include "lapacke_config.h"
11 #include "lapacke_mangling.h"
19 #define LAPACK_FORTRAN_STRLEN_END
36 #ifndef LAPACK_COMPLEX_CUSTOM
39 #ifndef lapack_complex_float
45 #define lapack_complex_float float _Complex
48 #ifndef lapack_complex_float_real
49 #define lapack_complex_float_real(z) (creal(z))
52 #ifndef lapack_complex_float_imag
53 #define lapack_complex_float_imag(z) (cimag(z))
57 #ifndef lapack_complex_double
63 #define lapack_complex_double double _Complex
66 #ifndef lapack_complex_double_real
67 #define lapack_complex_double_real(z) (creal(z))
70 #ifndef lapack_complex_double_imag
71 #define lapack_complex_double_imag(z) (cimag(z))
83 #define lapack_int int
86 #ifndef lapack_logical
87 #define lapack_logical lapack_int
92 #if defined(LAPACK_F2C)
93 typedef double lapack_float_return;
95 typedef float lapack_float_return;
103 typedef lapack_logical (*LAPACK_S_SELECT2) (
const float*,
const float* );
104 typedef lapack_logical (*LAPACK_S_SELECT3)
105 (
const float*,
const float*,
const float* );
106 typedef lapack_logical (*LAPACK_D_SELECT2) (
const double*,
const double* );
107 typedef lapack_logical (*LAPACK_D_SELECT3)
108 (
const double*,
const double*,
const double* );
110 typedef lapack_logical (*LAPACK_C_SELECT1) (
const lapack_complex_float* );
111 typedef lapack_logical (*LAPACK_C_SELECT2)
112 (
const lapack_complex_float*,
const lapack_complex_float* );
113 typedef lapack_logical (*LAPACK_Z_SELECT1) (
const lapack_complex_double* );
114 typedef lapack_logical (*LAPACK_Z_SELECT2)
115 (
const lapack_complex_double*,
const lapack_complex_double* );
117 #define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME)
118 lapack_logical LAPACK_lsame_base(
char* ca,
char* cb,
119 lapack_int lca, lapack_int lcb
120 #ifdef LAPACK_FORTRAN_STRLEN_END
124 #ifdef LAPACK_FORTRAN_STRLEN_END
125 #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__, 1, 1)
127 #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__)
134 #define LAPACK_cbbcsd_base LAPACK_GLOBAL(cbbcsd,CBBCSD)
135 void LAPACK_cbbcsd_base(
136 char const* jobu1,
char const* jobu2,
char const* jobv1t,
char const* jobv2t,
char const* trans,
137 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
140 lapack_complex_float* U1, lapack_int
const* ldu1,
141 lapack_complex_float* U2, lapack_int
const* ldu2,
142 lapack_complex_float* V1T, lapack_int
const* ldv1t,
143 lapack_complex_float* V2T, lapack_int
const* ldv2t,
152 float* rwork, lapack_int
const* lrwork,
154 #ifdef LAPACK_FORTRAN_STRLEN_END
155 ,
size_t,
size_t,
size_t,
size_t,
size_t
158 #ifdef LAPACK_FORTRAN_STRLEN_END
159 #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
161 #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__)
164 #define LAPACK_dbbcsd_base LAPACK_GLOBAL(dbbcsd,DBBCSD)
165 void LAPACK_dbbcsd_base(
166 char const* jobu1,
char const* jobu2,
char const* jobv1t,
char const* jobv2t,
char const* trans,
167 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
170 double* U1, lapack_int
const* ldu1,
171 double* U2, lapack_int
const* ldu2,
172 double* V1T, lapack_int
const* ldv1t,
173 double* V2T, lapack_int
const* ldv2t,
182 double* work, lapack_int
const* lwork,
184 #ifdef LAPACK_FORTRAN_STRLEN_END
185 ,
size_t,
size_t,
size_t,
size_t,
size_t
188 #ifdef LAPACK_FORTRAN_STRLEN_END
189 #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
191 #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__)
194 #define LAPACK_sbbcsd_base LAPACK_GLOBAL(sbbcsd,SBBCSD)
195 void LAPACK_sbbcsd_base(
196 char const* jobu1,
char const* jobu2,
char const* jobv1t,
char const* jobv2t,
char const* trans,
197 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
200 float* U1, lapack_int
const* ldu1,
201 float* U2, lapack_int
const* ldu2,
202 float* V1T, lapack_int
const* ldv1t,
203 float* V2T, lapack_int
const* ldv2t,
212 float* work, lapack_int
const* lwork,
214 #ifdef LAPACK_FORTRAN_STRLEN_END
215 ,
size_t,
size_t,
size_t,
size_t,
size_t
218 #ifdef LAPACK_FORTRAN_STRLEN_END
219 #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
221 #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__)
224 #define LAPACK_zbbcsd_base LAPACK_GLOBAL(zbbcsd,ZBBCSD)
225 void LAPACK_zbbcsd_base(
226 char const* jobu1,
char const* jobu2,
char const* jobv1t,
char const* jobv2t,
char const* trans,
227 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
230 lapack_complex_double* U1, lapack_int
const* ldu1,
231 lapack_complex_double* U2, lapack_int
const* ldu2,
232 lapack_complex_double* V1T, lapack_int
const* ldv1t,
233 lapack_complex_double* V2T, lapack_int
const* ldv2t,
242 double* rwork, lapack_int
const* lrwork,
244 #ifdef LAPACK_FORTRAN_STRLEN_END
245 ,
size_t,
size_t,
size_t,
size_t,
size_t
248 #ifdef LAPACK_FORTRAN_STRLEN_END
249 #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
251 #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__)
254 #define LAPACK_dbdsdc_base LAPACK_GLOBAL(dbdsdc,DBDSDC)
255 void LAPACK_dbdsdc_base(
256 char const* uplo,
char const* compq,
260 double* U, lapack_int
const* ldu,
261 double* VT, lapack_int
const* ldvt,
262 double* Q, lapack_int* IQ,
266 #ifdef LAPACK_FORTRAN_STRLEN_END
270 #ifdef LAPACK_FORTRAN_STRLEN_END
271 #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__, 1, 1)
273 #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__)
276 #define LAPACK_sbdsdc_base LAPACK_GLOBAL(sbdsdc,SBDSDC)
277 void LAPACK_sbdsdc_base(
278 char const* uplo,
char const* compq,
282 float* U, lapack_int
const* ldu,
283 float* VT, lapack_int
const* ldvt,
284 float* Q, lapack_int* IQ,
288 #ifdef LAPACK_FORTRAN_STRLEN_END
292 #ifdef LAPACK_FORTRAN_STRLEN_END
293 #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__, 1, 1)
295 #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__)
298 #define LAPACK_cbdsqr_base LAPACK_GLOBAL(cbdsqr,CBDSQR)
299 void LAPACK_cbdsqr_base(
301 lapack_int
const* n, lapack_int
const* ncvt, lapack_int
const* nru, lapack_int
const* ncc,
304 lapack_complex_float* VT, lapack_int
const* ldvt,
305 lapack_complex_float* U, lapack_int
const* ldu,
306 lapack_complex_float* C, lapack_int
const* ldc,
309 #ifdef LAPACK_FORTRAN_STRLEN_END
313 #ifdef LAPACK_FORTRAN_STRLEN_END
314 #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__, 1)
316 #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__)
319 #define LAPACK_dbdsqr_base LAPACK_GLOBAL(dbdsqr,DBDSQR)
320 void LAPACK_dbdsqr_base(
322 lapack_int
const* n, lapack_int
const* ncvt, lapack_int
const* nru, lapack_int
const* ncc,
325 double* VT, lapack_int
const* ldvt,
326 double* U, lapack_int
const* ldu,
327 double* C, lapack_int
const* ldc,
330 #ifdef LAPACK_FORTRAN_STRLEN_END
334 #ifdef LAPACK_FORTRAN_STRLEN_END
335 #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__, 1)
337 #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__)
340 #define LAPACK_sbdsqr_base LAPACK_GLOBAL(sbdsqr,SBDSQR)
341 void LAPACK_sbdsqr_base(
343 lapack_int
const* n, lapack_int
const* ncvt, lapack_int
const* nru, lapack_int
const* ncc,
346 float* VT, lapack_int
const* ldvt,
347 float* U, lapack_int
const* ldu,
348 float* C, lapack_int
const* ldc,
351 #ifdef LAPACK_FORTRAN_STRLEN_END
355 #ifdef LAPACK_FORTRAN_STRLEN_END
356 #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__, 1)
358 #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__)
361 #define LAPACK_zbdsqr_base LAPACK_GLOBAL(zbdsqr,ZBDSQR)
362 void LAPACK_zbdsqr_base(
364 lapack_int
const* n, lapack_int
const* ncvt, lapack_int
const* nru, lapack_int
const* ncc,
367 lapack_complex_double* VT, lapack_int
const* ldvt,
368 lapack_complex_double* U, lapack_int
const* ldu,
369 lapack_complex_double* C, lapack_int
const* ldc,
372 #ifdef LAPACK_FORTRAN_STRLEN_END
376 #ifdef LAPACK_FORTRAN_STRLEN_END
377 #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__, 1)
379 #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__)
382 #define LAPACK_dbdsvdx_base LAPACK_GLOBAL(dbdsvdx,DBDSVDX)
383 void LAPACK_dbdsvdx_base(
384 char const* uplo,
char const* jobz,
char const* range,
389 double const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* ns,
391 double* Z, lapack_int
const* ldz,
395 #ifdef LAPACK_FORTRAN_STRLEN_END
396 ,
size_t,
size_t,
size_t
399 #ifdef LAPACK_FORTRAN_STRLEN_END
400 #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__, 1, 1, 1)
402 #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__)
405 #define LAPACK_sbdsvdx_base LAPACK_GLOBAL(sbdsvdx,SBDSVDX)
406 void LAPACK_sbdsvdx_base(
407 char const* uplo,
char const* jobz,
char const* range,
412 float const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* ns,
414 float* Z, lapack_int
const* ldz,
418 #ifdef LAPACK_FORTRAN_STRLEN_END
419 ,
size_t,
size_t,
size_t
422 #ifdef LAPACK_FORTRAN_STRLEN_END
423 #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__, 1, 1, 1)
425 #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__)
428 #define LAPACK_ddisna_base LAPACK_GLOBAL(ddisna,DDISNA)
429 void LAPACK_ddisna_base(
431 lapack_int
const* m, lapack_int
const* n,
435 #ifdef LAPACK_FORTRAN_STRLEN_END
439 #ifdef LAPACK_FORTRAN_STRLEN_END
440 #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__, 1)
442 #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__)
445 #define LAPACK_sdisna_base LAPACK_GLOBAL(sdisna,SDISNA)
446 void LAPACK_sdisna_base(
448 lapack_int
const* m, lapack_int
const* n,
452 #ifdef LAPACK_FORTRAN_STRLEN_END
456 #ifdef LAPACK_FORTRAN_STRLEN_END
457 #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__, 1)
459 #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__)
462 #define LAPACK_cgbbrd_base LAPACK_GLOBAL(cgbbrd,CGBBRD)
463 void LAPACK_cgbbrd_base(
465 lapack_int
const* m, lapack_int
const* n, lapack_int
const* ncc, lapack_int
const* kl, lapack_int
const* ku,
466 lapack_complex_float* AB, lapack_int
const* ldab,
469 lapack_complex_float* Q, lapack_int
const* ldq,
470 lapack_complex_float* PT, lapack_int
const* ldpt,
471 lapack_complex_float* C, lapack_int
const* ldc,
472 lapack_complex_float* work,
475 #ifdef LAPACK_FORTRAN_STRLEN_END
479 #ifdef LAPACK_FORTRAN_STRLEN_END
480 #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__, 1)
482 #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__)
485 #define LAPACK_dgbbrd_base LAPACK_GLOBAL(dgbbrd,DGBBRD)
486 void LAPACK_dgbbrd_base(
488 lapack_int
const* m, lapack_int
const* n, lapack_int
const* ncc, lapack_int
const* kl, lapack_int
const* ku,
489 double* AB, lapack_int
const* ldab,
492 double* Q, lapack_int
const* ldq,
493 double* PT, lapack_int
const* ldpt,
494 double* C, lapack_int
const* ldc,
497 #ifdef LAPACK_FORTRAN_STRLEN_END
501 #ifdef LAPACK_FORTRAN_STRLEN_END
502 #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__, 1)
504 #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__)
507 #define LAPACK_sgbbrd_base LAPACK_GLOBAL(sgbbrd,SGBBRD)
508 void LAPACK_sgbbrd_base(
510 lapack_int
const* m, lapack_int
const* n, lapack_int
const* ncc, lapack_int
const* kl, lapack_int
const* ku,
511 float* AB, lapack_int
const* ldab,
514 float* Q, lapack_int
const* ldq,
515 float* PT, lapack_int
const* ldpt,
516 float* C, lapack_int
const* ldc,
519 #ifdef LAPACK_FORTRAN_STRLEN_END
523 #ifdef LAPACK_FORTRAN_STRLEN_END
524 #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__, 1)
526 #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__)
529 #define LAPACK_zgbbrd_base LAPACK_GLOBAL(zgbbrd,ZGBBRD)
530 void LAPACK_zgbbrd_base(
532 lapack_int
const* m, lapack_int
const* n, lapack_int
const* ncc, lapack_int
const* kl, lapack_int
const* ku,
533 lapack_complex_double* AB, lapack_int
const* ldab,
536 lapack_complex_double* Q, lapack_int
const* ldq,
537 lapack_complex_double* PT, lapack_int
const* ldpt,
538 lapack_complex_double* C, lapack_int
const* ldc,
539 lapack_complex_double* work,
542 #ifdef LAPACK_FORTRAN_STRLEN_END
546 #ifdef LAPACK_FORTRAN_STRLEN_END
547 #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__, 1)
549 #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__)
552 #define LAPACK_cgbcon_base LAPACK_GLOBAL(cgbcon,CGBCON)
553 void LAPACK_cgbcon_base(
555 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
556 lapack_complex_float
const* AB, lapack_int
const* ldab, lapack_int
const* ipiv,
559 lapack_complex_float* work,
562 #ifdef LAPACK_FORTRAN_STRLEN_END
566 #ifdef LAPACK_FORTRAN_STRLEN_END
567 #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__, 1)
569 #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__)
572 #define LAPACK_dgbcon_base LAPACK_GLOBAL(dgbcon,DGBCON)
573 void LAPACK_dgbcon_base(
575 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
576 double const* AB, lapack_int
const* ldab, lapack_int
const* ipiv,
582 #ifdef LAPACK_FORTRAN_STRLEN_END
586 #ifdef LAPACK_FORTRAN_STRLEN_END
587 #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__, 1)
589 #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__)
592 #define LAPACK_sgbcon_base LAPACK_GLOBAL(sgbcon,SGBCON)
593 void LAPACK_sgbcon_base(
595 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
596 float const* AB, lapack_int
const* ldab, lapack_int
const* ipiv,
602 #ifdef LAPACK_FORTRAN_STRLEN_END
606 #ifdef LAPACK_FORTRAN_STRLEN_END
607 #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__, 1)
609 #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__)
612 #define LAPACK_zgbcon_base LAPACK_GLOBAL(zgbcon,ZGBCON)
613 void LAPACK_zgbcon_base(
615 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
616 lapack_complex_double
const* AB, lapack_int
const* ldab, lapack_int
const* ipiv,
619 lapack_complex_double* work,
622 #ifdef LAPACK_FORTRAN_STRLEN_END
626 #ifdef LAPACK_FORTRAN_STRLEN_END
627 #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__, 1)
629 #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__)
632 #define LAPACK_cgbequ LAPACK_GLOBAL(cgbequ,CGBEQU)
634 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
635 lapack_complex_float
const* AB, lapack_int
const* ldab,
643 #define LAPACK_dgbequ LAPACK_GLOBAL(dgbequ,DGBEQU)
645 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
646 double const* AB, lapack_int
const* ldab,
654 #define LAPACK_sgbequ LAPACK_GLOBAL(sgbequ,SGBEQU)
656 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
657 float const* AB, lapack_int
const* ldab,
665 #define LAPACK_zgbequ LAPACK_GLOBAL(zgbequ,ZGBEQU)
667 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
668 lapack_complex_double
const* AB, lapack_int
const* ldab,
676 #define LAPACK_cgbequb LAPACK_GLOBAL(cgbequb,CGBEQUB)
678 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
679 lapack_complex_float
const* AB, lapack_int
const* ldab,
687 #define LAPACK_dgbequb LAPACK_GLOBAL(dgbequb,DGBEQUB)
689 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
690 double const* AB, lapack_int
const* ldab,
698 #define LAPACK_sgbequb LAPACK_GLOBAL(sgbequb,SGBEQUB)
700 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
701 float const* AB, lapack_int
const* ldab,
709 #define LAPACK_zgbequb LAPACK_GLOBAL(zgbequb,ZGBEQUB)
711 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
712 lapack_complex_double
const* AB, lapack_int
const* ldab,
720 #define LAPACK_cgbrfs_base LAPACK_GLOBAL(cgbrfs,CGBRFS)
721 void LAPACK_cgbrfs_base(
723 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
724 lapack_complex_float
const* AB, lapack_int
const* ldab,
725 lapack_complex_float
const* AFB, lapack_int
const* ldafb, lapack_int
const* ipiv,
726 lapack_complex_float
const* B, lapack_int
const* ldb,
727 lapack_complex_float* X, lapack_int
const* ldx,
730 lapack_complex_float* work,
733 #ifdef LAPACK_FORTRAN_STRLEN_END
737 #ifdef LAPACK_FORTRAN_STRLEN_END
738 #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__, 1)
740 #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__)
743 #define LAPACK_dgbrfs_base LAPACK_GLOBAL(dgbrfs,DGBRFS)
744 void LAPACK_dgbrfs_base(
746 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
747 double const* AB, lapack_int
const* ldab,
748 double const* AFB, lapack_int
const* ldafb, lapack_int
const* ipiv,
749 double const* B, lapack_int
const* ldb,
750 double* X, lapack_int
const* ldx,
756 #ifdef LAPACK_FORTRAN_STRLEN_END
760 #ifdef LAPACK_FORTRAN_STRLEN_END
761 #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__, 1)
763 #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__)
766 #define LAPACK_sgbrfs_base LAPACK_GLOBAL(sgbrfs,SGBRFS)
767 void LAPACK_sgbrfs_base(
769 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
770 float const* AB, lapack_int
const* ldab,
771 float const* AFB, lapack_int
const* ldafb, lapack_int
const* ipiv,
772 float const* B, lapack_int
const* ldb,
773 float* X, lapack_int
const* ldx,
779 #ifdef LAPACK_FORTRAN_STRLEN_END
783 #ifdef LAPACK_FORTRAN_STRLEN_END
784 #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__, 1)
786 #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__)
789 #define LAPACK_zgbrfs_base LAPACK_GLOBAL(zgbrfs,ZGBRFS)
790 void LAPACK_zgbrfs_base(
792 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
793 lapack_complex_double
const* AB, lapack_int
const* ldab,
794 lapack_complex_double
const* AFB, lapack_int
const* ldafb, lapack_int
const* ipiv,
795 lapack_complex_double
const* B, lapack_int
const* ldb,
796 lapack_complex_double* X, lapack_int
const* ldx,
799 lapack_complex_double* work,
802 #ifdef LAPACK_FORTRAN_STRLEN_END
806 #ifdef LAPACK_FORTRAN_STRLEN_END
807 #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__, 1)
809 #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__)
812 #define LAPACK_cgbrfsx_base LAPACK_GLOBAL(cgbrfsx,CGBRFSX)
813 void LAPACK_cgbrfsx_base(
814 char const* trans,
char const* equed,
815 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
816 lapack_complex_float
const* AB, lapack_int
const* ldab,
817 lapack_complex_float
const* AFB, lapack_int
const* ldafb, lapack_int
const* ipiv,
820 lapack_complex_float
const* B, lapack_int
const* ldb,
821 lapack_complex_float* X, lapack_int
const* ldx,
823 float* berr, lapack_int
const* n_err_bnds,
824 float* err_bnds_norm,
825 float* err_bnds_comp, lapack_int
const* nparams,
827 lapack_complex_float* work,
830 #ifdef LAPACK_FORTRAN_STRLEN_END
834 #ifdef LAPACK_FORTRAN_STRLEN_END
835 #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__, 1, 1)
837 #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__)
840 #define LAPACK_dgbrfsx_base LAPACK_GLOBAL(dgbrfsx,DGBRFSX)
841 void LAPACK_dgbrfsx_base(
842 char const* trans,
char const* equed,
843 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
844 double const* AB, lapack_int
const* ldab,
845 double const* AFB, lapack_int
const* ldafb, lapack_int
const* ipiv,
848 double const* B, lapack_int
const* ldb,
849 double* X, lapack_int
const* ldx,
851 double* berr, lapack_int
const* n_err_bnds,
852 double* err_bnds_norm,
853 double* err_bnds_comp, lapack_int
const* nparams,
858 #ifdef LAPACK_FORTRAN_STRLEN_END
862 #ifdef LAPACK_FORTRAN_STRLEN_END
863 #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__, 1, 1)
865 #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__)
868 #define LAPACK_sgbrfsx_base LAPACK_GLOBAL(sgbrfsx,SGBRFSX)
869 void LAPACK_sgbrfsx_base(
870 char const* trans,
char const* equed,
871 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
872 float const* AB, lapack_int
const* ldab,
873 float const* AFB, lapack_int
const* ldafb, lapack_int
const* ipiv,
876 float const* B, lapack_int
const* ldb,
877 float* X, lapack_int
const* ldx,
879 float* berr, lapack_int
const* n_err_bnds,
880 float* err_bnds_norm,
881 float* err_bnds_comp, lapack_int
const* nparams,
886 #ifdef LAPACK_FORTRAN_STRLEN_END
890 #ifdef LAPACK_FORTRAN_STRLEN_END
891 #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__, 1, 1)
893 #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__)
896 #define LAPACK_zgbrfsx_base LAPACK_GLOBAL(zgbrfsx,ZGBRFSX)
897 void LAPACK_zgbrfsx_base(
898 char const* trans,
char const* equed,
899 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
900 lapack_complex_double
const* AB, lapack_int
const* ldab,
901 lapack_complex_double
const* AFB, lapack_int
const* ldafb, lapack_int
const* ipiv,
904 lapack_complex_double
const* B, lapack_int
const* ldb,
905 lapack_complex_double* X, lapack_int
const* ldx,
907 double* berr, lapack_int
const* n_err_bnds,
908 double* err_bnds_norm,
909 double* err_bnds_comp, lapack_int
const* nparams,
911 lapack_complex_double* work,
914 #ifdef LAPACK_FORTRAN_STRLEN_END
918 #ifdef LAPACK_FORTRAN_STRLEN_END
919 #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__, 1, 1)
921 #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__)
924 #define LAPACK_cgbsv LAPACK_GLOBAL(cgbsv,CGBSV)
926 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
927 lapack_complex_float* AB, lapack_int
const* ldab, lapack_int* ipiv,
928 lapack_complex_float* B, lapack_int
const* ldb,
931 #define LAPACK_dgbsv LAPACK_GLOBAL(dgbsv,DGBSV)
933 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
934 double* AB, lapack_int
const* ldab, lapack_int* ipiv,
935 double* B, lapack_int
const* ldb,
938 #define LAPACK_sgbsv LAPACK_GLOBAL(sgbsv,SGBSV)
940 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
941 float* AB, lapack_int
const* ldab, lapack_int* ipiv,
942 float* B, lapack_int
const* ldb,
945 #define LAPACK_zgbsv LAPACK_GLOBAL(zgbsv,ZGBSV)
947 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
948 lapack_complex_double* AB, lapack_int
const* ldab, lapack_int* ipiv,
949 lapack_complex_double* B, lapack_int
const* ldb,
952 #define LAPACK_cgbsvx_base LAPACK_GLOBAL(cgbsvx,CGBSVX)
953 void LAPACK_cgbsvx_base(
954 char const* fact,
char const* trans,
955 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
956 lapack_complex_float* AB, lapack_int
const* ldab,
957 lapack_complex_float* AFB, lapack_int
const* ldafb, lapack_int* ipiv,
char* equed,
960 lapack_complex_float* B,
961 lapack_int
const* ldb,
962 lapack_complex_float* X, lapack_int
const* ldx,
966 lapack_complex_float* work,
969 #ifdef LAPACK_FORTRAN_STRLEN_END
970 ,
size_t,
size_t,
size_t
973 #ifdef LAPACK_FORTRAN_STRLEN_END
974 #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__, 1, 1, 1)
976 #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__)
979 #define LAPACK_dgbsvx_base LAPACK_GLOBAL(dgbsvx,DGBSVX)
980 void LAPACK_dgbsvx_base(
981 char const* fact,
char const* trans,
982 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
983 double* AB, lapack_int
const* ldab,
984 double* AFB, lapack_int
const* ldafb, lapack_int* ipiv,
char* equed,
988 lapack_int
const* ldb,
989 double* X, lapack_int
const* ldx,
996 #ifdef LAPACK_FORTRAN_STRLEN_END
997 ,
size_t,
size_t,
size_t
1000 #ifdef LAPACK_FORTRAN_STRLEN_END
1001 #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__, 1, 1, 1)
1003 #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__)
1006 #define LAPACK_sgbsvx_base LAPACK_GLOBAL(sgbsvx,SGBSVX)
1007 void LAPACK_sgbsvx_base(
1008 char const* fact,
char const* trans,
1009 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1010 float* AB, lapack_int
const* ldab,
1011 float* AFB, lapack_int
const* ldafb, lapack_int* ipiv,
char* equed,
1015 lapack_int
const* ldb,
1016 float* X, lapack_int
const* ldx,
1023 #ifdef LAPACK_FORTRAN_STRLEN_END
1024 ,
size_t,
size_t,
size_t
1027 #ifdef LAPACK_FORTRAN_STRLEN_END
1028 #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__, 1, 1, 1)
1030 #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__)
1033 #define LAPACK_zgbsvx_base LAPACK_GLOBAL(zgbsvx,ZGBSVX)
1034 void LAPACK_zgbsvx_base(
1035 char const* fact,
char const* trans,
1036 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1037 lapack_complex_double* AB, lapack_int
const* ldab,
1038 lapack_complex_double* AFB, lapack_int
const* ldafb, lapack_int* ipiv,
char* equed,
1041 lapack_complex_double* B,
1042 lapack_int
const* ldb,
1043 lapack_complex_double* X, lapack_int
const* ldx,
1047 lapack_complex_double* work,
1050 #ifdef LAPACK_FORTRAN_STRLEN_END
1051 ,
size_t,
size_t,
size_t
1054 #ifdef LAPACK_FORTRAN_STRLEN_END
1055 #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__, 1, 1, 1)
1057 #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__)
1060 #define LAPACK_cgbsvxx_base LAPACK_GLOBAL(cgbsvxx,CGBSVXX)
1061 void LAPACK_cgbsvxx_base(
1062 char const* fact,
char const* trans,
1063 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1064 lapack_complex_float* AB, lapack_int
const* ldab,
1065 lapack_complex_float* AFB, lapack_int
const* ldafb, lapack_int* ipiv,
char* equed,
1068 lapack_complex_float* B,
1069 lapack_int
const* ldb,
1070 lapack_complex_float* X, lapack_int
const* ldx,
1073 float* berr, lapack_int
const* n_err_bnds,
1074 float* err_bnds_norm,
1075 float* err_bnds_comp, lapack_int
const* nparams,
1077 lapack_complex_float* work,
1080 #ifdef LAPACK_FORTRAN_STRLEN_END
1081 ,
size_t,
size_t,
size_t
1084 #ifdef LAPACK_FORTRAN_STRLEN_END
1085 #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1087 #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__)
1090 #define LAPACK_dgbsvxx_base LAPACK_GLOBAL(dgbsvxx,DGBSVXX)
1091 void LAPACK_dgbsvxx_base(
1092 char const* fact,
char const* trans,
1093 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1094 double* AB, lapack_int
const* ldab,
1095 double* AFB, lapack_int
const* ldafb, lapack_int* ipiv,
char* equed,
1099 lapack_int
const* ldb,
1100 double* X, lapack_int
const* ldx,
1103 double* berr, lapack_int
const* n_err_bnds,
1104 double* err_bnds_norm,
1105 double* err_bnds_comp, lapack_int
const* nparams,
1110 #ifdef LAPACK_FORTRAN_STRLEN_END
1111 ,
size_t,
size_t,
size_t
1114 #ifdef LAPACK_FORTRAN_STRLEN_END
1115 #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1117 #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__)
1120 #define LAPACK_sgbsvxx_base LAPACK_GLOBAL(sgbsvxx,SGBSVXX)
1121 void LAPACK_sgbsvxx_base(
1122 char const* fact,
char const* trans,
1123 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1124 float* AB, lapack_int
const* ldab,
1125 float* AFB, lapack_int
const* ldafb, lapack_int* ipiv,
char* equed,
1129 lapack_int
const* ldb,
1130 float* X, lapack_int
const* ldx,
1133 float* berr, lapack_int
const* n_err_bnds,
1134 float* err_bnds_norm,
1135 float* err_bnds_comp, lapack_int
const* nparams,
1140 #ifdef LAPACK_FORTRAN_STRLEN_END
1141 ,
size_t,
size_t,
size_t
1144 #ifdef LAPACK_FORTRAN_STRLEN_END
1145 #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1147 #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__)
1150 #define LAPACK_zgbsvxx_base LAPACK_GLOBAL(zgbsvxx,ZGBSVXX)
1151 void LAPACK_zgbsvxx_base(
1152 char const* fact,
char const* trans,
1153 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1154 lapack_complex_double* AB, lapack_int
const* ldab,
1155 lapack_complex_double* AFB, lapack_int
const* ldafb, lapack_int* ipiv,
char* equed,
1158 lapack_complex_double* B,
1159 lapack_int
const* ldb,
1160 lapack_complex_double* X, lapack_int
const* ldx,
1163 double* berr, lapack_int
const* n_err_bnds,
1164 double* err_bnds_norm,
1165 double* err_bnds_comp, lapack_int
const* nparams,
1167 lapack_complex_double* work,
1170 #ifdef LAPACK_FORTRAN_STRLEN_END
1171 ,
size_t,
size_t,
size_t
1174 #ifdef LAPACK_FORTRAN_STRLEN_END
1175 #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1177 #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__)
1180 #define LAPACK_cgbtrf LAPACK_GLOBAL(cgbtrf,CGBTRF)
1182 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
1183 lapack_complex_float* AB, lapack_int
const* ldab, lapack_int* ipiv,
1186 #define LAPACK_dgbtrf LAPACK_GLOBAL(dgbtrf,DGBTRF)
1188 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
1189 double* AB, lapack_int
const* ldab, lapack_int* ipiv,
1192 #define LAPACK_sgbtrf LAPACK_GLOBAL(sgbtrf,SGBTRF)
1194 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
1195 float* AB, lapack_int
const* ldab, lapack_int* ipiv,
1198 #define LAPACK_zgbtrf LAPACK_GLOBAL(zgbtrf,ZGBTRF)
1200 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
1201 lapack_complex_double* AB, lapack_int
const* ldab, lapack_int* ipiv,
1204 #define LAPACK_cgbtrs_base LAPACK_GLOBAL(cgbtrs,CGBTRS)
1205 void LAPACK_cgbtrs_base(
1207 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1208 lapack_complex_float
const* AB, lapack_int
const* ldab, lapack_int
const* ipiv,
1209 lapack_complex_float* B, lapack_int
const* ldb,
1211 #ifdef LAPACK_FORTRAN_STRLEN_END
1215 #ifdef LAPACK_FORTRAN_STRLEN_END
1216 #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__, 1)
1218 #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__)
1221 #define LAPACK_dgbtrs_base LAPACK_GLOBAL(dgbtrs,DGBTRS)
1222 void LAPACK_dgbtrs_base(
1224 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1225 double const* AB, lapack_int
const* ldab, lapack_int
const* ipiv,
1226 double* B, lapack_int
const* ldb,
1228 #ifdef LAPACK_FORTRAN_STRLEN_END
1232 #ifdef LAPACK_FORTRAN_STRLEN_END
1233 #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__, 1)
1235 #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__)
1238 #define LAPACK_sgbtrs_base LAPACK_GLOBAL(sgbtrs,SGBTRS)
1239 void LAPACK_sgbtrs_base(
1241 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1242 float const* AB, lapack_int
const* ldab, lapack_int
const* ipiv,
1243 float* B, lapack_int
const* ldb,
1245 #ifdef LAPACK_FORTRAN_STRLEN_END
1249 #ifdef LAPACK_FORTRAN_STRLEN_END
1250 #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__, 1)
1252 #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__)
1255 #define LAPACK_zgbtrs_base LAPACK_GLOBAL(zgbtrs,ZGBTRS)
1256 void LAPACK_zgbtrs_base(
1258 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1259 lapack_complex_double
const* AB, lapack_int
const* ldab, lapack_int
const* ipiv,
1260 lapack_complex_double* B, lapack_int
const* ldb,
1262 #ifdef LAPACK_FORTRAN_STRLEN_END
1266 #ifdef LAPACK_FORTRAN_STRLEN_END
1267 #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__, 1)
1269 #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__)
1272 #define LAPACK_cgebak_base LAPACK_GLOBAL(cgebak,CGEBAK)
1273 void LAPACK_cgebak_base(
1274 char const* job,
char const* side,
1275 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
1276 float const* scale, lapack_int
const* m,
1277 lapack_complex_float* V, lapack_int
const* ldv,
1279 #ifdef LAPACK_FORTRAN_STRLEN_END
1283 #ifdef LAPACK_FORTRAN_STRLEN_END
1284 #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__, 1, 1)
1286 #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__)
1289 #define LAPACK_dgebak_base LAPACK_GLOBAL(dgebak,DGEBAK)
1290 void LAPACK_dgebak_base(
1291 char const* job,
char const* side,
1292 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
1293 double const* scale, lapack_int
const* m,
1294 double* V, lapack_int
const* ldv,
1296 #ifdef LAPACK_FORTRAN_STRLEN_END
1300 #ifdef LAPACK_FORTRAN_STRLEN_END
1301 #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__, 1, 1)
1303 #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__)
1306 #define LAPACK_sgebak_base LAPACK_GLOBAL(sgebak,SGEBAK)
1307 void LAPACK_sgebak_base(
1308 char const* job,
char const* side,
1309 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
1310 float const* scale, lapack_int
const* m,
1311 float* V, lapack_int
const* ldv,
1313 #ifdef LAPACK_FORTRAN_STRLEN_END
1317 #ifdef LAPACK_FORTRAN_STRLEN_END
1318 #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__, 1, 1)
1320 #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__)
1323 #define LAPACK_zgebak_base LAPACK_GLOBAL(zgebak,ZGEBAK)
1324 void LAPACK_zgebak_base(
1325 char const* job,
char const* side,
1326 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
1327 double const* scale, lapack_int
const* m,
1328 lapack_complex_double* V, lapack_int
const* ldv,
1330 #ifdef LAPACK_FORTRAN_STRLEN_END
1334 #ifdef LAPACK_FORTRAN_STRLEN_END
1335 #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__, 1, 1)
1337 #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__)
1340 #define LAPACK_cgebal_base LAPACK_GLOBAL(cgebal,CGEBAL)
1341 void LAPACK_cgebal_base(
1343 lapack_int
const* n,
1344 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ilo, lapack_int* ihi,
1347 #ifdef LAPACK_FORTRAN_STRLEN_END
1351 #ifdef LAPACK_FORTRAN_STRLEN_END
1352 #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__, 1)
1354 #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__)
1357 #define LAPACK_dgebal_base LAPACK_GLOBAL(dgebal,DGEBAL)
1358 void LAPACK_dgebal_base(
1360 lapack_int
const* n,
1361 double* A, lapack_int
const* lda, lapack_int* ilo, lapack_int* ihi,
1364 #ifdef LAPACK_FORTRAN_STRLEN_END
1368 #ifdef LAPACK_FORTRAN_STRLEN_END
1369 #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__, 1)
1371 #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__)
1374 #define LAPACK_sgebal_base LAPACK_GLOBAL(sgebal,SGEBAL)
1375 void LAPACK_sgebal_base(
1377 lapack_int
const* n,
1378 float* A, lapack_int
const* lda, lapack_int* ilo, lapack_int* ihi,
1381 #ifdef LAPACK_FORTRAN_STRLEN_END
1385 #ifdef LAPACK_FORTRAN_STRLEN_END
1386 #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__, 1)
1388 #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__)
1391 #define LAPACK_zgebal_base LAPACK_GLOBAL(zgebal,ZGEBAL)
1392 void LAPACK_zgebal_base(
1394 lapack_int
const* n,
1395 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ilo, lapack_int* ihi,
1398 #ifdef LAPACK_FORTRAN_STRLEN_END
1402 #ifdef LAPACK_FORTRAN_STRLEN_END
1403 #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__, 1)
1405 #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__)
1408 #define LAPACK_cgebrd LAPACK_GLOBAL(cgebrd,CGEBRD)
1410 lapack_int
const* m, lapack_int
const* n,
1411 lapack_complex_float* A, lapack_int
const* lda,
1414 lapack_complex_float* tauq,
1415 lapack_complex_float* taup,
1416 lapack_complex_float* work, lapack_int
const* lwork,
1419 #define LAPACK_dgebrd LAPACK_GLOBAL(dgebrd,DGEBRD)
1421 lapack_int
const* m, lapack_int
const* n,
1422 double* A, lapack_int
const* lda,
1427 double* work, lapack_int
const* lwork,
1430 #define LAPACK_sgebrd LAPACK_GLOBAL(sgebrd,SGEBRD)
1432 lapack_int
const* m, lapack_int
const* n,
1433 float* A, lapack_int
const* lda,
1438 float* work, lapack_int
const* lwork,
1441 #define LAPACK_zgebrd LAPACK_GLOBAL(zgebrd,ZGEBRD)
1443 lapack_int
const* m, lapack_int
const* n,
1444 lapack_complex_double* A, lapack_int
const* lda,
1447 lapack_complex_double* tauq,
1448 lapack_complex_double* taup,
1449 lapack_complex_double* work, lapack_int
const* lwork,
1452 #define LAPACK_cgecon_base LAPACK_GLOBAL(cgecon,CGECON)
1453 void LAPACK_cgecon_base(
1455 lapack_int
const* n,
1456 lapack_complex_float
const* A, lapack_int
const* lda,
1459 lapack_complex_float* work,
1462 #ifdef LAPACK_FORTRAN_STRLEN_END
1466 #ifdef LAPACK_FORTRAN_STRLEN_END
1467 #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__, 1)
1469 #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__)
1472 #define LAPACK_dgecon_base LAPACK_GLOBAL(dgecon,DGECON)
1473 void LAPACK_dgecon_base(
1475 lapack_int
const* n,
1476 double const* A, lapack_int
const* lda,
1477 double const* anorm,
1482 #ifdef LAPACK_FORTRAN_STRLEN_END
1486 #ifdef LAPACK_FORTRAN_STRLEN_END
1487 #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__, 1)
1489 #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__)
1492 #define LAPACK_sgecon_base LAPACK_GLOBAL(sgecon,SGECON)
1493 void LAPACK_sgecon_base(
1495 lapack_int
const* n,
1496 float const* A, lapack_int
const* lda,
1502 #ifdef LAPACK_FORTRAN_STRLEN_END
1506 #ifdef LAPACK_FORTRAN_STRLEN_END
1507 #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__, 1)
1509 #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__)
1512 #define LAPACK_zgecon_base LAPACK_GLOBAL(zgecon,ZGECON)
1513 void LAPACK_zgecon_base(
1515 lapack_int
const* n,
1516 lapack_complex_double
const* A, lapack_int
const* lda,
1517 double const* anorm,
1519 lapack_complex_double* work,
1522 #ifdef LAPACK_FORTRAN_STRLEN_END
1526 #ifdef LAPACK_FORTRAN_STRLEN_END
1527 #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__, 1)
1529 #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__)
1532 #define LAPACK_cgeequ LAPACK_GLOBAL(cgeequ,CGEEQU)
1534 lapack_int
const* m, lapack_int
const* n,
1535 lapack_complex_float
const* A, lapack_int
const* lda,
1543 #define LAPACK_dgeequ LAPACK_GLOBAL(dgeequ,DGEEQU)
1545 lapack_int
const* m, lapack_int
const* n,
1546 double const* A, lapack_int
const* lda,
1554 #define LAPACK_sgeequ LAPACK_GLOBAL(sgeequ,SGEEQU)
1556 lapack_int
const* m, lapack_int
const* n,
1557 float const* A, lapack_int
const* lda,
1565 #define LAPACK_zgeequ LAPACK_GLOBAL(zgeequ,ZGEEQU)
1567 lapack_int
const* m, lapack_int
const* n,
1568 lapack_complex_double
const* A, lapack_int
const* lda,
1576 #define LAPACK_cgeequb LAPACK_GLOBAL(cgeequb,CGEEQUB)
1577 void LAPACK_cgeequb(
1578 lapack_int
const* m, lapack_int
const* n,
1579 lapack_complex_float
const* A, lapack_int
const* lda,
1587 #define LAPACK_dgeequb LAPACK_GLOBAL(dgeequb,DGEEQUB)
1588 void LAPACK_dgeequb(
1589 lapack_int
const* m, lapack_int
const* n,
1590 double const* A, lapack_int
const* lda,
1598 #define LAPACK_sgeequb LAPACK_GLOBAL(sgeequb,SGEEQUB)
1599 void LAPACK_sgeequb(
1600 lapack_int
const* m, lapack_int
const* n,
1601 float const* A, lapack_int
const* lda,
1609 #define LAPACK_zgeequb LAPACK_GLOBAL(zgeequb,ZGEEQUB)
1610 void LAPACK_zgeequb(
1611 lapack_int
const* m, lapack_int
const* n,
1612 lapack_complex_double
const* A, lapack_int
const* lda,
1620 #define LAPACK_cgees_base LAPACK_GLOBAL(cgees,CGEES)
1621 void LAPACK_cgees_base(
1622 char const* jobvs,
char const* sort, LAPACK_C_SELECT1 select,
1623 lapack_int
const* n,
1624 lapack_complex_float* A, lapack_int
const* lda, lapack_int* sdim,
1625 lapack_complex_float* W,
1626 lapack_complex_float* VS, lapack_int
const* ldvs,
1627 lapack_complex_float* work, lapack_int
const* lwork,
1628 float* rwork, lapack_logical* BWORK,
1630 #ifdef LAPACK_FORTRAN_STRLEN_END
1634 #ifdef LAPACK_FORTRAN_STRLEN_END
1635 #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__, 1, 1)
1637 #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__)
1640 #define LAPACK_dgees_base LAPACK_GLOBAL(dgees,DGEES)
1641 void LAPACK_dgees_base(
1642 char const* jobvs,
char const* sort, LAPACK_D_SELECT2 select,
1643 lapack_int
const* n,
1644 double* A, lapack_int
const* lda, lapack_int* sdim,
1647 double* VS, lapack_int
const* ldvs,
1648 double* work, lapack_int
const* lwork, lapack_logical* BWORK,
1650 #ifdef LAPACK_FORTRAN_STRLEN_END
1654 #ifdef LAPACK_FORTRAN_STRLEN_END
1655 #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__, 1, 1)
1657 #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__)
1660 #define LAPACK_sgees_base LAPACK_GLOBAL(sgees,SGEES)
1661 void LAPACK_sgees_base(
1662 char const* jobvs,
char const* sort, LAPACK_S_SELECT2 select,
1663 lapack_int
const* n,
1664 float* A, lapack_int
const* lda, lapack_int* sdim,
1667 float* VS, lapack_int
const* ldvs,
1668 float* work, lapack_int
const* lwork, lapack_logical* BWORK,
1670 #ifdef LAPACK_FORTRAN_STRLEN_END
1674 #ifdef LAPACK_FORTRAN_STRLEN_END
1675 #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__, 1, 1)
1677 #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__)
1680 #define LAPACK_zgees_base LAPACK_GLOBAL(zgees,ZGEES)
1681 void LAPACK_zgees_base(
1682 char const* jobvs,
char const* sort, LAPACK_Z_SELECT1 select,
1683 lapack_int
const* n,
1684 lapack_complex_double* A, lapack_int
const* lda, lapack_int* sdim,
1685 lapack_complex_double* W,
1686 lapack_complex_double* VS, lapack_int
const* ldvs,
1687 lapack_complex_double* work, lapack_int
const* lwork,
1688 double* rwork, lapack_logical* BWORK,
1690 #ifdef LAPACK_FORTRAN_STRLEN_END
1694 #ifdef LAPACK_FORTRAN_STRLEN_END
1695 #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__, 1, 1)
1697 #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__)
1700 #define LAPACK_cgeesx_base LAPACK_GLOBAL(cgeesx,CGEESX)
1701 void LAPACK_cgeesx_base(
1702 char const* jobvs,
char const* sort, LAPACK_C_SELECT1 select,
char const* sense,
1703 lapack_int
const* n,
1704 lapack_complex_float* A, lapack_int
const* lda, lapack_int* sdim,
1705 lapack_complex_float* W,
1706 lapack_complex_float* VS, lapack_int
const* ldvs,
1709 lapack_complex_float* work, lapack_int
const* lwork,
1710 float* rwork, lapack_logical* BWORK,
1712 #ifdef LAPACK_FORTRAN_STRLEN_END
1713 ,
size_t,
size_t,
size_t
1716 #ifdef LAPACK_FORTRAN_STRLEN_END
1717 #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__, 1, 1, 1)
1719 #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__)
1722 #define LAPACK_dgeesx_base LAPACK_GLOBAL(dgeesx,DGEESX)
1723 void LAPACK_dgeesx_base(
1724 char const* jobvs,
char const* sort, LAPACK_D_SELECT2 select,
char const* sense,
1725 lapack_int
const* n,
1726 double* A, lapack_int
const* lda, lapack_int* sdim,
1729 double* VS, lapack_int
const* ldvs,
1732 double* work, lapack_int
const* lwork,
1733 lapack_int* iwork, lapack_int
const* liwork, lapack_logical* BWORK,
1735 #ifdef LAPACK_FORTRAN_STRLEN_END
1736 ,
size_t,
size_t,
size_t
1739 #ifdef LAPACK_FORTRAN_STRLEN_END
1740 #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__, 1, 1, 1)
1742 #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__)
1745 #define LAPACK_sgeesx_base LAPACK_GLOBAL(sgeesx,SGEESX)
1746 void LAPACK_sgeesx_base(
1747 char const* jobvs,
char const* sort, LAPACK_S_SELECT2 select,
char const* sense,
1748 lapack_int
const* n,
1749 float* A, lapack_int
const* lda, lapack_int* sdim,
1752 float* VS, lapack_int
const* ldvs,
1755 float* work, lapack_int
const* lwork,
1756 lapack_int* iwork, lapack_int
const* liwork, lapack_logical* BWORK,
1758 #ifdef LAPACK_FORTRAN_STRLEN_END
1759 ,
size_t,
size_t,
size_t
1762 #ifdef LAPACK_FORTRAN_STRLEN_END
1763 #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__, 1, 1, 1)
1765 #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__)
1768 #define LAPACK_zgeesx_base LAPACK_GLOBAL(zgeesx,ZGEESX)
1769 void LAPACK_zgeesx_base(
1770 char const* jobvs,
char const* sort, LAPACK_Z_SELECT1 select,
char const* sense,
1771 lapack_int
const* n,
1772 lapack_complex_double* A, lapack_int
const* lda, lapack_int* sdim,
1773 lapack_complex_double* W,
1774 lapack_complex_double* VS, lapack_int
const* ldvs,
1777 lapack_complex_double* work, lapack_int
const* lwork,
1778 double* rwork, lapack_logical* BWORK,
1780 #ifdef LAPACK_FORTRAN_STRLEN_END
1781 ,
size_t,
size_t,
size_t
1784 #ifdef LAPACK_FORTRAN_STRLEN_END
1785 #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__, 1, 1, 1)
1787 #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__)
1790 #define LAPACK_cgeev_base LAPACK_GLOBAL(cgeev,CGEEV)
1791 void LAPACK_cgeev_base(
1792 char const* jobvl,
char const* jobvr,
1793 lapack_int
const* n,
1794 lapack_complex_float* A, lapack_int
const* lda,
1795 lapack_complex_float* W,
1796 lapack_complex_float* VL, lapack_int
const* ldvl,
1797 lapack_complex_float* VR, lapack_int
const* ldvr,
1798 lapack_complex_float* work, lapack_int
const* lwork,
1801 #ifdef LAPACK_FORTRAN_STRLEN_END
1805 #ifdef LAPACK_FORTRAN_STRLEN_END
1806 #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__, 1, 1)
1808 #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__)
1811 #define LAPACK_dgeev_base LAPACK_GLOBAL(dgeev,DGEEV)
1812 void LAPACK_dgeev_base(
1813 char const* jobvl,
char const* jobvr,
1814 lapack_int
const* n,
1815 double* A, lapack_int
const* lda,
1818 double* VL, lapack_int
const* ldvl,
1819 double* VR, lapack_int
const* ldvr,
1820 double* work, lapack_int
const* lwork,
1822 #ifdef LAPACK_FORTRAN_STRLEN_END
1826 #ifdef LAPACK_FORTRAN_STRLEN_END
1827 #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__, 1, 1)
1829 #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__)
1832 #define LAPACK_sgeev_base LAPACK_GLOBAL(sgeev,SGEEV)
1833 void LAPACK_sgeev_base(
1834 char const* jobvl,
char const* jobvr,
1835 lapack_int
const* n,
1836 float* A, lapack_int
const* lda,
1839 float* VL, lapack_int
const* ldvl,
1840 float* VR, lapack_int
const* ldvr,
1841 float* work, lapack_int
const* lwork,
1843 #ifdef LAPACK_FORTRAN_STRLEN_END
1847 #ifdef LAPACK_FORTRAN_STRLEN_END
1848 #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__, 1, 1)
1850 #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__)
1853 #define LAPACK_zgeev_base LAPACK_GLOBAL(zgeev,ZGEEV)
1854 void LAPACK_zgeev_base(
1855 char const* jobvl,
char const* jobvr,
1856 lapack_int
const* n,
1857 lapack_complex_double* A, lapack_int
const* lda,
1858 lapack_complex_double* W,
1859 lapack_complex_double* VL, lapack_int
const* ldvl,
1860 lapack_complex_double* VR, lapack_int
const* ldvr,
1861 lapack_complex_double* work, lapack_int
const* lwork,
1864 #ifdef LAPACK_FORTRAN_STRLEN_END
1868 #ifdef LAPACK_FORTRAN_STRLEN_END
1869 #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__, 1, 1)
1871 #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__)
1874 #define LAPACK_cgeevx_base LAPACK_GLOBAL(cgeevx,CGEEVX)
1875 void LAPACK_cgeevx_base(
1876 char const* balanc,
char const* jobvl,
char const* jobvr,
char const* sense,
1877 lapack_int
const* n,
1878 lapack_complex_float* A, lapack_int
const* lda,
1879 lapack_complex_float* W,
1880 lapack_complex_float* VL, lapack_int
const* ldvl,
1881 lapack_complex_float* VR, lapack_int
const* ldvr, lapack_int* ilo, lapack_int* ihi,
1886 lapack_complex_float* work, lapack_int
const* lwork,
1889 #ifdef LAPACK_FORTRAN_STRLEN_END
1890 ,
size_t,
size_t,
size_t,
size_t
1893 #ifdef LAPACK_FORTRAN_STRLEN_END
1894 #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1896 #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__)
1899 #define LAPACK_dgeevx_base LAPACK_GLOBAL(dgeevx,DGEEVX)
1900 void LAPACK_dgeevx_base(
1901 char const* balanc,
char const* jobvl,
char const* jobvr,
char const* sense,
1902 lapack_int
const* n,
1903 double* A, lapack_int
const* lda,
1906 double* VL, lapack_int
const* ldvl,
1907 double* VR, lapack_int
const* ldvr, lapack_int* ilo, lapack_int* ihi,
1912 double* work, lapack_int
const* lwork,
1915 #ifdef LAPACK_FORTRAN_STRLEN_END
1916 ,
size_t,
size_t,
size_t,
size_t
1919 #ifdef LAPACK_FORTRAN_STRLEN_END
1920 #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1922 #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__)
1925 #define LAPACK_sgeevx_base LAPACK_GLOBAL(sgeevx,SGEEVX)
1926 void LAPACK_sgeevx_base(
1927 char const* balanc,
char const* jobvl,
char const* jobvr,
char const* sense,
1928 lapack_int
const* n,
1929 float* A, lapack_int
const* lda,
1932 float* VL, lapack_int
const* ldvl,
1933 float* VR, lapack_int
const* ldvr, lapack_int* ilo, lapack_int* ihi,
1938 float* work, lapack_int
const* lwork,
1941 #ifdef LAPACK_FORTRAN_STRLEN_END
1942 ,
size_t,
size_t,
size_t,
size_t
1945 #ifdef LAPACK_FORTRAN_STRLEN_END
1946 #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1948 #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__)
1951 #define LAPACK_zgeevx_base LAPACK_GLOBAL(zgeevx,ZGEEVX)
1952 void LAPACK_zgeevx_base(
1953 char const* balanc,
char const* jobvl,
char const* jobvr,
char const* sense,
1954 lapack_int
const* n,
1955 lapack_complex_double* A, lapack_int
const* lda,
1956 lapack_complex_double* W,
1957 lapack_complex_double* VL, lapack_int
const* ldvl,
1958 lapack_complex_double* VR, lapack_int
const* ldvr, lapack_int* ilo, lapack_int* ihi,
1963 lapack_complex_double* work, lapack_int
const* lwork,
1966 #ifdef LAPACK_FORTRAN_STRLEN_END
1967 ,
size_t,
size_t,
size_t,
size_t
1970 #ifdef LAPACK_FORTRAN_STRLEN_END
1971 #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1973 #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__)
1976 #define LAPACK_cgehrd LAPACK_GLOBAL(cgehrd,CGEHRD)
1978 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
1979 lapack_complex_float* A, lapack_int
const* lda,
1980 lapack_complex_float* tau,
1981 lapack_complex_float* work, lapack_int
const* lwork,
1984 #define LAPACK_dgehrd LAPACK_GLOBAL(dgehrd,DGEHRD)
1986 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
1987 double* A, lapack_int
const* lda,
1989 double* work, lapack_int
const* lwork,
1992 #define LAPACK_sgehrd LAPACK_GLOBAL(sgehrd,SGEHRD)
1994 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
1995 float* A, lapack_int
const* lda,
1997 float* work, lapack_int
const* lwork,
2000 #define LAPACK_zgehrd LAPACK_GLOBAL(zgehrd,ZGEHRD)
2002 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
2003 lapack_complex_double* A, lapack_int
const* lda,
2004 lapack_complex_double* tau,
2005 lapack_complex_double* work, lapack_int
const* lwork,
2008 #define LAPACK_cgejsv_base LAPACK_GLOBAL(cgejsv,CGEJSV)
2009 void LAPACK_cgejsv_base(
2010 char const* joba,
char const* jobu,
char const* jobv,
char const* jobr,
char const* jobt,
char const* jobp,
2011 lapack_int
const* m, lapack_int
const* n,
2012 lapack_complex_float* A, lapack_int
const* lda,
2014 lapack_complex_float* U, lapack_int
const* ldu,
2015 lapack_complex_float* V, lapack_int
const* ldv,
2016 lapack_complex_float* cwork, lapack_int
const* lwork,
2017 float* rwork, lapack_int
const* lrwork,
2020 #ifdef LAPACK_FORTRAN_STRLEN_END
2021 ,
size_t,
size_t,
size_t,
size_t,
size_t,
size_t
2024 #ifdef LAPACK_FORTRAN_STRLEN_END
2025 #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2027 #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__)
2030 #define LAPACK_dgejsv_base LAPACK_GLOBAL(dgejsv,DGEJSV)
2031 void LAPACK_dgejsv_base(
2032 char const* joba,
char const* jobu,
char const* jobv,
char const* jobr,
char const* jobt,
char const* jobp,
2033 lapack_int
const* m, lapack_int
const* n,
2034 double* A, lapack_int
const* lda,
2036 double* U, lapack_int
const* ldu,
2037 double* V, lapack_int
const* ldv,
2038 double* work, lapack_int
const* lwork,
2041 #ifdef LAPACK_FORTRAN_STRLEN_END
2042 ,
size_t,
size_t,
size_t,
size_t,
size_t,
size_t
2045 #ifdef LAPACK_FORTRAN_STRLEN_END
2046 #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2048 #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__)
2051 #define LAPACK_sgejsv_base LAPACK_GLOBAL(sgejsv,SGEJSV)
2052 void LAPACK_sgejsv_base(
2053 char const* joba,
char const* jobu,
char const* jobv,
char const* jobr,
char const* jobt,
char const* jobp,
2054 lapack_int
const* m, lapack_int
const* n,
2055 float* A, lapack_int
const* lda,
2057 float* U, lapack_int
const* ldu,
2058 float* V, lapack_int
const* ldv,
2059 float* work, lapack_int
const* lwork,
2062 #ifdef LAPACK_FORTRAN_STRLEN_END
2063 ,
size_t,
size_t,
size_t,
size_t,
size_t,
size_t
2066 #ifdef LAPACK_FORTRAN_STRLEN_END
2067 #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2069 #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__)
2072 #define LAPACK_zgejsv_base LAPACK_GLOBAL(zgejsv,ZGEJSV)
2073 void LAPACK_zgejsv_base(
2074 char const* joba,
char const* jobu,
char const* jobv,
char const* jobr,
char const* jobt,
char const* jobp,
2075 lapack_int
const* m, lapack_int
const* n,
2076 lapack_complex_double* A, lapack_int
const* lda,
2078 lapack_complex_double* U, lapack_int
const* ldu,
2079 lapack_complex_double* V, lapack_int
const* ldv,
2080 lapack_complex_double* cwork, lapack_int
const* lwork,
2081 double* rwork, lapack_int
const* lrwork,
2084 #ifdef LAPACK_FORTRAN_STRLEN_END
2085 ,
size_t,
size_t,
size_t,
size_t,
size_t,
size_t
2088 #ifdef LAPACK_FORTRAN_STRLEN_END
2089 #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2091 #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__)
2094 #define LAPACK_cgelq LAPACK_GLOBAL(cgelq,CGELQ)
2096 lapack_int
const* m, lapack_int
const* n,
2097 lapack_complex_float* A, lapack_int
const* lda,
2098 lapack_complex_float* T, lapack_int
const* tsize,
2099 lapack_complex_float* work, lapack_int
const* lwork,
2102 #define LAPACK_dgelq LAPACK_GLOBAL(dgelq,DGELQ)
2104 lapack_int
const* m, lapack_int
const* n,
2105 double* A, lapack_int
const* lda,
2106 double* T, lapack_int
const* tsize,
2107 double* work, lapack_int
const* lwork,
2110 #define LAPACK_sgelq LAPACK_GLOBAL(sgelq,SGELQ)
2112 lapack_int
const* m, lapack_int
const* n,
2113 float* A, lapack_int
const* lda,
2114 float* T, lapack_int
const* tsize,
2115 float* work, lapack_int
const* lwork,
2118 #define LAPACK_zgelq LAPACK_GLOBAL(zgelq,ZGELQ)
2120 lapack_int
const* m, lapack_int
const* n,
2121 lapack_complex_double* A, lapack_int
const* lda,
2122 lapack_complex_double* T, lapack_int
const* tsize,
2123 lapack_complex_double* work, lapack_int
const* lwork,
2126 #define LAPACK_cgelq2 LAPACK_GLOBAL(cgelq2,CGELQ2)
2128 lapack_int
const* m, lapack_int
const* n,
2129 lapack_complex_float* A, lapack_int
const* lda,
2130 lapack_complex_float* tau,
2131 lapack_complex_float* work,
2134 #define LAPACK_dgelq2 LAPACK_GLOBAL(dgelq2,DGELQ2)
2136 lapack_int
const* m, lapack_int
const* n,
2137 double* A, lapack_int
const* lda,
2142 #define LAPACK_sgelq2 LAPACK_GLOBAL(sgelq2,SGELQ2)
2144 lapack_int
const* m, lapack_int
const* n,
2145 float* A, lapack_int
const* lda,
2150 #define LAPACK_zgelq2 LAPACK_GLOBAL(zgelq2,ZGELQ2)
2152 lapack_int
const* m, lapack_int
const* n,
2153 lapack_complex_double* A, lapack_int
const* lda,
2154 lapack_complex_double* tau,
2155 lapack_complex_double* work,
2158 #define LAPACK_cgelqf LAPACK_GLOBAL(cgelqf,CGELQF)
2160 lapack_int
const* m, lapack_int
const* n,
2161 lapack_complex_float* A, lapack_int
const* lda,
2162 lapack_complex_float* tau,
2163 lapack_complex_float* work, lapack_int
const* lwork,
2166 #define LAPACK_dgelqf LAPACK_GLOBAL(dgelqf,DGELQF)
2168 lapack_int
const* m, lapack_int
const* n,
2169 double* A, lapack_int
const* lda,
2171 double* work, lapack_int
const* lwork,
2174 #define LAPACK_sgelqf LAPACK_GLOBAL(sgelqf,SGELQF)
2176 lapack_int
const* m, lapack_int
const* n,
2177 float* A, lapack_int
const* lda,
2179 float* work, lapack_int
const* lwork,
2182 #define LAPACK_zgelqf LAPACK_GLOBAL(zgelqf,ZGELQF)
2184 lapack_int
const* m, lapack_int
const* n,
2185 lapack_complex_double* A, lapack_int
const* lda,
2186 lapack_complex_double* tau,
2187 lapack_complex_double* work, lapack_int
const* lwork,
2190 #define LAPACK_cgels_base LAPACK_GLOBAL(cgels,CGELS)
2191 void LAPACK_cgels_base(
2193 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2194 lapack_complex_float* A, lapack_int
const* lda,
2195 lapack_complex_float* B, lapack_int
const* ldb,
2196 lapack_complex_float* work, lapack_int
const* lwork,
2198 #ifdef LAPACK_FORTRAN_STRLEN_END
2202 #ifdef LAPACK_FORTRAN_STRLEN_END
2203 #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__, 1)
2205 #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__)
2208 #define LAPACK_dgels_base LAPACK_GLOBAL(dgels,DGELS)
2209 void LAPACK_dgels_base(
2211 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2212 double* A, lapack_int
const* lda,
2213 double* B, lapack_int
const* ldb,
2214 double* work, lapack_int
const* lwork,
2216 #ifdef LAPACK_FORTRAN_STRLEN_END
2220 #ifdef LAPACK_FORTRAN_STRLEN_END
2221 #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__, 1)
2223 #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__)
2226 #define LAPACK_sgels_base LAPACK_GLOBAL(sgels,SGELS)
2227 void LAPACK_sgels_base(
2229 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2230 float* A, lapack_int
const* lda,
2231 float* B, lapack_int
const* ldb,
2232 float* work, lapack_int
const* lwork,
2234 #ifdef LAPACK_FORTRAN_STRLEN_END
2238 #ifdef LAPACK_FORTRAN_STRLEN_END
2239 #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__, 1)
2241 #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__)
2244 #define LAPACK_zgels_base LAPACK_GLOBAL(zgels,ZGELS)
2245 void LAPACK_zgels_base(
2247 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2248 lapack_complex_double* A, lapack_int
const* lda,
2249 lapack_complex_double* B, lapack_int
const* ldb,
2250 lapack_complex_double* work, lapack_int
const* lwork,
2252 #ifdef LAPACK_FORTRAN_STRLEN_END
2256 #ifdef LAPACK_FORTRAN_STRLEN_END
2257 #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__, 1)
2259 #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__)
2262 #define LAPACK_cgelsd LAPACK_GLOBAL(cgelsd,CGELSD)
2264 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2265 lapack_complex_float* A, lapack_int
const* lda,
2266 lapack_complex_float* B, lapack_int
const* ldb,
2268 float const* rcond, lapack_int* rank,
2269 lapack_complex_float* work, lapack_int
const* lwork,
2274 #define LAPACK_dgelsd LAPACK_GLOBAL(dgelsd,DGELSD)
2276 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2277 double* A, lapack_int
const* lda,
2278 double* B, lapack_int
const* ldb,
2280 double const* rcond, lapack_int* rank,
2281 double* work, lapack_int
const* lwork,
2285 #define LAPACK_sgelsd LAPACK_GLOBAL(sgelsd,SGELSD)
2287 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2288 float* A, lapack_int
const* lda,
2289 float* B, lapack_int
const* ldb,
2291 float const* rcond, lapack_int* rank,
2292 float* work, lapack_int
const* lwork,
2296 #define LAPACK_zgelsd LAPACK_GLOBAL(zgelsd,ZGELSD)
2298 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2299 lapack_complex_double* A, lapack_int
const* lda,
2300 lapack_complex_double* B, lapack_int
const* ldb,
2302 double const* rcond, lapack_int* rank,
2303 lapack_complex_double* work, lapack_int
const* lwork,
2308 #define LAPACK_cgelss LAPACK_GLOBAL(cgelss,CGELSS)
2310 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2311 lapack_complex_float* A, lapack_int
const* lda,
2312 lapack_complex_float* B, lapack_int
const* ldb,
2314 float const* rcond, lapack_int* rank,
2315 lapack_complex_float* work, lapack_int
const* lwork,
2319 #define LAPACK_dgelss LAPACK_GLOBAL(dgelss,DGELSS)
2321 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2322 double* A, lapack_int
const* lda,
2323 double* B, lapack_int
const* ldb,
2325 double const* rcond, lapack_int* rank,
2326 double* work, lapack_int
const* lwork,
2329 #define LAPACK_sgelss LAPACK_GLOBAL(sgelss,SGELSS)
2331 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2332 float* A, lapack_int
const* lda,
2333 float* B, lapack_int
const* ldb,
2335 float const* rcond, lapack_int* rank,
2336 float* work, lapack_int
const* lwork,
2339 #define LAPACK_zgelss LAPACK_GLOBAL(zgelss,ZGELSS)
2341 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2342 lapack_complex_double* A, lapack_int
const* lda,
2343 lapack_complex_double* B, lapack_int
const* ldb,
2345 double const* rcond, lapack_int* rank,
2346 lapack_complex_double* work, lapack_int
const* lwork,
2350 #define LAPACK_cgelsy LAPACK_GLOBAL(cgelsy,CGELSY)
2352 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2353 lapack_complex_float* A, lapack_int
const* lda,
2354 lapack_complex_float* B, lapack_int
const* ldb, lapack_int* JPVT,
2355 float const* rcond, lapack_int* rank,
2356 lapack_complex_float* work, lapack_int
const* lwork,
2360 #define LAPACK_dgelsy LAPACK_GLOBAL(dgelsy,DGELSY)
2362 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2363 double* A, lapack_int
const* lda,
2364 double* B, lapack_int
const* ldb, lapack_int* JPVT,
2365 double const* rcond, lapack_int* rank,
2366 double* work, lapack_int
const* lwork,
2369 #define LAPACK_sgelsy LAPACK_GLOBAL(sgelsy,SGELSY)
2371 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2372 float* A, lapack_int
const* lda,
2373 float* B, lapack_int
const* ldb, lapack_int* JPVT,
2374 float const* rcond, lapack_int* rank,
2375 float* work, lapack_int
const* lwork,
2378 #define LAPACK_zgelsy LAPACK_GLOBAL(zgelsy,ZGELSY)
2380 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2381 lapack_complex_double* A, lapack_int
const* lda,
2382 lapack_complex_double* B, lapack_int
const* ldb, lapack_int* JPVT,
2383 double const* rcond, lapack_int* rank,
2384 lapack_complex_double* work, lapack_int
const* lwork,
2388 #define LAPACK_cgemlq_base LAPACK_GLOBAL(cgemlq,CGEMLQ)
2389 void LAPACK_cgemlq_base(
2390 char const* side,
char const* trans,
2391 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
2392 lapack_complex_float
const* A, lapack_int
const* lda,
2393 lapack_complex_float
const* T, lapack_int
const* tsize,
2394 lapack_complex_float* C, lapack_int
const* ldc,
2395 lapack_complex_float* work, lapack_int
const* lwork,
2397 #ifdef LAPACK_FORTRAN_STRLEN_END
2401 #ifdef LAPACK_FORTRAN_STRLEN_END
2402 #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__, 1, 1)
2404 #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__)
2407 #define LAPACK_dgemlq_base LAPACK_GLOBAL(dgemlq,DGEMLQ)
2408 void LAPACK_dgemlq_base(
2409 char const* side,
char const* trans,
2410 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
2411 double const* A, lapack_int
const* lda,
2412 double const* T, lapack_int
const* tsize,
2413 double* C, lapack_int
const* ldc,
2414 double* work, lapack_int
const* lwork,
2416 #ifdef LAPACK_FORTRAN_STRLEN_END
2420 #ifdef LAPACK_FORTRAN_STRLEN_END
2421 #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__, 1, 1)
2423 #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__)
2426 #define LAPACK_sgemlq_base LAPACK_GLOBAL(sgemlq,SGEMLQ)
2427 void LAPACK_sgemlq_base(
2428 char const* side,
char const* trans,
2429 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
2430 float const* A, lapack_int
const* lda,
2431 float const* T, lapack_int
const* tsize,
2432 float* C, lapack_int
const* ldc,
2433 float* work, lapack_int
const* lwork,
2435 #ifdef LAPACK_FORTRAN_STRLEN_END
2439 #ifdef LAPACK_FORTRAN_STRLEN_END
2440 #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__, 1, 1)
2442 #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__)
2445 #define LAPACK_zgemlq_base LAPACK_GLOBAL(zgemlq,ZGEMLQ)
2446 void LAPACK_zgemlq_base(
2447 char const* side,
char const* trans,
2448 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
2449 lapack_complex_double
const* A, lapack_int
const* lda,
2450 lapack_complex_double
const* T, lapack_int
const* tsize,
2451 lapack_complex_double* C, lapack_int
const* ldc,
2452 lapack_complex_double* work, lapack_int
const* lwork,
2454 #ifdef LAPACK_FORTRAN_STRLEN_END
2458 #ifdef LAPACK_FORTRAN_STRLEN_END
2459 #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__, 1, 1)
2461 #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__)
2464 #define LAPACK_cgemqr_base LAPACK_GLOBAL(cgemqr,CGEMQR)
2465 void LAPACK_cgemqr_base(
2466 char const* side,
char const* trans,
2467 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
2468 lapack_complex_float
const* A, lapack_int
const* lda,
2469 lapack_complex_float
const* T, lapack_int
const* tsize,
2470 lapack_complex_float* C, lapack_int
const* ldc,
2471 lapack_complex_float* work, lapack_int
const* lwork,
2473 #ifdef LAPACK_FORTRAN_STRLEN_END
2477 #ifdef LAPACK_FORTRAN_STRLEN_END
2478 #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__, 1, 1)
2480 #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__)
2483 #define LAPACK_dgemqr_base LAPACK_GLOBAL(dgemqr,DGEMQR)
2484 void LAPACK_dgemqr_base(
2485 char const* side,
char const* trans,
2486 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
2487 double const* A, lapack_int
const* lda,
2488 double const* T, lapack_int
const* tsize,
2489 double* C, lapack_int
const* ldc,
2490 double* work, lapack_int
const* lwork,
2492 #ifdef LAPACK_FORTRAN_STRLEN_END
2496 #ifdef LAPACK_FORTRAN_STRLEN_END
2497 #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__, 1, 1)
2499 #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__)
2502 #define LAPACK_sgemqr_base LAPACK_GLOBAL(sgemqr,SGEMQR)
2503 void LAPACK_sgemqr_base(
2504 char const* side,
char const* trans,
2505 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
2506 float const* A, lapack_int
const* lda,
2507 float const* T, lapack_int
const* tsize,
2508 float* C, lapack_int
const* ldc,
2509 float* work, lapack_int
const* lwork,
2511 #ifdef LAPACK_FORTRAN_STRLEN_END
2515 #ifdef LAPACK_FORTRAN_STRLEN_END
2516 #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__, 1, 1)
2518 #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__)
2521 #define LAPACK_zgemqr_base LAPACK_GLOBAL(zgemqr,ZGEMQR)
2522 void LAPACK_zgemqr_base(
2523 char const* side,
char const* trans,
2524 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
2525 lapack_complex_double
const* A, lapack_int
const* lda,
2526 lapack_complex_double
const* T, lapack_int
const* tsize,
2527 lapack_complex_double* C, lapack_int
const* ldc,
2528 lapack_complex_double* work, lapack_int
const* lwork,
2530 #ifdef LAPACK_FORTRAN_STRLEN_END
2534 #ifdef LAPACK_FORTRAN_STRLEN_END
2535 #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__, 1, 1)
2537 #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__)
2540 #define LAPACK_cgemqrt_base LAPACK_GLOBAL(cgemqrt,CGEMQRT)
2541 void LAPACK_cgemqrt_base(
2542 char const* side,
char const* trans,
2543 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* nb,
2544 lapack_complex_float
const* V, lapack_int
const* ldv,
2545 lapack_complex_float
const* T, lapack_int
const* ldt,
2546 lapack_complex_float* C, lapack_int
const* ldc,
2547 lapack_complex_float* work,
2549 #ifdef LAPACK_FORTRAN_STRLEN_END
2553 #ifdef LAPACK_FORTRAN_STRLEN_END
2554 #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__, 1, 1)
2556 #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__)
2559 #define LAPACK_dgemqrt_base LAPACK_GLOBAL(dgemqrt,DGEMQRT)
2560 void LAPACK_dgemqrt_base(
2561 char const* side,
char const* trans,
2562 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* nb,
2563 double const* V, lapack_int
const* ldv,
2564 double const* T, lapack_int
const* ldt,
2565 double* C, lapack_int
const* ldc,
2568 #ifdef LAPACK_FORTRAN_STRLEN_END
2572 #ifdef LAPACK_FORTRAN_STRLEN_END
2573 #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__, 1, 1)
2575 #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__)
2578 #define LAPACK_sgemqrt_base LAPACK_GLOBAL(sgemqrt,SGEMQRT)
2579 void LAPACK_sgemqrt_base(
2580 char const* side,
char const* trans,
2581 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* nb,
2582 float const* V, lapack_int
const* ldv,
2583 float const* T, lapack_int
const* ldt,
2584 float* C, lapack_int
const* ldc,
2587 #ifdef LAPACK_FORTRAN_STRLEN_END
2591 #ifdef LAPACK_FORTRAN_STRLEN_END
2592 #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__, 1, 1)
2594 #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__)
2597 #define LAPACK_zgemqrt_base LAPACK_GLOBAL(zgemqrt,ZGEMQRT)
2598 void LAPACK_zgemqrt_base(
2599 char const* side,
char const* trans,
2600 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* nb,
2601 lapack_complex_double
const* V, lapack_int
const* ldv,
2602 lapack_complex_double
const* T, lapack_int
const* ldt,
2603 lapack_complex_double* C, lapack_int
const* ldc,
2604 lapack_complex_double* work,
2606 #ifdef LAPACK_FORTRAN_STRLEN_END
2610 #ifdef LAPACK_FORTRAN_STRLEN_END
2611 #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__, 1, 1)
2613 #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__)
2616 #define LAPACK_cgeql2 LAPACK_GLOBAL(cgeql2,CGEQL2)
2618 lapack_int
const* m, lapack_int
const* n,
2619 lapack_complex_float* A, lapack_int
const* lda,
2620 lapack_complex_float* tau,
2621 lapack_complex_float* work,
2624 #define LAPACK_dgeql2 LAPACK_GLOBAL(dgeql2,DGEQL2)
2626 lapack_int
const* m, lapack_int
const* n,
2627 double* A, lapack_int
const* lda,
2632 #define LAPACK_sgeql2 LAPACK_GLOBAL(sgeql2,SGEQL2)
2634 lapack_int
const* m, lapack_int
const* n,
2635 float* A, lapack_int
const* lda,
2640 #define LAPACK_zgeql2 LAPACK_GLOBAL(zgeql2,ZGEQL2)
2642 lapack_int
const* m, lapack_int
const* n,
2643 lapack_complex_double* A, lapack_int
const* lda,
2644 lapack_complex_double* tau,
2645 lapack_complex_double* work,
2648 #define LAPACK_cgeqlf LAPACK_GLOBAL(cgeqlf,CGEQLF)
2650 lapack_int
const* m, lapack_int
const* n,
2651 lapack_complex_float* A, lapack_int
const* lda,
2652 lapack_complex_float* tau,
2653 lapack_complex_float* work, lapack_int
const* lwork,
2656 #define LAPACK_dgeqlf LAPACK_GLOBAL(dgeqlf,DGEQLF)
2658 lapack_int
const* m, lapack_int
const* n,
2659 double* A, lapack_int
const* lda,
2661 double* work, lapack_int
const* lwork,
2664 #define LAPACK_sgeqlf LAPACK_GLOBAL(sgeqlf,SGEQLF)
2666 lapack_int
const* m, lapack_int
const* n,
2667 float* A, lapack_int
const* lda,
2669 float* work, lapack_int
const* lwork,
2672 #define LAPACK_zgeqlf LAPACK_GLOBAL(zgeqlf,ZGEQLF)
2674 lapack_int
const* m, lapack_int
const* n,
2675 lapack_complex_double* A, lapack_int
const* lda,
2676 lapack_complex_double* tau,
2677 lapack_complex_double* work, lapack_int
const* lwork,
2680 #define LAPACK_sgeqpf LAPACK_GLOBAL(sgeqpf,SGEQPF)
2681 void LAPACK_sgeqpf( lapack_int* m, lapack_int* n,
float* a, lapack_int* lda,
2682 lapack_int* jpvt,
float* tau,
float* work,
2685 #define LAPACK_dgeqpf LAPACK_GLOBAL(dgeqpf,DGEQPF)
2686 void LAPACK_dgeqpf( lapack_int* m, lapack_int* n,
double* a, lapack_int* lda,
2687 lapack_int* jpvt,
double* tau,
double* work,
2690 #define LAPACK_cgeqpf LAPACK_GLOBAL(cgeqpf,CGEQPF)
2691 void LAPACK_cgeqpf( lapack_int* m, lapack_int* n, lapack_complex_float* a,
2692 lapack_int* lda, lapack_int* jpvt,
2693 lapack_complex_float* tau, lapack_complex_float* work,
2694 float* rwork, lapack_int *info );
2696 #define LAPACK_zgeqpf LAPACK_GLOBAL(zgeqpf,ZGEQPF)
2697 void LAPACK_zgeqpf( lapack_int* m, lapack_int* n, lapack_complex_double* a,
2698 lapack_int* lda, lapack_int* jpvt,
2699 lapack_complex_double* tau, lapack_complex_double* work,
2700 double* rwork, lapack_int *info );
2702 #define LAPACK_cgeqp3 LAPACK_GLOBAL(cgeqp3,CGEQP3)
2704 lapack_int
const* m, lapack_int
const* n,
2705 lapack_complex_float* A, lapack_int
const* lda, lapack_int* JPVT,
2706 lapack_complex_float* tau,
2707 lapack_complex_float* work, lapack_int
const* lwork,
2711 #define LAPACK_dgeqp3 LAPACK_GLOBAL(dgeqp3,DGEQP3)
2713 lapack_int
const* m, lapack_int
const* n,
2714 double* A, lapack_int
const* lda, lapack_int* JPVT,
2716 double* work, lapack_int
const* lwork,
2719 #define LAPACK_sgeqp3 LAPACK_GLOBAL(sgeqp3,SGEQP3)
2721 lapack_int
const* m, lapack_int
const* n,
2722 float* A, lapack_int
const* lda, lapack_int* JPVT,
2724 float* work, lapack_int
const* lwork,
2727 #define LAPACK_zgeqp3 LAPACK_GLOBAL(zgeqp3,ZGEQP3)
2729 lapack_int
const* m, lapack_int
const* n,
2730 lapack_complex_double* A, lapack_int
const* lda, lapack_int* JPVT,
2731 lapack_complex_double* tau,
2732 lapack_complex_double* work, lapack_int
const* lwork,
2736 #define LAPACK_cgeqr LAPACK_GLOBAL(cgeqr,CGEQR)
2738 lapack_int
const* m, lapack_int
const* n,
2739 lapack_complex_float* A, lapack_int
const* lda,
2740 lapack_complex_float* T, lapack_int
const* tsize,
2741 lapack_complex_float* work, lapack_int
const* lwork,
2744 #define LAPACK_dgeqr LAPACK_GLOBAL(dgeqr,DGEQR)
2746 lapack_int
const* m, lapack_int
const* n,
2747 double* A, lapack_int
const* lda,
2748 double* T, lapack_int
const* tsize,
2749 double* work, lapack_int
const* lwork,
2752 #define LAPACK_sgeqr LAPACK_GLOBAL(sgeqr,SGEQR)
2754 lapack_int
const* m, lapack_int
const* n,
2755 float* A, lapack_int
const* lda,
2756 float* T, lapack_int
const* tsize,
2757 float* work, lapack_int
const* lwork,
2760 #define LAPACK_zgeqr LAPACK_GLOBAL(zgeqr,ZGEQR)
2762 lapack_int
const* m, lapack_int
const* n,
2763 lapack_complex_double* A, lapack_int
const* lda,
2764 lapack_complex_double* T, lapack_int
const* tsize,
2765 lapack_complex_double* work, lapack_int
const* lwork,
2768 #define LAPACK_cgeqr2 LAPACK_GLOBAL(cgeqr2,CGEQR2)
2770 lapack_int
const* m, lapack_int
const* n,
2771 lapack_complex_float* A, lapack_int
const* lda,
2772 lapack_complex_float* tau,
2773 lapack_complex_float* work,
2776 #define LAPACK_dgeqr2 LAPACK_GLOBAL(dgeqr2,DGEQR2)
2778 lapack_int
const* m, lapack_int
const* n,
2779 double* A, lapack_int
const* lda,
2784 #define LAPACK_sgeqr2 LAPACK_GLOBAL(sgeqr2,SGEQR2)
2786 lapack_int
const* m, lapack_int
const* n,
2787 float* A, lapack_int
const* lda,
2792 #define LAPACK_zgeqr2 LAPACK_GLOBAL(zgeqr2,ZGEQR2)
2794 lapack_int
const* m, lapack_int
const* n,
2795 lapack_complex_double* A, lapack_int
const* lda,
2796 lapack_complex_double* tau,
2797 lapack_complex_double* work,
2800 #define LAPACK_cgeqrf LAPACK_GLOBAL(cgeqrf,CGEQRF)
2802 lapack_int
const* m, lapack_int
const* n,
2803 lapack_complex_float* A, lapack_int
const* lda,
2804 lapack_complex_float* tau,
2805 lapack_complex_float* work, lapack_int
const* lwork,
2808 #define LAPACK_dgeqrf LAPACK_GLOBAL(dgeqrf,DGEQRF)
2810 lapack_int
const* m, lapack_int
const* n,
2811 double* A, lapack_int
const* lda,
2813 double* work, lapack_int
const* lwork,
2816 #define LAPACK_sgeqrf LAPACK_GLOBAL(sgeqrf,SGEQRF)
2818 lapack_int
const* m, lapack_int
const* n,
2819 float* A, lapack_int
const* lda,
2821 float* work, lapack_int
const* lwork,
2824 #define LAPACK_zgeqrf LAPACK_GLOBAL(zgeqrf,ZGEQRF)
2826 lapack_int
const* m, lapack_int
const* n,
2827 lapack_complex_double* A, lapack_int
const* lda,
2828 lapack_complex_double* tau,
2829 lapack_complex_double* work, lapack_int
const* lwork,
2832 #define LAPACK_cgeqrfp LAPACK_GLOBAL(cgeqrfp,CGEQRFP)
2833 void LAPACK_cgeqrfp(
2834 lapack_int
const* m, lapack_int
const* n,
2835 lapack_complex_float* A, lapack_int
const* lda,
2836 lapack_complex_float* tau,
2837 lapack_complex_float* work, lapack_int
const* lwork,
2840 #define LAPACK_dgeqrfp LAPACK_GLOBAL(dgeqrfp,DGEQRFP)
2841 void LAPACK_dgeqrfp(
2842 lapack_int
const* m, lapack_int
const* n,
2843 double* A, lapack_int
const* lda,
2845 double* work, lapack_int
const* lwork,
2848 #define LAPACK_sgeqrfp LAPACK_GLOBAL(sgeqrfp,SGEQRFP)
2849 void LAPACK_sgeqrfp(
2850 lapack_int
const* m, lapack_int
const* n,
2851 float* A, lapack_int
const* lda,
2853 float* work, lapack_int
const* lwork,
2856 #define LAPACK_zgeqrfp LAPACK_GLOBAL(zgeqrfp,ZGEQRFP)
2857 void LAPACK_zgeqrfp(
2858 lapack_int
const* m, lapack_int
const* n,
2859 lapack_complex_double* A, lapack_int
const* lda,
2860 lapack_complex_double* tau,
2861 lapack_complex_double* work, lapack_int
const* lwork,
2864 #define LAPACK_cgeqrt LAPACK_GLOBAL(cgeqrt,CGEQRT)
2866 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nb,
2867 lapack_complex_float* A, lapack_int
const* lda,
2868 lapack_complex_float* T, lapack_int
const* ldt,
2869 lapack_complex_float* work,
2872 #define LAPACK_dgeqrt LAPACK_GLOBAL(dgeqrt,DGEQRT)
2874 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nb,
2875 double* A, lapack_int
const* lda,
2876 double* T, lapack_int
const* ldt,
2880 #define LAPACK_sgeqrt LAPACK_GLOBAL(sgeqrt,SGEQRT)
2882 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nb,
2883 float* A, lapack_int
const* lda,
2884 float* T, lapack_int
const* ldt,
2888 #define LAPACK_zgeqrt LAPACK_GLOBAL(zgeqrt,ZGEQRT)
2890 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nb,
2891 lapack_complex_double* A, lapack_int
const* lda,
2892 lapack_complex_double* T, lapack_int
const* ldt,
2893 lapack_complex_double* work,
2896 #define LAPACK_cgeqrt2 LAPACK_GLOBAL(cgeqrt2,CGEQRT2)
2897 void LAPACK_cgeqrt2(
2898 lapack_int
const* m, lapack_int
const* n,
2899 lapack_complex_float* A, lapack_int
const* lda,
2900 lapack_complex_float* T, lapack_int
const* ldt,
2903 #define LAPACK_dgeqrt2 LAPACK_GLOBAL(dgeqrt2,DGEQRT2)
2904 void LAPACK_dgeqrt2(
2905 lapack_int
const* m, lapack_int
const* n,
2906 double* A, lapack_int
const* lda,
2907 double* T, lapack_int
const* ldt,
2910 #define LAPACK_sgeqrt2 LAPACK_GLOBAL(sgeqrt2,SGEQRT2)
2911 void LAPACK_sgeqrt2(
2912 lapack_int
const* m, lapack_int
const* n,
2913 float* A, lapack_int
const* lda,
2914 float* T, lapack_int
const* ldt,
2917 #define LAPACK_zgeqrt2 LAPACK_GLOBAL(zgeqrt2,ZGEQRT2)
2918 void LAPACK_zgeqrt2(
2919 lapack_int
const* m, lapack_int
const* n,
2920 lapack_complex_double* A, lapack_int
const* lda,
2921 lapack_complex_double* T, lapack_int
const* ldt,
2924 #define LAPACK_cgeqrt3 LAPACK_GLOBAL(cgeqrt3,CGEQRT3)
2925 void LAPACK_cgeqrt3(
2926 lapack_int
const* m, lapack_int
const* n,
2927 lapack_complex_float* A, lapack_int
const* lda,
2928 lapack_complex_float* T, lapack_int
const* ldt,
2931 #define LAPACK_dgeqrt3 LAPACK_GLOBAL(dgeqrt3,DGEQRT3)
2932 void LAPACK_dgeqrt3(
2933 lapack_int
const* m, lapack_int
const* n,
2934 double* A, lapack_int
const* lda,
2935 double* T, lapack_int
const* ldt,
2938 #define LAPACK_sgeqrt3 LAPACK_GLOBAL(sgeqrt3,SGEQRT3)
2939 void LAPACK_sgeqrt3(
2940 lapack_int
const* m, lapack_int
const* n,
2941 float* A, lapack_int
const* lda,
2942 float* T, lapack_int
const* ldt,
2945 #define LAPACK_zgeqrt3 LAPACK_GLOBAL(zgeqrt3,ZGEQRT3)
2946 void LAPACK_zgeqrt3(
2947 lapack_int
const* m, lapack_int
const* n,
2948 lapack_complex_double* A, lapack_int
const* lda,
2949 lapack_complex_double* T, lapack_int
const* ldt,
2952 #define LAPACK_cgerfs_base LAPACK_GLOBAL(cgerfs,CGERFS)
2953 void LAPACK_cgerfs_base(
2955 lapack_int
const* n, lapack_int
const* nrhs,
2956 lapack_complex_float
const* A, lapack_int
const* lda,
2957 lapack_complex_float
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
2958 lapack_complex_float
const* B, lapack_int
const* ldb,
2959 lapack_complex_float* X, lapack_int
const* ldx,
2962 lapack_complex_float* work,
2965 #ifdef LAPACK_FORTRAN_STRLEN_END
2969 #ifdef LAPACK_FORTRAN_STRLEN_END
2970 #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__, 1)
2972 #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__)
2975 #define LAPACK_dgerfs_base LAPACK_GLOBAL(dgerfs,DGERFS)
2976 void LAPACK_dgerfs_base(
2978 lapack_int
const* n, lapack_int
const* nrhs,
2979 double const* A, lapack_int
const* lda,
2980 double const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
2981 double const* B, lapack_int
const* ldb,
2982 double* X, lapack_int
const* ldx,
2988 #ifdef LAPACK_FORTRAN_STRLEN_END
2992 #ifdef LAPACK_FORTRAN_STRLEN_END
2993 #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__, 1)
2995 #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__)
2998 #define LAPACK_sgerfs_base LAPACK_GLOBAL(sgerfs,SGERFS)
2999 void LAPACK_sgerfs_base(
3001 lapack_int
const* n, lapack_int
const* nrhs,
3002 float const* A, lapack_int
const* lda,
3003 float const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
3004 float const* B, lapack_int
const* ldb,
3005 float* X, lapack_int
const* ldx,
3011 #ifdef LAPACK_FORTRAN_STRLEN_END
3015 #ifdef LAPACK_FORTRAN_STRLEN_END
3016 #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__, 1)
3018 #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__)
3021 #define LAPACK_zgerfs_base LAPACK_GLOBAL(zgerfs,ZGERFS)
3022 void LAPACK_zgerfs_base(
3024 lapack_int
const* n, lapack_int
const* nrhs,
3025 lapack_complex_double
const* A, lapack_int
const* lda,
3026 lapack_complex_double
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
3027 lapack_complex_double
const* B, lapack_int
const* ldb,
3028 lapack_complex_double* X, lapack_int
const* ldx,
3031 lapack_complex_double* work,
3034 #ifdef LAPACK_FORTRAN_STRLEN_END
3038 #ifdef LAPACK_FORTRAN_STRLEN_END
3039 #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__, 1)
3041 #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__)
3044 #define LAPACK_cgerfsx_base LAPACK_GLOBAL(cgerfsx,CGERFSX)
3045 void LAPACK_cgerfsx_base(
3046 char const* trans,
char const* equed,
3047 lapack_int
const* n, lapack_int
const* nrhs,
3048 lapack_complex_float
const* A, lapack_int
const* lda,
3049 lapack_complex_float
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
3052 lapack_complex_float
const* B, lapack_int
const* ldb,
3053 lapack_complex_float* X, lapack_int
const* ldx,
3055 float* berr, lapack_int
const* n_err_bnds,
3056 float* err_bnds_norm,
3057 float* err_bnds_comp, lapack_int
const* nparams,
3059 lapack_complex_float* work,
3062 #ifdef LAPACK_FORTRAN_STRLEN_END
3066 #ifdef LAPACK_FORTRAN_STRLEN_END
3067 #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__, 1, 1)
3069 #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__)
3072 #define LAPACK_dgerfsx_base LAPACK_GLOBAL(dgerfsx,DGERFSX)
3073 void LAPACK_dgerfsx_base(
3074 char const* trans,
char const* equed,
3075 lapack_int
const* n, lapack_int
const* nrhs,
3076 double const* A, lapack_int
const* lda,
3077 double const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
3080 double const* B, lapack_int
const* ldb,
3081 double* X, lapack_int
const* ldx,
3083 double* berr, lapack_int
const* n_err_bnds,
3084 double* err_bnds_norm,
3085 double* err_bnds_comp, lapack_int
const* nparams,
3090 #ifdef LAPACK_FORTRAN_STRLEN_END
3094 #ifdef LAPACK_FORTRAN_STRLEN_END
3095 #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__, 1, 1)
3097 #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__)
3100 #define LAPACK_sgerfsx_base LAPACK_GLOBAL(sgerfsx,SGERFSX)
3101 void LAPACK_sgerfsx_base(
3102 char const* trans,
char const* equed,
3103 lapack_int
const* n, lapack_int
const* nrhs,
3104 float const* A, lapack_int
const* lda,
3105 float const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
3108 float const* B, lapack_int
const* ldb,
3109 float* X, lapack_int
const* ldx,
3111 float* berr, lapack_int
const* n_err_bnds,
3112 float* err_bnds_norm,
3113 float* err_bnds_comp, lapack_int
const* nparams,
3118 #ifdef LAPACK_FORTRAN_STRLEN_END
3122 #ifdef LAPACK_FORTRAN_STRLEN_END
3123 #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__, 1, 1)
3125 #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__)
3128 #define LAPACK_zgerfsx_base LAPACK_GLOBAL(zgerfsx,ZGERFSX)
3129 void LAPACK_zgerfsx_base(
3130 char const* trans,
char const* equed,
3131 lapack_int
const* n, lapack_int
const* nrhs,
3132 lapack_complex_double
const* A, lapack_int
const* lda,
3133 lapack_complex_double
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
3136 lapack_complex_double
const* B, lapack_int
const* ldb,
3137 lapack_complex_double* X, lapack_int
const* ldx,
3139 double* berr, lapack_int
const* n_err_bnds,
3140 double* err_bnds_norm,
3141 double* err_bnds_comp, lapack_int
const* nparams,
3143 lapack_complex_double* work,
3146 #ifdef LAPACK_FORTRAN_STRLEN_END
3150 #ifdef LAPACK_FORTRAN_STRLEN_END
3151 #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__, 1, 1)
3153 #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__)
3156 #define LAPACK_cgerq2 LAPACK_GLOBAL(cgerq2,CGERQ2)
3158 lapack_int
const* m, lapack_int
const* n,
3159 lapack_complex_float* A, lapack_int
const* lda,
3160 lapack_complex_float* tau,
3161 lapack_complex_float* work,
3164 #define LAPACK_dgerq2 LAPACK_GLOBAL(dgerq2,DGERQ2)
3166 lapack_int
const* m, lapack_int
const* n,
3167 double* A, lapack_int
const* lda,
3172 #define LAPACK_sgerq2 LAPACK_GLOBAL(sgerq2,SGERQ2)
3174 lapack_int
const* m, lapack_int
const* n,
3175 float* A, lapack_int
const* lda,
3180 #define LAPACK_zgerq2 LAPACK_GLOBAL(zgerq2,ZGERQ2)
3182 lapack_int
const* m, lapack_int
const* n,
3183 lapack_complex_double* A, lapack_int
const* lda,
3184 lapack_complex_double* tau,
3185 lapack_complex_double* work,
3188 #define LAPACK_cgerqf LAPACK_GLOBAL(cgerqf,CGERQF)
3190 lapack_int
const* m, lapack_int
const* n,
3191 lapack_complex_float* A, lapack_int
const* lda,
3192 lapack_complex_float* tau,
3193 lapack_complex_float* work, lapack_int
const* lwork,
3196 #define LAPACK_dgerqf LAPACK_GLOBAL(dgerqf,DGERQF)
3198 lapack_int
const* m, lapack_int
const* n,
3199 double* A, lapack_int
const* lda,
3201 double* work, lapack_int
const* lwork,
3204 #define LAPACK_sgerqf LAPACK_GLOBAL(sgerqf,SGERQF)
3206 lapack_int
const* m, lapack_int
const* n,
3207 float* A, lapack_int
const* lda,
3209 float* work, lapack_int
const* lwork,
3212 #define LAPACK_zgerqf LAPACK_GLOBAL(zgerqf,ZGERQF)
3214 lapack_int
const* m, lapack_int
const* n,
3215 lapack_complex_double* A, lapack_int
const* lda,
3216 lapack_complex_double* tau,
3217 lapack_complex_double* work, lapack_int
const* lwork,
3220 #define LAPACK_cgesdd_base LAPACK_GLOBAL(cgesdd,CGESDD)
3221 void LAPACK_cgesdd_base(
3223 lapack_int
const* m, lapack_int
const* n,
3224 lapack_complex_float* A, lapack_int
const* lda,
3226 lapack_complex_float* U, lapack_int
const* ldu,
3227 lapack_complex_float* VT, lapack_int
const* ldvt,
3228 lapack_complex_float* work, lapack_int
const* lwork,
3232 #ifdef LAPACK_FORTRAN_STRLEN_END
3236 #ifdef LAPACK_FORTRAN_STRLEN_END
3237 #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__, 1)
3239 #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__)
3242 #define LAPACK_dgesdd_base LAPACK_GLOBAL(dgesdd,DGESDD)
3243 void LAPACK_dgesdd_base(
3245 lapack_int
const* m, lapack_int
const* n,
3246 double* A, lapack_int
const* lda,
3248 double* U, lapack_int
const* ldu,
3249 double* VT, lapack_int
const* ldvt,
3250 double* work, lapack_int
const* lwork,
3253 #ifdef LAPACK_FORTRAN_STRLEN_END
3257 #ifdef LAPACK_FORTRAN_STRLEN_END
3258 #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__, 1)
3260 #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__)
3263 #define LAPACK_sgesdd_base LAPACK_GLOBAL(sgesdd,SGESDD)
3264 void LAPACK_sgesdd_base(
3266 lapack_int
const* m, lapack_int
const* n,
3267 float* A, lapack_int
const* lda,
3269 float* U, lapack_int
const* ldu,
3270 float* VT, lapack_int
const* ldvt,
3271 float* work, lapack_int
const* lwork,
3274 #ifdef LAPACK_FORTRAN_STRLEN_END
3278 #ifdef LAPACK_FORTRAN_STRLEN_END
3279 #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__, 1)
3281 #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__)
3284 #define LAPACK_zgesdd_base LAPACK_GLOBAL(zgesdd,ZGESDD)
3285 void LAPACK_zgesdd_base(
3287 lapack_int
const* m, lapack_int
const* n,
3288 lapack_complex_double* A, lapack_int
const* lda,
3290 lapack_complex_double* U, lapack_int
const* ldu,
3291 lapack_complex_double* VT, lapack_int
const* ldvt,
3292 lapack_complex_double* work, lapack_int
const* lwork,
3296 #ifdef LAPACK_FORTRAN_STRLEN_END
3300 #ifdef LAPACK_FORTRAN_STRLEN_END
3301 #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__, 1)
3303 #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__)
3306 #define LAPACK_cgesv LAPACK_GLOBAL(cgesv,CGESV)
3308 lapack_int
const* n, lapack_int
const* nrhs,
3309 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
3310 lapack_complex_float* B, lapack_int
const* ldb,
3313 #define LAPACK_dgesv LAPACK_GLOBAL(dgesv,DGESV)
3315 lapack_int
const* n, lapack_int
const* nrhs,
3316 double* A, lapack_int
const* lda, lapack_int* ipiv,
3317 double* B, lapack_int
const* ldb,
3320 #define LAPACK_sgesv LAPACK_GLOBAL(sgesv,SGESV)
3322 lapack_int
const* n, lapack_int
const* nrhs,
3323 float* A, lapack_int
const* lda, lapack_int* ipiv,
3324 float* B, lapack_int
const* ldb,
3327 #define LAPACK_zgesv LAPACK_GLOBAL(zgesv,ZGESV)
3329 lapack_int
const* n, lapack_int
const* nrhs,
3330 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
3331 lapack_complex_double* B, lapack_int
const* ldb,
3334 #define LAPACK_dsgesv LAPACK_GLOBAL(dsgesv,DSGESV)
3336 lapack_int
const* n, lapack_int
const* nrhs,
3337 double* A, lapack_int
const* lda, lapack_int* ipiv,
3338 double const* B, lapack_int
const* ldb,
3339 double* X, lapack_int
const* ldx,
3341 float* swork, lapack_int* iter,
3344 #define LAPACK_zcgesv LAPACK_GLOBAL(zcgesv,ZCGESV)
3346 lapack_int
const* n, lapack_int
const* nrhs,
3347 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
3348 lapack_complex_double
const* B, lapack_int
const* ldb,
3349 lapack_complex_double* X, lapack_int
const* ldx,
3350 lapack_complex_double* work,
3351 lapack_complex_float* swork,
3352 double* rwork, lapack_int* iter,
3355 #define LAPACK_cgesvd_base LAPACK_GLOBAL(cgesvd,CGESVD)
3356 void LAPACK_cgesvd_base(
3357 char const* jobu,
char const* jobvt,
3358 lapack_int
const* m, lapack_int
const* n,
3359 lapack_complex_float* A, lapack_int
const* lda,
3361 lapack_complex_float* U, lapack_int
const* ldu,
3362 lapack_complex_float* VT, lapack_int
const* ldvt,
3363 lapack_complex_float* work, lapack_int
const* lwork,
3366 #ifdef LAPACK_FORTRAN_STRLEN_END
3370 #ifdef LAPACK_FORTRAN_STRLEN_END
3371 #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__, 1, 1)
3373 #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__)
3376 #define LAPACK_dgesvd_base LAPACK_GLOBAL(dgesvd,DGESVD)
3377 void LAPACK_dgesvd_base(
3378 char const* jobu,
char const* jobvt,
3379 lapack_int
const* m, lapack_int
const* n,
3380 double* A, lapack_int
const* lda,
3382 double* U, lapack_int
const* ldu,
3383 double* VT, lapack_int
const* ldvt,
3384 double* work, lapack_int
const* lwork,
3386 #ifdef LAPACK_FORTRAN_STRLEN_END
3390 #ifdef LAPACK_FORTRAN_STRLEN_END
3391 #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__, 1, 1)
3393 #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__)
3396 #define LAPACK_sgesvd_base LAPACK_GLOBAL(sgesvd,SGESVD)
3397 void LAPACK_sgesvd_base(
3398 char const* jobu,
char const* jobvt,
3399 lapack_int
const* m, lapack_int
const* n,
3400 float* A, lapack_int
const* lda,
3402 float* U, lapack_int
const* ldu,
3403 float* VT, lapack_int
const* ldvt,
3404 float* work, lapack_int
const* lwork,
3406 #ifdef LAPACK_FORTRAN_STRLEN_END
3410 #ifdef LAPACK_FORTRAN_STRLEN_END
3411 #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__, 1, 1)
3413 #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__)
3416 #define LAPACK_zgesvd_base LAPACK_GLOBAL(zgesvd,ZGESVD)
3417 void LAPACK_zgesvd_base(
3418 char const* jobu,
char const* jobvt,
3419 lapack_int
const* m, lapack_int
const* n,
3420 lapack_complex_double* A, lapack_int
const* lda,
3422 lapack_complex_double* U, lapack_int
const* ldu,
3423 lapack_complex_double* VT, lapack_int
const* ldvt,
3424 lapack_complex_double* work, lapack_int
const* lwork,
3427 #ifdef LAPACK_FORTRAN_STRLEN_END
3431 #ifdef LAPACK_FORTRAN_STRLEN_END
3432 #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__, 1, 1)
3434 #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__)
3437 #define LAPACK_cgesvdq_base LAPACK_GLOBAL(cgesvdq,CGESVDQ)
3438 void LAPACK_cgesvdq_base(
3439 char const* joba,
char const* jobp,
char const* jobr,
char const* jobu,
char const* jobv,
3440 lapack_int
const* m, lapack_int
const* n,
3441 lapack_complex_float* A, lapack_int
const* lda,
3443 lapack_complex_float* U, lapack_int
const* ldu,
3444 lapack_complex_float* V, lapack_int
const* ldv, lapack_int* numrank,
3445 lapack_int* iwork, lapack_int
const* liwork,
3446 lapack_complex_float* cwork, lapack_int* lcwork,
3447 float* rwork, lapack_int
const* lrwork,
3449 #ifdef LAPACK_FORTRAN_STRLEN_END
3450 ,
size_t,
size_t,
size_t,
size_t,
size_t
3453 #ifdef LAPACK_FORTRAN_STRLEN_END
3454 #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3456 #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__)
3459 #define LAPACK_dgesvdq_base LAPACK_GLOBAL(dgesvdq,DGESVDQ)
3460 void LAPACK_dgesvdq_base(
3461 char const* joba,
char const* jobp,
char const* jobr,
char const* jobu,
char const* jobv,
3462 lapack_int
const* m, lapack_int
const* n,
3463 double* A, lapack_int
const* lda,
3465 double* U, lapack_int
const* ldu,
3466 double* V, lapack_int
const* ldv, lapack_int* numrank,
3467 lapack_int* iwork, lapack_int
const* liwork,
3468 double* work, lapack_int* lwork,
3469 double* rwork, lapack_int
const* lrwork,
3471 #ifdef LAPACK_FORTRAN_STRLEN_END
3472 ,
size_t,
size_t,
size_t,
size_t,
size_t
3475 #ifdef LAPACK_FORTRAN_STRLEN_END
3476 #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3478 #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__)
3481 #define LAPACK_sgesvdq_base LAPACK_GLOBAL(sgesvdq,SGESVDQ)
3482 void LAPACK_sgesvdq_base(
3483 char const* joba,
char const* jobp,
char const* jobr,
char const* jobu,
char const* jobv,
3484 lapack_int
const* m, lapack_int
const* n,
3485 float* A, lapack_int
const* lda,
3487 float* U, lapack_int
const* ldu,
3488 float* V, lapack_int
const* ldv, lapack_int* numrank,
3489 lapack_int* iwork, lapack_int
const* liwork,
3490 float* work, lapack_int* lwork,
3491 float* rwork, lapack_int
const* lrwork,
3493 #ifdef LAPACK_FORTRAN_STRLEN_END
3494 ,
size_t,
size_t,
size_t,
size_t,
size_t
3497 #ifdef LAPACK_FORTRAN_STRLEN_END
3498 #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3500 #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__)
3503 #define LAPACK_zgesvdq_base LAPACK_GLOBAL(zgesvdq,ZGESVDQ)
3504 void LAPACK_zgesvdq_base(
3505 char const* joba,
char const* jobp,
char const* jobr,
char const* jobu,
char const* jobv,
3506 lapack_int
const* m, lapack_int
const* n,
3507 lapack_complex_double* A, lapack_int
const* lda,
3509 lapack_complex_double* U, lapack_int
const* ldu,
3510 lapack_complex_double* V, lapack_int
const* ldv, lapack_int* numrank,
3511 lapack_int* iwork, lapack_int
const* liwork,
3512 lapack_complex_double* cwork, lapack_int* lcwork,
3513 double* rwork, lapack_int
const* lrwork,
3515 #ifdef LAPACK_FORTRAN_STRLEN_END
3516 ,
size_t,
size_t,
size_t,
size_t,
size_t
3519 #ifdef LAPACK_FORTRAN_STRLEN_END
3520 #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3522 #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__)
3525 #define LAPACK_cgesvdx_base LAPACK_GLOBAL(cgesvdx,CGESVDX)
3526 void LAPACK_cgesvdx_base(
3527 char const* jobu,
char const* jobvt,
char const* range,
3528 lapack_int
const* m, lapack_int
const* n,
3529 lapack_complex_float* A, lapack_int
const* lda,
3531 float const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* ns,
3533 lapack_complex_float* U, lapack_int
const* ldu,
3534 lapack_complex_float* VT, lapack_int
const* ldvt,
3535 lapack_complex_float* work, lapack_int
const* lwork,
3539 #ifdef LAPACK_FORTRAN_STRLEN_END
3540 ,
size_t,
size_t,
size_t
3543 #ifdef LAPACK_FORTRAN_STRLEN_END
3544 #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__, 1, 1, 1)
3546 #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__)
3550 #define LAPACK_dgesvdx_base LAPACK_GLOBAL(dgesvdx,DGESVDX)
3551 void LAPACK_dgesvdx_base(
3552 char const* jobu,
char const* jobvt,
char const* range,
3553 lapack_int
const* m, lapack_int
const* n,
3554 double* A, lapack_int
const* lda,
3556 double const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* ns,
3558 double* U, lapack_int
const* ldu,
3559 double* VT, lapack_int
const* ldvt,
3560 double* work, lapack_int
const* lwork,
3563 #ifdef LAPACK_FORTRAN_STRLEN_END
3564 ,
size_t,
size_t,
size_t
3567 #ifdef LAPACK_FORTRAN_STRLEN_END
3568 #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__, 1, 1, 1)
3570 #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__)
3573 #define LAPACK_sgesvdx_base LAPACK_GLOBAL(sgesvdx,SGESVDX)
3574 void LAPACK_sgesvdx_base(
3575 char const* jobu,
char const* jobvt,
char const* range,
3576 lapack_int
const* m, lapack_int
const* n,
3577 float* A, lapack_int
const* lda,
3579 float const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* ns,
3581 float* U, lapack_int
const* ldu,
3582 float* VT, lapack_int
const* ldvt,
3583 float* work, lapack_int
const* lwork,
3586 #ifdef LAPACK_FORTRAN_STRLEN_END
3587 ,
size_t,
size_t,
size_t
3590 #ifdef LAPACK_FORTRAN_STRLEN_END
3591 #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__, 1, 1, 1)
3593 #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__)
3596 #define LAPACK_zgesvdx_base LAPACK_GLOBAL(zgesvdx,ZGESVDX)
3597 void LAPACK_zgesvdx_base(
3598 char const* jobu,
char const* jobvt,
char const* range,
3599 lapack_int
const* m, lapack_int
const* n,
3600 lapack_complex_double* A, lapack_int
const* lda,
3602 double const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* ns,
3604 lapack_complex_double* U, lapack_int
const* ldu,
3605 lapack_complex_double* VT, lapack_int
const* ldvt,
3606 lapack_complex_double* work, lapack_int
const* lwork,
3610 #ifdef LAPACK_FORTRAN_STRLEN_END
3611 ,
size_t,
size_t,
size_t
3614 #ifdef LAPACK_FORTRAN_STRLEN_END
3615 #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__, 1, 1, 1)
3617 #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__)
3620 #define LAPACK_cgesvj_base LAPACK_GLOBAL(cgesvj,CGESVJ)
3621 void LAPACK_cgesvj_base(
3622 char const* joba,
char const* jobu,
char const* jobv,
3623 lapack_int
const* m, lapack_int
const* n,
3624 lapack_complex_float* A, lapack_int
const* lda,
3625 float* SVA, lapack_int
const* mv,
3626 lapack_complex_float* V, lapack_int
const* ldv,
3627 lapack_complex_float* cwork, lapack_int
const* lwork,
3628 float* rwork, lapack_int
const* lrwork,
3630 #ifdef LAPACK_FORTRAN_STRLEN_END
3631 ,
size_t,
size_t,
size_t
3634 #ifdef LAPACK_FORTRAN_STRLEN_END
3635 #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__, 1, 1, 1)
3637 #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__)
3640 #define LAPACK_dgesvj_base LAPACK_GLOBAL(dgesvj,DGESVJ)
3641 void LAPACK_dgesvj_base(
3642 char const* joba,
char const* jobu,
char const* jobv,
3643 lapack_int
const* m, lapack_int
const* n,
3644 double* A, lapack_int
const* lda,
3645 double* SVA, lapack_int
const* mv,
3646 double* V, lapack_int
const* ldv,
3647 double* work, lapack_int
const* lwork,
3649 #ifdef LAPACK_FORTRAN_STRLEN_END
3650 ,
size_t,
size_t,
size_t
3653 #ifdef LAPACK_FORTRAN_STRLEN_END
3654 #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__, 1, 1, 1)
3656 #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__)
3659 #define LAPACK_sgesvj_base LAPACK_GLOBAL(sgesvj,SGESVJ)
3660 void LAPACK_sgesvj_base(
3661 char const* joba,
char const* jobu,
char const* jobv,
3662 lapack_int
const* m, lapack_int
const* n,
3663 float* A, lapack_int
const* lda,
3664 float* SVA, lapack_int
const* mv,
3665 float* V, lapack_int
const* ldv,
3666 float* work, lapack_int
const* lwork,
3668 #ifdef LAPACK_FORTRAN_STRLEN_END
3669 ,
size_t,
size_t,
size_t
3672 #ifdef LAPACK_FORTRAN_STRLEN_END
3673 #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__, 1, 1, 1)
3675 #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__)
3678 #define LAPACK_zgesvj_base LAPACK_GLOBAL(zgesvj,ZGESVJ)
3679 void LAPACK_zgesvj_base(
3680 char const* joba,
char const* jobu,
char const* jobv,
3681 lapack_int
const* m, lapack_int
const* n,
3682 lapack_complex_double* A, lapack_int
const* lda,
3683 double* SVA, lapack_int
const* mv,
3684 lapack_complex_double* V, lapack_int
const* ldv,
3685 lapack_complex_double* cwork, lapack_int
const* lwork,
3686 double* rwork, lapack_int
const* lrwork,
3688 #ifdef LAPACK_FORTRAN_STRLEN_END
3689 ,
size_t,
size_t,
size_t
3692 #ifdef LAPACK_FORTRAN_STRLEN_END
3693 #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__, 1, 1, 1)
3695 #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__)
3698 #define LAPACK_cgesvx_base LAPACK_GLOBAL(cgesvx,CGESVX)
3699 void LAPACK_cgesvx_base(
3700 char const* fact,
char const* trans,
3701 lapack_int
const* n, lapack_int
const* nrhs,
3702 lapack_complex_float* A, lapack_int
const* lda,
3703 lapack_complex_float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
3706 lapack_complex_float* B,
3707 lapack_int
const* ldb,
3708 lapack_complex_float* X, lapack_int
const* ldx,
3712 lapack_complex_float* work,
3715 #ifdef LAPACK_FORTRAN_STRLEN_END
3716 ,
size_t,
size_t,
size_t
3719 #ifdef LAPACK_FORTRAN_STRLEN_END
3720 #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__, 1, 1, 1)
3722 #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__)
3725 #define LAPACK_dgesvx_base LAPACK_GLOBAL(dgesvx,DGESVX)
3726 void LAPACK_dgesvx_base(
3727 char const* fact,
char const* trans,
3728 lapack_int
const* n, lapack_int
const* nrhs,
3729 double* A, lapack_int
const* lda,
3730 double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
3734 lapack_int
const* ldb,
3735 double* X, lapack_int
const* ldx,
3742 #ifdef LAPACK_FORTRAN_STRLEN_END
3743 ,
size_t,
size_t,
size_t
3746 #ifdef LAPACK_FORTRAN_STRLEN_END
3747 #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__, 1, 1, 1)
3749 #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__)
3752 #define LAPACK_sgesvx_base LAPACK_GLOBAL(sgesvx,SGESVX)
3753 void LAPACK_sgesvx_base(
3754 char const* fact,
char const* trans,
3755 lapack_int
const* n, lapack_int
const* nrhs,
3756 float* A, lapack_int
const* lda,
3757 float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
3761 lapack_int
const* ldb,
3762 float* X, lapack_int
const* ldx,
3769 #ifdef LAPACK_FORTRAN_STRLEN_END
3770 ,
size_t,
size_t,
size_t
3773 #ifdef LAPACK_FORTRAN_STRLEN_END
3774 #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__, 1, 1, 1)
3776 #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__)
3779 #define LAPACK_zgesvx_base LAPACK_GLOBAL(zgesvx,ZGESVX)
3780 void LAPACK_zgesvx_base(
3781 char const* fact,
char const* trans,
3782 lapack_int
const* n, lapack_int
const* nrhs,
3783 lapack_complex_double* A, lapack_int
const* lda,
3784 lapack_complex_double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
3787 lapack_complex_double* B,
3788 lapack_int
const* ldb,
3789 lapack_complex_double* X, lapack_int
const* ldx,
3793 lapack_complex_double* work,
3796 #ifdef LAPACK_FORTRAN_STRLEN_END
3797 ,
size_t,
size_t,
size_t
3800 #ifdef LAPACK_FORTRAN_STRLEN_END
3801 #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__, 1, 1, 1)
3803 #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__)
3806 #define LAPACK_cgesvxx_base LAPACK_GLOBAL(cgesvxx,CGESVXX)
3807 void LAPACK_cgesvxx_base(
3808 char const* fact,
char const* trans,
3809 lapack_int
const* n, lapack_int
const* nrhs,
3810 lapack_complex_float* A, lapack_int
const* lda,
3811 lapack_complex_float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
3814 lapack_complex_float* B,
3815 lapack_int
const* ldb,
3816 lapack_complex_float* X, lapack_int
const* ldx,
3819 float* berr, lapack_int
const* n_err_bnds,
3820 float* err_bnds_norm,
3821 float* err_bnds_comp, lapack_int
const* nparams,
3823 lapack_complex_float* work,
3826 #ifdef LAPACK_FORTRAN_STRLEN_END
3827 ,
size_t,
size_t,
size_t
3830 #ifdef LAPACK_FORTRAN_STRLEN_END
3831 #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__, 1, 1, 1)
3833 #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__)
3836 #define LAPACK_dgesvxx_base LAPACK_GLOBAL(dgesvxx,DGESVXX)
3837 void LAPACK_dgesvxx_base(
3838 char const* fact,
char const* trans,
3839 lapack_int
const* n, lapack_int
const* nrhs,
3840 double* A, lapack_int
const* lda,
3841 double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
3845 lapack_int
const* ldb,
3846 double* X, lapack_int
const* ldx,
3849 double* berr, lapack_int
const* n_err_bnds,
3850 double* err_bnds_norm,
3851 double* err_bnds_comp, lapack_int
const* nparams,
3856 #ifdef LAPACK_FORTRAN_STRLEN_END
3857 ,
size_t,
size_t,
size_t
3860 #ifdef LAPACK_FORTRAN_STRLEN_END
3861 #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__, 1, 1, 1)
3863 #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__)
3866 #define LAPACK_sgesvxx_base LAPACK_GLOBAL(sgesvxx,SGESVXX)
3867 void LAPACK_sgesvxx_base(
3868 char const* fact,
char const* trans,
3869 lapack_int
const* n, lapack_int
const* nrhs,
3870 float* A, lapack_int
const* lda,
3871 float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
3875 lapack_int
const* ldb,
3876 float* X, lapack_int
const* ldx,
3879 float* berr, lapack_int
const* n_err_bnds,
3880 float* err_bnds_norm,
3881 float* err_bnds_comp, lapack_int
const* nparams,
3886 #ifdef LAPACK_FORTRAN_STRLEN_END
3887 ,
size_t,
size_t,
size_t
3890 #ifdef LAPACK_FORTRAN_STRLEN_END
3891 #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__, 1, 1, 1)
3893 #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__)
3896 #define LAPACK_zgesvxx_base LAPACK_GLOBAL(zgesvxx,ZGESVXX)
3897 void LAPACK_zgesvxx_base(
3898 char const* fact,
char const* trans,
3899 lapack_int
const* n, lapack_int
const* nrhs,
3900 lapack_complex_double* A, lapack_int
const* lda,
3901 lapack_complex_double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
3904 lapack_complex_double* B,
3905 lapack_int
const* ldb,
3906 lapack_complex_double* X, lapack_int
const* ldx,
3909 double* berr, lapack_int
const* n_err_bnds,
3910 double* err_bnds_norm,
3911 double* err_bnds_comp, lapack_int
const* nparams,
3913 lapack_complex_double* work,
3916 #ifdef LAPACK_FORTRAN_STRLEN_END
3917 ,
size_t,
size_t,
size_t
3920 #ifdef LAPACK_FORTRAN_STRLEN_END
3921 #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__, 1, 1, 1)
3923 #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__)
3926 #define LAPACK_cgetf2 LAPACK_GLOBAL(cgetf2,CGETF2)
3928 lapack_int
const* m, lapack_int
const* n,
3929 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
3932 #define LAPACK_dgetf2 LAPACK_GLOBAL(dgetf2,DGETF2)
3934 lapack_int
const* m, lapack_int
const* n,
3935 double* A, lapack_int
const* lda, lapack_int* ipiv,
3938 #define LAPACK_sgetf2 LAPACK_GLOBAL(sgetf2,SGETF2)
3940 lapack_int
const* m, lapack_int
const* n,
3941 float* A, lapack_int
const* lda, lapack_int* ipiv,
3944 #define LAPACK_zgetf2 LAPACK_GLOBAL(zgetf2,ZGETF2)
3946 lapack_int
const* m, lapack_int
const* n,
3947 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
3950 #define LAPACK_cgetrf LAPACK_GLOBAL(cgetrf,CGETRF)
3952 lapack_int
const* m, lapack_int
const* n,
3953 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
3956 #define LAPACK_dgetrf LAPACK_GLOBAL(dgetrf,DGETRF)
3958 lapack_int
const* m, lapack_int
const* n,
3959 double* A, lapack_int
const* lda, lapack_int* ipiv,
3962 #define LAPACK_sgetrf LAPACK_GLOBAL(sgetrf,SGETRF)
3964 lapack_int
const* m, lapack_int
const* n,
3965 float* A, lapack_int
const* lda, lapack_int* ipiv,
3968 #define LAPACK_zgetrf LAPACK_GLOBAL(zgetrf,ZGETRF)
3970 lapack_int
const* m, lapack_int
const* n,
3971 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
3974 #define LAPACK_cgetrf2 LAPACK_GLOBAL(cgetrf2,CGETRF2)
3975 void LAPACK_cgetrf2(
3976 lapack_int
const* m, lapack_int
const* n,
3977 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
3980 #define LAPACK_dgetrf2 LAPACK_GLOBAL(dgetrf2,DGETRF2)
3981 void LAPACK_dgetrf2(
3982 lapack_int
const* m, lapack_int
const* n,
3983 double* A, lapack_int
const* lda, lapack_int* ipiv,
3986 #define LAPACK_sgetrf2 LAPACK_GLOBAL(sgetrf2,SGETRF2)
3987 void LAPACK_sgetrf2(
3988 lapack_int
const* m, lapack_int
const* n,
3989 float* A, lapack_int
const* lda, lapack_int* ipiv,
3992 #define LAPACK_zgetrf2 LAPACK_GLOBAL(zgetrf2,ZGETRF2)
3993 void LAPACK_zgetrf2(
3994 lapack_int
const* m, lapack_int
const* n,
3995 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
3998 #define LAPACK_cgetri LAPACK_GLOBAL(cgetri,CGETRI)
4000 lapack_int
const* n,
4001 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
4002 lapack_complex_float* work, lapack_int
const* lwork,
4005 #define LAPACK_dgetri LAPACK_GLOBAL(dgetri,DGETRI)
4007 lapack_int
const* n,
4008 double* A, lapack_int
const* lda, lapack_int
const* ipiv,
4009 double* work, lapack_int
const* lwork,
4012 #define LAPACK_sgetri LAPACK_GLOBAL(sgetri,SGETRI)
4014 lapack_int
const* n,
4015 float* A, lapack_int
const* lda, lapack_int
const* ipiv,
4016 float* work, lapack_int
const* lwork,
4019 #define LAPACK_zgetri LAPACK_GLOBAL(zgetri,ZGETRI)
4021 lapack_int
const* n,
4022 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
4023 lapack_complex_double* work, lapack_int
const* lwork,
4026 #define LAPACK_cgetrs_base LAPACK_GLOBAL(cgetrs,CGETRS)
4027 void LAPACK_cgetrs_base(
4029 lapack_int
const* n, lapack_int
const* nrhs,
4030 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
4031 lapack_complex_float* B, lapack_int
const* ldb,
4033 #ifdef LAPACK_FORTRAN_STRLEN_END
4037 #ifdef LAPACK_FORTRAN_STRLEN_END
4038 #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__, 1)
4040 #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__)
4043 #define LAPACK_dgetrs_base LAPACK_GLOBAL(dgetrs,DGETRS)
4044 void LAPACK_dgetrs_base(
4046 lapack_int
const* n, lapack_int
const* nrhs,
4047 double const* A, lapack_int
const* lda, lapack_int
const* ipiv,
4048 double* B, lapack_int
const* ldb,
4050 #ifdef LAPACK_FORTRAN_STRLEN_END
4054 #ifdef LAPACK_FORTRAN_STRLEN_END
4055 #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__, 1)
4057 #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__)
4060 #define LAPACK_sgetrs_base LAPACK_GLOBAL(sgetrs,SGETRS)
4061 void LAPACK_sgetrs_base(
4063 lapack_int
const* n, lapack_int
const* nrhs,
4064 float const* A, lapack_int
const* lda, lapack_int
const* ipiv,
4065 float* B, lapack_int
const* ldb,
4067 #ifdef LAPACK_FORTRAN_STRLEN_END
4071 #ifdef LAPACK_FORTRAN_STRLEN_END
4072 #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__, 1)
4074 #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__)
4077 #define LAPACK_zgetrs_base LAPACK_GLOBAL(zgetrs,ZGETRS)
4078 void LAPACK_zgetrs_base(
4080 lapack_int
const* n, lapack_int
const* nrhs,
4081 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
4082 lapack_complex_double* B, lapack_int
const* ldb,
4084 #ifdef LAPACK_FORTRAN_STRLEN_END
4088 #ifdef LAPACK_FORTRAN_STRLEN_END
4089 #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__, 1)
4091 #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__)
4094 #define LAPACK_cgetsls_base LAPACK_GLOBAL(cgetsls,CGETSLS)
4095 void LAPACK_cgetsls_base(
4097 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
4098 lapack_complex_float* A, lapack_int
const* lda,
4099 lapack_complex_float* B, lapack_int
const* ldb,
4100 lapack_complex_float* work, lapack_int
const* lwork,
4102 #ifdef LAPACK_FORTRAN_STRLEN_END
4106 #ifdef LAPACK_FORTRAN_STRLEN_END
4107 #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__, 1)
4109 #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__)
4112 #define LAPACK_dgetsls_base LAPACK_GLOBAL(dgetsls,DGETSLS)
4113 void LAPACK_dgetsls_base(
4115 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
4116 double* A, lapack_int
const* lda,
4117 double* B, lapack_int
const* ldb,
4118 double* work, lapack_int
const* lwork,
4120 #ifdef LAPACK_FORTRAN_STRLEN_END
4124 #ifdef LAPACK_FORTRAN_STRLEN_END
4125 #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__, 1)
4127 #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__)
4130 #define LAPACK_sgetsls_base LAPACK_GLOBAL(sgetsls,SGETSLS)
4131 void LAPACK_sgetsls_base(
4133 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
4134 float* A, lapack_int
const* lda,
4135 float* B, lapack_int
const* ldb,
4136 float* work, lapack_int
const* lwork,
4138 #ifdef LAPACK_FORTRAN_STRLEN_END
4142 #ifdef LAPACK_FORTRAN_STRLEN_END
4143 #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__, 1)
4145 #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__)
4148 #define LAPACK_zgetsls_base LAPACK_GLOBAL(zgetsls,ZGETSLS)
4149 void LAPACK_zgetsls_base(
4151 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
4152 lapack_complex_double* A, lapack_int
const* lda,
4153 lapack_complex_double* B, lapack_int
const* ldb,
4154 lapack_complex_double* work, lapack_int
const* lwork,
4156 #ifdef LAPACK_FORTRAN_STRLEN_END
4160 #ifdef LAPACK_FORTRAN_STRLEN_END
4161 #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__, 1)
4163 #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__)
4166 #define LAPACK_cgetsqrhrt LAPACK_GLOBAL(cgetsqrhrt,CGETSQRHRT)
4167 void LAPACK_cgetsqrhrt(
4168 lapack_int
const* m, lapack_int
const* n,
4169 lapack_int
const* mb1, lapack_int
const* nb1, lapack_int
const* nb2,
4170 lapack_complex_float* A, lapack_int
const* lda,
4171 lapack_complex_float* T, lapack_int
const* ldt,
4172 lapack_complex_float* work, lapack_int
const* lwork,
4175 #define LAPACK_dgetsqrhrt LAPACK_GLOBAL(dgetsqrhrt,DGETSQRHRT)
4176 void LAPACK_dgetsqrhrt(
4177 lapack_int
const* m, lapack_int
const* n,
4178 lapack_int
const* mb1, lapack_int
const* nb1, lapack_int
const* nb2,
4179 double* A, lapack_int
const* lda,
4180 double* T, lapack_int
const* ldt,
4181 double* work, lapack_int
const* lwork,
4184 #define LAPACK_sgetsqrhrt LAPACK_GLOBAL(sgetsqrhrt,SGETSQRHRT)
4185 void LAPACK_sgetsqrhrt(
4186 lapack_int
const* m, lapack_int
const* n,
4187 lapack_int
const* mb1, lapack_int
const* nb1, lapack_int
const* nb2,
4188 float* A, lapack_int
const* lda,
4189 float* T, lapack_int
const* ldt,
4190 float* work, lapack_int
const* lwork,
4193 #define LAPACK_zgetsqrhrt LAPACK_GLOBAL(zgetsqrhrt,ZGETSQRHRT)
4194 void LAPACK_zgetsqrhrt(
4195 lapack_int
const* m, lapack_int
const* n,
4196 lapack_int
const* mb1, lapack_int
const* nb1, lapack_int
const* nb2,
4197 lapack_complex_double* A, lapack_int
const* lda,
4198 lapack_complex_double* T, lapack_int
const* ldt,
4199 lapack_complex_double* work, lapack_int
const* lwork,
4202 #define LAPACK_cggbak_base LAPACK_GLOBAL(cggbak,CGGBAK)
4203 void LAPACK_cggbak_base(
4204 char const* job,
char const* side,
4205 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
4206 float const* lscale,
4207 float const* rscale, lapack_int
const* m,
4208 lapack_complex_float* V, lapack_int
const* ldv,
4210 #ifdef LAPACK_FORTRAN_STRLEN_END
4214 #ifdef LAPACK_FORTRAN_STRLEN_END
4215 #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__, 1, 1)
4217 #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__)
4220 #define LAPACK_dggbak_base LAPACK_GLOBAL(dggbak,DGGBAK)
4221 void LAPACK_dggbak_base(
4222 char const* job,
char const* side,
4223 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
4224 double const* lscale,
4225 double const* rscale, lapack_int
const* m,
4226 double* V, lapack_int
const* ldv,
4228 #ifdef LAPACK_FORTRAN_STRLEN_END
4232 #ifdef LAPACK_FORTRAN_STRLEN_END
4233 #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__, 1, 1)
4235 #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__)
4238 #define LAPACK_sggbak_base LAPACK_GLOBAL(sggbak,SGGBAK)
4239 void LAPACK_sggbak_base(
4240 char const* job,
char const* side,
4241 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
4242 float const* lscale,
4243 float const* rscale, lapack_int
const* m,
4244 float* V, lapack_int
const* ldv,
4246 #ifdef LAPACK_FORTRAN_STRLEN_END
4250 #ifdef LAPACK_FORTRAN_STRLEN_END
4251 #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__, 1, 1)
4253 #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__)
4256 #define LAPACK_zggbak_base LAPACK_GLOBAL(zggbak,ZGGBAK)
4257 void LAPACK_zggbak_base(
4258 char const* job,
char const* side,
4259 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
4260 double const* lscale,
4261 double const* rscale, lapack_int
const* m,
4262 lapack_complex_double* V, lapack_int
const* ldv,
4264 #ifdef LAPACK_FORTRAN_STRLEN_END
4268 #ifdef LAPACK_FORTRAN_STRLEN_END
4269 #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__, 1, 1)
4271 #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__)
4274 #define LAPACK_cggbal_base LAPACK_GLOBAL(cggbal,CGGBAL)
4275 void LAPACK_cggbal_base(
4277 lapack_int
const* n,
4278 lapack_complex_float* A, lapack_int
const* lda,
4279 lapack_complex_float* B, lapack_int
const* ldb, lapack_int* ilo, lapack_int* ihi,
4284 #ifdef LAPACK_FORTRAN_STRLEN_END
4288 #ifdef LAPACK_FORTRAN_STRLEN_END
4289 #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__, 1)
4291 #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__)
4294 #define LAPACK_dggbal_base LAPACK_GLOBAL(dggbal,DGGBAL)
4295 void LAPACK_dggbal_base(
4297 lapack_int
const* n,
4298 double* A, lapack_int
const* lda,
4299 double* B, lapack_int
const* ldb, lapack_int* ilo, lapack_int* ihi,
4304 #ifdef LAPACK_FORTRAN_STRLEN_END
4308 #ifdef LAPACK_FORTRAN_STRLEN_END
4309 #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__, 1)
4311 #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__)
4314 #define LAPACK_sggbal_base LAPACK_GLOBAL(sggbal,SGGBAL)
4315 void LAPACK_sggbal_base(
4317 lapack_int
const* n,
4318 float* A, lapack_int
const* lda,
4319 float* B, lapack_int
const* ldb, lapack_int* ilo, lapack_int* ihi,
4324 #ifdef LAPACK_FORTRAN_STRLEN_END
4328 #ifdef LAPACK_FORTRAN_STRLEN_END
4329 #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__, 1)
4331 #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__)
4334 #define LAPACK_zggbal_base LAPACK_GLOBAL(zggbal,ZGGBAL)
4335 void LAPACK_zggbal_base(
4337 lapack_int
const* n,
4338 lapack_complex_double* A, lapack_int
const* lda,
4339 lapack_complex_double* B, lapack_int
const* ldb, lapack_int* ilo, lapack_int* ihi,
4344 #ifdef LAPACK_FORTRAN_STRLEN_END
4348 #ifdef LAPACK_FORTRAN_STRLEN_END
4349 #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__, 1)
4351 #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__)
4354 #define LAPACK_cgges_base LAPACK_GLOBAL(cgges,CGGES)
4355 void LAPACK_cgges_base(
4356 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_C_SELECT2 selctg,
4357 lapack_int
const* n,
4358 lapack_complex_float* A, lapack_int
const* lda,
4359 lapack_complex_float* B, lapack_int
const* ldb, lapack_int* sdim,
4360 lapack_complex_float* alpha,
4361 lapack_complex_float* beta,
4362 lapack_complex_float* VSL, lapack_int
const* ldvsl,
4363 lapack_complex_float* VSR, lapack_int
const* ldvsr,
4364 lapack_complex_float* work, lapack_int
const* lwork,
4365 float* rwork, lapack_logical* BWORK,
4367 #ifdef LAPACK_FORTRAN_STRLEN_END
4368 ,
size_t,
size_t,
size_t
4371 #ifdef LAPACK_FORTRAN_STRLEN_END
4372 #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__, 1, 1, 1)
4374 #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__)
4377 #define LAPACK_dgges_base LAPACK_GLOBAL(dgges,DGGES)
4378 void LAPACK_dgges_base(
4379 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_D_SELECT3 selctg,
4380 lapack_int
const* n,
4381 double* A, lapack_int
const* lda,
4382 double* B, lapack_int
const* ldb, lapack_int* sdim,
4386 double* VSL, lapack_int
const* ldvsl,
4387 double* VSR, lapack_int
const* ldvsr,
4388 double* work, lapack_int
const* lwork, lapack_logical* BWORK,
4390 #ifdef LAPACK_FORTRAN_STRLEN_END
4391 ,
size_t,
size_t,
size_t
4394 #ifdef LAPACK_FORTRAN_STRLEN_END
4395 #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__, 1, 1, 1)
4397 #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__)
4400 #define LAPACK_sgges_base LAPACK_GLOBAL(sgges,SGGES)
4401 void LAPACK_sgges_base(
4402 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_S_SELECT3 selctg,
4403 lapack_int
const* n,
4404 float* A, lapack_int
const* lda,
4405 float* B, lapack_int
const* ldb, lapack_int* sdim,
4409 float* VSL, lapack_int
const* ldvsl,
4410 float* VSR, lapack_int
const* ldvsr,
4411 float* work, lapack_int
const* lwork, lapack_logical* BWORK,
4413 #ifdef LAPACK_FORTRAN_STRLEN_END
4414 ,
size_t,
size_t,
size_t
4417 #ifdef LAPACK_FORTRAN_STRLEN_END
4418 #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__, 1, 1, 1)
4420 #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__)
4423 #define LAPACK_zgges_base LAPACK_GLOBAL(zgges,ZGGES)
4424 void LAPACK_zgges_base(
4425 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_Z_SELECT2 selctg,
4426 lapack_int
const* n,
4427 lapack_complex_double* A, lapack_int
const* lda,
4428 lapack_complex_double* B, lapack_int
const* ldb, lapack_int* sdim,
4429 lapack_complex_double* alpha,
4430 lapack_complex_double* beta,
4431 lapack_complex_double* VSL, lapack_int
const* ldvsl,
4432 lapack_complex_double* VSR, lapack_int
const* ldvsr,
4433 lapack_complex_double* work, lapack_int
const* lwork,
4434 double* rwork, lapack_logical* BWORK,
4436 #ifdef LAPACK_FORTRAN_STRLEN_END
4437 ,
size_t,
size_t,
size_t
4440 #ifdef LAPACK_FORTRAN_STRLEN_END
4441 #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__, 1, 1, 1)
4443 #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__)
4446 #define LAPACK_cgges3_base LAPACK_GLOBAL(cgges3,CGGES3)
4447 void LAPACK_cgges3_base(
4448 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_C_SELECT2 selctg,
4449 lapack_int
const* n,
4450 lapack_complex_float* A, lapack_int
const* lda,
4451 lapack_complex_float* B, lapack_int
const* ldb, lapack_int* sdim,
4452 lapack_complex_float* alpha,
4453 lapack_complex_float* beta,
4454 lapack_complex_float* VSL, lapack_int
const* ldvsl,
4455 lapack_complex_float* VSR, lapack_int
const* ldvsr,
4456 lapack_complex_float* work, lapack_int
const* lwork,
4457 float* rwork, lapack_logical* BWORK,
4459 #ifdef LAPACK_FORTRAN_STRLEN_END
4460 ,
size_t,
size_t,
size_t
4463 #ifdef LAPACK_FORTRAN_STRLEN_END
4464 #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__, 1, 1, 1)
4466 #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__)
4469 #define LAPACK_dgges3_base LAPACK_GLOBAL(dgges3,DGGES3)
4470 void LAPACK_dgges3_base(
4471 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_D_SELECT3 selctg,
4472 lapack_int
const* n,
4473 double* A, lapack_int
const* lda,
4474 double* B, lapack_int
const* ldb, lapack_int* sdim,
4478 double* VSL, lapack_int
const* ldvsl,
4479 double* VSR, lapack_int
const* ldvsr,
4480 double* work, lapack_int
const* lwork, lapack_logical* BWORK,
4482 #ifdef LAPACK_FORTRAN_STRLEN_END
4483 ,
size_t,
size_t,
size_t
4486 #ifdef LAPACK_FORTRAN_STRLEN_END
4487 #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__, 1, 1, 1)
4489 #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__)
4492 #define LAPACK_sgges3_base LAPACK_GLOBAL(sgges3,SGGES3)
4493 void LAPACK_sgges3_base(
4494 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_S_SELECT3 selctg,
4495 lapack_int
const* n,
4496 float* A, lapack_int
const* lda,
4497 float* B, lapack_int
const* ldb, lapack_int* sdim,
4501 float* VSL, lapack_int
const* ldvsl,
4502 float* VSR, lapack_int
const* ldvsr,
4503 float* work, lapack_int
const* lwork, lapack_logical* BWORK,
4505 #ifdef LAPACK_FORTRAN_STRLEN_END
4506 ,
size_t,
size_t,
size_t
4509 #ifdef LAPACK_FORTRAN_STRLEN_END
4510 #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__, 1, 1, 1)
4512 #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__)
4515 #define LAPACK_zgges3_base LAPACK_GLOBAL(zgges3,ZGGES3)
4516 void LAPACK_zgges3_base(
4517 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_Z_SELECT2 selctg,
4518 lapack_int
const* n,
4519 lapack_complex_double* A, lapack_int
const* lda,
4520 lapack_complex_double* B, lapack_int
const* ldb, lapack_int* sdim,
4521 lapack_complex_double* alpha,
4522 lapack_complex_double* beta,
4523 lapack_complex_double* VSL, lapack_int
const* ldvsl,
4524 lapack_complex_double* VSR, lapack_int
const* ldvsr,
4525 lapack_complex_double* work, lapack_int
const* lwork,
4526 double* rwork, lapack_logical* BWORK,
4528 #ifdef LAPACK_FORTRAN_STRLEN_END
4529 ,
size_t,
size_t,
size_t
4532 #ifdef LAPACK_FORTRAN_STRLEN_END
4533 #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__, 1, 1, 1)
4535 #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__)
4538 #define LAPACK_cggesx_base LAPACK_GLOBAL(cggesx,CGGESX)
4539 void LAPACK_cggesx_base(
4540 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_C_SELECT2 selctg,
char const* sense,
4541 lapack_int
const* n,
4542 lapack_complex_float* A, lapack_int
const* lda,
4543 lapack_complex_float* B, lapack_int
const* ldb, lapack_int* sdim,
4544 lapack_complex_float* alpha,
4545 lapack_complex_float* beta,
4546 lapack_complex_float* VSL, lapack_int
const* ldvsl,
4547 lapack_complex_float* VSR, lapack_int
const* ldvsr,
4550 lapack_complex_float* work, lapack_int
const* lwork,
4552 lapack_int* iwork, lapack_int
const* liwork, lapack_logical* BWORK,
4554 #ifdef LAPACK_FORTRAN_STRLEN_END
4555 ,
size_t,
size_t,
size_t,
size_t
4558 #ifdef LAPACK_FORTRAN_STRLEN_END
4559 #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4561 #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__)
4564 #define LAPACK_dggesx_base LAPACK_GLOBAL(dggesx,DGGESX)
4565 void LAPACK_dggesx_base(
4566 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_D_SELECT3 selctg,
char const* sense,
4567 lapack_int
const* n,
4568 double* A, lapack_int
const* lda,
4569 double* B, lapack_int
const* ldb, lapack_int* sdim,
4573 double* VSL, lapack_int
const* ldvsl,
4574 double* VSR, lapack_int
const* ldvsr,
4577 double* work, lapack_int
const* lwork,
4578 lapack_int* iwork, lapack_int
const* liwork, lapack_logical* BWORK,
4580 #ifdef LAPACK_FORTRAN_STRLEN_END
4581 ,
size_t,
size_t,
size_t,
size_t
4584 #ifdef LAPACK_FORTRAN_STRLEN_END
4585 #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4587 #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__)
4590 #define LAPACK_sggesx_base LAPACK_GLOBAL(sggesx,SGGESX)
4591 void LAPACK_sggesx_base(
4592 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_S_SELECT3 selctg,
char const* sense,
4593 lapack_int
const* n,
4594 float* A, lapack_int
const* lda,
4595 float* B, lapack_int
const* ldb, lapack_int* sdim,
4599 float* VSL, lapack_int
const* ldvsl,
4600 float* VSR, lapack_int
const* ldvsr,
4603 float* work, lapack_int
const* lwork,
4604 lapack_int* iwork, lapack_int
const* liwork, lapack_logical* BWORK,
4606 #ifdef LAPACK_FORTRAN_STRLEN_END
4607 ,
size_t,
size_t,
size_t,
size_t
4610 #ifdef LAPACK_FORTRAN_STRLEN_END
4611 #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4613 #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__)
4616 #define LAPACK_zggesx_base LAPACK_GLOBAL(zggesx,ZGGESX)
4617 void LAPACK_zggesx_base(
4618 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_Z_SELECT2 selctg,
char const* sense,
4619 lapack_int
const* n,
4620 lapack_complex_double* A, lapack_int
const* lda,
4621 lapack_complex_double* B, lapack_int
const* ldb, lapack_int* sdim,
4622 lapack_complex_double* alpha,
4623 lapack_complex_double* beta,
4624 lapack_complex_double* VSL, lapack_int
const* ldvsl,
4625 lapack_complex_double* VSR, lapack_int
const* ldvsr,
4628 lapack_complex_double* work, lapack_int
const* lwork,
4630 lapack_int* iwork, lapack_int
const* liwork, lapack_logical* BWORK,
4632 #ifdef LAPACK_FORTRAN_STRLEN_END
4633 ,
size_t,
size_t,
size_t,
size_t
4636 #ifdef LAPACK_FORTRAN_STRLEN_END
4637 #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4639 #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__)
4642 #define LAPACK_cggev_base LAPACK_GLOBAL(cggev,CGGEV)
4643 void LAPACK_cggev_base(
4644 char const* jobvl,
char const* jobvr,
4645 lapack_int
const* n,
4646 lapack_complex_float* A, lapack_int
const* lda,
4647 lapack_complex_float* B, lapack_int
const* ldb,
4648 lapack_complex_float* alpha,
4649 lapack_complex_float* beta,
4650 lapack_complex_float* VL, lapack_int
const* ldvl,
4651 lapack_complex_float* VR, lapack_int
const* ldvr,
4652 lapack_complex_float* work, lapack_int
const* lwork,
4655 #ifdef LAPACK_FORTRAN_STRLEN_END
4659 #ifdef LAPACK_FORTRAN_STRLEN_END
4660 #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__, 1, 1)
4662 #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__)
4665 #define LAPACK_dggev_base LAPACK_GLOBAL(dggev,DGGEV)
4666 void LAPACK_dggev_base(
4667 char const* jobvl,
char const* jobvr,
4668 lapack_int
const* n,
4669 double* A, lapack_int
const* lda,
4670 double* B, lapack_int
const* ldb,
4674 double* VL, lapack_int
const* ldvl,
4675 double* VR, lapack_int
const* ldvr,
4676 double* work, lapack_int
const* lwork,
4678 #ifdef LAPACK_FORTRAN_STRLEN_END
4682 #ifdef LAPACK_FORTRAN_STRLEN_END
4683 #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__, 1, 1)
4685 #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__)
4688 #define LAPACK_sggev_base LAPACK_GLOBAL(sggev,SGGEV)
4689 void LAPACK_sggev_base(
4690 char const* jobvl,
char const* jobvr,
4691 lapack_int
const* n,
4692 float* A, lapack_int
const* lda,
4693 float* B, lapack_int
const* ldb,
4697 float* VL, lapack_int
const* ldvl,
4698 float* VR, lapack_int
const* ldvr,
4699 float* work, lapack_int
const* lwork,
4701 #ifdef LAPACK_FORTRAN_STRLEN_END
4705 #ifdef LAPACK_FORTRAN_STRLEN_END
4706 #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__, 1, 1)
4708 #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__)
4711 #define LAPACK_zggev_base LAPACK_GLOBAL(zggev,ZGGEV)
4712 void LAPACK_zggev_base(
4713 char const* jobvl,
char const* jobvr,
4714 lapack_int
const* n,
4715 lapack_complex_double* A, lapack_int
const* lda,
4716 lapack_complex_double* B, lapack_int
const* ldb,
4717 lapack_complex_double* alpha,
4718 lapack_complex_double* beta,
4719 lapack_complex_double* VL, lapack_int
const* ldvl,
4720 lapack_complex_double* VR, lapack_int
const* ldvr,
4721 lapack_complex_double* work, lapack_int
const* lwork,
4724 #ifdef LAPACK_FORTRAN_STRLEN_END
4728 #ifdef LAPACK_FORTRAN_STRLEN_END
4729 #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__, 1, 1)
4731 #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__)
4734 #define LAPACK_cggev3_base LAPACK_GLOBAL(cggev3,CGGEV3)
4735 void LAPACK_cggev3_base(
4736 char const* jobvl,
char const* jobvr,
4737 lapack_int
const* n,
4738 lapack_complex_float* A, lapack_int
const* lda,
4739 lapack_complex_float* B, lapack_int
const* ldb,
4740 lapack_complex_float* alpha,
4741 lapack_complex_float* beta,
4742 lapack_complex_float* VL, lapack_int
const* ldvl,
4743 lapack_complex_float* VR, lapack_int
const* ldvr,
4744 lapack_complex_float* work, lapack_int
const* lwork,
4747 #ifdef LAPACK_FORTRAN_STRLEN_END
4751 #ifdef LAPACK_FORTRAN_STRLEN_END
4752 #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__, 1, 1)
4754 #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__)
4757 #define LAPACK_dggev3_base LAPACK_GLOBAL(dggev3,DGGEV3)
4758 void LAPACK_dggev3_base(
4759 char const* jobvl,
char const* jobvr,
4760 lapack_int
const* n,
4761 double* A, lapack_int
const* lda,
4762 double* B, lapack_int
const* ldb,
4766 double* VL, lapack_int
const* ldvl,
4767 double* VR, lapack_int
const* ldvr,
4768 double* work, lapack_int
const* lwork,
4770 #ifdef LAPACK_FORTRAN_STRLEN_END
4774 #ifdef LAPACK_FORTRAN_STRLEN_END
4775 #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__, 1, 1)
4777 #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__)
4780 #define LAPACK_sggev3_base LAPACK_GLOBAL(sggev3,SGGEV3)
4781 void LAPACK_sggev3_base(
4782 char const* jobvl,
char const* jobvr,
4783 lapack_int
const* n,
4784 float* A, lapack_int
const* lda,
4785 float* B, lapack_int
const* ldb,
4789 float* VL, lapack_int
const* ldvl,
4790 float* VR, lapack_int
const* ldvr,
4791 float* work, lapack_int
const* lwork,
4793 #ifdef LAPACK_FORTRAN_STRLEN_END
4797 #ifdef LAPACK_FORTRAN_STRLEN_END
4798 #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__, 1, 1)
4800 #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__)
4803 #define LAPACK_zggev3_base LAPACK_GLOBAL(zggev3,ZGGEV3)
4804 void LAPACK_zggev3_base(
4805 char const* jobvl,
char const* jobvr,
4806 lapack_int
const* n,
4807 lapack_complex_double* A, lapack_int
const* lda,
4808 lapack_complex_double* B, lapack_int
const* ldb,
4809 lapack_complex_double* alpha,
4810 lapack_complex_double* beta,
4811 lapack_complex_double* VL, lapack_int
const* ldvl,
4812 lapack_complex_double* VR, lapack_int
const* ldvr,
4813 lapack_complex_double* work, lapack_int
const* lwork,
4816 #ifdef LAPACK_FORTRAN_STRLEN_END
4820 #ifdef LAPACK_FORTRAN_STRLEN_END
4821 #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__, 1, 1)
4823 #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__)
4826 #define LAPACK_cggevx_base LAPACK_GLOBAL(cggevx,CGGEVX)
4827 void LAPACK_cggevx_base(
4828 char const* balanc,
char const* jobvl,
char const* jobvr,
char const* sense,
4829 lapack_int
const* n,
4830 lapack_complex_float* A, lapack_int
const* lda,
4831 lapack_complex_float* B, lapack_int
const* ldb,
4832 lapack_complex_float* alpha,
4833 lapack_complex_float* beta,
4834 lapack_complex_float* VL, lapack_int
const* ldvl,
4835 lapack_complex_float* VR, lapack_int
const* ldvr, lapack_int* ilo, lapack_int* ihi,
4842 lapack_complex_float* work, lapack_int
const* lwork,
4844 lapack_int* iwork, lapack_logical* BWORK,
4846 #ifdef LAPACK_FORTRAN_STRLEN_END
4847 ,
size_t,
size_t,
size_t,
size_t
4850 #ifdef LAPACK_FORTRAN_STRLEN_END
4851 #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4853 #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__)
4856 #define LAPACK_dggevx_base LAPACK_GLOBAL(dggevx,DGGEVX)
4857 void LAPACK_dggevx_base(
4858 char const* balanc,
char const* jobvl,
char const* jobvr,
char const* sense,
4859 lapack_int
const* n,
4860 double* A, lapack_int
const* lda,
4861 double* B, lapack_int
const* ldb,
4865 double* VL, lapack_int
const* ldvl,
4866 double* VR, lapack_int
const* ldvr, lapack_int* ilo, lapack_int* ihi,
4873 double* work, lapack_int
const* lwork,
4874 lapack_int* iwork, lapack_logical* BWORK,
4876 #ifdef LAPACK_FORTRAN_STRLEN_END
4877 ,
size_t,
size_t,
size_t,
size_t
4880 #ifdef LAPACK_FORTRAN_STRLEN_END
4881 #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4883 #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__)
4886 #define LAPACK_sggevx_base LAPACK_GLOBAL(sggevx,SGGEVX)
4887 void LAPACK_sggevx_base(
4888 char const* balanc,
char const* jobvl,
char const* jobvr,
char const* sense,
4889 lapack_int
const* n,
4890 float* A, lapack_int
const* lda,
4891 float* B, lapack_int
const* ldb,
4895 float* VL, lapack_int
const* ldvl,
4896 float* VR, lapack_int
const* ldvr, lapack_int* ilo, lapack_int* ihi,
4903 float* work, lapack_int
const* lwork,
4904 lapack_int* iwork, lapack_logical* BWORK,
4906 #ifdef LAPACK_FORTRAN_STRLEN_END
4907 ,
size_t,
size_t,
size_t,
size_t
4910 #ifdef LAPACK_FORTRAN_STRLEN_END
4911 #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4913 #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__)
4916 #define LAPACK_zggevx_base LAPACK_GLOBAL(zggevx,ZGGEVX)
4917 void LAPACK_zggevx_base(
4918 char const* balanc,
char const* jobvl,
char const* jobvr,
char const* sense,
4919 lapack_int
const* n,
4920 lapack_complex_double* A, lapack_int
const* lda,
4921 lapack_complex_double* B, lapack_int
const* ldb,
4922 lapack_complex_double* alpha,
4923 lapack_complex_double* beta,
4924 lapack_complex_double* VL, lapack_int
const* ldvl,
4925 lapack_complex_double* VR, lapack_int
const* ldvr, lapack_int* ilo, lapack_int* ihi,
4932 lapack_complex_double* work, lapack_int
const* lwork,
4934 lapack_int* iwork, lapack_logical* BWORK,
4936 #ifdef LAPACK_FORTRAN_STRLEN_END
4937 ,
size_t,
size_t,
size_t,
size_t
4940 #ifdef LAPACK_FORTRAN_STRLEN_END
4941 #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4943 #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__)
4946 #define LAPACK_cggglm LAPACK_GLOBAL(cggglm,CGGGLM)
4948 lapack_int
const* n, lapack_int
const* m, lapack_int
const* p,
4949 lapack_complex_float* A, lapack_int
const* lda,
4950 lapack_complex_float* B, lapack_int
const* ldb,
4951 lapack_complex_float* D,
4952 lapack_complex_float* X,
4953 lapack_complex_float* Y,
4954 lapack_complex_float* work, lapack_int
const* lwork,
4957 #define LAPACK_dggglm LAPACK_GLOBAL(dggglm,DGGGLM)
4959 lapack_int
const* n, lapack_int
const* m, lapack_int
const* p,
4960 double* A, lapack_int
const* lda,
4961 double* B, lapack_int
const* ldb,
4965 double* work, lapack_int
const* lwork,
4968 #define LAPACK_sggglm LAPACK_GLOBAL(sggglm,SGGGLM)
4970 lapack_int
const* n, lapack_int
const* m, lapack_int
const* p,
4971 float* A, lapack_int
const* lda,
4972 float* B, lapack_int
const* ldb,
4976 float* work, lapack_int
const* lwork,
4979 #define LAPACK_zggglm LAPACK_GLOBAL(zggglm,ZGGGLM)
4981 lapack_int
const* n, lapack_int
const* m, lapack_int
const* p,
4982 lapack_complex_double* A, lapack_int
const* lda,
4983 lapack_complex_double* B, lapack_int
const* ldb,
4984 lapack_complex_double* D,
4985 lapack_complex_double* X,
4986 lapack_complex_double* Y,
4987 lapack_complex_double* work, lapack_int
const* lwork,
4990 #define LAPACK_cgghd3_base LAPACK_GLOBAL(cgghd3,CGGHD3)
4991 void LAPACK_cgghd3_base(
4992 char const* compq,
char const* compz,
4993 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
4994 lapack_complex_float* A, lapack_int
const* lda,
4995 lapack_complex_float* B, lapack_int
const* ldb,
4996 lapack_complex_float* Q, lapack_int
const* ldq,
4997 lapack_complex_float* Z, lapack_int
const* ldz,
4998 lapack_complex_float* work, lapack_int
const* lwork,
5000 #ifdef LAPACK_FORTRAN_STRLEN_END
5004 #ifdef LAPACK_FORTRAN_STRLEN_END
5005 #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__, 1, 1)
5007 #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__)
5010 #define LAPACK_dgghd3_base LAPACK_GLOBAL(dgghd3,DGGHD3)
5011 void LAPACK_dgghd3_base(
5012 char const* compq,
char const* compz,
5013 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
5014 double* A, lapack_int
const* lda,
5015 double* B, lapack_int
const* ldb,
5016 double* Q, lapack_int
const* ldq,
5017 double* Z, lapack_int
const* ldz,
5018 double* work, lapack_int
const* lwork,
5020 #ifdef LAPACK_FORTRAN_STRLEN_END
5024 #ifdef LAPACK_FORTRAN_STRLEN_END
5025 #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__, 1, 1)
5027 #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__)
5030 #define LAPACK_sgghd3_base LAPACK_GLOBAL(sgghd3,SGGHD3)
5031 void LAPACK_sgghd3_base(
5032 char const* compq,
char const* compz,
5033 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
5034 float* A, lapack_int
const* lda,
5035 float* B, lapack_int
const* ldb,
5036 float* Q, lapack_int
const* ldq,
5037 float* Z, lapack_int
const* ldz,
5038 float* work, lapack_int
const* lwork,
5040 #ifdef LAPACK_FORTRAN_STRLEN_END
5044 #ifdef LAPACK_FORTRAN_STRLEN_END
5045 #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__, 1, 1)
5047 #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__)
5050 #define LAPACK_zgghd3_base LAPACK_GLOBAL(zgghd3,ZGGHD3)
5051 void LAPACK_zgghd3_base(
5052 char const* compq,
char const* compz,
5053 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
5054 lapack_complex_double* A, lapack_int
const* lda,
5055 lapack_complex_double* B, lapack_int
const* ldb,
5056 lapack_complex_double* Q, lapack_int
const* ldq,
5057 lapack_complex_double* Z, lapack_int
const* ldz,
5058 lapack_complex_double* work, lapack_int
const* lwork,
5060 #ifdef LAPACK_FORTRAN_STRLEN_END
5064 #ifdef LAPACK_FORTRAN_STRLEN_END
5065 #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__, 1, 1)
5067 #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__)
5070 #define LAPACK_cgghrd_base LAPACK_GLOBAL(cgghrd,CGGHRD)
5071 void LAPACK_cgghrd_base(
5072 char const* compq,
char const* compz,
5073 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
5074 lapack_complex_float* A, lapack_int
const* lda,
5075 lapack_complex_float* B, lapack_int
const* ldb,
5076 lapack_complex_float* Q, lapack_int
const* ldq,
5077 lapack_complex_float* Z, lapack_int
const* ldz,
5079 #ifdef LAPACK_FORTRAN_STRLEN_END
5083 #ifdef LAPACK_FORTRAN_STRLEN_END
5084 #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__, 1, 1)
5086 #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__)
5089 #define LAPACK_dgghrd_base LAPACK_GLOBAL(dgghrd,DGGHRD)
5090 void LAPACK_dgghrd_base(
5091 char const* compq,
char const* compz,
5092 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
5093 double* A, lapack_int
const* lda,
5094 double* B, lapack_int
const* ldb,
5095 double* Q, lapack_int
const* ldq,
5096 double* Z, lapack_int
const* ldz,
5098 #ifdef LAPACK_FORTRAN_STRLEN_END
5102 #ifdef LAPACK_FORTRAN_STRLEN_END
5103 #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__, 1, 1)
5105 #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__)
5108 #define LAPACK_sgghrd_base LAPACK_GLOBAL(sgghrd,SGGHRD)
5109 void LAPACK_sgghrd_base(
5110 char const* compq,
char const* compz,
5111 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
5112 float* A, lapack_int
const* lda,
5113 float* B, lapack_int
const* ldb,
5114 float* Q, lapack_int
const* ldq,
5115 float* Z, lapack_int
const* ldz,
5117 #ifdef LAPACK_FORTRAN_STRLEN_END
5121 #ifdef LAPACK_FORTRAN_STRLEN_END
5122 #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__, 1, 1)
5124 #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__)
5127 #define LAPACK_zgghrd_base LAPACK_GLOBAL(zgghrd,ZGGHRD)
5128 void LAPACK_zgghrd_base(
5129 char const* compq,
char const* compz,
5130 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
5131 lapack_complex_double* A, lapack_int
const* lda,
5132 lapack_complex_double* B, lapack_int
const* ldb,
5133 lapack_complex_double* Q, lapack_int
const* ldq,
5134 lapack_complex_double* Z, lapack_int
const* ldz,
5136 #ifdef LAPACK_FORTRAN_STRLEN_END
5140 #ifdef LAPACK_FORTRAN_STRLEN_END
5141 #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__, 1, 1)
5143 #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__)
5146 #define LAPACK_cgglse LAPACK_GLOBAL(cgglse,CGGLSE)
5148 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p,
5149 lapack_complex_float* A, lapack_int
const* lda,
5150 lapack_complex_float* B, lapack_int
const* ldb,
5151 lapack_complex_float* C,
5152 lapack_complex_float* D,
5153 lapack_complex_float* X,
5154 lapack_complex_float* work, lapack_int
const* lwork,
5157 #define LAPACK_dgglse LAPACK_GLOBAL(dgglse,DGGLSE)
5159 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p,
5160 double* A, lapack_int
const* lda,
5161 double* B, lapack_int
const* ldb,
5165 double* work, lapack_int
const* lwork,
5168 #define LAPACK_sgglse LAPACK_GLOBAL(sgglse,SGGLSE)
5170 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p,
5171 float* A, lapack_int
const* lda,
5172 float* B, lapack_int
const* ldb,
5176 float* work, lapack_int
const* lwork,
5179 #define LAPACK_zgglse LAPACK_GLOBAL(zgglse,ZGGLSE)
5181 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p,
5182 lapack_complex_double* A, lapack_int
const* lda,
5183 lapack_complex_double* B, lapack_int
const* ldb,
5184 lapack_complex_double* C,
5185 lapack_complex_double* D,
5186 lapack_complex_double* X,
5187 lapack_complex_double* work, lapack_int
const* lwork,
5190 #define LAPACK_cggqrf LAPACK_GLOBAL(cggqrf,CGGQRF)
5192 lapack_int
const* n, lapack_int
const* m, lapack_int
const* p,
5193 lapack_complex_float* A, lapack_int
const* lda,
5194 lapack_complex_float* taua,
5195 lapack_complex_float* B, lapack_int
const* ldb,
5196 lapack_complex_float* taub,
5197 lapack_complex_float* work, lapack_int
const* lwork,
5200 #define LAPACK_dggqrf LAPACK_GLOBAL(dggqrf,DGGQRF)
5202 lapack_int
const* n, lapack_int
const* m, lapack_int
const* p,
5203 double* A, lapack_int
const* lda,
5205 double* B, lapack_int
const* ldb,
5207 double* work, lapack_int
const* lwork,
5210 #define LAPACK_sggqrf LAPACK_GLOBAL(sggqrf,SGGQRF)
5212 lapack_int
const* n, lapack_int
const* m, lapack_int
const* p,
5213 float* A, lapack_int
const* lda,
5215 float* B, lapack_int
const* ldb,
5217 float* work, lapack_int
const* lwork,
5220 #define LAPACK_zggqrf LAPACK_GLOBAL(zggqrf,ZGGQRF)
5222 lapack_int
const* n, lapack_int
const* m, lapack_int
const* p,
5223 lapack_complex_double* A, lapack_int
const* lda,
5224 lapack_complex_double* taua,
5225 lapack_complex_double* B, lapack_int
const* ldb,
5226 lapack_complex_double* taub,
5227 lapack_complex_double* work, lapack_int
const* lwork,
5230 #define LAPACK_cggrqf LAPACK_GLOBAL(cggrqf,CGGRQF)
5232 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5233 lapack_complex_float* A, lapack_int
const* lda,
5234 lapack_complex_float* taua,
5235 lapack_complex_float* B, lapack_int
const* ldb,
5236 lapack_complex_float* taub,
5237 lapack_complex_float* work, lapack_int
const* lwork,
5240 #define LAPACK_dggrqf LAPACK_GLOBAL(dggrqf,DGGRQF)
5242 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5243 double* A, lapack_int
const* lda,
5245 double* B, lapack_int
const* ldb,
5247 double* work, lapack_int
const* lwork,
5250 #define LAPACK_sggrqf LAPACK_GLOBAL(sggrqf,SGGRQF)
5252 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5253 float* A, lapack_int
const* lda,
5255 float* B, lapack_int
const* ldb,
5257 float* work, lapack_int
const* lwork,
5260 #define LAPACK_zggrqf LAPACK_GLOBAL(zggrqf,ZGGRQF)
5262 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5263 lapack_complex_double* A, lapack_int
const* lda,
5264 lapack_complex_double* taua,
5265 lapack_complex_double* B, lapack_int
const* ldb,
5266 lapack_complex_double* taub,
5267 lapack_complex_double* work, lapack_int
const* lwork,
5270 #define LAPACK_cggsvd_base LAPACK_GLOBAL(cggsvd,CGGSVD)
5271 lapack_int LAPACK_cggsvd_base(
5272 char const* jobu,
char const* jobv,
char const* jobq,
5273 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p,
5274 lapack_int* k, lapack_int* l,
5275 lapack_complex_float* a, lapack_int
const* lda,
5276 lapack_complex_float* b, lapack_int
const* ldb,
5277 float* alpha,
float* beta,
5278 lapack_complex_float* u, lapack_int
const* ldu,
5279 lapack_complex_float* v, lapack_int
const* ldv,
5280 lapack_complex_float* q, lapack_int
const* ldq,
5281 lapack_complex_float* work,
float* rwork,
5282 lapack_int* iwork, lapack_int* info
5283 #ifdef LAPACK_FORTRAN_STRLEN_END
5284 ,
size_t,
size_t,
size_t
5287 #ifdef LAPACK_FORTRAN_STRLEN_END
5288 #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__, 1, 1, 1)
5290 #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__)
5293 #define LAPACK_sggsvd_base LAPACK_GLOBAL(sggsvd,SGGSVD)
5294 lapack_int LAPACK_sggsvd_base(
5295 char const* jobu,
char const* jobv,
char const* jobq,
5296 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p,
5297 lapack_int* k, lapack_int* l,
5298 float* a, lapack_int
const* lda,
5299 float* b, lapack_int
const* ldb,
5300 float* alpha,
float* beta,
5301 float* u, lapack_int
const* ldu,
5302 float* v, lapack_int
const* ldv,
5303 float* q, lapack_int
const* ldq,
5304 float* work, lapack_int* iwork, lapack_int* info
5305 #ifdef LAPACK_FORTRAN_STRLEN_END
5306 ,
size_t,
size_t,
size_t
5309 #ifdef LAPACK_FORTRAN_STRLEN_END
5310 #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__, 1, 1, 1)
5312 #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__)
5315 #define LAPACK_dggsvd_base LAPACK_GLOBAL(dggsvd,DGGSVD)
5316 lapack_int LAPACK_dggsvd_base(
5317 char const* jobu,
char const* jobv,
char const* jobq,
5318 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p,
5319 lapack_int* k, lapack_int* l,
5320 double* a, lapack_int
const* lda,
5321 double* b, lapack_int
const* ldb,
5322 double* alpha,
double* beta,
5323 double* u, lapack_int
const* ldu,
5324 double* v, lapack_int
const* ldv,
5325 double* q, lapack_int
const* ldq,
5326 double* work, lapack_int* iwork, lapack_int* info
5327 #ifdef LAPACK_FORTRAN_STRLEN_END
5328 ,
size_t,
size_t,
size_t
5331 #ifdef LAPACK_FORTRAN_STRLEN_END
5332 #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__, 1, 1, 1)
5334 #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__)
5337 #define LAPACK_zggsvd_base LAPACK_GLOBAL(zggsvd,ZGGSVD)
5338 lapack_int LAPACK_zggsvd_base(
5339 char const* jobu,
char const* jobv,
char const* jobq,
5340 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p,
5341 lapack_int* k, lapack_int* l,
5342 lapack_complex_double* a, lapack_int
const* lda,
5343 lapack_complex_double* b, lapack_int
const* ldb,
5344 double* alpha,
double* beta,
5345 lapack_complex_double* u, lapack_int
const* ldu,
5346 lapack_complex_double* v, lapack_int
const* ldv,
5347 lapack_complex_double* q, lapack_int
const* ldq,
5348 lapack_complex_double* work,
double* rwork,
5349 lapack_int* iwork, lapack_int* info
5350 #ifdef LAPACK_FORTRAN_STRLEN_END
5351 ,
size_t,
size_t,
size_t
5354 #ifdef LAPACK_FORTRAN_STRLEN_END
5355 #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__, 1, 1, 1)
5357 #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__)
5360 #define LAPACK_cggsvd3_base LAPACK_GLOBAL(cggsvd3,CGGSVD3)
5361 void LAPACK_cggsvd3_base(
5362 char const* jobu,
char const* jobv,
char const* jobq,
5363 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p, lapack_int* k, lapack_int* l,
5364 lapack_complex_float* A, lapack_int
const* lda,
5365 lapack_complex_float* B, lapack_int
const* ldb,
5368 lapack_complex_float* U, lapack_int
const* ldu,
5369 lapack_complex_float* V, lapack_int
const* ldv,
5370 lapack_complex_float* Q, lapack_int
const* ldq,
5371 lapack_complex_float* work, lapack_int
const* lwork,
5375 #ifdef LAPACK_FORTRAN_STRLEN_END
5376 ,
size_t,
size_t,
size_t
5379 #ifdef LAPACK_FORTRAN_STRLEN_END
5380 #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__, 1, 1, 1)
5382 #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__)
5385 #define LAPACK_dggsvd3_base LAPACK_GLOBAL(dggsvd3,DGGSVD3)
5386 void LAPACK_dggsvd3_base(
5387 char const* jobu,
char const* jobv,
char const* jobq,
5388 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p, lapack_int* k, lapack_int* l,
5389 double* A, lapack_int
const* lda,
5390 double* B, lapack_int
const* ldb,
5393 double* U, lapack_int
const* ldu,
5394 double* V, lapack_int
const* ldv,
5395 double* Q, lapack_int
const* ldq,
5396 double* work, lapack_int
const* lwork,
5399 #ifdef LAPACK_FORTRAN_STRLEN_END
5400 ,
size_t,
size_t,
size_t
5403 #ifdef LAPACK_FORTRAN_STRLEN_END
5404 #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__, 1, 1, 1)
5406 #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__)
5409 #define LAPACK_sggsvd3_base LAPACK_GLOBAL(sggsvd3,SGGSVD3)
5410 void LAPACK_sggsvd3_base(
5411 char const* jobu,
char const* jobv,
char const* jobq,
5412 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p, lapack_int* k, lapack_int* l,
5413 float* A, lapack_int
const* lda,
5414 float* B, lapack_int
const* ldb,
5417 float* U, lapack_int
const* ldu,
5418 float* V, lapack_int
const* ldv,
5419 float* Q, lapack_int
const* ldq,
5420 float* work, lapack_int
const* lwork,
5423 #ifdef LAPACK_FORTRAN_STRLEN_END
5424 ,
size_t,
size_t,
size_t
5427 #ifdef LAPACK_FORTRAN_STRLEN_END
5428 #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__, 1, 1, 1)
5430 #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__)
5433 #define LAPACK_zggsvd3_base LAPACK_GLOBAL(zggsvd3,ZGGSVD3)
5434 void LAPACK_zggsvd3_base(
5435 char const* jobu,
char const* jobv,
char const* jobq,
5436 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p, lapack_int* k, lapack_int* l,
5437 lapack_complex_double* A, lapack_int
const* lda,
5438 lapack_complex_double* B, lapack_int
const* ldb,
5441 lapack_complex_double* U, lapack_int
const* ldu,
5442 lapack_complex_double* V, lapack_int
const* ldv,
5443 lapack_complex_double* Q, lapack_int
const* ldq,
5444 lapack_complex_double* work, lapack_int
const* lwork,
5448 #ifdef LAPACK_FORTRAN_STRLEN_END
5449 ,
size_t,
size_t,
size_t
5452 #ifdef LAPACK_FORTRAN_STRLEN_END
5453 #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__, 1, 1, 1)
5455 #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__)
5458 #define LAPACK_sggsvp_base LAPACK_GLOBAL(sggsvp,SGGSVP)
5459 lapack_int LAPACK_sggsvp_base(
5460 char const* jobu,
char const* jobv,
char const* jobq,
5461 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5462 float* a, lapack_int
const* lda,
5463 float* b, lapack_int
const* ldb,
5464 float* tola,
float* tolb,
5465 lapack_int* k, lapack_int* l,
5466 float* u, lapack_int
const* ldu,
5467 float* v, lapack_int
const* ldv,
5468 float* q, lapack_int
const* ldq,
5469 lapack_int* iwork,
float* tau,
5470 float* work, lapack_int* info
5471 #ifdef LAPACK_FORTRAN_STRLEN_END
5472 ,
size_t,
size_t,
size_t
5475 #ifdef LAPACK_FORTRAN_STRLEN_END
5476 #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__, 1, 1, 1)
5478 #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__)
5481 #define LAPACK_dggsvp_base LAPACK_GLOBAL(dggsvp,DGGSVP)
5482 lapack_int LAPACK_dggsvp_base(
5483 char const* jobu,
char const* jobv,
char const* jobq,
5484 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5485 double* a, lapack_int
const* lda,
5486 double* b, lapack_int
const* ldb,
5487 double* tola,
double* tolb,
5488 lapack_int* k, lapack_int* l,
5489 double* u, lapack_int
const* ldu,
5490 double* v, lapack_int
const* ldv,
5491 double* q, lapack_int
const* ldq,
5492 lapack_int* iwork,
double* tau,
5493 double* work, lapack_int* info
5494 #ifdef LAPACK_FORTRAN_STRLEN_END
5495 ,
size_t,
size_t,
size_t
5498 #ifdef LAPACK_FORTRAN_STRLEN_END
5499 #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__, 1, 1, 1)
5501 #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__)
5504 #define LAPACK_cggsvp_base LAPACK_GLOBAL(cggsvp,CGGSVP)
5505 lapack_int LAPACK_cggsvp_base(
5506 char const* jobu,
char const* jobv,
char const* jobq,
5507 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5508 lapack_complex_float* a, lapack_int
const* lda,
5509 lapack_complex_float* b, lapack_int
const* ldb,
5510 float* tola,
float* tolb, lapack_int* k, lapack_int* l,
5511 lapack_complex_float* u, lapack_int
const* ldu,
5512 lapack_complex_float* v, lapack_int
const* ldv,
5513 lapack_complex_float* q, lapack_int
const* ldq,
5514 lapack_int* iwork,
float* rwork, lapack_complex_float* tau,
5515 lapack_complex_float* work, lapack_int* info
5516 #ifdef LAPACK_FORTRAN_STRLEN_END
5517 ,
size_t,
size_t,
size_t
5520 #ifdef LAPACK_FORTRAN_STRLEN_END
5521 #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__, 1, 1, 1)
5523 #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__)
5526 #define LAPACK_zggsvp_base LAPACK_GLOBAL(zggsvp,ZGGSVP)
5527 lapack_int LAPACK_zggsvp_base(
5528 char const* jobu,
char const* jobv,
char const* jobq,
5529 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5530 lapack_complex_double* a, lapack_int
const* lda,
5531 lapack_complex_double* b, lapack_int
const* ldb,
5532 double* tola,
double* tolb, lapack_int* k, lapack_int* l,
5533 lapack_complex_double* u, lapack_int
const* ldu,
5534 lapack_complex_double* v, lapack_int
const* ldv,
5535 lapack_complex_double* q, lapack_int
const* ldq,
5536 lapack_int* iwork,
double* rwork, lapack_complex_double* tau,
5537 lapack_complex_double* work, lapack_int* info
5538 #ifdef LAPACK_FORTRAN_STRLEN_END
5539 ,
size_t,
size_t,
size_t
5542 #ifdef LAPACK_FORTRAN_STRLEN_END
5543 #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__, 1, 1, 1)
5545 #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__)
5548 #define LAPACK_cggsvp3_base LAPACK_GLOBAL(cggsvp3,CGGSVP3)
5549 void LAPACK_cggsvp3_base(
5550 char const* jobu,
char const* jobv,
char const* jobq,
5551 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5552 lapack_complex_float* A, lapack_int
const* lda,
5553 lapack_complex_float* B, lapack_int
const* ldb,
5555 float const* tolb, lapack_int* k, lapack_int* l,
5556 lapack_complex_float* U, lapack_int
const* ldu,
5557 lapack_complex_float* V, lapack_int
const* ldv,
5558 lapack_complex_float* Q, lapack_int
const* ldq,
5561 lapack_complex_float* tau,
5562 lapack_complex_float* work, lapack_int
const* lwork,
5564 #ifdef LAPACK_FORTRAN_STRLEN_END
5565 ,
size_t,
size_t,
size_t
5568 #ifdef LAPACK_FORTRAN_STRLEN_END
5569 #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__, 1, 1, 1)
5571 #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__)
5574 #define LAPACK_dggsvp3_base LAPACK_GLOBAL(dggsvp3,DGGSVP3)
5575 void LAPACK_dggsvp3_base(
5576 char const* jobu,
char const* jobv,
char const* jobq,
5577 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5578 double* A, lapack_int
const* lda,
5579 double* B, lapack_int
const* ldb,
5581 double const* tolb, lapack_int* k, lapack_int* l,
5582 double* U, lapack_int
const* ldu,
5583 double* V, lapack_int
const* ldv,
5584 double* Q, lapack_int
const* ldq,
5587 double* work, lapack_int
const* lwork,
5589 #ifdef LAPACK_FORTRAN_STRLEN_END
5590 ,
size_t,
size_t,
size_t
5593 #ifdef LAPACK_FORTRAN_STRLEN_END
5594 #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__, 1, 1, 1)
5596 #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__)
5599 #define LAPACK_sggsvp3_base LAPACK_GLOBAL(sggsvp3,SGGSVP3)
5600 void LAPACK_sggsvp3_base(
5601 char const* jobu,
char const* jobv,
char const* jobq,
5602 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5603 float* A, lapack_int
const* lda,
5604 float* B, lapack_int
const* ldb,
5606 float const* tolb, lapack_int* k, lapack_int* l,
5607 float* U, lapack_int
const* ldu,
5608 float* V, lapack_int
const* ldv,
5609 float* Q, lapack_int
const* ldq,
5612 float* work, lapack_int
const* lwork,
5614 #ifdef LAPACK_FORTRAN_STRLEN_END
5615 ,
size_t,
size_t,
size_t
5618 #ifdef LAPACK_FORTRAN_STRLEN_END
5619 #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__, 1, 1, 1)
5621 #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__)
5624 #define LAPACK_zggsvp3_base LAPACK_GLOBAL(zggsvp3,ZGGSVP3)
5625 void LAPACK_zggsvp3_base(
5626 char const* jobu,
char const* jobv,
char const* jobq,
5627 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5628 lapack_complex_double* A, lapack_int
const* lda,
5629 lapack_complex_double* B, lapack_int
const* ldb,
5631 double const* tolb, lapack_int* k, lapack_int* l,
5632 lapack_complex_double* U, lapack_int
const* ldu,
5633 lapack_complex_double* V, lapack_int
const* ldv,
5634 lapack_complex_double* Q, lapack_int
const* ldq,
5637 lapack_complex_double* tau,
5638 lapack_complex_double* work, lapack_int
const* lwork,
5640 #ifdef LAPACK_FORTRAN_STRLEN_END
5641 ,
size_t,
size_t,
size_t
5644 #ifdef LAPACK_FORTRAN_STRLEN_END
5645 #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__, 1, 1, 1)
5647 #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__)
5650 #define LAPACK_cgtcon_base LAPACK_GLOBAL(cgtcon,CGTCON)
5651 void LAPACK_cgtcon_base(
5653 lapack_int
const* n,
5654 lapack_complex_float
const* DL,
5655 lapack_complex_float
const* D,
5656 lapack_complex_float
const* DU,
5657 lapack_complex_float
const* DU2, lapack_int
const* ipiv,
5660 lapack_complex_float* work,
5662 #ifdef LAPACK_FORTRAN_STRLEN_END
5666 #ifdef LAPACK_FORTRAN_STRLEN_END
5667 #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__, 1)
5669 #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__)
5672 #define LAPACK_dgtcon_base LAPACK_GLOBAL(dgtcon,DGTCON)
5673 void LAPACK_dgtcon_base(
5675 lapack_int
const* n,
5679 double const* DU2, lapack_int
const* ipiv,
5680 double const* anorm,
5685 #ifdef LAPACK_FORTRAN_STRLEN_END
5689 #ifdef LAPACK_FORTRAN_STRLEN_END
5690 #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__, 1)
5692 #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__)
5695 #define LAPACK_sgtcon_base LAPACK_GLOBAL(sgtcon,SGTCON)
5696 void LAPACK_sgtcon_base(
5698 lapack_int
const* n,
5702 float const* DU2, lapack_int
const* ipiv,
5708 #ifdef LAPACK_FORTRAN_STRLEN_END
5712 #ifdef LAPACK_FORTRAN_STRLEN_END
5713 #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__, 1)
5715 #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__)
5718 #define LAPACK_zgtcon_base LAPACK_GLOBAL(zgtcon,ZGTCON)
5719 void LAPACK_zgtcon_base(
5721 lapack_int
const* n,
5722 lapack_complex_double
const* DL,
5723 lapack_complex_double
const* D,
5724 lapack_complex_double
const* DU,
5725 lapack_complex_double
const* DU2, lapack_int
const* ipiv,
5726 double const* anorm,
5728 lapack_complex_double* work,
5730 #ifdef LAPACK_FORTRAN_STRLEN_END
5734 #ifdef LAPACK_FORTRAN_STRLEN_END
5735 #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__, 1)
5737 #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__)
5740 #define LAPACK_cgtrfs_base LAPACK_GLOBAL(cgtrfs,CGTRFS)
5741 void LAPACK_cgtrfs_base(
5743 lapack_int
const* n, lapack_int
const* nrhs,
5744 lapack_complex_float
const* DL,
5745 lapack_complex_float
const* D,
5746 lapack_complex_float
const* DU,
5747 lapack_complex_float
const* DLF,
5748 lapack_complex_float
const* DF,
5749 lapack_complex_float
const* DUF,
5750 lapack_complex_float
const* DU2, lapack_int
const* ipiv,
5751 lapack_complex_float
const* B, lapack_int
const* ldb,
5752 lapack_complex_float* X, lapack_int
const* ldx,
5755 lapack_complex_float* work,
5758 #ifdef LAPACK_FORTRAN_STRLEN_END
5762 #ifdef LAPACK_FORTRAN_STRLEN_END
5763 #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__, 1)
5765 #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__)
5768 #define LAPACK_dgtrfs_base LAPACK_GLOBAL(dgtrfs,DGTRFS)
5769 void LAPACK_dgtrfs_base(
5771 lapack_int
const* n, lapack_int
const* nrhs,
5778 double const* DU2, lapack_int
const* ipiv,
5779 double const* B, lapack_int
const* ldb,
5780 double* X, lapack_int
const* ldx,
5786 #ifdef LAPACK_FORTRAN_STRLEN_END
5790 #ifdef LAPACK_FORTRAN_STRLEN_END
5791 #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__, 1)
5793 #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__)
5796 #define LAPACK_sgtrfs_base LAPACK_GLOBAL(sgtrfs,SGTRFS)
5797 void LAPACK_sgtrfs_base(
5799 lapack_int
const* n, lapack_int
const* nrhs,
5806 float const* DU2, lapack_int
const* ipiv,
5807 float const* B, lapack_int
const* ldb,
5808 float* X, lapack_int
const* ldx,
5814 #ifdef LAPACK_FORTRAN_STRLEN_END
5818 #ifdef LAPACK_FORTRAN_STRLEN_END
5819 #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__, 1)
5821 #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__)
5824 #define LAPACK_zgtrfs_base LAPACK_GLOBAL(zgtrfs,ZGTRFS)
5825 void LAPACK_zgtrfs_base(
5827 lapack_int
const* n, lapack_int
const* nrhs,
5828 lapack_complex_double
const* DL,
5829 lapack_complex_double
const* D,
5830 lapack_complex_double
const* DU,
5831 lapack_complex_double
const* DLF,
5832 lapack_complex_double
const* DF,
5833 lapack_complex_double
const* DUF,
5834 lapack_complex_double
const* DU2, lapack_int
const* ipiv,
5835 lapack_complex_double
const* B, lapack_int
const* ldb,
5836 lapack_complex_double* X, lapack_int
const* ldx,
5839 lapack_complex_double* work,
5842 #ifdef LAPACK_FORTRAN_STRLEN_END
5846 #ifdef LAPACK_FORTRAN_STRLEN_END
5847 #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__, 1)
5849 #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__)
5852 #define LAPACK_cgtsv LAPACK_GLOBAL(cgtsv,CGTSV)
5854 lapack_int
const* n, lapack_int
const* nrhs,
5855 lapack_complex_float* DL,
5856 lapack_complex_float* D,
5857 lapack_complex_float* DU,
5858 lapack_complex_float* B, lapack_int
const* ldb,
5861 #define LAPACK_dgtsv LAPACK_GLOBAL(dgtsv,DGTSV)
5863 lapack_int
const* n, lapack_int
const* nrhs,
5867 double* B, lapack_int
const* ldb,
5870 #define LAPACK_sgtsv LAPACK_GLOBAL(sgtsv,SGTSV)
5872 lapack_int
const* n, lapack_int
const* nrhs,
5876 float* B, lapack_int
const* ldb,
5879 #define LAPACK_zgtsv LAPACK_GLOBAL(zgtsv,ZGTSV)
5881 lapack_int
const* n, lapack_int
const* nrhs,
5882 lapack_complex_double* DL,
5883 lapack_complex_double* D,
5884 lapack_complex_double* DU,
5885 lapack_complex_double* B, lapack_int
const* ldb,
5888 #define LAPACK_cgtsvx_base LAPACK_GLOBAL(cgtsvx,CGTSVX)
5889 void LAPACK_cgtsvx_base(
5890 char const* fact,
char const* trans,
5891 lapack_int
const* n, lapack_int
const* nrhs,
5892 lapack_complex_float
const* DL,
5893 lapack_complex_float
const* D,
5894 lapack_complex_float
const* DU,
5895 lapack_complex_float* DLF,
5896 lapack_complex_float* DF,
5897 lapack_complex_float* DUF,
5898 lapack_complex_float* DU2, lapack_int* ipiv,
5899 lapack_complex_float
const* B, lapack_int
const* ldb,
5900 lapack_complex_float* X, lapack_int
const* ldx,
5904 lapack_complex_float* work,
5907 #ifdef LAPACK_FORTRAN_STRLEN_END
5911 #ifdef LAPACK_FORTRAN_STRLEN_END
5912 #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__, 1, 1)
5914 #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__)
5917 #define LAPACK_dgtsvx_base LAPACK_GLOBAL(dgtsvx,DGTSVX)
5918 void LAPACK_dgtsvx_base(
5919 char const* fact,
char const* trans,
5920 lapack_int
const* n, lapack_int
const* nrhs,
5927 double* DU2, lapack_int* ipiv,
5928 double const* B, lapack_int
const* ldb,
5929 double* X, lapack_int
const* ldx,
5936 #ifdef LAPACK_FORTRAN_STRLEN_END
5940 #ifdef LAPACK_FORTRAN_STRLEN_END
5941 #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__, 1, 1)
5943 #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__)
5946 #define LAPACK_sgtsvx_base LAPACK_GLOBAL(sgtsvx,SGTSVX)
5947 void LAPACK_sgtsvx_base(
5948 char const* fact,
char const* trans,
5949 lapack_int
const* n, lapack_int
const* nrhs,
5956 float* DU2, lapack_int* ipiv,
5957 float const* B, lapack_int
const* ldb,
5958 float* X, lapack_int
const* ldx,
5965 #ifdef LAPACK_FORTRAN_STRLEN_END
5969 #ifdef LAPACK_FORTRAN_STRLEN_END
5970 #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__, 1, 1)
5972 #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__)
5975 #define LAPACK_zgtsvx_base LAPACK_GLOBAL(zgtsvx,ZGTSVX)
5976 void LAPACK_zgtsvx_base(
5977 char const* fact,
char const* trans,
5978 lapack_int
const* n, lapack_int
const* nrhs,
5979 lapack_complex_double
const* DL,
5980 lapack_complex_double
const* D,
5981 lapack_complex_double
const* DU,
5982 lapack_complex_double* DLF,
5983 lapack_complex_double* DF,
5984 lapack_complex_double* DUF,
5985 lapack_complex_double* DU2, lapack_int* ipiv,
5986 lapack_complex_double
const* B, lapack_int
const* ldb,
5987 lapack_complex_double* X, lapack_int
const* ldx,
5991 lapack_complex_double* work,
5994 #ifdef LAPACK_FORTRAN_STRLEN_END
5998 #ifdef LAPACK_FORTRAN_STRLEN_END
5999 #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__, 1, 1)
6001 #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__)
6004 #define LAPACK_cgttrf LAPACK_GLOBAL(cgttrf,CGTTRF)
6006 lapack_int
const* n,
6007 lapack_complex_float* DL,
6008 lapack_complex_float* D,
6009 lapack_complex_float* DU,
6010 lapack_complex_float* DU2, lapack_int* ipiv,
6013 #define LAPACK_dgttrf LAPACK_GLOBAL(dgttrf,DGTTRF)
6015 lapack_int
const* n,
6019 double* DU2, lapack_int* ipiv,
6022 #define LAPACK_sgttrf LAPACK_GLOBAL(sgttrf,SGTTRF)
6024 lapack_int
const* n,
6028 float* DU2, lapack_int* ipiv,
6031 #define LAPACK_zgttrf LAPACK_GLOBAL(zgttrf,ZGTTRF)
6033 lapack_int
const* n,
6034 lapack_complex_double* DL,
6035 lapack_complex_double* D,
6036 lapack_complex_double* DU,
6037 lapack_complex_double* DU2, lapack_int* ipiv,
6040 #define LAPACK_cgttrs_base LAPACK_GLOBAL(cgttrs,CGTTRS)
6041 void LAPACK_cgttrs_base(
6043 lapack_int
const* n, lapack_int
const* nrhs,
6044 lapack_complex_float
const* DL,
6045 lapack_complex_float
const* D,
6046 lapack_complex_float
const* DU,
6047 lapack_complex_float
const* DU2, lapack_int
const* ipiv,
6048 lapack_complex_float* B, lapack_int
const* ldb,
6050 #ifdef LAPACK_FORTRAN_STRLEN_END
6054 #ifdef LAPACK_FORTRAN_STRLEN_END
6055 #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__, 1)
6057 #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__)
6060 #define LAPACK_dgttrs_base LAPACK_GLOBAL(dgttrs,DGTTRS)
6061 void LAPACK_dgttrs_base(
6063 lapack_int
const* n, lapack_int
const* nrhs,
6067 double const* DU2, lapack_int
const* ipiv,
6068 double* B, lapack_int
const* ldb,
6070 #ifdef LAPACK_FORTRAN_STRLEN_END
6074 #ifdef LAPACK_FORTRAN_STRLEN_END
6075 #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__, 1)
6077 #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__)
6080 #define LAPACK_sgttrs_base LAPACK_GLOBAL(sgttrs,SGTTRS)
6081 void LAPACK_sgttrs_base(
6083 lapack_int
const* n, lapack_int
const* nrhs,
6087 float const* DU2, lapack_int
const* ipiv,
6088 float* B, lapack_int
const* ldb,
6090 #ifdef LAPACK_FORTRAN_STRLEN_END
6094 #ifdef LAPACK_FORTRAN_STRLEN_END
6095 #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__, 1)
6097 #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__)
6100 #define LAPACK_zgttrs_base LAPACK_GLOBAL(zgttrs,ZGTTRS)
6101 void LAPACK_zgttrs_base(
6103 lapack_int
const* n, lapack_int
const* nrhs,
6104 lapack_complex_double
const* DL,
6105 lapack_complex_double
const* D,
6106 lapack_complex_double
const* DU,
6107 lapack_complex_double
const* DU2, lapack_int
const* ipiv,
6108 lapack_complex_double* B, lapack_int
const* ldb,
6110 #ifdef LAPACK_FORTRAN_STRLEN_END
6114 #ifdef LAPACK_FORTRAN_STRLEN_END
6115 #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__, 1)
6117 #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__)
6120 #define LAPACK_chbev_base LAPACK_GLOBAL(chbev,CHBEV)
6121 void LAPACK_chbev_base(
6122 char const* jobz,
char const* uplo,
6123 lapack_int
const* n, lapack_int
const* kd,
6124 lapack_complex_float* AB, lapack_int
const* ldab,
6126 lapack_complex_float* Z, lapack_int
const* ldz,
6127 lapack_complex_float* work,
6130 #ifdef LAPACK_FORTRAN_STRLEN_END
6134 #ifdef LAPACK_FORTRAN_STRLEN_END
6135 #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__, 1, 1)
6137 #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__)
6140 #define LAPACK_zhbev_base LAPACK_GLOBAL(zhbev,ZHBEV)
6141 void LAPACK_zhbev_base(
6142 char const* jobz,
char const* uplo,
6143 lapack_int
const* n, lapack_int
const* kd,
6144 lapack_complex_double* AB, lapack_int
const* ldab,
6146 lapack_complex_double* Z, lapack_int
const* ldz,
6147 lapack_complex_double* work,
6150 #ifdef LAPACK_FORTRAN_STRLEN_END
6154 #ifdef LAPACK_FORTRAN_STRLEN_END
6155 #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__, 1, 1)
6157 #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__)
6160 #define LAPACK_chbev_2stage_base LAPACK_GLOBAL(chbev_2stage,CHBEV_2STAGE)
6161 void LAPACK_chbev_2stage_base(
6162 char const* jobz,
char const* uplo,
6163 lapack_int
const* n, lapack_int
const* kd,
6164 lapack_complex_float* AB, lapack_int
const* ldab,
6166 lapack_complex_float* Z, lapack_int
const* ldz,
6167 lapack_complex_float* work, lapack_int
const* lwork,
6170 #ifdef LAPACK_FORTRAN_STRLEN_END
6174 #ifdef LAPACK_FORTRAN_STRLEN_END
6175 #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__, 1, 1)
6177 #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__)
6180 #define LAPACK_zhbev_2stage_base LAPACK_GLOBAL(zhbev_2stage,ZHBEV_2STAGE)
6181 void LAPACK_zhbev_2stage_base(
6182 char const* jobz,
char const* uplo,
6183 lapack_int
const* n, lapack_int
const* kd,
6184 lapack_complex_double* AB, lapack_int
const* ldab,
6186 lapack_complex_double* Z, lapack_int
const* ldz,
6187 lapack_complex_double* work, lapack_int
const* lwork,
6190 #ifdef LAPACK_FORTRAN_STRLEN_END
6194 #ifdef LAPACK_FORTRAN_STRLEN_END
6195 #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__, 1, 1)
6197 #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__)
6200 #define LAPACK_chbevd_base LAPACK_GLOBAL(chbevd,CHBEVD)
6201 void LAPACK_chbevd_base(
6202 char const* jobz,
char const* uplo,
6203 lapack_int
const* n, lapack_int
const* kd,
6204 lapack_complex_float* AB, lapack_int
const* ldab,
6206 lapack_complex_float* Z, lapack_int
const* ldz,
6207 lapack_complex_float* work, lapack_int
const* lwork,
6208 float* rwork, lapack_int
const* lrwork,
6209 lapack_int* iwork, lapack_int
const* liwork,
6211 #ifdef LAPACK_FORTRAN_STRLEN_END
6215 #ifdef LAPACK_FORTRAN_STRLEN_END
6216 #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__, 1, 1)
6218 #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__)
6221 #define LAPACK_zhbevd_base LAPACK_GLOBAL(zhbevd,ZHBEVD)
6222 void LAPACK_zhbevd_base(
6223 char const* jobz,
char const* uplo,
6224 lapack_int
const* n, lapack_int
const* kd,
6225 lapack_complex_double* AB, lapack_int
const* ldab,
6227 lapack_complex_double* Z, lapack_int
const* ldz,
6228 lapack_complex_double* work, lapack_int
const* lwork,
6229 double* rwork, lapack_int
const* lrwork,
6230 lapack_int* iwork, lapack_int
const* liwork,
6232 #ifdef LAPACK_FORTRAN_STRLEN_END
6236 #ifdef LAPACK_FORTRAN_STRLEN_END
6237 #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__, 1, 1)
6239 #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__)
6242 #define LAPACK_chbevd_2stage_base LAPACK_GLOBAL(chbevd_2stage,CHBEVD_2STAGE)
6243 void LAPACK_chbevd_2stage_base(
6244 char const* jobz,
char const* uplo,
6245 lapack_int
const* n, lapack_int
const* kd,
6246 lapack_complex_float* AB, lapack_int
const* ldab,
6248 lapack_complex_float* Z, lapack_int
const* ldz,
6249 lapack_complex_float* work, lapack_int
const* lwork,
6250 float* rwork, lapack_int
const* lrwork,
6251 lapack_int* iwork, lapack_int
const* liwork,
6253 #ifdef LAPACK_FORTRAN_STRLEN_END
6257 #ifdef LAPACK_FORTRAN_STRLEN_END
6258 #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__, 1, 1)
6260 #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__)
6263 #define LAPACK_zhbevd_2stage_base LAPACK_GLOBAL(zhbevd_2stage,ZHBEVD_2STAGE)
6264 void LAPACK_zhbevd_2stage_base(
6265 char const* jobz,
char const* uplo,
6266 lapack_int
const* n, lapack_int
const* kd,
6267 lapack_complex_double* AB, lapack_int
const* ldab,
6269 lapack_complex_double* Z, lapack_int
const* ldz,
6270 lapack_complex_double* work, lapack_int
const* lwork,
6271 double* rwork, lapack_int
const* lrwork,
6272 lapack_int* iwork, lapack_int
const* liwork,
6274 #ifdef LAPACK_FORTRAN_STRLEN_END
6278 #ifdef LAPACK_FORTRAN_STRLEN_END
6279 #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__, 1, 1)
6281 #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__)
6284 #define LAPACK_chbevx_base LAPACK_GLOBAL(chbevx,CHBEVX)
6285 void LAPACK_chbevx_base(
6286 char const* jobz,
char const* range,
char const* uplo,
6287 lapack_int
const* n, lapack_int
const* kd,
6288 lapack_complex_float* AB, lapack_int
const* ldab,
6289 lapack_complex_float* Q, lapack_int
const* ldq,
6291 float const* vu, lapack_int
const* il, lapack_int
const* iu,
6292 float const* abstol, lapack_int* m,
6294 lapack_complex_float* Z, lapack_int
const* ldz,
6295 lapack_complex_float* work,
6297 lapack_int* iwork, lapack_int* IFAIL,
6299 #ifdef LAPACK_FORTRAN_STRLEN_END
6300 ,
size_t,
size_t,
size_t
6303 #ifdef LAPACK_FORTRAN_STRLEN_END
6304 #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__, 1, 1, 1)
6306 #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__)
6309 #define LAPACK_zhbevx_base LAPACK_GLOBAL(zhbevx,ZHBEVX)
6310 void LAPACK_zhbevx_base(
6311 char const* jobz,
char const* range,
char const* uplo,
6312 lapack_int
const* n, lapack_int
const* kd,
6313 lapack_complex_double* AB, lapack_int
const* ldab,
6314 lapack_complex_double* Q, lapack_int
const* ldq,
6316 double const* vu, lapack_int
const* il, lapack_int
const* iu,
6317 double const* abstol, lapack_int* m,
6319 lapack_complex_double* Z, lapack_int
const* ldz,
6320 lapack_complex_double* work,
6322 lapack_int* iwork, lapack_int* IFAIL,
6324 #ifdef LAPACK_FORTRAN_STRLEN_END
6325 ,
size_t,
size_t,
size_t
6328 #ifdef LAPACK_FORTRAN_STRLEN_END
6329 #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__, 1, 1, 1)
6331 #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__)
6334 #define LAPACK_chbevx_2stage_base LAPACK_GLOBAL(chbevx_2stage,CHBEVX_2STAGE)
6335 void LAPACK_chbevx_2stage_base(
6336 char const* jobz,
char const* range,
char const* uplo,
6337 lapack_int
const* n, lapack_int
const* kd,
6338 lapack_complex_float* AB, lapack_int
const* ldab,
6339 lapack_complex_float* Q, lapack_int
const* ldq,
6341 float const* vu, lapack_int
const* il, lapack_int
const* iu,
6342 float const* abstol, lapack_int* m,
6344 lapack_complex_float* Z, lapack_int
const* ldz,
6345 lapack_complex_float* work, lapack_int
const* lwork,
6347 lapack_int* iwork, lapack_int* IFAIL,
6349 #ifdef LAPACK_FORTRAN_STRLEN_END
6350 ,
size_t,
size_t,
size_t
6353 #ifdef LAPACK_FORTRAN_STRLEN_END
6354 #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
6356 #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__)
6359 #define LAPACK_zhbevx_2stage_base LAPACK_GLOBAL(zhbevx_2stage,ZHBEVX_2STAGE)
6360 void LAPACK_zhbevx_2stage_base(
6361 char const* jobz,
char const* range,
char const* uplo,
6362 lapack_int
const* n, lapack_int
const* kd,
6363 lapack_complex_double* AB, lapack_int
const* ldab,
6364 lapack_complex_double* Q, lapack_int
const* ldq,
6366 double const* vu, lapack_int
const* il, lapack_int
const* iu,
6367 double const* abstol, lapack_int* m,
6369 lapack_complex_double* Z, lapack_int
const* ldz,
6370 lapack_complex_double* work, lapack_int
const* lwork,
6372 lapack_int* iwork, lapack_int* IFAIL,
6374 #ifdef LAPACK_FORTRAN_STRLEN_END
6375 ,
size_t,
size_t,
size_t
6378 #ifdef LAPACK_FORTRAN_STRLEN_END
6379 #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
6381 #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__)
6384 #define LAPACK_chbgst_base LAPACK_GLOBAL(chbgst,CHBGST)
6385 void LAPACK_chbgst_base(
6386 char const* vect,
char const* uplo,
6387 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
6388 lapack_complex_float* AB, lapack_int
const* ldab,
6389 lapack_complex_float
const* BB, lapack_int
const* ldbb,
6390 lapack_complex_float* X, lapack_int
const* ldx,
6391 lapack_complex_float* work,
6394 #ifdef LAPACK_FORTRAN_STRLEN_END
6398 #ifdef LAPACK_FORTRAN_STRLEN_END
6399 #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__, 1, 1)
6401 #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__)
6404 #define LAPACK_zhbgst_base LAPACK_GLOBAL(zhbgst,ZHBGST)
6405 void LAPACK_zhbgst_base(
6406 char const* vect,
char const* uplo,
6407 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
6408 lapack_complex_double* AB, lapack_int
const* ldab,
6409 lapack_complex_double
const* BB, lapack_int
const* ldbb,
6410 lapack_complex_double* X, lapack_int
const* ldx,
6411 lapack_complex_double* work,
6414 #ifdef LAPACK_FORTRAN_STRLEN_END
6418 #ifdef LAPACK_FORTRAN_STRLEN_END
6419 #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__, 1, 1)
6421 #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__)
6424 #define LAPACK_chbgv_base LAPACK_GLOBAL(chbgv,CHBGV)
6425 void LAPACK_chbgv_base(
6426 char const* jobz,
char const* uplo,
6427 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
6428 lapack_complex_float* AB, lapack_int
const* ldab,
6429 lapack_complex_float* BB, lapack_int
const* ldbb,
6431 lapack_complex_float* Z, lapack_int
const* ldz,
6432 lapack_complex_float* work,
6435 #ifdef LAPACK_FORTRAN_STRLEN_END
6439 #ifdef LAPACK_FORTRAN_STRLEN_END
6440 #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__, 1, 1)
6442 #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__)
6445 #define LAPACK_zhbgv_base LAPACK_GLOBAL(zhbgv,ZHBGV)
6446 void LAPACK_zhbgv_base(
6447 char const* jobz,
char const* uplo,
6448 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
6449 lapack_complex_double* AB, lapack_int
const* ldab,
6450 lapack_complex_double* BB, lapack_int
const* ldbb,
6452 lapack_complex_double* Z, lapack_int
const* ldz,
6453 lapack_complex_double* work,
6456 #ifdef LAPACK_FORTRAN_STRLEN_END
6460 #ifdef LAPACK_FORTRAN_STRLEN_END
6461 #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__, 1, 1)
6463 #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__)
6466 #define LAPACK_chbgvd_base LAPACK_GLOBAL(chbgvd,CHBGVD)
6467 void LAPACK_chbgvd_base(
6468 char const* jobz,
char const* uplo,
6469 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
6470 lapack_complex_float* AB, lapack_int
const* ldab,
6471 lapack_complex_float* BB, lapack_int
const* ldbb,
6473 lapack_complex_float* Z, lapack_int
const* ldz,
6474 lapack_complex_float* work, lapack_int
const* lwork,
6475 float* rwork, lapack_int
const* lrwork,
6476 lapack_int* iwork, lapack_int
const* liwork,
6478 #ifdef LAPACK_FORTRAN_STRLEN_END
6482 #ifdef LAPACK_FORTRAN_STRLEN_END
6483 #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__, 1, 1)
6485 #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__)
6488 #define LAPACK_zhbgvd_base LAPACK_GLOBAL(zhbgvd,ZHBGVD)
6489 void LAPACK_zhbgvd_base(
6490 char const* jobz,
char const* uplo,
6491 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
6492 lapack_complex_double* AB, lapack_int
const* ldab,
6493 lapack_complex_double* BB, lapack_int
const* ldbb,
6495 lapack_complex_double* Z, lapack_int
const* ldz,
6496 lapack_complex_double* work, lapack_int
const* lwork,
6497 double* rwork, lapack_int
const* lrwork,
6498 lapack_int* iwork, lapack_int
const* liwork,
6500 #ifdef LAPACK_FORTRAN_STRLEN_END
6504 #ifdef LAPACK_FORTRAN_STRLEN_END
6505 #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__, 1, 1)
6507 #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__)
6510 #define LAPACK_chbgvx_base LAPACK_GLOBAL(chbgvx,CHBGVX)
6511 void LAPACK_chbgvx_base(
6512 char const* jobz,
char const* range,
char const* uplo,
6513 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
6514 lapack_complex_float* AB, lapack_int
const* ldab,
6515 lapack_complex_float* BB, lapack_int
const* ldbb,
6516 lapack_complex_float* Q, lapack_int
const* ldq,
6518 float const* vu, lapack_int
const* il, lapack_int
const* iu,
6519 float const* abstol, lapack_int* m,
6521 lapack_complex_float* Z, lapack_int
const* ldz,
6522 lapack_complex_float* work,
6524 lapack_int* iwork, lapack_int* IFAIL,
6526 #ifdef LAPACK_FORTRAN_STRLEN_END
6527 ,
size_t,
size_t,
size_t
6530 #ifdef LAPACK_FORTRAN_STRLEN_END
6531 #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__, 1, 1, 1)
6533 #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__)
6536 #define LAPACK_zhbgvx_base LAPACK_GLOBAL(zhbgvx,ZHBGVX)
6537 void LAPACK_zhbgvx_base(
6538 char const* jobz,
char const* range,
char const* uplo,
6539 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
6540 lapack_complex_double* AB, lapack_int
const* ldab,
6541 lapack_complex_double* BB, lapack_int
const* ldbb,
6542 lapack_complex_double* Q, lapack_int
const* ldq,
6544 double const* vu, lapack_int
const* il, lapack_int
const* iu,
6545 double const* abstol, lapack_int* m,
6547 lapack_complex_double* Z, lapack_int
const* ldz,
6548 lapack_complex_double* work,
6550 lapack_int* iwork, lapack_int* IFAIL,
6552 #ifdef LAPACK_FORTRAN_STRLEN_END
6553 ,
size_t,
size_t,
size_t
6556 #ifdef LAPACK_FORTRAN_STRLEN_END
6557 #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__, 1, 1, 1)
6559 #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__)
6562 #define LAPACK_chbtrd_base LAPACK_GLOBAL(chbtrd,CHBTRD)
6563 void LAPACK_chbtrd_base(
6564 char const* vect,
char const* uplo,
6565 lapack_int
const* n, lapack_int
const* kd,
6566 lapack_complex_float* AB, lapack_int
const* ldab,
6569 lapack_complex_float* Q, lapack_int
const* ldq,
6570 lapack_complex_float* work,
6572 #ifdef LAPACK_FORTRAN_STRLEN_END
6576 #ifdef LAPACK_FORTRAN_STRLEN_END
6577 #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__, 1, 1)
6579 #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__)
6582 #define LAPACK_zhbtrd_base LAPACK_GLOBAL(zhbtrd,ZHBTRD)
6583 void LAPACK_zhbtrd_base(
6584 char const* vect,
char const* uplo,
6585 lapack_int
const* n, lapack_int
const* kd,
6586 lapack_complex_double* AB, lapack_int
const* ldab,
6589 lapack_complex_double* Q, lapack_int
const* ldq,
6590 lapack_complex_double* work,
6592 #ifdef LAPACK_FORTRAN_STRLEN_END
6596 #ifdef LAPACK_FORTRAN_STRLEN_END
6597 #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__, 1, 1)
6599 #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__)
6602 #define LAPACK_checon_base LAPACK_GLOBAL(checon,CHECON)
6603 void LAPACK_checon_base(
6605 lapack_int
const* n,
6606 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
6609 lapack_complex_float* work,
6611 #ifdef LAPACK_FORTRAN_STRLEN_END
6615 #ifdef LAPACK_FORTRAN_STRLEN_END
6616 #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__, 1)
6618 #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__)
6621 #define LAPACK_zhecon_base LAPACK_GLOBAL(zhecon,ZHECON)
6622 void LAPACK_zhecon_base(
6624 lapack_int
const* n,
6625 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
6626 double const* anorm,
6628 lapack_complex_double* work,
6630 #ifdef LAPACK_FORTRAN_STRLEN_END
6634 #ifdef LAPACK_FORTRAN_STRLEN_END
6635 #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__, 1)
6637 #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__)
6640 #define LAPACK_checon_3_base LAPACK_GLOBAL(checon_3,CHECON_3)
6641 void LAPACK_checon_3_base(
6643 lapack_int
const* n,
6644 lapack_complex_float
const* A, lapack_int
const* lda,
6645 lapack_complex_float
const* E, lapack_int
const* ipiv,
6648 lapack_complex_float* work,
6650 #ifdef LAPACK_FORTRAN_STRLEN_END
6654 #ifdef LAPACK_FORTRAN_STRLEN_END
6655 #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__, 1)
6657 #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__)
6660 #define LAPACK_zhecon_3_base LAPACK_GLOBAL(zhecon_3,ZHECON_3)
6661 void LAPACK_zhecon_3_base(
6663 lapack_int
const* n,
6664 lapack_complex_double
const* A, lapack_int
const* lda,
6665 lapack_complex_double
const* E, lapack_int
const* ipiv,
6666 double const* anorm,
6668 lapack_complex_double* work,
6670 #ifdef LAPACK_FORTRAN_STRLEN_END
6674 #ifdef LAPACK_FORTRAN_STRLEN_END
6675 #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__, 1)
6677 #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__)
6680 #define LAPACK_cheequb_base LAPACK_GLOBAL(cheequb,CHEEQUB)
6681 void LAPACK_cheequb_base(
6683 lapack_int
const* n,
6684 lapack_complex_float
const* A, lapack_int
const* lda,
6688 lapack_complex_float* work,
6690 #ifdef LAPACK_FORTRAN_STRLEN_END
6694 #ifdef LAPACK_FORTRAN_STRLEN_END
6695 #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__, 1)
6697 #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__)
6700 #define LAPACK_zheequb_base LAPACK_GLOBAL(zheequb,ZHEEQUB)
6701 void LAPACK_zheequb_base(
6703 lapack_int
const* n,
6704 lapack_complex_double
const* A, lapack_int
const* lda,
6708 lapack_complex_double* work,
6710 #ifdef LAPACK_FORTRAN_STRLEN_END
6714 #ifdef LAPACK_FORTRAN_STRLEN_END
6715 #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__, 1)
6717 #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__)
6720 #define LAPACK_cheev_base LAPACK_GLOBAL(cheev,CHEEV)
6721 void LAPACK_cheev_base(
6722 char const* jobz,
char const* uplo,
6723 lapack_int
const* n,
6724 lapack_complex_float* A, lapack_int
const* lda,
6726 lapack_complex_float* work, lapack_int
const* lwork,
6729 #ifdef LAPACK_FORTRAN_STRLEN_END
6733 #ifdef LAPACK_FORTRAN_STRLEN_END
6734 #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__, 1, 1)
6736 #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__)
6739 #define LAPACK_zheev_base LAPACK_GLOBAL(zheev,ZHEEV)
6740 void LAPACK_zheev_base(
6741 char const* jobz,
char const* uplo,
6742 lapack_int
const* n,
6743 lapack_complex_double* A, lapack_int
const* lda,
6745 lapack_complex_double* work, lapack_int
const* lwork,
6748 #ifdef LAPACK_FORTRAN_STRLEN_END
6752 #ifdef LAPACK_FORTRAN_STRLEN_END
6753 #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__, 1, 1)
6755 #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__)
6758 #define LAPACK_cheev_2stage_base LAPACK_GLOBAL(cheev_2stage,CHEEV_2STAGE)
6759 void LAPACK_cheev_2stage_base(
6760 char const* jobz,
char const* uplo,
6761 lapack_int
const* n,
6762 lapack_complex_float* A, lapack_int
const* lda,
6764 lapack_complex_float* work, lapack_int
const* lwork,
6767 #ifdef LAPACK_FORTRAN_STRLEN_END
6771 #ifdef LAPACK_FORTRAN_STRLEN_END
6772 #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__, 1, 1)
6774 #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__)
6777 #define LAPACK_zheev_2stage_base LAPACK_GLOBAL(zheev_2stage,ZHEEV_2STAGE)
6778 void LAPACK_zheev_2stage_base(
6779 char const* jobz,
char const* uplo,
6780 lapack_int
const* n,
6781 lapack_complex_double* A, lapack_int
const* lda,
6783 lapack_complex_double* work, lapack_int
const* lwork,
6786 #ifdef LAPACK_FORTRAN_STRLEN_END
6790 #ifdef LAPACK_FORTRAN_STRLEN_END
6791 #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__, 1, 1)
6793 #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__)
6796 #define LAPACK_cheevd_base LAPACK_GLOBAL(cheevd,CHEEVD)
6797 void LAPACK_cheevd_base(
6798 char const* jobz,
char const* uplo,
6799 lapack_int
const* n,
6800 lapack_complex_float* A, lapack_int
const* lda,
6802 lapack_complex_float* work, lapack_int
const* lwork,
6803 float* rwork, lapack_int
const* lrwork,
6804 lapack_int* iwork, lapack_int
const* liwork,
6806 #ifdef LAPACK_FORTRAN_STRLEN_END
6810 #ifdef LAPACK_FORTRAN_STRLEN_END
6811 #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__, 1, 1)
6813 #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__)
6816 #define LAPACK_zheevd_base LAPACK_GLOBAL(zheevd,ZHEEVD)
6817 void LAPACK_zheevd_base(
6818 char const* jobz,
char const* uplo,
6819 lapack_int
const* n,
6820 lapack_complex_double* A, lapack_int
const* lda,
6822 lapack_complex_double* work, lapack_int
const* lwork,
6823 double* rwork, lapack_int
const* lrwork,
6824 lapack_int* iwork, lapack_int
const* liwork,
6826 #ifdef LAPACK_FORTRAN_STRLEN_END
6830 #ifdef LAPACK_FORTRAN_STRLEN_END
6831 #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__, 1, 1)
6833 #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__)
6836 #define LAPACK_cheevd_2stage_base LAPACK_GLOBAL(cheevd_2stage,CHEEVD_2STAGE)
6837 void LAPACK_cheevd_2stage_base(
6838 char const* jobz,
char const* uplo,
6839 lapack_int
const* n,
6840 lapack_complex_float* A, lapack_int
const* lda,
6842 lapack_complex_float* work, lapack_int
const* lwork,
6843 float* rwork, lapack_int
const* lrwork,
6844 lapack_int* iwork, lapack_int
const* liwork,
6846 #ifdef LAPACK_FORTRAN_STRLEN_END
6850 #ifdef LAPACK_FORTRAN_STRLEN_END
6851 #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__, 1, 1)
6853 #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__)
6856 #define LAPACK_zheevd_2stage_base LAPACK_GLOBAL(zheevd_2stage,ZHEEVD_2STAGE)
6857 void LAPACK_zheevd_2stage_base(
6858 char const* jobz,
char const* uplo,
6859 lapack_int
const* n,
6860 lapack_complex_double* A, lapack_int
const* lda,
6862 lapack_complex_double* work, lapack_int
const* lwork,
6863 double* rwork, lapack_int
const* lrwork,
6864 lapack_int* iwork, lapack_int
const* liwork,
6866 #ifdef LAPACK_FORTRAN_STRLEN_END
6870 #ifdef LAPACK_FORTRAN_STRLEN_END
6871 #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__, 1, 1)
6873 #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__)
6876 #define LAPACK_cheevr_base LAPACK_GLOBAL(cheevr,CHEEVR)
6877 void LAPACK_cheevr_base(
6878 char const* jobz,
char const* range,
char const* uplo,
6879 lapack_int
const* n,
6880 lapack_complex_float* A, lapack_int
const* lda,
6882 float const* vu, lapack_int
const* il, lapack_int
const* iu,
6883 float const* abstol, lapack_int* m,
6885 lapack_complex_float* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
6886 lapack_complex_float* work, lapack_int
const* lwork,
6887 float* rwork, lapack_int
const* lrwork,
6888 lapack_int* iwork, lapack_int
const* liwork,
6890 #ifdef LAPACK_FORTRAN_STRLEN_END
6891 ,
size_t,
size_t,
size_t
6894 #ifdef LAPACK_FORTRAN_STRLEN_END
6895 #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__, 1, 1, 1)
6897 #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__)
6900 #define LAPACK_zheevr_base LAPACK_GLOBAL(zheevr,ZHEEVR)
6901 void LAPACK_zheevr_base(
6902 char const* jobz,
char const* range,
char const* uplo,
6903 lapack_int
const* n,
6904 lapack_complex_double* A, lapack_int
const* lda,
6906 double const* vu, lapack_int
const* il, lapack_int
const* iu,
6907 double const* abstol, lapack_int* m,
6909 lapack_complex_double* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
6910 lapack_complex_double* work, lapack_int
const* lwork,
6911 double* rwork, lapack_int
const* lrwork,
6912 lapack_int* iwork, lapack_int
const* liwork,
6914 #ifdef LAPACK_FORTRAN_STRLEN_END
6915 ,
size_t,
size_t,
size_t
6918 #ifdef LAPACK_FORTRAN_STRLEN_END
6919 #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__, 1, 1, 1)
6921 #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__)
6924 #define LAPACK_cheevr_2stage_base LAPACK_GLOBAL(cheevr_2stage,CHEEVR_2STAGE)
6925 void LAPACK_cheevr_2stage_base(
6926 char const* jobz,
char const* range,
char const* uplo,
6927 lapack_int
const* n,
6928 lapack_complex_float* A, lapack_int
const* lda,
6930 float const* vu, lapack_int
const* il, lapack_int
const* iu,
6931 float const* abstol, lapack_int* m,
6933 lapack_complex_float* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
6934 lapack_complex_float* work, lapack_int
const* lwork,
6935 float* rwork, lapack_int
const* lrwork,
6936 lapack_int* iwork, lapack_int
const* liwork,
6938 #ifdef LAPACK_FORTRAN_STRLEN_END
6939 ,
size_t,
size_t,
size_t
6942 #ifdef LAPACK_FORTRAN_STRLEN_END
6943 #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__, 1, 1, 1)
6945 #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__)
6948 #define LAPACK_zheevr_2stage_base LAPACK_GLOBAL(zheevr_2stage,ZHEEVR_2STAGE)
6949 void LAPACK_zheevr_2stage_base(
6950 char const* jobz,
char const* range,
char const* uplo,
6951 lapack_int
const* n,
6952 lapack_complex_double* A, lapack_int
const* lda,
6954 double const* vu, lapack_int
const* il, lapack_int
const* iu,
6955 double const* abstol, lapack_int* m,
6957 lapack_complex_double* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
6958 lapack_complex_double* work, lapack_int
const* lwork,
6959 double* rwork, lapack_int
const* lrwork,
6960 lapack_int* iwork, lapack_int
const* liwork,
6962 #ifdef LAPACK_FORTRAN_STRLEN_END
6963 ,
size_t,
size_t,
size_t
6966 #ifdef LAPACK_FORTRAN_STRLEN_END
6967 #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__, 1, 1, 1)
6969 #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__)
6972 #define LAPACK_cheevx_base LAPACK_GLOBAL(cheevx,CHEEVX)
6973 void LAPACK_cheevx_base(
6974 char const* jobz,
char const* range,
char const* uplo,
6975 lapack_int
const* n,
6976 lapack_complex_float* A, lapack_int
const* lda,
6978 float const* vu, lapack_int
const* il, lapack_int
const* iu,
6979 float const* abstol, lapack_int* m,
6981 lapack_complex_float* Z, lapack_int
const* ldz,
6982 lapack_complex_float* work, lapack_int
const* lwork,
6984 lapack_int* iwork, lapack_int* IFAIL,
6986 #ifdef LAPACK_FORTRAN_STRLEN_END
6987 ,
size_t,
size_t,
size_t
6990 #ifdef LAPACK_FORTRAN_STRLEN_END
6991 #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__, 1, 1, 1)
6993 #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__)
6996 #define LAPACK_zheevx_base LAPACK_GLOBAL(zheevx,ZHEEVX)
6997 void LAPACK_zheevx_base(
6998 char const* jobz,
char const* range,
char const* uplo,
6999 lapack_int
const* n,
7000 lapack_complex_double* A, lapack_int
const* lda,
7002 double const* vu, lapack_int
const* il, lapack_int
const* iu,
7003 double const* abstol, lapack_int* m,
7005 lapack_complex_double* Z, lapack_int
const* ldz,
7006 lapack_complex_double* work, lapack_int
const* lwork,
7008 lapack_int* iwork, lapack_int* IFAIL,
7010 #ifdef LAPACK_FORTRAN_STRLEN_END
7011 ,
size_t,
size_t,
size_t
7014 #ifdef LAPACK_FORTRAN_STRLEN_END
7015 #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__, 1, 1, 1)
7017 #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__)
7020 #define LAPACK_cheevx_2stage_base LAPACK_GLOBAL(cheevx_2stage,CHEEVX_2STAGE)
7021 void LAPACK_cheevx_2stage_base(
7022 char const* jobz,
char const* range,
char const* uplo,
7023 lapack_int
const* n,
7024 lapack_complex_float* A, lapack_int
const* lda,
7026 float const* vu, lapack_int
const* il, lapack_int
const* iu,
7027 float const* abstol, lapack_int* m,
7029 lapack_complex_float* Z, lapack_int
const* ldz,
7030 lapack_complex_float* work, lapack_int
const* lwork,
7032 lapack_int* iwork, lapack_int* IFAIL,
7034 #ifdef LAPACK_FORTRAN_STRLEN_END
7035 ,
size_t,
size_t,
size_t
7038 #ifdef LAPACK_FORTRAN_STRLEN_END
7039 #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__, 1, 1, 1)
7041 #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__)
7044 #define LAPACK_zheevx_2stage_base LAPACK_GLOBAL(zheevx_2stage,ZHEEVX_2STAGE)
7045 void LAPACK_zheevx_2stage_base(
7046 char const* jobz,
char const* range,
char const* uplo,
7047 lapack_int
const* n,
7048 lapack_complex_double* A, lapack_int
const* lda,
7050 double const* vu, lapack_int
const* il, lapack_int
const* iu,
7051 double const* abstol, lapack_int* m,
7053 lapack_complex_double* Z, lapack_int
const* ldz,
7054 lapack_complex_double* work, lapack_int
const* lwork,
7056 lapack_int* iwork, lapack_int* IFAIL,
7058 #ifdef LAPACK_FORTRAN_STRLEN_END
7059 ,
size_t,
size_t,
size_t
7062 #ifdef LAPACK_FORTRAN_STRLEN_END
7063 #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__, 1, 1, 1)
7065 #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__)
7068 #define LAPACK_chegst_base LAPACK_GLOBAL(chegst,CHEGST)
7069 void LAPACK_chegst_base(
7070 lapack_int
const* itype,
char const* uplo,
7071 lapack_int
const* n,
7072 lapack_complex_float* A, lapack_int
const* lda,
7073 const lapack_complex_float* B, lapack_int
const* ldb,
7075 #ifdef LAPACK_FORTRAN_STRLEN_END
7079 #ifdef LAPACK_FORTRAN_STRLEN_END
7080 #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__, 1)
7082 #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__)
7085 #define LAPACK_zhegst_base LAPACK_GLOBAL(zhegst,ZHEGST)
7086 void LAPACK_zhegst_base(
7087 lapack_int
const* itype,
char const* uplo,
7088 lapack_int
const* n,
7089 lapack_complex_double* A, lapack_int
const* lda,
7090 const lapack_complex_double* B, lapack_int
const* ldb,
7092 #ifdef LAPACK_FORTRAN_STRLEN_END
7096 #ifdef LAPACK_FORTRAN_STRLEN_END
7097 #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__, 1)
7099 #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__)
7102 #define LAPACK_chegv_base LAPACK_GLOBAL(chegv,CHEGV)
7103 void LAPACK_chegv_base(
7104 lapack_int
const* itype,
char const* jobz,
char const* uplo,
7105 lapack_int
const* n,
7106 lapack_complex_float* A, lapack_int
const* lda,
7107 lapack_complex_float* B, lapack_int
const* ldb,
7109 lapack_complex_float* work, lapack_int
const* lwork,
7112 #ifdef LAPACK_FORTRAN_STRLEN_END
7116 #ifdef LAPACK_FORTRAN_STRLEN_END
7117 #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__, 1, 1)
7119 #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__)
7122 #define LAPACK_zhegv_base LAPACK_GLOBAL(zhegv,ZHEGV)
7123 void LAPACK_zhegv_base(
7124 lapack_int
const* itype,
char const* jobz,
char const* uplo,
7125 lapack_int
const* n,
7126 lapack_complex_double* A, lapack_int
const* lda,
7127 lapack_complex_double* B, lapack_int
const* ldb,
7129 lapack_complex_double* work, lapack_int
const* lwork,
7132 #ifdef LAPACK_FORTRAN_STRLEN_END
7136 #ifdef LAPACK_FORTRAN_STRLEN_END
7137 #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__, 1, 1)
7139 #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__)
7142 #define LAPACK_chegv_2stage_base LAPACK_GLOBAL(chegv_2stage,CHEGV_2STAGE)
7143 void LAPACK_chegv_2stage_base(
7144 lapack_int
const* itype,
char const* jobz,
char const* uplo,
7145 lapack_int
const* n,
7146 lapack_complex_float* A, lapack_int
const* lda,
7147 lapack_complex_float* B, lapack_int
const* ldb,
7149 lapack_complex_float* work, lapack_int
const* lwork,
7152 #ifdef LAPACK_FORTRAN_STRLEN_END
7156 #ifdef LAPACK_FORTRAN_STRLEN_END
7157 #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__, 1, 1)
7159 #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__)
7162 #define LAPACK_zhegv_2stage_base LAPACK_GLOBAL(zhegv_2stage,ZHEGV_2STAGE)
7163 void LAPACK_zhegv_2stage_base(
7164 lapack_int
const* itype,
char const* jobz,
char const* uplo,
7165 lapack_int
const* n,
7166 lapack_complex_double* A, lapack_int
const* lda,
7167 lapack_complex_double* B, lapack_int
const* ldb,
7169 lapack_complex_double* work, lapack_int
const* lwork,
7172 #ifdef LAPACK_FORTRAN_STRLEN_END
7176 #ifdef LAPACK_FORTRAN_STRLEN_END
7177 #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__, 1, 1)
7179 #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__)
7182 #define LAPACK_chegvd_base LAPACK_GLOBAL(chegvd,CHEGVD)
7183 void LAPACK_chegvd_base(
7184 lapack_int
const* itype,
char const* jobz,
char const* uplo,
7185 lapack_int
const* n,
7186 lapack_complex_float* A, lapack_int
const* lda,
7187 lapack_complex_float* B, lapack_int
const* ldb,
7189 lapack_complex_float* work, lapack_int
const* lwork,
7190 float* rwork, lapack_int
const* lrwork,
7191 lapack_int* iwork, lapack_int
const* liwork,
7193 #ifdef LAPACK_FORTRAN_STRLEN_END
7197 #ifdef LAPACK_FORTRAN_STRLEN_END
7198 #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__, 1, 1)
7200 #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__)
7203 #define LAPACK_zhegvd_base LAPACK_GLOBAL(zhegvd,ZHEGVD)
7204 void LAPACK_zhegvd_base(
7205 lapack_int
const* itype,
char const* jobz,
char const* uplo,
7206 lapack_int
const* n,
7207 lapack_complex_double* A, lapack_int
const* lda,
7208 lapack_complex_double* B, lapack_int
const* ldb,
7210 lapack_complex_double* work, lapack_int
const* lwork,
7211 double* rwork, lapack_int
const* lrwork,
7212 lapack_int* iwork, lapack_int
const* liwork,
7214 #ifdef LAPACK_FORTRAN_STRLEN_END
7218 #ifdef LAPACK_FORTRAN_STRLEN_END
7219 #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__, 1, 1)
7221 #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__)
7224 #define LAPACK_chegvx_base LAPACK_GLOBAL(chegvx,CHEGVX)
7225 void LAPACK_chegvx_base(
7226 lapack_int
const* itype,
char const* jobz,
char const* range,
char const* uplo,
7227 lapack_int
const* n,
7228 lapack_complex_float* A, lapack_int
const* lda,
7229 lapack_complex_float* B, lapack_int
const* ldb,
7231 float const* vu, lapack_int
const* il, lapack_int
const* iu,
7232 float const* abstol, lapack_int* m,
7234 lapack_complex_float* Z, lapack_int
const* ldz,
7235 lapack_complex_float* work, lapack_int
const* lwork,
7237 lapack_int* iwork, lapack_int* IFAIL,
7239 #ifdef LAPACK_FORTRAN_STRLEN_END
7240 ,
size_t,
size_t,
size_t
7243 #ifdef LAPACK_FORTRAN_STRLEN_END
7244 #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__, 1, 1, 1)
7246 #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__)
7249 #define LAPACK_zhegvx_base LAPACK_GLOBAL(zhegvx,ZHEGVX)
7250 void LAPACK_zhegvx_base(
7251 lapack_int
const* itype,
char const* jobz,
char const* range,
char const* uplo,
7252 lapack_int
const* n,
7253 lapack_complex_double* A, lapack_int
const* lda,
7254 lapack_complex_double* B, lapack_int
const* ldb,
7256 double const* vu, lapack_int
const* il, lapack_int
const* iu,
7257 double const* abstol, lapack_int* m,
7259 lapack_complex_double* Z, lapack_int
const* ldz,
7260 lapack_complex_double* work, lapack_int
const* lwork,
7262 lapack_int* iwork, lapack_int* IFAIL,
7264 #ifdef LAPACK_FORTRAN_STRLEN_END
7265 ,
size_t,
size_t,
size_t
7268 #ifdef LAPACK_FORTRAN_STRLEN_END
7269 #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__, 1, 1, 1)
7271 #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__)
7274 #define LAPACK_cherfs_base LAPACK_GLOBAL(cherfs,CHERFS)
7275 void LAPACK_cherfs_base(
7277 lapack_int
const* n, lapack_int
const* nrhs,
7278 lapack_complex_float
const* A, lapack_int
const* lda,
7279 lapack_complex_float
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
7280 lapack_complex_float
const* B, lapack_int
const* ldb,
7281 lapack_complex_float* X, lapack_int
const* ldx,
7284 lapack_complex_float* work,
7287 #ifdef LAPACK_FORTRAN_STRLEN_END
7291 #ifdef LAPACK_FORTRAN_STRLEN_END
7292 #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__, 1)
7294 #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__)
7297 #define LAPACK_zherfs_base LAPACK_GLOBAL(zherfs,ZHERFS)
7298 void LAPACK_zherfs_base(
7300 lapack_int
const* n, lapack_int
const* nrhs,
7301 lapack_complex_double
const* A, lapack_int
const* lda,
7302 lapack_complex_double
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
7303 lapack_complex_double
const* B, lapack_int
const* ldb,
7304 lapack_complex_double* X, lapack_int
const* ldx,
7307 lapack_complex_double* work,
7310 #ifdef LAPACK_FORTRAN_STRLEN_END
7314 #ifdef LAPACK_FORTRAN_STRLEN_END
7315 #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__, 1)
7317 #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__)
7320 #define LAPACK_cherfsx_base LAPACK_GLOBAL(cherfsx,CHERFSX)
7321 void LAPACK_cherfsx_base(
7322 char const* uplo,
char const* equed,
7323 lapack_int
const* n, lapack_int
const* nrhs,
7324 lapack_complex_float
const* A, lapack_int
const* lda,
7325 lapack_complex_float
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
7327 lapack_complex_float
const* B, lapack_int
const* ldb,
7328 lapack_complex_float* X, lapack_int
const* ldx,
7330 float* berr, lapack_int
const* n_err_bnds,
7331 float* err_bnds_norm,
7332 float* err_bnds_comp, lapack_int
const* nparams,
7334 lapack_complex_float* work,
7337 #ifdef LAPACK_FORTRAN_STRLEN_END
7341 #ifdef LAPACK_FORTRAN_STRLEN_END
7342 #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__, 1, 1)
7344 #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__)
7347 #define LAPACK_zherfsx_base LAPACK_GLOBAL(zherfsx,ZHERFSX)
7348 void LAPACK_zherfsx_base(
7349 char const* uplo,
char const* equed,
7350 lapack_int
const* n, lapack_int
const* nrhs,
7351 lapack_complex_double
const* A, lapack_int
const* lda,
7352 lapack_complex_double
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
7354 lapack_complex_double
const* B, lapack_int
const* ldb,
7355 lapack_complex_double* X, lapack_int
const* ldx,
7357 double* berr, lapack_int
const* n_err_bnds,
7358 double* err_bnds_norm,
7359 double* err_bnds_comp, lapack_int
const* nparams,
7361 lapack_complex_double* work,
7364 #ifdef LAPACK_FORTRAN_STRLEN_END
7368 #ifdef LAPACK_FORTRAN_STRLEN_END
7369 #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__, 1, 1)
7371 #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__)
7374 #define LAPACK_chesv_base LAPACK_GLOBAL(chesv,CHESV)
7375 void LAPACK_chesv_base(
7377 lapack_int
const* n, lapack_int
const* nrhs,
7378 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
7379 lapack_complex_float* B, lapack_int
const* ldb,
7380 lapack_complex_float* work, lapack_int
const* lwork,
7382 #ifdef LAPACK_FORTRAN_STRLEN_END
7386 #ifdef LAPACK_FORTRAN_STRLEN_END
7387 #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__, 1)
7389 #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__)
7392 #define LAPACK_zhesv_base LAPACK_GLOBAL(zhesv,ZHESV)
7393 void LAPACK_zhesv_base(
7395 lapack_int
const* n, lapack_int
const* nrhs,
7396 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
7397 lapack_complex_double* B, lapack_int
const* ldb,
7398 lapack_complex_double* work, lapack_int
const* lwork,
7400 #ifdef LAPACK_FORTRAN_STRLEN_END
7404 #ifdef LAPACK_FORTRAN_STRLEN_END
7405 #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__, 1)
7407 #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__)
7410 #define LAPACK_chesv_aa_base LAPACK_GLOBAL(chesv_aa,CHESV_AA)
7411 void LAPACK_chesv_aa_base(
7413 lapack_int
const* n, lapack_int
const* nrhs,
7414 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
7415 lapack_complex_float* B, lapack_int
const* ldb,
7416 lapack_complex_float* work, lapack_int
const* lwork,
7418 #ifdef LAPACK_FORTRAN_STRLEN_END
7422 #ifdef LAPACK_FORTRAN_STRLEN_END
7423 #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__, 1)
7425 #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__)
7428 #define LAPACK_zhesv_aa_base LAPACK_GLOBAL(zhesv_aa,ZHESV_AA)
7429 void LAPACK_zhesv_aa_base(
7431 lapack_int
const* n, lapack_int
const* nrhs,
7432 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
7433 lapack_complex_double* B, lapack_int
const* ldb,
7434 lapack_complex_double* work, lapack_int
const* lwork,
7436 #ifdef LAPACK_FORTRAN_STRLEN_END
7440 #ifdef LAPACK_FORTRAN_STRLEN_END
7441 #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__, 1)
7443 #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__)
7446 #define LAPACK_chesv_aa_2stage_base LAPACK_GLOBAL(chesv_aa_2stage,CHESV_AA_2STAGE)
7447 void LAPACK_chesv_aa_2stage_base(
7449 lapack_int
const* n, lapack_int
const* nrhs,
7450 lapack_complex_float* A, lapack_int
const* lda,
7451 lapack_complex_float* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7452 lapack_complex_float* B, lapack_int
const* ldb,
7453 lapack_complex_float* work, lapack_int
const* lwork,
7455 #ifdef LAPACK_FORTRAN_STRLEN_END
7459 #ifdef LAPACK_FORTRAN_STRLEN_END
7460 #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__, 1)
7462 #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__)
7465 #define LAPACK_zhesv_aa_2stage_base LAPACK_GLOBAL(zhesv_aa_2stage,ZHESV_AA_2STAGE)
7466 void LAPACK_zhesv_aa_2stage_base(
7468 lapack_int
const* n, lapack_int
const* nrhs,
7469 lapack_complex_double* A, lapack_int
const* lda,
7470 lapack_complex_double* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7471 lapack_complex_double* B, lapack_int
const* ldb,
7472 lapack_complex_double* work, lapack_int
const* lwork,
7474 #ifdef LAPACK_FORTRAN_STRLEN_END
7478 #ifdef LAPACK_FORTRAN_STRLEN_END
7479 #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__, 1)
7481 #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__)
7484 #define LAPACK_chesv_rk_base LAPACK_GLOBAL(chesv_rk,CHESV_RK)
7485 void LAPACK_chesv_rk_base(
7487 lapack_int
const* n, lapack_int
const* nrhs,
7488 lapack_complex_float* A, lapack_int
const* lda,
7489 lapack_complex_float* E, lapack_int* ipiv,
7490 lapack_complex_float* B, lapack_int
const* ldb,
7491 lapack_complex_float* work, lapack_int
const* lwork,
7493 #ifdef LAPACK_FORTRAN_STRLEN_END
7497 #ifdef LAPACK_FORTRAN_STRLEN_END
7498 #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__, 1)
7500 #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__)
7503 #define LAPACK_zhesv_rk_base LAPACK_GLOBAL(zhesv_rk,ZHESV_RK)
7504 void LAPACK_zhesv_rk_base(
7506 lapack_int
const* n, lapack_int
const* nrhs,
7507 lapack_complex_double* A, lapack_int
const* lda,
7508 lapack_complex_double* E, lapack_int* ipiv,
7509 lapack_complex_double* B, lapack_int
const* ldb,
7510 lapack_complex_double* work, lapack_int
const* lwork,
7512 #ifdef LAPACK_FORTRAN_STRLEN_END
7516 #ifdef LAPACK_FORTRAN_STRLEN_END
7517 #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__, 1)
7519 #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__)
7522 #define LAPACK_chesv_rook_base LAPACK_GLOBAL(chesv_rook,CHESV_ROOK)
7523 void LAPACK_chesv_rook_base(
7525 lapack_int
const* n, lapack_int
const* nrhs,
7526 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
7527 lapack_complex_float* B, lapack_int
const* ldb,
7528 lapack_complex_float* work, lapack_int
const* lwork,
7530 #ifdef LAPACK_FORTRAN_STRLEN_END
7534 #ifdef LAPACK_FORTRAN_STRLEN_END
7535 #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__, 1)
7537 #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__)
7540 #define LAPACK_zhesv_rook_base LAPACK_GLOBAL(zhesv_rook,ZHESV_ROOK)
7541 void LAPACK_zhesv_rook_base(
7543 lapack_int
const* n, lapack_int
const* nrhs,
7544 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
7545 lapack_complex_double* B, lapack_int
const* ldb,
7546 lapack_complex_double* work, lapack_int
const* lwork,
7548 #ifdef LAPACK_FORTRAN_STRLEN_END
7552 #ifdef LAPACK_FORTRAN_STRLEN_END
7553 #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__, 1)
7555 #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__)
7558 #define LAPACK_chesvx_base LAPACK_GLOBAL(chesvx,CHESVX)
7559 void LAPACK_chesvx_base(
7560 char const* fact,
char const* uplo,
7561 lapack_int
const* n, lapack_int
const* nrhs,
7562 lapack_complex_float
const* A, lapack_int
const* lda,
7563 lapack_complex_float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
7564 lapack_complex_float
const* B, lapack_int
const* ldb,
7565 lapack_complex_float* X, lapack_int
const* ldx,
7569 lapack_complex_float* work, lapack_int
const* lwork,
7572 #ifdef LAPACK_FORTRAN_STRLEN_END
7576 #ifdef LAPACK_FORTRAN_STRLEN_END
7577 #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__, 1, 1)
7579 #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__)
7582 #define LAPACK_zhesvx_base LAPACK_GLOBAL(zhesvx,ZHESVX)
7583 void LAPACK_zhesvx_base(
7584 char const* fact,
char const* uplo,
7585 lapack_int
const* n, lapack_int
const* nrhs,
7586 lapack_complex_double
const* A, lapack_int
const* lda,
7587 lapack_complex_double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
7588 lapack_complex_double
const* B, lapack_int
const* ldb,
7589 lapack_complex_double* X, lapack_int
const* ldx,
7593 lapack_complex_double* work, lapack_int
const* lwork,
7596 #ifdef LAPACK_FORTRAN_STRLEN_END
7600 #ifdef LAPACK_FORTRAN_STRLEN_END
7601 #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__, 1, 1)
7603 #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__)
7606 #define LAPACK_chesvxx_base LAPACK_GLOBAL(chesvxx,CHESVXX)
7607 void LAPACK_chesvxx_base(
7608 char const* fact,
char const* uplo,
7609 lapack_int
const* n, lapack_int
const* nrhs,
7610 lapack_complex_float* A, lapack_int
const* lda,
7611 lapack_complex_float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
7613 lapack_complex_float* B,
7614 lapack_int
const* ldb,
7615 lapack_complex_float* X, lapack_int
const* ldx,
7618 float* berr, lapack_int
const* n_err_bnds,
7619 float* err_bnds_norm,
7620 float* err_bnds_comp, lapack_int
const* nparams,
7622 lapack_complex_float* work,
7625 #ifdef LAPACK_FORTRAN_STRLEN_END
7626 ,
size_t,
size_t,
size_t
7629 #ifdef LAPACK_FORTRAN_STRLEN_END
7630 #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__, 1, 1, 1)
7632 #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__)
7635 #define LAPACK_zhesvxx_base LAPACK_GLOBAL(zhesvxx,ZHESVXX)
7636 void LAPACK_zhesvxx_base(
7637 char const* fact,
char const* uplo,
7638 lapack_int
const* n, lapack_int
const* nrhs,
7639 lapack_complex_double* A, lapack_int
const* lda,
7640 lapack_complex_double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
7642 lapack_complex_double* B,
7643 lapack_int
const* ldb,
7644 lapack_complex_double* X, lapack_int
const* ldx,
7647 double* berr, lapack_int
const* n_err_bnds,
7648 double* err_bnds_norm,
7649 double* err_bnds_comp, lapack_int
const* nparams,
7651 lapack_complex_double* work,
7654 #ifdef LAPACK_FORTRAN_STRLEN_END
7655 ,
size_t,
size_t,
size_t
7658 #ifdef LAPACK_FORTRAN_STRLEN_END
7659 #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__, 1, 1, 1)
7661 #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__)
7664 #define LAPACK_cheswapr_base LAPACK_GLOBAL(cheswapr,CHESWAPR)
7665 void LAPACK_cheswapr_base(
7667 lapack_int
const* n,
7668 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* i1, lapack_int
const* i2
7669 #ifdef LAPACK_FORTRAN_STRLEN_END
7673 #ifdef LAPACK_FORTRAN_STRLEN_END
7674 #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__, 1)
7676 #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__)
7679 #define LAPACK_zheswapr_base LAPACK_GLOBAL(zheswapr,ZHESWAPR)
7680 void LAPACK_zheswapr_base(
7682 lapack_int
const* n,
7683 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* i1, lapack_int
const* i2
7684 #ifdef LAPACK_FORTRAN_STRLEN_END
7688 #ifdef LAPACK_FORTRAN_STRLEN_END
7689 #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__, 1)
7691 #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__)
7694 #define LAPACK_chetrd_base LAPACK_GLOBAL(chetrd,CHETRD)
7695 void LAPACK_chetrd_base(
7697 lapack_int
const* n,
7698 lapack_complex_float* A, lapack_int
const* lda,
7701 lapack_complex_float* tau,
7702 lapack_complex_float* work, lapack_int
const* lwork,
7704 #ifdef LAPACK_FORTRAN_STRLEN_END
7708 #ifdef LAPACK_FORTRAN_STRLEN_END
7709 #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__, 1)
7711 #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__)
7714 #define LAPACK_zhetrd_base LAPACK_GLOBAL(zhetrd,ZHETRD)
7715 void LAPACK_zhetrd_base(
7717 lapack_int
const* n,
7718 lapack_complex_double* A, lapack_int
const* lda,
7721 lapack_complex_double* tau,
7722 lapack_complex_double* work, lapack_int
const* lwork,
7724 #ifdef LAPACK_FORTRAN_STRLEN_END
7728 #ifdef LAPACK_FORTRAN_STRLEN_END
7729 #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__, 1)
7731 #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__)
7734 #define LAPACK_chetrd_2stage_base LAPACK_GLOBAL(chetrd_2stage,CHETRD_2STAGE)
7735 void LAPACK_chetrd_2stage_base(
7736 char const* vect,
char const* uplo,
7737 lapack_int
const* n,
7738 lapack_complex_float* A, lapack_int
const* lda,
7741 lapack_complex_float* tau,
7742 lapack_complex_float* HOUS2, lapack_int
const* lhous2,
7743 lapack_complex_float* work, lapack_int
const* lwork,
7745 #ifdef LAPACK_FORTRAN_STRLEN_END
7749 #ifdef LAPACK_FORTRAN_STRLEN_END
7750 #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__, 1, 1)
7752 #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__)
7755 #define LAPACK_zhetrd_2stage_base LAPACK_GLOBAL(zhetrd_2stage,ZHETRD_2STAGE)
7756 void LAPACK_zhetrd_2stage_base(
7757 char const* vect,
char const* uplo,
7758 lapack_int
const* n,
7759 lapack_complex_double* A, lapack_int
const* lda,
7762 lapack_complex_double* tau,
7763 lapack_complex_double* HOUS2, lapack_int
const* lhous2,
7764 lapack_complex_double* work, lapack_int
const* lwork,
7766 #ifdef LAPACK_FORTRAN_STRLEN_END
7770 #ifdef LAPACK_FORTRAN_STRLEN_END
7771 #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__, 1, 1)
7773 #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__)
7776 #define LAPACK_chetrf_base LAPACK_GLOBAL(chetrf,CHETRF)
7777 void LAPACK_chetrf_base(
7779 lapack_int
const* n,
7780 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
7781 lapack_complex_float* work, lapack_int
const* lwork,
7783 #ifdef LAPACK_FORTRAN_STRLEN_END
7787 #ifdef LAPACK_FORTRAN_STRLEN_END
7788 #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__, 1)
7790 #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__)
7793 #define LAPACK_zhetrf_base LAPACK_GLOBAL(zhetrf,ZHETRF)
7794 void LAPACK_zhetrf_base(
7796 lapack_int
const* n,
7797 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
7798 lapack_complex_double* work, lapack_int
const* lwork,
7800 #ifdef LAPACK_FORTRAN_STRLEN_END
7804 #ifdef LAPACK_FORTRAN_STRLEN_END
7805 #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__, 1)
7807 #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__)
7810 #define LAPACK_chetrf_aa_base LAPACK_GLOBAL(chetrf_aa,CHETRF_AA)
7811 void LAPACK_chetrf_aa_base(
7813 lapack_int
const* n,
7814 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
7815 lapack_complex_float* work, lapack_int
const* lwork,
7817 #ifdef LAPACK_FORTRAN_STRLEN_END
7821 #ifdef LAPACK_FORTRAN_STRLEN_END
7822 #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__, 1)
7824 #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__)
7827 #define LAPACK_zhetrf_aa_base LAPACK_GLOBAL(zhetrf_aa,ZHETRF_AA)
7828 void LAPACK_zhetrf_aa_base(
7830 lapack_int
const* n,
7831 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
7832 lapack_complex_double* work, lapack_int
const* lwork,
7834 #ifdef LAPACK_FORTRAN_STRLEN_END
7838 #ifdef LAPACK_FORTRAN_STRLEN_END
7839 #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__, 1)
7841 #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__)
7844 #define LAPACK_chetrf_aa_2stage_base LAPACK_GLOBAL(chetrf_aa_2stage,CHETRF_AA_2STAGE)
7845 void LAPACK_chetrf_aa_2stage_base(
7847 lapack_int
const* n,
7848 lapack_complex_float* A, lapack_int
const* lda,
7849 lapack_complex_float* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7850 lapack_complex_float* work, lapack_int
const* lwork,
7852 #ifdef LAPACK_FORTRAN_STRLEN_END
7856 #ifdef LAPACK_FORTRAN_STRLEN_END
7857 #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__, 1)
7859 #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__)
7862 #define LAPACK_zhetrf_aa_2stage_base LAPACK_GLOBAL(zhetrf_aa_2stage,ZHETRF_AA_2STAGE)
7863 void LAPACK_zhetrf_aa_2stage_base(
7865 lapack_int
const* n,
7866 lapack_complex_double* A, lapack_int
const* lda,
7867 lapack_complex_double* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7868 lapack_complex_double* work, lapack_int
const* lwork,
7870 #ifdef LAPACK_FORTRAN_STRLEN_END
7874 #ifdef LAPACK_FORTRAN_STRLEN_END
7875 #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__, 1)
7877 #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__)
7880 #define LAPACK_chetrf_rk_base LAPACK_GLOBAL(chetrf_rk,CHETRF_RK)
7881 void LAPACK_chetrf_rk_base(
7883 lapack_int
const* n,
7884 lapack_complex_float* A, lapack_int
const* lda,
7885 lapack_complex_float* E, lapack_int* ipiv,
7886 lapack_complex_float* work, lapack_int
const* lwork,
7888 #ifdef LAPACK_FORTRAN_STRLEN_END
7892 #ifdef LAPACK_FORTRAN_STRLEN_END
7893 #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__, 1)
7895 #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__)
7898 #define LAPACK_zhetrf_rk_base LAPACK_GLOBAL(zhetrf_rk,ZHETRF_RK)
7899 void LAPACK_zhetrf_rk_base(
7901 lapack_int
const* n,
7902 lapack_complex_double* A, lapack_int
const* lda,
7903 lapack_complex_double* E, lapack_int* ipiv,
7904 lapack_complex_double* work, lapack_int
const* lwork,
7906 #ifdef LAPACK_FORTRAN_STRLEN_END
7910 #ifdef LAPACK_FORTRAN_STRLEN_END
7911 #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__, 1)
7913 #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__)
7916 #define LAPACK_chetrf_rook_base LAPACK_GLOBAL(chetrf_rook,CHETRF_ROOK)
7917 void LAPACK_chetrf_rook_base(
7919 lapack_int
const* n,
7920 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
7921 lapack_complex_float* work, lapack_int
const* lwork,
7923 #ifdef LAPACK_FORTRAN_STRLEN_END
7927 #ifdef LAPACK_FORTRAN_STRLEN_END
7928 #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__, 1)
7930 #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__)
7933 #define LAPACK_zhetrf_rook_base LAPACK_GLOBAL(zhetrf_rook,ZHETRF_ROOK)
7934 void LAPACK_zhetrf_rook_base(
7936 lapack_int
const* n,
7937 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
7938 lapack_complex_double* work, lapack_int
const* lwork,
7940 #ifdef LAPACK_FORTRAN_STRLEN_END
7944 #ifdef LAPACK_FORTRAN_STRLEN_END
7945 #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__, 1)
7947 #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__)
7950 #define LAPACK_chetri_base LAPACK_GLOBAL(chetri,CHETRI)
7951 void LAPACK_chetri_base(
7953 lapack_int
const* n,
7954 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
7955 lapack_complex_float* work,
7957 #ifdef LAPACK_FORTRAN_STRLEN_END
7961 #ifdef LAPACK_FORTRAN_STRLEN_END
7962 #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__, 1)
7964 #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__)
7967 #define LAPACK_zhetri_base LAPACK_GLOBAL(zhetri,ZHETRI)
7968 void LAPACK_zhetri_base(
7970 lapack_int
const* n,
7971 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
7972 lapack_complex_double* work,
7974 #ifdef LAPACK_FORTRAN_STRLEN_END
7978 #ifdef LAPACK_FORTRAN_STRLEN_END
7979 #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__, 1)
7981 #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__)
7984 #define LAPACK_chetri2_base LAPACK_GLOBAL(chetri2,CHETRI2)
7985 void LAPACK_chetri2_base(
7987 lapack_int
const* n,
7988 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
7989 lapack_complex_float* work, lapack_int
const* lwork,
7991 #ifdef LAPACK_FORTRAN_STRLEN_END
7995 #ifdef LAPACK_FORTRAN_STRLEN_END
7996 #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__, 1)
7998 #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__)
8001 #define LAPACK_zhetri2_base LAPACK_GLOBAL(zhetri2,ZHETRI2)
8002 void LAPACK_zhetri2_base(
8004 lapack_int
const* n,
8005 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
8006 lapack_complex_double* work, lapack_int
const* lwork,
8008 #ifdef LAPACK_FORTRAN_STRLEN_END
8012 #ifdef LAPACK_FORTRAN_STRLEN_END
8013 #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__, 1)
8015 #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__)
8018 #define LAPACK_chetri2x_base LAPACK_GLOBAL(chetri2x,CHETRI2X)
8019 void LAPACK_chetri2x_base(
8021 lapack_int
const* n,
8022 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
8023 lapack_complex_float* work, lapack_int
const* nb,
8025 #ifdef LAPACK_FORTRAN_STRLEN_END
8029 #ifdef LAPACK_FORTRAN_STRLEN_END
8030 #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__, 1)
8032 #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__)
8035 #define LAPACK_zhetri2x_base LAPACK_GLOBAL(zhetri2x,ZHETRI2X)
8036 void LAPACK_zhetri2x_base(
8038 lapack_int
const* n,
8039 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
8040 lapack_complex_double* work, lapack_int
const* nb,
8042 #ifdef LAPACK_FORTRAN_STRLEN_END
8046 #ifdef LAPACK_FORTRAN_STRLEN_END
8047 #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__, 1)
8049 #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__)
8052 #define LAPACK_chetri_3_base LAPACK_GLOBAL(chetri_3,CHETRI_3)
8053 void LAPACK_chetri_3_base(
8055 lapack_int
const* n,
8056 lapack_complex_float* A, lapack_int
const* lda,
8057 lapack_complex_float
const* E, lapack_int
const* ipiv,
8058 lapack_complex_float* work, lapack_int
const* lwork,
8060 #ifdef LAPACK_FORTRAN_STRLEN_END
8064 #ifdef LAPACK_FORTRAN_STRLEN_END
8065 #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__, 1)
8067 #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__)
8070 #define LAPACK_zhetri_3_base LAPACK_GLOBAL(zhetri_3,ZHETRI_3)
8071 void LAPACK_zhetri_3_base(
8073 lapack_int
const* n,
8074 lapack_complex_double* A, lapack_int
const* lda,
8075 lapack_complex_double
const* E, lapack_int
const* ipiv,
8076 lapack_complex_double* work, lapack_int
const* lwork,
8078 #ifdef LAPACK_FORTRAN_STRLEN_END
8082 #ifdef LAPACK_FORTRAN_STRLEN_END
8083 #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__, 1)
8085 #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__)
8088 #define LAPACK_chetrs_base LAPACK_GLOBAL(chetrs,CHETRS)
8089 void LAPACK_chetrs_base(
8091 lapack_int
const* n, lapack_int
const* nrhs,
8092 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
8093 lapack_complex_float* B, lapack_int
const* ldb,
8095 #ifdef LAPACK_FORTRAN_STRLEN_END
8099 #ifdef LAPACK_FORTRAN_STRLEN_END
8100 #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__, 1)
8102 #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__)
8105 #define LAPACK_zhetrs_base LAPACK_GLOBAL(zhetrs,ZHETRS)
8106 void LAPACK_zhetrs_base(
8108 lapack_int
const* n, lapack_int
const* nrhs,
8109 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
8110 lapack_complex_double* B, lapack_int
const* ldb,
8112 #ifdef LAPACK_FORTRAN_STRLEN_END
8116 #ifdef LAPACK_FORTRAN_STRLEN_END
8117 #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__, 1)
8119 #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__)
8122 #define LAPACK_chetrs2_base LAPACK_GLOBAL(chetrs2,CHETRS2)
8123 void LAPACK_chetrs2_base(
8125 lapack_int
const* n, lapack_int
const* nrhs,
8126 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
8127 lapack_complex_float* B, lapack_int
const* ldb,
8128 lapack_complex_float* work,
8130 #ifdef LAPACK_FORTRAN_STRLEN_END
8134 #ifdef LAPACK_FORTRAN_STRLEN_END
8135 #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__, 1)
8137 #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__)
8140 #define LAPACK_zhetrs2_base LAPACK_GLOBAL(zhetrs2,ZHETRS2)
8141 void LAPACK_zhetrs2_base(
8143 lapack_int
const* n, lapack_int
const* nrhs,
8144 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
8145 lapack_complex_double* B, lapack_int
const* ldb,
8146 lapack_complex_double* work,
8148 #ifdef LAPACK_FORTRAN_STRLEN_END
8152 #ifdef LAPACK_FORTRAN_STRLEN_END
8153 #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__, 1)
8155 #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__)
8158 #define LAPACK_chetrs_3_base LAPACK_GLOBAL(chetrs_3,CHETRS_3)
8159 void LAPACK_chetrs_3_base(
8161 lapack_int
const* n, lapack_int
const* nrhs,
8162 lapack_complex_float
const* A, lapack_int
const* lda,
8163 lapack_complex_float
const* E, lapack_int
const* ipiv,
8164 lapack_complex_float* B, lapack_int
const* ldb,
8166 #ifdef LAPACK_FORTRAN_STRLEN_END
8170 #ifdef LAPACK_FORTRAN_STRLEN_END
8171 #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__, 1)
8173 #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__)
8176 #define LAPACK_zhetrs_3_base LAPACK_GLOBAL(zhetrs_3,ZHETRS_3)
8177 void LAPACK_zhetrs_3_base(
8179 lapack_int
const* n, lapack_int
const* nrhs,
8180 lapack_complex_double
const* A, lapack_int
const* lda,
8181 lapack_complex_double
const* E, lapack_int
const* ipiv,
8182 lapack_complex_double* B, lapack_int
const* ldb,
8184 #ifdef LAPACK_FORTRAN_STRLEN_END
8188 #ifdef LAPACK_FORTRAN_STRLEN_END
8189 #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__, 1)
8191 #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__)
8194 #define LAPACK_chetrs_aa_base LAPACK_GLOBAL(chetrs_aa,CHETRS_AA)
8195 void LAPACK_chetrs_aa_base(
8197 lapack_int
const* n, lapack_int
const* nrhs,
8198 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
8199 lapack_complex_float* B, lapack_int
const* ldb,
8200 lapack_complex_float* work, lapack_int
const* lwork,
8202 #ifdef LAPACK_FORTRAN_STRLEN_END
8206 #ifdef LAPACK_FORTRAN_STRLEN_END
8207 #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__, 1)
8209 #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__)
8212 #define LAPACK_zhetrs_aa_base LAPACK_GLOBAL(zhetrs_aa,ZHETRS_AA)
8213 void LAPACK_zhetrs_aa_base(
8215 lapack_int
const* n, lapack_int
const* nrhs,
8216 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
8217 lapack_complex_double* B, lapack_int
const* ldb,
8218 lapack_complex_double* work, lapack_int
const* lwork,
8220 #ifdef LAPACK_FORTRAN_STRLEN_END
8224 #ifdef LAPACK_FORTRAN_STRLEN_END
8225 #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__, 1)
8227 #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__)
8230 #define LAPACK_chetrs_aa_2stage_base LAPACK_GLOBAL(chetrs_aa_2stage,CHETRS_AA_2STAGE)
8231 void LAPACK_chetrs_aa_2stage_base(
8233 lapack_int
const* n, lapack_int
const* nrhs,
8234 lapack_complex_float
const* A, lapack_int
const* lda,
8235 lapack_complex_float* TB, lapack_int
const* ltb, lapack_int
const* ipiv, lapack_int
const* ipiv2,
8236 lapack_complex_float* B, lapack_int
const* ldb,
8238 #ifdef LAPACK_FORTRAN_STRLEN_END
8242 #ifdef LAPACK_FORTRAN_STRLEN_END
8243 #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__, 1)
8245 #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__)
8248 #define LAPACK_zhetrs_aa_2stage_base LAPACK_GLOBAL(zhetrs_aa_2stage,ZHETRS_AA_2STAGE)
8249 void LAPACK_zhetrs_aa_2stage_base(
8251 lapack_int
const* n, lapack_int
const* nrhs,
8252 lapack_complex_double
const* A, lapack_int
const* lda,
8253 lapack_complex_double* TB, lapack_int
const* ltb, lapack_int
const* ipiv, lapack_int
const* ipiv2,
8254 lapack_complex_double* B, lapack_int
const* ldb,
8256 #ifdef LAPACK_FORTRAN_STRLEN_END
8260 #ifdef LAPACK_FORTRAN_STRLEN_END
8261 #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__, 1)
8263 #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__)
8266 #define LAPACK_chetrs_rook_base LAPACK_GLOBAL(chetrs_rook,CHETRS_ROOK)
8267 void LAPACK_chetrs_rook_base(
8269 lapack_int
const* n, lapack_int
const* nrhs,
8270 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
8271 lapack_complex_float* B, lapack_int
const* ldb,
8273 #ifdef LAPACK_FORTRAN_STRLEN_END
8277 #ifdef LAPACK_FORTRAN_STRLEN_END
8278 #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__, 1)
8280 #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__)
8283 #define LAPACK_zhetrs_rook_base LAPACK_GLOBAL(zhetrs_rook,ZHETRS_ROOK)
8284 void LAPACK_zhetrs_rook_base(
8286 lapack_int
const* n, lapack_int
const* nrhs,
8287 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
8288 lapack_complex_double* B, lapack_int
const* ldb,
8290 #ifdef LAPACK_FORTRAN_STRLEN_END
8294 #ifdef LAPACK_FORTRAN_STRLEN_END
8295 #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__, 1)
8297 #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__)
8300 #define LAPACK_chfrk_base LAPACK_GLOBAL(chfrk,CHFRK)
8301 void LAPACK_chfrk_base(
8302 char const* transr,
char const* uplo,
char const* trans,
8303 lapack_int
const* n, lapack_int
const* k,
8305 lapack_complex_float
const* A, lapack_int
const* lda,
8307 lapack_complex_float* C
8308 #ifdef LAPACK_FORTRAN_STRLEN_END
8309 ,
size_t,
size_t,
size_t
8312 #ifdef LAPACK_FORTRAN_STRLEN_END
8313 #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__, 1, 1, 1)
8315 #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__)
8318 #define LAPACK_zhfrk_base LAPACK_GLOBAL(zhfrk,ZHFRK)
8319 void LAPACK_zhfrk_base(
8320 char const* transr,
char const* uplo,
char const* trans,
8321 lapack_int
const* n, lapack_int
const* k,
8322 double const* alpha,
8323 lapack_complex_double
const* A, lapack_int
const* lda,
8325 lapack_complex_double* C
8326 #ifdef LAPACK_FORTRAN_STRLEN_END
8327 ,
size_t,
size_t,
size_t
8330 #ifdef LAPACK_FORTRAN_STRLEN_END
8331 #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__, 1, 1, 1)
8333 #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__)
8336 #define LAPACK_chgeqz_base LAPACK_GLOBAL(chgeqz,CHGEQZ)
8337 void LAPACK_chgeqz_base(
8338 char const* job,
char const* compq,
char const* compz,
8339 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
8340 lapack_complex_float* H, lapack_int
const* ldh,
8341 lapack_complex_float* T, lapack_int
const* ldt,
8342 lapack_complex_float* alpha,
8343 lapack_complex_float* beta,
8344 lapack_complex_float* Q, lapack_int
const* ldq,
8345 lapack_complex_float* Z, lapack_int
const* ldz,
8346 lapack_complex_float* work, lapack_int
const* lwork,
8349 #ifdef LAPACK_FORTRAN_STRLEN_END
8350 ,
size_t,
size_t,
size_t
8353 #ifdef LAPACK_FORTRAN_STRLEN_END
8354 #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__, 1, 1, 1)
8356 #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__)
8359 #define LAPACK_dhgeqz_base LAPACK_GLOBAL(dhgeqz,DHGEQZ)
8360 void LAPACK_dhgeqz_base(
8361 char const* job,
char const* compq,
char const* compz,
8362 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
8363 double* H, lapack_int
const* ldh,
8364 double* T, lapack_int
const* ldt,
8368 double* Q, lapack_int
const* ldq,
8369 double* Z, lapack_int
const* ldz,
8370 double* work, lapack_int
const* lwork,
8372 #ifdef LAPACK_FORTRAN_STRLEN_END
8373 ,
size_t,
size_t,
size_t
8376 #ifdef LAPACK_FORTRAN_STRLEN_END
8377 #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__, 1, 1, 1)
8379 #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__)
8382 #define LAPACK_shgeqz_base LAPACK_GLOBAL(shgeqz,SHGEQZ)
8383 void LAPACK_shgeqz_base(
8384 char const* job,
char const* compq,
char const* compz,
8385 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
8386 float* H, lapack_int
const* ldh,
8387 float* T, lapack_int
const* ldt,
8391 float* Q, lapack_int
const* ldq,
8392 float* Z, lapack_int
const* ldz,
8393 float* work, lapack_int
const* lwork,
8395 #ifdef LAPACK_FORTRAN_STRLEN_END
8396 ,
size_t,
size_t,
size_t
8399 #ifdef LAPACK_FORTRAN_STRLEN_END
8400 #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__, 1, 1, 1)
8402 #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__)
8405 #define LAPACK_zhgeqz_base LAPACK_GLOBAL(zhgeqz,ZHGEQZ)
8406 void LAPACK_zhgeqz_base(
8407 char const* job,
char const* compq,
char const* compz,
8408 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
8409 lapack_complex_double* H, lapack_int
const* ldh,
8410 lapack_complex_double* T, lapack_int
const* ldt,
8411 lapack_complex_double* alpha,
8412 lapack_complex_double* beta,
8413 lapack_complex_double* Q, lapack_int
const* ldq,
8414 lapack_complex_double* Z, lapack_int
const* ldz,
8415 lapack_complex_double* work, lapack_int
const* lwork,
8418 #ifdef LAPACK_FORTRAN_STRLEN_END
8419 ,
size_t,
size_t,
size_t
8422 #ifdef LAPACK_FORTRAN_STRLEN_END
8423 #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__, 1, 1, 1)
8425 #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__)
8428 #define LAPACK_chpcon_base LAPACK_GLOBAL(chpcon,CHPCON)
8429 void LAPACK_chpcon_base(
8431 lapack_int
const* n,
8432 lapack_complex_float
const* AP, lapack_int
const* ipiv,
8435 lapack_complex_float* work,
8437 #ifdef LAPACK_FORTRAN_STRLEN_END
8441 #ifdef LAPACK_FORTRAN_STRLEN_END
8442 #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__, 1)
8444 #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__)
8447 #define LAPACK_zhpcon_base LAPACK_GLOBAL(zhpcon,ZHPCON)
8448 void LAPACK_zhpcon_base(
8450 lapack_int
const* n,
8451 lapack_complex_double
const* AP, lapack_int
const* ipiv,
8452 double const* anorm,
8454 lapack_complex_double* work,
8456 #ifdef LAPACK_FORTRAN_STRLEN_END
8460 #ifdef LAPACK_FORTRAN_STRLEN_END
8461 #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__, 1)
8463 #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__)
8466 #define LAPACK_chpev_base LAPACK_GLOBAL(chpev,CHPEV)
8467 void LAPACK_chpev_base(
8468 char const* jobz,
char const* uplo,
8469 lapack_int
const* n,
8470 lapack_complex_float* AP,
8472 lapack_complex_float* Z, lapack_int
const* ldz,
8473 lapack_complex_float* work,
8476 #ifdef LAPACK_FORTRAN_STRLEN_END
8480 #ifdef LAPACK_FORTRAN_STRLEN_END
8481 #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__, 1, 1)
8483 #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__)
8486 #define LAPACK_zhpev_base LAPACK_GLOBAL(zhpev,ZHPEV)
8487 void LAPACK_zhpev_base(
8488 char const* jobz,
char const* uplo,
8489 lapack_int
const* n,
8490 lapack_complex_double* AP,
8492 lapack_complex_double* Z, lapack_int
const* ldz,
8493 lapack_complex_double* work,
8496 #ifdef LAPACK_FORTRAN_STRLEN_END
8500 #ifdef LAPACK_FORTRAN_STRLEN_END
8501 #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__, 1, 1)
8503 #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__)
8506 #define LAPACK_chpevd_base LAPACK_GLOBAL(chpevd,CHPEVD)
8507 void LAPACK_chpevd_base(
8508 char const* jobz,
char const* uplo,
8509 lapack_int
const* n,
8510 lapack_complex_float* AP,
8512 lapack_complex_float* Z, lapack_int
const* ldz,
8513 lapack_complex_float* work, lapack_int
const* lwork,
8514 float* rwork, lapack_int
const* lrwork,
8515 lapack_int* iwork, lapack_int
const* liwork,
8517 #ifdef LAPACK_FORTRAN_STRLEN_END
8521 #ifdef LAPACK_FORTRAN_STRLEN_END
8522 #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__, 1, 1)
8524 #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__)
8527 #define LAPACK_zhpevd_base LAPACK_GLOBAL(zhpevd,ZHPEVD)
8528 void LAPACK_zhpevd_base(
8529 char const* jobz,
char const* uplo,
8530 lapack_int
const* n,
8531 lapack_complex_double* AP,
8533 lapack_complex_double* Z, lapack_int
const* ldz,
8534 lapack_complex_double* work, lapack_int
const* lwork,
8535 double* rwork, lapack_int
const* lrwork,
8536 lapack_int* iwork, lapack_int
const* liwork,
8538 #ifdef LAPACK_FORTRAN_STRLEN_END
8542 #ifdef LAPACK_FORTRAN_STRLEN_END
8543 #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__, 1, 1)
8545 #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__)
8548 #define LAPACK_chpevx_base LAPACK_GLOBAL(chpevx,CHPEVX)
8549 void LAPACK_chpevx_base(
8550 char const* jobz,
char const* range,
char const* uplo,
8551 lapack_int
const* n,
8552 lapack_complex_float* AP,
8554 float const* vu, lapack_int
const* il, lapack_int
const* iu,
8555 float const* abstol, lapack_int* m,
8557 lapack_complex_float* Z, lapack_int
const* ldz,
8558 lapack_complex_float* work,
8560 lapack_int* iwork, lapack_int* IFAIL,
8562 #ifdef LAPACK_FORTRAN_STRLEN_END
8563 ,
size_t,
size_t,
size_t
8566 #ifdef LAPACK_FORTRAN_STRLEN_END
8567 #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__, 1, 1, 1)
8569 #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__)
8572 #define LAPACK_zhpevx_base LAPACK_GLOBAL(zhpevx,ZHPEVX)
8573 void LAPACK_zhpevx_base(
8574 char const* jobz,
char const* range,
char const* uplo,
8575 lapack_int
const* n,
8576 lapack_complex_double* AP,
8578 double const* vu, lapack_int
const* il, lapack_int
const* iu,
8579 double const* abstol, lapack_int* m,
8581 lapack_complex_double* Z, lapack_int
const* ldz,
8582 lapack_complex_double* work,
8584 lapack_int* iwork, lapack_int* IFAIL,
8586 #ifdef LAPACK_FORTRAN_STRLEN_END
8587 ,
size_t,
size_t,
size_t
8590 #ifdef LAPACK_FORTRAN_STRLEN_END
8591 #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__, 1, 1, 1)
8593 #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__)
8596 #define LAPACK_chpgst_base LAPACK_GLOBAL(chpgst,CHPGST)
8597 void LAPACK_chpgst_base(
8598 lapack_int
const* itype,
char const* uplo,
8599 lapack_int
const* n,
8600 lapack_complex_float* AP,
8601 lapack_complex_float
const* BP,
8603 #ifdef LAPACK_FORTRAN_STRLEN_END
8607 #ifdef LAPACK_FORTRAN_STRLEN_END
8608 #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__, 1)
8610 #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__)
8613 #define LAPACK_zhpgst_base LAPACK_GLOBAL(zhpgst,ZHPGST)
8614 void LAPACK_zhpgst_base(
8615 lapack_int
const* itype,
char const* uplo,
8616 lapack_int
const* n,
8617 lapack_complex_double* AP,
8618 lapack_complex_double
const* BP,
8620 #ifdef LAPACK_FORTRAN_STRLEN_END
8624 #ifdef LAPACK_FORTRAN_STRLEN_END
8625 #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__, 1)
8627 #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__)
8630 #define LAPACK_chpgv_base LAPACK_GLOBAL(chpgv,CHPGV)
8631 void LAPACK_chpgv_base(
8632 lapack_int
const* itype,
char const* jobz,
char const* uplo,
8633 lapack_int
const* n,
8634 lapack_complex_float* AP,
8635 lapack_complex_float* BP,
8637 lapack_complex_float* Z, lapack_int
const* ldz,
8638 lapack_complex_float* work,
8641 #ifdef LAPACK_FORTRAN_STRLEN_END
8645 #ifdef LAPACK_FORTRAN_STRLEN_END
8646 #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__, 1, 1)
8648 #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__)
8651 #define LAPACK_zhpgv_base LAPACK_GLOBAL(zhpgv,ZHPGV)
8652 void LAPACK_zhpgv_base(
8653 lapack_int
const* itype,
char const* jobz,
char const* uplo,
8654 lapack_int
const* n,
8655 lapack_complex_double* AP,
8656 lapack_complex_double* BP,
8658 lapack_complex_double* Z, lapack_int
const* ldz,
8659 lapack_complex_double* work,
8662 #ifdef LAPACK_FORTRAN_STRLEN_END
8666 #ifdef LAPACK_FORTRAN_STRLEN_END
8667 #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__, 1, 1)
8669 #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__)
8672 #define LAPACK_chpgvd_base LAPACK_GLOBAL(chpgvd,CHPGVD)
8673 void LAPACK_chpgvd_base(
8674 lapack_int
const* itype,
char const* jobz,
char const* uplo,
8675 lapack_int
const* n,
8676 lapack_complex_float* AP,
8677 lapack_complex_float* BP,
8679 lapack_complex_float* Z, lapack_int
const* ldz,
8680 lapack_complex_float* work, lapack_int
const* lwork,
8681 float* rwork, lapack_int
const* lrwork,
8682 lapack_int* iwork, lapack_int
const* liwork,
8684 #ifdef LAPACK_FORTRAN_STRLEN_END
8688 #ifdef LAPACK_FORTRAN_STRLEN_END
8689 #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__, 1, 1)
8691 #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__)
8694 #define LAPACK_zhpgvd_base LAPACK_GLOBAL(zhpgvd,ZHPGVD)
8695 void LAPACK_zhpgvd_base(
8696 lapack_int
const* itype,
char const* jobz,
char const* uplo,
8697 lapack_int
const* n,
8698 lapack_complex_double* AP,
8699 lapack_complex_double* BP,
8701 lapack_complex_double* Z, lapack_int
const* ldz,
8702 lapack_complex_double* work, lapack_int
const* lwork,
8703 double* rwork, lapack_int
const* lrwork,
8704 lapack_int* iwork, lapack_int
const* liwork,
8706 #ifdef LAPACK_FORTRAN_STRLEN_END
8710 #ifdef LAPACK_FORTRAN_STRLEN_END
8711 #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__, 1, 1)
8713 #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__)
8716 #define LAPACK_chpgvx_base LAPACK_GLOBAL(chpgvx,CHPGVX)
8717 void LAPACK_chpgvx_base(
8718 lapack_int
const* itype,
char const* jobz,
char const* range,
char const* uplo,
8719 lapack_int
const* n,
8720 lapack_complex_float* AP,
8721 lapack_complex_float* BP,
8723 float const* vu, lapack_int
const* il, lapack_int
const* iu,
8724 float const* abstol, lapack_int* m,
8726 lapack_complex_float* Z, lapack_int
const* ldz,
8727 lapack_complex_float* work,
8729 lapack_int* iwork, lapack_int* IFAIL,
8731 #ifdef LAPACK_FORTRAN_STRLEN_END
8732 ,
size_t,
size_t,
size_t
8735 #ifdef LAPACK_FORTRAN_STRLEN_END
8736 #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__, 1, 1, 1)
8738 #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__)
8741 #define LAPACK_zhpgvx_base LAPACK_GLOBAL(zhpgvx,ZHPGVX)
8742 void LAPACK_zhpgvx_base(
8743 lapack_int
const* itype,
char const* jobz,
char const* range,
char const* uplo,
8744 lapack_int
const* n,
8745 lapack_complex_double* AP,
8746 lapack_complex_double* BP,
8748 double const* vu, lapack_int
const* il, lapack_int
const* iu,
8749 double const* abstol, lapack_int* m,
8751 lapack_complex_double* Z, lapack_int
const* ldz,
8752 lapack_complex_double* work,
8754 lapack_int* iwork, lapack_int* IFAIL,
8756 #ifdef LAPACK_FORTRAN_STRLEN_END
8757 ,
size_t,
size_t,
size_t
8760 #ifdef LAPACK_FORTRAN_STRLEN_END
8761 #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__, 1, 1, 1)
8763 #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__)
8766 #define LAPACK_chprfs_base LAPACK_GLOBAL(chprfs,CHPRFS)
8767 void LAPACK_chprfs_base(
8769 lapack_int
const* n, lapack_int
const* nrhs,
8770 lapack_complex_float
const* AP,
8771 lapack_complex_float
const* AFP, lapack_int
const* ipiv,
8772 lapack_complex_float
const* B, lapack_int
const* ldb,
8773 lapack_complex_float* X, lapack_int
const* ldx,
8776 lapack_complex_float* work,
8779 #ifdef LAPACK_FORTRAN_STRLEN_END
8783 #ifdef LAPACK_FORTRAN_STRLEN_END
8784 #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__, 1)
8786 #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__)
8789 #define LAPACK_zhprfs_base LAPACK_GLOBAL(zhprfs,ZHPRFS)
8790 void LAPACK_zhprfs_base(
8792 lapack_int
const* n, lapack_int
const* nrhs,
8793 lapack_complex_double
const* AP,
8794 lapack_complex_double
const* AFP, lapack_int
const* ipiv,
8795 lapack_complex_double
const* B, lapack_int
const* ldb,
8796 lapack_complex_double* X, lapack_int
const* ldx,
8799 lapack_complex_double* work,
8802 #ifdef LAPACK_FORTRAN_STRLEN_END
8806 #ifdef LAPACK_FORTRAN_STRLEN_END
8807 #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__, 1)
8809 #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__)
8812 #define LAPACK_chpsv_base LAPACK_GLOBAL(chpsv,CHPSV)
8813 void LAPACK_chpsv_base(
8815 lapack_int
const* n, lapack_int
const* nrhs,
8816 lapack_complex_float* AP, lapack_int* ipiv,
8817 lapack_complex_float* B, lapack_int
const* ldb,
8819 #ifdef LAPACK_FORTRAN_STRLEN_END
8823 #ifdef LAPACK_FORTRAN_STRLEN_END
8824 #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__, 1)
8826 #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__)
8829 #define LAPACK_zhpsv_base LAPACK_GLOBAL(zhpsv,ZHPSV)
8830 void LAPACK_zhpsv_base(
8832 lapack_int
const* n, lapack_int
const* nrhs,
8833 lapack_complex_double* AP, lapack_int* ipiv,
8834 lapack_complex_double* B, lapack_int
const* ldb,
8836 #ifdef LAPACK_FORTRAN_STRLEN_END
8840 #ifdef LAPACK_FORTRAN_STRLEN_END
8841 #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__, 1)
8843 #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__)
8846 #define LAPACK_chpsvx_base LAPACK_GLOBAL(chpsvx,CHPSVX)
8847 void LAPACK_chpsvx_base(
8848 char const* fact,
char const* uplo,
8849 lapack_int
const* n, lapack_int
const* nrhs,
8850 lapack_complex_float
const* AP,
8851 lapack_complex_float* AFP, lapack_int* ipiv,
8852 lapack_complex_float
const* B, lapack_int
const* ldb,
8853 lapack_complex_float* X, lapack_int
const* ldx,
8857 lapack_complex_float* work,
8860 #ifdef LAPACK_FORTRAN_STRLEN_END
8864 #ifdef LAPACK_FORTRAN_STRLEN_END
8865 #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__, 1, 1)
8867 #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__)
8870 #define LAPACK_zhpsvx_base LAPACK_GLOBAL(zhpsvx,ZHPSVX)
8871 void LAPACK_zhpsvx_base(
8872 char const* fact,
char const* uplo,
8873 lapack_int
const* n, lapack_int
const* nrhs,
8874 lapack_complex_double
const* AP,
8875 lapack_complex_double* AFP, lapack_int* ipiv,
8876 lapack_complex_double
const* B, lapack_int
const* ldb,
8877 lapack_complex_double* X, lapack_int
const* ldx,
8881 lapack_complex_double* work,
8884 #ifdef LAPACK_FORTRAN_STRLEN_END
8888 #ifdef LAPACK_FORTRAN_STRLEN_END
8889 #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__, 1, 1)
8891 #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__)
8894 #define LAPACK_chptrd_base LAPACK_GLOBAL(chptrd,CHPTRD)
8895 void LAPACK_chptrd_base(
8897 lapack_int
const* n,
8898 lapack_complex_float* AP,
8901 lapack_complex_float* tau,
8903 #ifdef LAPACK_FORTRAN_STRLEN_END
8907 #ifdef LAPACK_FORTRAN_STRLEN_END
8908 #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__, 1)
8910 #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__)
8913 #define LAPACK_zhptrd_base LAPACK_GLOBAL(zhptrd,ZHPTRD)
8914 void LAPACK_zhptrd_base(
8916 lapack_int
const* n,
8917 lapack_complex_double* AP,
8920 lapack_complex_double* tau,
8922 #ifdef LAPACK_FORTRAN_STRLEN_END
8926 #ifdef LAPACK_FORTRAN_STRLEN_END
8927 #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__, 1)
8929 #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__)
8932 #define LAPACK_chptrf_base LAPACK_GLOBAL(chptrf,CHPTRF)
8933 void LAPACK_chptrf_base(
8935 lapack_int
const* n,
8936 lapack_complex_float* AP, lapack_int* ipiv,
8938 #ifdef LAPACK_FORTRAN_STRLEN_END
8942 #ifdef LAPACK_FORTRAN_STRLEN_END
8943 #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__, 1)
8945 #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__)
8948 #define LAPACK_zhptrf_base LAPACK_GLOBAL(zhptrf,ZHPTRF)
8949 void LAPACK_zhptrf_base(
8951 lapack_int
const* n,
8952 lapack_complex_double* AP, lapack_int* ipiv,
8954 #ifdef LAPACK_FORTRAN_STRLEN_END
8958 #ifdef LAPACK_FORTRAN_STRLEN_END
8959 #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__, 1)
8961 #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__)
8964 #define LAPACK_chptri_base LAPACK_GLOBAL(chptri,CHPTRI)
8965 void LAPACK_chptri_base(
8967 lapack_int
const* n,
8968 lapack_complex_float* AP, lapack_int
const* ipiv,
8969 lapack_complex_float* work,
8971 #ifdef LAPACK_FORTRAN_STRLEN_END
8975 #ifdef LAPACK_FORTRAN_STRLEN_END
8976 #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__, 1)
8978 #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__)
8981 #define LAPACK_zhptri_base LAPACK_GLOBAL(zhptri,ZHPTRI)
8982 void LAPACK_zhptri_base(
8984 lapack_int
const* n,
8985 lapack_complex_double* AP, lapack_int
const* ipiv,
8986 lapack_complex_double* work,
8988 #ifdef LAPACK_FORTRAN_STRLEN_END
8992 #ifdef LAPACK_FORTRAN_STRLEN_END
8993 #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__, 1)
8995 #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__)
8998 #define LAPACK_chptrs_base LAPACK_GLOBAL(chptrs,CHPTRS)
8999 void LAPACK_chptrs_base(
9001 lapack_int
const* n, lapack_int
const* nrhs,
9002 lapack_complex_float
const* AP, lapack_int
const* ipiv,
9003 lapack_complex_float* B, lapack_int
const* ldb,
9005 #ifdef LAPACK_FORTRAN_STRLEN_END
9009 #ifdef LAPACK_FORTRAN_STRLEN_END
9010 #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__, 1)
9012 #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__)
9015 #define LAPACK_zhptrs_base LAPACK_GLOBAL(zhptrs,ZHPTRS)
9016 void LAPACK_zhptrs_base(
9018 lapack_int
const* n, lapack_int
const* nrhs,
9019 lapack_complex_double
const* AP, lapack_int
const* ipiv,
9020 lapack_complex_double* B, lapack_int
const* ldb,
9022 #ifdef LAPACK_FORTRAN_STRLEN_END
9026 #ifdef LAPACK_FORTRAN_STRLEN_END
9027 #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__, 1)
9029 #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__)
9032 #define LAPACK_chsein_base LAPACK_GLOBAL(chsein,CHSEIN)
9033 void LAPACK_chsein_base(
9034 char const* side,
char const* eigsrc,
char const* initv,
9035 lapack_logical
const* select,
9036 lapack_int
const* n,
9037 lapack_complex_float
const* H, lapack_int
const* ldh,
9038 lapack_complex_float* W,
9039 lapack_complex_float* VL, lapack_int
const* ldvl,
9040 lapack_complex_float* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
9041 lapack_complex_float* work,
9042 float* rwork, lapack_int* IFAILL, lapack_int* IFAILR,
9044 #ifdef LAPACK_FORTRAN_STRLEN_END
9045 ,
size_t,
size_t,
size_t
9048 #ifdef LAPACK_FORTRAN_STRLEN_END
9049 #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__, 1, 1, 1)
9051 #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__)
9054 #define LAPACK_dhsein_base LAPACK_GLOBAL(dhsein,DHSEIN)
9055 void LAPACK_dhsein_base(
9056 char const* side,
char const* eigsrc,
char const* initv,
9057 lapack_logical* select,
9058 lapack_int
const* n,
9059 double const* H, lapack_int
const* ldh,
9062 double* VL, lapack_int
const* ldvl,
9063 double* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
9064 double* work, lapack_int* IFAILL, lapack_int* IFAILR,
9066 #ifdef LAPACK_FORTRAN_STRLEN_END
9067 ,
size_t,
size_t,
size_t
9070 #ifdef LAPACK_FORTRAN_STRLEN_END
9071 #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__, 1, 1, 1)
9073 #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__)
9076 #define LAPACK_shsein_base LAPACK_GLOBAL(shsein,SHSEIN)
9077 void LAPACK_shsein_base(
9078 char const* side,
char const* eigsrc,
char const* initv,
9079 lapack_logical* select,
9080 lapack_int
const* n,
9081 float const* H, lapack_int
const* ldh,
9084 float* VL, lapack_int
const* ldvl,
9085 float* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
9086 float* work, lapack_int* IFAILL, lapack_int* IFAILR,
9088 #ifdef LAPACK_FORTRAN_STRLEN_END
9089 ,
size_t,
size_t,
size_t
9092 #ifdef LAPACK_FORTRAN_STRLEN_END
9093 #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__, 1, 1, 1)
9095 #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__)
9098 #define LAPACK_zhsein_base LAPACK_GLOBAL(zhsein,ZHSEIN)
9099 void LAPACK_zhsein_base(
9100 char const* side,
char const* eigsrc,
char const* initv,
9101 lapack_logical
const* select,
9102 lapack_int
const* n,
9103 lapack_complex_double
const* H, lapack_int
const* ldh,
9104 lapack_complex_double* W,
9105 lapack_complex_double* VL, lapack_int
const* ldvl,
9106 lapack_complex_double* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
9107 lapack_complex_double* work,
9108 double* rwork, lapack_int* IFAILL, lapack_int* IFAILR,
9110 #ifdef LAPACK_FORTRAN_STRLEN_END
9111 ,
size_t,
size_t,
size_t
9114 #ifdef LAPACK_FORTRAN_STRLEN_END
9115 #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__, 1, 1, 1)
9117 #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__)
9120 #define LAPACK_chseqr_base LAPACK_GLOBAL(chseqr,CHSEQR)
9121 void LAPACK_chseqr_base(
9122 char const* job,
char const* compz,
9123 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
9124 lapack_complex_float* H, lapack_int
const* ldh,
9125 lapack_complex_float* W,
9126 lapack_complex_float* Z, lapack_int
const* ldz,
9127 lapack_complex_float* work, lapack_int
const* lwork,
9129 #ifdef LAPACK_FORTRAN_STRLEN_END
9133 #ifdef LAPACK_FORTRAN_STRLEN_END
9134 #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__, 1, 1)
9136 #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__)
9139 #define LAPACK_dhseqr_base LAPACK_GLOBAL(dhseqr,DHSEQR)
9140 void LAPACK_dhseqr_base(
9141 char const* job,
char const* compz,
9142 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
9143 double* H, lapack_int
const* ldh,
9146 double* Z, lapack_int
const* ldz,
9147 double* work, lapack_int
const* lwork,
9149 #ifdef LAPACK_FORTRAN_STRLEN_END
9153 #ifdef LAPACK_FORTRAN_STRLEN_END
9154 #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__, 1, 1)
9156 #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__)
9159 #define LAPACK_shseqr_base LAPACK_GLOBAL(shseqr,SHSEQR)
9160 void LAPACK_shseqr_base(
9161 char const* job,
char const* compz,
9162 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
9163 float* H, lapack_int
const* ldh,
9166 float* Z, lapack_int
const* ldz,
9167 float* work, lapack_int
const* lwork,
9169 #ifdef LAPACK_FORTRAN_STRLEN_END
9173 #ifdef LAPACK_FORTRAN_STRLEN_END
9174 #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__, 1, 1)
9176 #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__)
9179 #define LAPACK_zhseqr_base LAPACK_GLOBAL(zhseqr,ZHSEQR)
9180 void LAPACK_zhseqr_base(
9181 char const* job,
char const* compz,
9182 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
9183 lapack_complex_double* H, lapack_int
const* ldh,
9184 lapack_complex_double* W,
9185 lapack_complex_double* Z, lapack_int
const* ldz,
9186 lapack_complex_double* work, lapack_int
const* lwork,
9188 #ifdef LAPACK_FORTRAN_STRLEN_END
9192 #ifdef LAPACK_FORTRAN_STRLEN_END
9193 #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__, 1, 1)
9195 #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__)
9198 #define LAPACK_clacgv LAPACK_GLOBAL(clacgv,CLACGV)
9200 lapack_int
const* n,
9201 lapack_complex_float* X, lapack_int
const* incx );
9203 #define LAPACK_zlacgv LAPACK_GLOBAL(zlacgv,ZLACGV)
9205 lapack_int
const* n,
9206 lapack_complex_double* X, lapack_int
const* incx );
9208 #define LAPACK_clacn2 LAPACK_GLOBAL(clacn2,CLACN2)
9210 lapack_int
const* n,
9211 lapack_complex_float* V,
9212 lapack_complex_float* X,
9213 float* est, lapack_int* kase, lapack_int* ISAVE );
9215 #define LAPACK_dlacn2 LAPACK_GLOBAL(dlacn2,DLACN2)
9217 lapack_int
const* n,
9219 double* X, lapack_int* ISGN,
9220 double* est, lapack_int* kase, lapack_int* ISAVE );
9222 #define LAPACK_slacn2 LAPACK_GLOBAL(slacn2,SLACN2)
9224 lapack_int
const* n,
9226 float* X, lapack_int* ISGN,
9227 float* est, lapack_int* kase, lapack_int* ISAVE );
9229 #define LAPACK_zlacn2 LAPACK_GLOBAL(zlacn2,ZLACN2)
9231 lapack_int
const* n,
9232 lapack_complex_double* V,
9233 lapack_complex_double* X,
9234 double* est, lapack_int* kase, lapack_int* ISAVE );
9236 #define LAPACK_clacp2_base LAPACK_GLOBAL(clacp2,CLACP2)
9237 void LAPACK_clacp2_base(
9239 lapack_int
const* m, lapack_int
const* n,
9240 float const* A, lapack_int
const* lda,
9241 lapack_complex_float* B, lapack_int
const* ldb
9242 #ifdef LAPACK_FORTRAN_STRLEN_END
9246 #ifdef LAPACK_FORTRAN_STRLEN_END
9247 #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__, 1)
9249 #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__)
9252 #define LAPACK_zlacp2_base LAPACK_GLOBAL(zlacp2,ZLACP2)
9253 void LAPACK_zlacp2_base(
9255 lapack_int
const* m, lapack_int
const* n,
9256 double const* A, lapack_int
const* lda,
9257 lapack_complex_double* B, lapack_int
const* ldb
9258 #ifdef LAPACK_FORTRAN_STRLEN_END
9262 #ifdef LAPACK_FORTRAN_STRLEN_END
9263 #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__, 1)
9265 #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__)
9268 #define LAPACK_clacpy_base LAPACK_GLOBAL(clacpy,CLACPY)
9269 void LAPACK_clacpy_base(
9271 lapack_int
const* m, lapack_int
const* n,
9272 lapack_complex_float
const* A, lapack_int
const* lda,
9273 lapack_complex_float* B, lapack_int
const* ldb
9274 #ifdef LAPACK_FORTRAN_STRLEN_END
9278 #ifdef LAPACK_FORTRAN_STRLEN_END
9279 #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__, 1)
9281 #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__)
9284 #define LAPACK_dlacpy_base LAPACK_GLOBAL(dlacpy,DLACPY)
9285 void LAPACK_dlacpy_base(
9287 lapack_int
const* m, lapack_int
const* n,
9288 double const* A, lapack_int
const* lda,
9289 double* B, lapack_int
const* ldb
9290 #ifdef LAPACK_FORTRAN_STRLEN_END
9294 #ifdef LAPACK_FORTRAN_STRLEN_END
9295 #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__, 1)
9297 #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__)
9300 #define LAPACK_slacpy_base LAPACK_GLOBAL(slacpy,SLACPY)
9301 void LAPACK_slacpy_base(
9303 lapack_int
const* m, lapack_int
const* n,
9304 float const* A, lapack_int
const* lda,
9305 float* B, lapack_int
const* ldb
9306 #ifdef LAPACK_FORTRAN_STRLEN_END
9310 #ifdef LAPACK_FORTRAN_STRLEN_END
9311 #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__, 1)
9313 #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__)
9316 #define LAPACK_zlacpy_base LAPACK_GLOBAL(zlacpy,ZLACPY)
9317 void LAPACK_zlacpy_base(
9319 lapack_int
const* m, lapack_int
const* n,
9320 lapack_complex_double
const* A, lapack_int
const* lda,
9321 lapack_complex_double* B, lapack_int
const* ldb
9322 #ifdef LAPACK_FORTRAN_STRLEN_END
9326 #ifdef LAPACK_FORTRAN_STRLEN_END
9327 #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__, 1)
9329 #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__)
9332 #define LAPACK_clacrm LAPACK_GLOBAL(clacrm,CLACRM)
9334 lapack_int
const* m, lapack_int
const* n,
9335 lapack_complex_float
const* A, lapack_int
const* lda,
9336 float const* B, lapack_int
const* ldb,
9337 lapack_complex_float* C, lapack_int
const* ldc,
9340 #define LAPACK_zlacrm LAPACK_GLOBAL(zlacrm,ZLACRM)
9342 lapack_int
const* m, lapack_int
const* n,
9343 lapack_complex_double
const* A, lapack_int
const* lda,
9344 double const* B, lapack_int
const* ldb,
9345 lapack_complex_double* C, lapack_int
const* ldc,
9348 #define LAPACK_zlag2c LAPACK_GLOBAL(zlag2c,ZLAG2C)
9350 lapack_int
const* m, lapack_int
const* n,
9351 lapack_complex_double
const* A, lapack_int
const* lda,
9352 lapack_complex_float* SA, lapack_int
const* ldsa,
9355 #define LAPACK_slag2d LAPACK_GLOBAL(slag2d,SLAG2D)
9357 lapack_int
const* m, lapack_int
const* n,
9358 float const* SA, lapack_int
const* ldsa,
9359 double* A, lapack_int
const* lda,
9362 #define LAPACK_dlag2s LAPACK_GLOBAL(dlag2s,DLAG2S)
9364 lapack_int
const* m, lapack_int
const* n,
9365 double const* A, lapack_int
const* lda,
9366 float* SA, lapack_int
const* ldsa,
9369 #define LAPACK_clag2z LAPACK_GLOBAL(clag2z,CLAG2Z)
9371 lapack_int
const* m, lapack_int
const* n,
9372 lapack_complex_float
const* SA, lapack_int
const* ldsa,
9373 lapack_complex_double* A, lapack_int
const* lda,
9376 #define LAPACK_clagge LAPACK_GLOBAL(clagge,CLAGGE)
9378 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
9380 lapack_complex_float* A, lapack_int
const* lda, lapack_int* iseed,
9381 lapack_complex_float* work,
9384 #define LAPACK_dlagge LAPACK_GLOBAL(dlagge,DLAGGE)
9386 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
9388 double* A, lapack_int
const* lda, lapack_int* iseed,
9392 #define LAPACK_slagge LAPACK_GLOBAL(slagge,SLAGGE)
9394 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
9396 float* A, lapack_int
const* lda, lapack_int* iseed,
9400 #define LAPACK_zlagge LAPACK_GLOBAL(zlagge,ZLAGGE)
9402 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
9404 lapack_complex_double* A, lapack_int
const* lda, lapack_int* iseed,
9405 lapack_complex_double* work,
9408 #define LAPACK_claghe LAPACK_GLOBAL(claghe,CLAGHE)
9410 lapack_int
const* n, lapack_int
const* k,
9412 lapack_complex_float* A, lapack_int
const* lda, lapack_int* iseed,
9413 lapack_complex_float* work,
9416 #define LAPACK_zlaghe LAPACK_GLOBAL(zlaghe,ZLAGHE)
9418 lapack_int
const* n, lapack_int
const* k,
9420 lapack_complex_double* A, lapack_int
const* lda, lapack_int* iseed,
9421 lapack_complex_double* work,
9424 #define LAPACK_clagsy LAPACK_GLOBAL(clagsy,CLAGSY)
9426 lapack_int
const* n, lapack_int
const* k,
9428 lapack_complex_float* A, lapack_int
const* lda, lapack_int* iseed,
9429 lapack_complex_float* work,
9432 #define LAPACK_dlagsy LAPACK_GLOBAL(dlagsy,DLAGSY)
9434 lapack_int
const* n, lapack_int
const* k,
9436 double* A, lapack_int
const* lda, lapack_int* iseed,
9440 #define LAPACK_slagsy LAPACK_GLOBAL(slagsy,SLAGSY)
9442 lapack_int
const* n, lapack_int
const* k,
9444 float* A, lapack_int
const* lda, lapack_int* iseed,
9448 #define LAPACK_zlagsy LAPACK_GLOBAL(zlagsy,ZLAGSY)
9450 lapack_int
const* n, lapack_int
const* k,
9452 lapack_complex_double* A, lapack_int
const* lda, lapack_int* iseed,
9453 lapack_complex_double* work,
9456 #define LAPACK_dlamch_base LAPACK_GLOBAL(dlamch,DLAMCH)
9457 double LAPACK_dlamch_base(
9459 #ifdef LAPACK_FORTRAN_STRLEN_END
9463 #ifdef LAPACK_FORTRAN_STRLEN_END
9464 #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__, 1)
9466 #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__)
9469 #define LAPACK_slamch_base LAPACK_GLOBAL(slamch,SLAMCH)
9470 lapack_float_return LAPACK_slamch_base(
9472 #ifdef LAPACK_FORTRAN_STRLEN_END
9476 #ifdef LAPACK_FORTRAN_STRLEN_END
9477 #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__, 1)
9479 #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__)
9482 #define LAPACK_clangb_base LAPACK_GLOBAL(clangb,CLANGB)
9483 lapack_float_return LAPACK_clangb_base(
9485 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
9486 lapack_complex_float
const* AB, lapack_int
const* ldab,
9488 #ifdef LAPACK_FORTRAN_STRLEN_END
9492 #ifdef LAPACK_FORTRAN_STRLEN_END
9493 #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__, 1)
9495 #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__)
9498 #define LAPACK_dlangb_base LAPACK_GLOBAL(dlangb,DLANGB)
9499 double LAPACK_dlangb_base(
9501 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
9502 double const* AB, lapack_int
const* ldab,
9504 #ifdef LAPACK_FORTRAN_STRLEN_END
9508 #ifdef LAPACK_FORTRAN_STRLEN_END
9509 #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__, 1)
9511 #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__)
9514 #define LAPACK_slangb_base LAPACK_GLOBAL(slangb,SLANGB)
9515 lapack_float_return LAPACK_slangb_base(
9517 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
9518 float const* AB, lapack_int
const* ldab,
9520 #ifdef LAPACK_FORTRAN_STRLEN_END
9524 #ifdef LAPACK_FORTRAN_STRLEN_END
9525 #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__, 1)
9527 #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__)
9530 #define LAPACK_zlangb_base LAPACK_GLOBAL(zlangb,ZLANGB)
9531 double LAPACK_zlangb_base(
9533 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
9534 lapack_complex_double
const* AB, lapack_int
const* ldab,
9536 #ifdef LAPACK_FORTRAN_STRLEN_END
9540 #ifdef LAPACK_FORTRAN_STRLEN_END
9541 #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__, 1)
9543 #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__)
9546 #define LAPACK_clange_base LAPACK_GLOBAL(clange,CLANGE)
9547 lapack_float_return LAPACK_clange_base(
9549 lapack_int
const* m, lapack_int
const* n,
9550 lapack_complex_float
const* A, lapack_int
const* lda,
9552 #ifdef LAPACK_FORTRAN_STRLEN_END
9556 #ifdef LAPACK_FORTRAN_STRLEN_END
9557 #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__, 1)
9559 #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__)
9562 #define LAPACK_dlange_base LAPACK_GLOBAL(dlange,DLANGE)
9563 double LAPACK_dlange_base(
9565 lapack_int
const* m, lapack_int
const* n,
9566 double const* A, lapack_int
const* lda,
9568 #ifdef LAPACK_FORTRAN_STRLEN_END
9572 #ifdef LAPACK_FORTRAN_STRLEN_END
9573 #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__, 1)
9575 #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__)
9578 #define LAPACK_slange_base LAPACK_GLOBAL(slange,SLANGE)
9579 lapack_float_return LAPACK_slange_base(
9581 lapack_int
const* m, lapack_int
const* n,
9582 float const* A, lapack_int
const* lda,
9584 #ifdef LAPACK_FORTRAN_STRLEN_END
9588 #ifdef LAPACK_FORTRAN_STRLEN_END
9589 #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__, 1)
9591 #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__)
9594 #define LAPACK_zlange_base LAPACK_GLOBAL(zlange,ZLANGE)
9595 double LAPACK_zlange_base(
9597 lapack_int
const* m, lapack_int
const* n,
9598 lapack_complex_double
const* A, lapack_int
const* lda,
9600 #ifdef LAPACK_FORTRAN_STRLEN_END
9604 #ifdef LAPACK_FORTRAN_STRLEN_END
9605 #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__, 1)
9607 #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__)
9610 #define LAPACK_clangt_base LAPACK_GLOBAL(clangt,CLANGT)
9611 lapack_float_return LAPACK_clangt_base(
9613 lapack_int
const* n,
9614 lapack_complex_float
const* DL,
9615 lapack_complex_float
const* D,
9616 lapack_complex_float
const* DU
9617 #ifdef LAPACK_FORTRAN_STRLEN_END
9621 #ifdef LAPACK_FORTRAN_STRLEN_END
9622 #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__, 1)
9624 #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__)
9627 #define LAPACK_dlangt_base LAPACK_GLOBAL(dlangt,DLANGT)
9628 double LAPACK_dlangt_base(
9630 lapack_int
const* n,
9634 #ifdef LAPACK_FORTRAN_STRLEN_END
9638 #ifdef LAPACK_FORTRAN_STRLEN_END
9639 #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__, 1)
9641 #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__)
9644 #define LAPACK_slangt_base LAPACK_GLOBAL(slangt,SLANGT)
9645 lapack_float_return LAPACK_slangt_base(
9647 lapack_int
const* n,
9651 #ifdef LAPACK_FORTRAN_STRLEN_END
9655 #ifdef LAPACK_FORTRAN_STRLEN_END
9656 #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__, 1)
9658 #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__)
9661 #define LAPACK_zlangt_base LAPACK_GLOBAL(zlangt,ZLANGT)
9662 double LAPACK_zlangt_base(
9664 lapack_int
const* n,
9665 lapack_complex_double
const* DL,
9666 lapack_complex_double
const* D,
9667 lapack_complex_double
const* DU
9668 #ifdef LAPACK_FORTRAN_STRLEN_END
9672 #ifdef LAPACK_FORTRAN_STRLEN_END
9673 #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__, 1)
9675 #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__)
9678 #define LAPACK_clanhb_base LAPACK_GLOBAL(clanhb,CLANHB)
9679 lapack_float_return LAPACK_clanhb_base(
9680 char const* norm,
char const* uplo,
9681 lapack_int
const* n, lapack_int
const* k,
9682 lapack_complex_float
const* AB, lapack_int
const* ldab,
9684 #ifdef LAPACK_FORTRAN_STRLEN_END
9688 #ifdef LAPACK_FORTRAN_STRLEN_END
9689 #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__, 1, 1)
9691 #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__)
9694 #define LAPACK_zlanhb_base LAPACK_GLOBAL(zlanhb,ZLANHB)
9695 double LAPACK_zlanhb_base(
9696 char const* norm,
char const* uplo,
9697 lapack_int
const* n, lapack_int
const* k,
9698 lapack_complex_double
const* AB, lapack_int
const* ldab,
9700 #ifdef LAPACK_FORTRAN_STRLEN_END
9704 #ifdef LAPACK_FORTRAN_STRLEN_END
9705 #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__, 1, 1)
9707 #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__)
9710 #define LAPACK_clanhe_base LAPACK_GLOBAL(clanhe,CLANHE)
9711 lapack_float_return LAPACK_clanhe_base(
9712 char const* norm,
char const* uplo,
9713 lapack_int
const* n,
9714 lapack_complex_float
const* A, lapack_int
const* lda,
9716 #ifdef LAPACK_FORTRAN_STRLEN_END
9720 #ifdef LAPACK_FORTRAN_STRLEN_END
9721 #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__, 1, 1)
9723 #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__)
9726 #define LAPACK_zlanhe_base LAPACK_GLOBAL(zlanhe,ZLANHE)
9727 double LAPACK_zlanhe_base(
9728 char const* norm,
char const* uplo,
9729 lapack_int
const* n,
9730 lapack_complex_double
const* A, lapack_int
const* lda,
9732 #ifdef LAPACK_FORTRAN_STRLEN_END
9736 #ifdef LAPACK_FORTRAN_STRLEN_END
9737 #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__, 1, 1)
9739 #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__)
9742 #define LAPACK_clanhp_base LAPACK_GLOBAL(clanhp,CLANHP)
9743 lapack_float_return LAPACK_clanhp_base(
9744 char const* norm,
char const* uplo,
9745 lapack_int
const* n,
9746 lapack_complex_float
const* AP,
9748 #ifdef LAPACK_FORTRAN_STRLEN_END
9752 #ifdef LAPACK_FORTRAN_STRLEN_END
9753 #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__, 1, 1)
9755 #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__)
9758 #define LAPACK_zlanhp_base LAPACK_GLOBAL(zlanhp,ZLANHP)
9759 double LAPACK_zlanhp_base(
9760 char const* norm,
char const* uplo,
9761 lapack_int
const* n,
9762 lapack_complex_double
const* AP,
9764 #ifdef LAPACK_FORTRAN_STRLEN_END
9768 #ifdef LAPACK_FORTRAN_STRLEN_END
9769 #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__, 1, 1)
9771 #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__)
9774 #define LAPACK_clanhs_base LAPACK_GLOBAL(clanhs,CLANHS)
9775 lapack_float_return LAPACK_clanhs_base(
9777 lapack_int
const* n,
9778 lapack_complex_float
const* A, lapack_int
const* lda,
9780 #ifdef LAPACK_FORTRAN_STRLEN_END
9784 #ifdef LAPACK_FORTRAN_STRLEN_END
9785 #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__, 1)
9787 #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__)
9790 #define LAPACK_dlanhs_base LAPACK_GLOBAL(dlanhs,DLANHS)
9791 double LAPACK_dlanhs_base(
9793 lapack_int
const* n,
9794 double const* A, lapack_int
const* lda,
9796 #ifdef LAPACK_FORTRAN_STRLEN_END
9800 #ifdef LAPACK_FORTRAN_STRLEN_END
9801 #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__, 1)
9803 #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__)
9806 #define LAPACK_slanhs_base LAPACK_GLOBAL(slanhs,SLANHS)
9807 lapack_float_return LAPACK_slanhs_base(
9809 lapack_int
const* n,
9810 float const* A, lapack_int
const* lda,
9812 #ifdef LAPACK_FORTRAN_STRLEN_END
9816 #ifdef LAPACK_FORTRAN_STRLEN_END
9817 #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__, 1)
9819 #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__)
9822 #define LAPACK_zlanhs_base LAPACK_GLOBAL(zlanhs,ZLANHS)
9823 double LAPACK_zlanhs_base(
9825 lapack_int
const* n,
9826 lapack_complex_double
const* A, lapack_int
const* lda,
9828 #ifdef LAPACK_FORTRAN_STRLEN_END
9832 #ifdef LAPACK_FORTRAN_STRLEN_END
9833 #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__, 1)
9835 #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__)
9838 #define LAPACK_clanht_base LAPACK_GLOBAL(clanht,CLANHT)
9839 lapack_float_return LAPACK_clanht_base(
9841 lapack_int
const* n,
9843 lapack_complex_float
const* E
9844 #ifdef LAPACK_FORTRAN_STRLEN_END
9848 #ifdef LAPACK_FORTRAN_STRLEN_END
9849 #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__, 1)
9851 #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__)
9854 #define LAPACK_zlanht_base LAPACK_GLOBAL(zlanht,ZLANHT)
9855 double LAPACK_zlanht_base(
9857 lapack_int
const* n,
9859 lapack_complex_double
const* E
9860 #ifdef LAPACK_FORTRAN_STRLEN_END
9864 #ifdef LAPACK_FORTRAN_STRLEN_END
9865 #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__, 1)
9867 #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__)
9870 #define LAPACK_clansb_base LAPACK_GLOBAL(clansb,CLANSB)
9871 lapack_float_return LAPACK_clansb_base(
9872 char const* norm,
char const* uplo,
9873 lapack_int
const* n, lapack_int
const* k,
9874 lapack_complex_float
const* AB, lapack_int
const* ldab,
9876 #ifdef LAPACK_FORTRAN_STRLEN_END
9880 #ifdef LAPACK_FORTRAN_STRLEN_END
9881 #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__, 1, 1)
9883 #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__)
9886 #define LAPACK_dlansb_base LAPACK_GLOBAL(dlansb,DLANSB)
9887 double LAPACK_dlansb_base(
9888 char const* norm,
char const* uplo,
9889 lapack_int
const* n, lapack_int
const* k,
9890 double const* AB, lapack_int
const* ldab,
9892 #ifdef LAPACK_FORTRAN_STRLEN_END
9896 #ifdef LAPACK_FORTRAN_STRLEN_END
9897 #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__, 1, 1)
9899 #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__)
9902 #define LAPACK_slansb_base LAPACK_GLOBAL(slansb,SLANSB)
9903 lapack_float_return LAPACK_slansb_base(
9904 char const* norm,
char const* uplo,
9905 lapack_int
const* n, lapack_int
const* k,
9906 float const* AB, lapack_int
const* ldab,
9908 #ifdef LAPACK_FORTRAN_STRLEN_END
9912 #ifdef LAPACK_FORTRAN_STRLEN_END
9913 #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__, 1, 1)
9915 #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__)
9918 #define LAPACK_zlansb_base LAPACK_GLOBAL(zlansb,ZLANSB)
9919 double LAPACK_zlansb_base(
9920 char const* norm,
char const* uplo,
9921 lapack_int
const* n, lapack_int
const* k,
9922 lapack_complex_double
const* AB, lapack_int
const* ldab,
9924 #ifdef LAPACK_FORTRAN_STRLEN_END
9928 #ifdef LAPACK_FORTRAN_STRLEN_END
9929 #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__, 1, 1)
9931 #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__)
9934 #define LAPACK_clansp_base LAPACK_GLOBAL(clansp,CLANSP)
9935 lapack_float_return LAPACK_clansp_base(
9936 char const* norm,
char const* uplo,
9937 lapack_int
const* n,
9938 lapack_complex_float
const* AP,
9940 #ifdef LAPACK_FORTRAN_STRLEN_END
9944 #ifdef LAPACK_FORTRAN_STRLEN_END
9945 #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__, 1, 1)
9947 #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__)
9950 #define LAPACK_dlansp_base LAPACK_GLOBAL(dlansp,DLANSP)
9951 double LAPACK_dlansp_base(
9952 char const* norm,
char const* uplo,
9953 lapack_int
const* n,
9956 #ifdef LAPACK_FORTRAN_STRLEN_END
9960 #ifdef LAPACK_FORTRAN_STRLEN_END
9961 #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__, 1, 1)
9963 #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__)
9966 #define LAPACK_slansp_base LAPACK_GLOBAL(slansp,SLANSP)
9967 lapack_float_return LAPACK_slansp_base(
9968 char const* norm,
char const* uplo,
9969 lapack_int
const* n,
9972 #ifdef LAPACK_FORTRAN_STRLEN_END
9976 #ifdef LAPACK_FORTRAN_STRLEN_END
9977 #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__, 1, 1)
9979 #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__)
9982 #define LAPACK_zlansp_base LAPACK_GLOBAL(zlansp,ZLANSP)
9983 double LAPACK_zlansp_base(
9984 char const* norm,
char const* uplo,
9985 lapack_int
const* n,
9986 lapack_complex_double
const* AP,
9988 #ifdef LAPACK_FORTRAN_STRLEN_END
9992 #ifdef LAPACK_FORTRAN_STRLEN_END
9993 #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__, 1, 1)
9995 #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__)
9998 #define LAPACK_dlanst_base LAPACK_GLOBAL(dlanst,DLANST)
9999 double LAPACK_dlanst_base(
10001 lapack_int
const* n,
10004 #ifdef LAPACK_FORTRAN_STRLEN_END
10008 #ifdef LAPACK_FORTRAN_STRLEN_END
10009 #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__, 1)
10011 #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__)
10014 #define LAPACK_slanst_base LAPACK_GLOBAL(slanst,SLANST)
10015 lapack_float_return LAPACK_slanst_base(
10017 lapack_int
const* n,
10020 #ifdef LAPACK_FORTRAN_STRLEN_END
10024 #ifdef LAPACK_FORTRAN_STRLEN_END
10025 #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__, 1)
10027 #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__)
10030 #define LAPACK_clansy_base LAPACK_GLOBAL(clansy,CLANSY)
10031 lapack_float_return LAPACK_clansy_base(
10032 char const* norm,
char const* uplo,
10033 lapack_int
const* n,
10034 lapack_complex_float
const* A, lapack_int
const* lda,
10036 #ifdef LAPACK_FORTRAN_STRLEN_END
10040 #ifdef LAPACK_FORTRAN_STRLEN_END
10041 #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__, 1, 1)
10043 #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__)
10046 #define LAPACK_dlansy_base LAPACK_GLOBAL(dlansy,DLANSY)
10047 double LAPACK_dlansy_base(
10048 char const* norm,
char const* uplo,
10049 lapack_int
const* n,
10050 double const* A, lapack_int
const* lda,
10052 #ifdef LAPACK_FORTRAN_STRLEN_END
10056 #ifdef LAPACK_FORTRAN_STRLEN_END
10057 #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__, 1, 1)
10059 #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__)
10062 #define LAPACK_slansy_base LAPACK_GLOBAL(slansy,SLANSY)
10063 lapack_float_return LAPACK_slansy_base(
10064 char const* norm,
char const* uplo,
10065 lapack_int
const* n,
10066 float const* A, lapack_int
const* lda,
10068 #ifdef LAPACK_FORTRAN_STRLEN_END
10072 #ifdef LAPACK_FORTRAN_STRLEN_END
10073 #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__, 1, 1)
10075 #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__)
10078 #define LAPACK_zlansy_base LAPACK_GLOBAL(zlansy,ZLANSY)
10079 double LAPACK_zlansy_base(
10080 char const* norm,
char const* uplo,
10081 lapack_int
const* n,
10082 lapack_complex_double
const* A, lapack_int
const* lda,
10084 #ifdef LAPACK_FORTRAN_STRLEN_END
10088 #ifdef LAPACK_FORTRAN_STRLEN_END
10089 #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__, 1, 1)
10091 #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__)
10094 #define LAPACK_clantb_base LAPACK_GLOBAL(clantb,CLANTB)
10095 lapack_float_return LAPACK_clantb_base(
10096 char const* norm,
char const* uplo,
char const* diag,
10097 lapack_int
const* n, lapack_int
const* k,
10098 lapack_complex_float
const* AB, lapack_int
const* ldab,
10100 #ifdef LAPACK_FORTRAN_STRLEN_END
10101 ,
size_t,
size_t,
size_t
10104 #ifdef LAPACK_FORTRAN_STRLEN_END
10105 #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__, 1, 1, 1)
10107 #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__)
10110 #define LAPACK_dlantb_base LAPACK_GLOBAL(dlantb,DLANTB)
10111 double LAPACK_dlantb_base(
10112 char const* norm,
char const* uplo,
char const* diag,
10113 lapack_int
const* n, lapack_int
const* k,
10114 double const* AB, lapack_int
const* ldab,
10116 #ifdef LAPACK_FORTRAN_STRLEN_END
10117 ,
size_t,
size_t,
size_t
10120 #ifdef LAPACK_FORTRAN_STRLEN_END
10121 #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__, 1, 1, 1)
10123 #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__)
10126 #define LAPACK_slantb_base LAPACK_GLOBAL(slantb,SLANTB)
10127 lapack_float_return LAPACK_slantb_base(
10128 char const* norm,
char const* uplo,
char const* diag,
10129 lapack_int
const* n, lapack_int
const* k,
10130 float const* AB, lapack_int
const* ldab,
10132 #ifdef LAPACK_FORTRAN_STRLEN_END
10133 ,
size_t,
size_t,
size_t
10136 #ifdef LAPACK_FORTRAN_STRLEN_END
10137 #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__, 1, 1, 1)
10139 #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__)
10142 #define LAPACK_zlantb_base LAPACK_GLOBAL(zlantb,ZLANTB)
10143 double LAPACK_zlantb_base(
10144 char const* norm,
char const* uplo,
char const* diag,
10145 lapack_int
const* n, lapack_int
const* k,
10146 lapack_complex_double
const* AB, lapack_int
const* ldab,
10148 #ifdef LAPACK_FORTRAN_STRLEN_END
10149 ,
size_t,
size_t,
size_t
10152 #ifdef LAPACK_FORTRAN_STRLEN_END
10153 #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__, 1, 1, 1)
10155 #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__)
10158 #define LAPACK_clantp_base LAPACK_GLOBAL(clantp,CLANTP)
10159 lapack_float_return LAPACK_clantp_base(
10160 char const* norm,
char const* uplo,
char const* diag,
10161 lapack_int
const* n,
10162 lapack_complex_float
const* AP,
10164 #ifdef LAPACK_FORTRAN_STRLEN_END
10165 ,
size_t,
size_t,
size_t
10168 #ifdef LAPACK_FORTRAN_STRLEN_END
10169 #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__, 1, 1, 1)
10171 #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__)
10174 #define LAPACK_dlantp_base LAPACK_GLOBAL(dlantp,DLANTP)
10175 double LAPACK_dlantp_base(
10176 char const* norm,
char const* uplo,
char const* diag,
10177 lapack_int
const* n,
10180 #ifdef LAPACK_FORTRAN_STRLEN_END
10181 ,
size_t,
size_t,
size_t
10184 #ifdef LAPACK_FORTRAN_STRLEN_END
10185 #define LAPACK_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__, 1, 1, 1)
10187 #define LAPACK_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__)
10190 #define LAPACK_slantp_base LAPACK_GLOBAL(slantp,SLANTP)
10191 lapack_float_return LAPACK_slantp_base(
10192 char const* norm,
char const* uplo,
char const* diag,
10193 lapack_int
const* n,
10196 #ifdef LAPACK_FORTRAN_STRLEN_END
10197 ,
size_t,
size_t,
size_t
10200 #ifdef LAPACK_FORTRAN_STRLEN_END
10201 #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__, 1, 1, 1)
10203 #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__)
10206 #define LAPACK_zlantp_base LAPACK_GLOBAL(zlantp,ZLANTP)
10207 double LAPACK_zlantp_base(
10208 char const* norm,
char const* uplo,
char const* diag,
10209 lapack_int
const* n,
10210 lapack_complex_double
const* AP,
10212 #ifdef LAPACK_FORTRAN_STRLEN_END
10213 ,
size_t,
size_t,
size_t
10216 #ifdef LAPACK_FORTRAN_STRLEN_END
10217 #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__, 1, 1, 1)
10219 #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__)
10222 #define LAPACK_clantr_base LAPACK_GLOBAL(clantr,CLANTR)
10223 lapack_float_return LAPACK_clantr_base(
10224 char const* norm,
char const* uplo,
char const* diag,
10225 lapack_int
const* m, lapack_int
const* n,
10226 lapack_complex_float
const* A, lapack_int
const* lda,
10228 #ifdef LAPACK_FORTRAN_STRLEN_END
10229 ,
size_t,
size_t,
size_t
10232 #ifdef LAPACK_FORTRAN_STRLEN_END
10233 #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__, 1, 1, 1)
10235 #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__)
10238 #define LAPACK_dlantr_base LAPACK_GLOBAL(dlantr,DLANTR)
10239 double LAPACK_dlantr_base(
10240 char const* norm,
char const* uplo,
char const* diag,
10241 lapack_int
const* m, lapack_int
const* n,
10242 double const* A, lapack_int
const* lda,
10244 #ifdef LAPACK_FORTRAN_STRLEN_END
10245 ,
size_t,
size_t,
size_t
10248 #ifdef LAPACK_FORTRAN_STRLEN_END
10249 #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__, 1, 1, 1)
10251 #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__)
10254 #define LAPACK_slantr_base LAPACK_GLOBAL(slantr,SLANTR)
10255 lapack_float_return LAPACK_slantr_base(
10256 char const* norm,
char const* uplo,
char const* diag,
10257 lapack_int
const* m, lapack_int
const* n,
10258 float const* A, lapack_int
const* lda,
10260 #ifdef LAPACK_FORTRAN_STRLEN_END
10261 ,
size_t,
size_t,
size_t
10264 #ifdef LAPACK_FORTRAN_STRLEN_END
10265 #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__, 1, 1, 1)
10267 #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__)
10270 #define LAPACK_zlantr_base LAPACK_GLOBAL(zlantr,ZLANTR)
10271 double LAPACK_zlantr_base(
10272 char const* norm,
char const* uplo,
char const* diag,
10273 lapack_int
const* m, lapack_int
const* n,
10274 lapack_complex_double
const* A, lapack_int
const* lda,
10276 #ifdef LAPACK_FORTRAN_STRLEN_END
10277 ,
size_t,
size_t,
size_t
10280 #ifdef LAPACK_FORTRAN_STRLEN_END
10281 #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__, 1, 1, 1)
10283 #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__)
10286 #define LAPACK_clapmr LAPACK_GLOBAL(clapmr,CLAPMR)
10287 void LAPACK_clapmr(
10288 lapack_logical
const* forwrd, lapack_int
const* m, lapack_int
const* n,
10289 lapack_complex_float* X, lapack_int
const* ldx, lapack_int* K );
10291 #define LAPACK_dlapmr LAPACK_GLOBAL(dlapmr,DLAPMR)
10292 void LAPACK_dlapmr(
10293 lapack_logical
const* forwrd, lapack_int
const* m, lapack_int
const* n,
10294 double* X, lapack_int
const* ldx, lapack_int* K );
10296 #define LAPACK_slapmr LAPACK_GLOBAL(slapmr,SLAPMR)
10297 void LAPACK_slapmr(
10298 lapack_logical
const* forwrd, lapack_int
const* m, lapack_int
const* n,
10299 float* X, lapack_int
const* ldx, lapack_int* K );
10301 #define LAPACK_zlapmr LAPACK_GLOBAL(zlapmr,ZLAPMR)
10302 void LAPACK_zlapmr(
10303 lapack_logical
const* forwrd, lapack_int
const* m, lapack_int
const* n,
10304 lapack_complex_double* X, lapack_int
const* ldx, lapack_int* K );
10306 #define LAPACK_clapmt LAPACK_GLOBAL(clapmt,CLAPMT)
10307 void LAPACK_clapmt(
10308 lapack_logical
const* forwrd, lapack_int
const* m, lapack_int
const* n,
10309 lapack_complex_float* X, lapack_int
const* ldx, lapack_int* K );
10311 #define LAPACK_dlapmt LAPACK_GLOBAL(dlapmt,DLAPMT)
10312 void LAPACK_dlapmt(
10313 lapack_logical
const* forwrd, lapack_int
const* m, lapack_int
const* n,
10314 double* X, lapack_int
const* ldx, lapack_int* K );
10316 #define LAPACK_slapmt LAPACK_GLOBAL(slapmt,SLAPMT)
10317 void LAPACK_slapmt(
10318 lapack_logical
const* forwrd, lapack_int
const* m, lapack_int
const* n,
10319 float* X, lapack_int
const* ldx, lapack_int* K );
10321 #define LAPACK_zlapmt LAPACK_GLOBAL(zlapmt,ZLAPMT)
10322 void LAPACK_zlapmt(
10323 lapack_logical
const* forwrd, lapack_int
const* m, lapack_int
const* n,
10324 lapack_complex_double* X, lapack_int
const* ldx, lapack_int* K );
10326 #define LAPACK_dlapy2 LAPACK_GLOBAL(dlapy2,DLAPY2)
10327 double LAPACK_dlapy2(
10331 #define LAPACK_slapy2 LAPACK_GLOBAL(slapy2,SLAPY2)
10332 lapack_float_return LAPACK_slapy2(
10336 #define LAPACK_dlapy3 LAPACK_GLOBAL(dlapy3,DLAPY3)
10337 double LAPACK_dlapy3(
10342 #define LAPACK_slapy3 LAPACK_GLOBAL(slapy3,SLAPY3)
10343 lapack_float_return LAPACK_slapy3(
10348 #define LAPACK_clarcm LAPACK_GLOBAL(clarcm,CLARCM)
10349 void LAPACK_clarcm(
10350 lapack_int
const* m, lapack_int
const* n,
10351 float const* A, lapack_int
const* lda,
10352 lapack_complex_float
const* B, lapack_int
const* ldb,
10353 lapack_complex_float* C, lapack_int
const* ldc,
10356 #define LAPACK_zlarcm LAPACK_GLOBAL(zlarcm,ZLARCM)
10357 void LAPACK_zlarcm(
10358 lapack_int
const* m, lapack_int
const* n,
10359 double const* A, lapack_int
const* lda,
10360 lapack_complex_double
const* B, lapack_int
const* ldb,
10361 lapack_complex_double* C, lapack_int
const* ldc,
10364 #define LAPACK_clarf_base LAPACK_GLOBAL(clarf,CLARF)
10365 void LAPACK_clarf_base(
10367 lapack_int
const* m, lapack_int
const* n,
10368 lapack_complex_float
const* V, lapack_int
const* incv,
10369 lapack_complex_float
const* tau,
10370 lapack_complex_float* C, lapack_int
const* ldc,
10371 lapack_complex_float* work
10372 #ifdef LAPACK_FORTRAN_STRLEN_END
10376 #ifdef LAPACK_FORTRAN_STRLEN_END
10377 #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__, 1)
10379 #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__)
10382 #define LAPACK_dlarf_base LAPACK_GLOBAL(dlarf,DLARF)
10383 void LAPACK_dlarf_base(
10385 lapack_int
const* m, lapack_int
const* n,
10386 double const* V, lapack_int
const* incv,
10388 double* C, lapack_int
const* ldc,
10390 #ifdef LAPACK_FORTRAN_STRLEN_END
10394 #ifdef LAPACK_FORTRAN_STRLEN_END
10395 #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__, 1)
10397 #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__)
10400 #define LAPACK_slarf_base LAPACK_GLOBAL(slarf,SLARF)
10401 void LAPACK_slarf_base(
10403 lapack_int
const* m, lapack_int
const* n,
10404 float const* V, lapack_int
const* incv,
10406 float* C, lapack_int
const* ldc,
10408 #ifdef LAPACK_FORTRAN_STRLEN_END
10412 #ifdef LAPACK_FORTRAN_STRLEN_END
10413 #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__, 1)
10415 #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__)
10418 #define LAPACK_zlarf_base LAPACK_GLOBAL(zlarf,ZLARF)
10419 void LAPACK_zlarf_base(
10421 lapack_int
const* m, lapack_int
const* n,
10422 lapack_complex_double
const* V, lapack_int
const* incv,
10423 lapack_complex_double
const* tau,
10424 lapack_complex_double* C, lapack_int
const* ldc,
10425 lapack_complex_double* work
10426 #ifdef LAPACK_FORTRAN_STRLEN_END
10430 #ifdef LAPACK_FORTRAN_STRLEN_END
10431 #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__, 1)
10433 #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__)
10436 #define LAPACK_clarfb_base LAPACK_GLOBAL(clarfb,CLARFB)
10437 void LAPACK_clarfb_base(
10438 char const* side,
char const* trans,
char const* direct,
char const* storev,
10439 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
10440 lapack_complex_float
const* V, lapack_int
const* ldv,
10441 lapack_complex_float
const* T, lapack_int
const* ldt,
10442 lapack_complex_float* C, lapack_int
const* ldc,
10443 lapack_complex_float* work, lapack_int
const* ldwork
10444 #ifdef LAPACK_FORTRAN_STRLEN_END
10445 ,
size_t,
size_t,
size_t,
size_t
10448 #ifdef LAPACK_FORTRAN_STRLEN_END
10449 #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10451 #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__)
10454 #define LAPACK_dlarfb_base LAPACK_GLOBAL(dlarfb,DLARFB)
10455 void LAPACK_dlarfb_base(
10456 char const* side,
char const* trans,
char const* direct,
char const* storev,
10457 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
10458 double const* V, lapack_int
const* ldv,
10459 double const* T, lapack_int
const* ldt,
10460 double* C, lapack_int
const* ldc,
10461 double* work, lapack_int
const* ldwork
10462 #ifdef LAPACK_FORTRAN_STRLEN_END
10463 ,
size_t,
size_t,
size_t,
size_t
10466 #ifdef LAPACK_FORTRAN_STRLEN_END
10467 #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10469 #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__)
10472 #define LAPACK_slarfb_base LAPACK_GLOBAL(slarfb,SLARFB)
10473 void LAPACK_slarfb_base(
10474 char const* side,
char const* trans,
char const* direct,
char const* storev,
10475 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
10476 float const* V, lapack_int
const* ldv,
10477 float const* T, lapack_int
const* ldt,
10478 float* C, lapack_int
const* ldc,
10479 float* work, lapack_int
const* ldwork
10480 #ifdef LAPACK_FORTRAN_STRLEN_END
10481 ,
size_t,
size_t,
size_t,
size_t
10484 #ifdef LAPACK_FORTRAN_STRLEN_END
10485 #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10487 #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__)
10490 #define LAPACK_zlarfb_base LAPACK_GLOBAL(zlarfb,ZLARFB)
10491 void LAPACK_zlarfb_base(
10492 char const* side,
char const* trans,
char const* direct,
char const* storev,
10493 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
10494 lapack_complex_double
const* V, lapack_int
const* ldv,
10495 lapack_complex_double
const* T, lapack_int
const* ldt,
10496 lapack_complex_double* C, lapack_int
const* ldc,
10497 lapack_complex_double* work, lapack_int
const* ldwork
10498 #ifdef LAPACK_FORTRAN_STRLEN_END
10499 ,
size_t,
size_t,
size_t,
size_t
10502 #ifdef LAPACK_FORTRAN_STRLEN_END
10503 #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10505 #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__)
10508 #define LAPACK_clarfg LAPACK_GLOBAL(clarfg,CLARFG)
10509 void LAPACK_clarfg(
10510 lapack_int
const* n,
10511 lapack_complex_float* alpha,
10512 lapack_complex_float* X, lapack_int
const* incx,
10513 lapack_complex_float* tau );
10515 #define LAPACK_dlarfg LAPACK_GLOBAL(dlarfg,DLARFG)
10516 void LAPACK_dlarfg(
10517 lapack_int
const* n,
10519 double* X, lapack_int
const* incx,
10522 #define LAPACK_slarfg LAPACK_GLOBAL(slarfg,SLARFG)
10523 void LAPACK_slarfg(
10524 lapack_int
const* n,
10526 float* X, lapack_int
const* incx,
10529 #define LAPACK_zlarfg LAPACK_GLOBAL(zlarfg,ZLARFG)
10530 void LAPACK_zlarfg(
10531 lapack_int
const* n,
10532 lapack_complex_double* alpha,
10533 lapack_complex_double* X, lapack_int
const* incx,
10534 lapack_complex_double* tau );
10536 #define LAPACK_clarft_base LAPACK_GLOBAL(clarft,CLARFT)
10537 void LAPACK_clarft_base(
10538 char const* direct,
char const* storev,
10539 lapack_int
const* n, lapack_int
const* k,
10540 lapack_complex_float
const* V, lapack_int
const* ldv,
10541 lapack_complex_float
const* tau,
10542 lapack_complex_float* T, lapack_int
const* ldt
10543 #ifdef LAPACK_FORTRAN_STRLEN_END
10547 #ifdef LAPACK_FORTRAN_STRLEN_END
10548 #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__, 1, 1)
10550 #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__)
10553 #define LAPACK_dlarft_base LAPACK_GLOBAL(dlarft,DLARFT)
10554 void LAPACK_dlarft_base(
10555 char const* direct,
char const* storev,
10556 lapack_int
const* n, lapack_int
const* k,
10557 double const* V, lapack_int
const* ldv,
10559 double* T, lapack_int
const* ldt
10560 #ifdef LAPACK_FORTRAN_STRLEN_END
10564 #ifdef LAPACK_FORTRAN_STRLEN_END
10565 #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__, 1, 1)
10567 #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__)
10570 #define LAPACK_slarft_base LAPACK_GLOBAL(slarft,SLARFT)
10571 void LAPACK_slarft_base(
10572 char const* direct,
char const* storev,
10573 lapack_int
const* n, lapack_int
const* k,
10574 float const* V, lapack_int
const* ldv,
10576 float* T, lapack_int
const* ldt
10577 #ifdef LAPACK_FORTRAN_STRLEN_END
10581 #ifdef LAPACK_FORTRAN_STRLEN_END
10582 #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__, 1, 1)
10584 #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__)
10587 #define LAPACK_zlarft_base LAPACK_GLOBAL(zlarft,ZLARFT)
10588 void LAPACK_zlarft_base(
10589 char const* direct,
char const* storev,
10590 lapack_int
const* n, lapack_int
const* k,
10591 lapack_complex_double
const* V, lapack_int
const* ldv,
10592 lapack_complex_double
const* tau,
10593 lapack_complex_double* T, lapack_int
const* ldt
10594 #ifdef LAPACK_FORTRAN_STRLEN_END
10598 #ifdef LAPACK_FORTRAN_STRLEN_END
10599 #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__, 1, 1)
10601 #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__)
10604 #define LAPACK_clarfx_base LAPACK_GLOBAL(clarfx,CLARFX)
10605 void LAPACK_clarfx_base(
10607 lapack_int
const* m, lapack_int
const* n,
10608 lapack_complex_float
const* V,
10609 lapack_complex_float
const* tau,
10610 lapack_complex_float* C, lapack_int
const* ldc,
10611 lapack_complex_float* work
10612 #ifdef LAPACK_FORTRAN_STRLEN_END
10616 #ifdef LAPACK_FORTRAN_STRLEN_END
10617 #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__, 1)
10619 #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__)
10622 #define LAPACK_dlarfx_base LAPACK_GLOBAL(dlarfx,DLARFX)
10623 void LAPACK_dlarfx_base(
10625 lapack_int
const* m, lapack_int
const* n,
10628 double* C, lapack_int
const* ldc,
10630 #ifdef LAPACK_FORTRAN_STRLEN_END
10634 #ifdef LAPACK_FORTRAN_STRLEN_END
10635 #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__, 1)
10637 #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__)
10640 #define LAPACK_slarfx_base LAPACK_GLOBAL(slarfx,SLARFX)
10641 void LAPACK_slarfx_base(
10643 lapack_int
const* m, lapack_int
const* n,
10646 float* C, lapack_int
const* ldc,
10648 #ifdef LAPACK_FORTRAN_STRLEN_END
10652 #ifdef LAPACK_FORTRAN_STRLEN_END
10653 #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__, 1)
10655 #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__)
10658 #define LAPACK_zlarfx_base LAPACK_GLOBAL(zlarfx,ZLARFX)
10659 void LAPACK_zlarfx_base(
10661 lapack_int
const* m, lapack_int
const* n,
10662 lapack_complex_double
const* V,
10663 lapack_complex_double
const* tau,
10664 lapack_complex_double* C, lapack_int
const* ldc,
10665 lapack_complex_double* work
10666 #ifdef LAPACK_FORTRAN_STRLEN_END
10670 #ifdef LAPACK_FORTRAN_STRLEN_END
10671 #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__, 1)
10673 #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__)
10676 #define LAPACK_clarnv LAPACK_GLOBAL(clarnv,CLARNV)
10677 void LAPACK_clarnv(
10678 lapack_int
const* idist, lapack_int* iseed, lapack_int
const* n,
10679 lapack_complex_float* X );
10681 #define LAPACK_dlarnv LAPACK_GLOBAL(dlarnv,DLARNV)
10682 void LAPACK_dlarnv(
10683 lapack_int
const* idist, lapack_int* iseed, lapack_int
const* n,
10686 #define LAPACK_slarnv LAPACK_GLOBAL(slarnv,SLARNV)
10687 void LAPACK_slarnv(
10688 lapack_int
const* idist, lapack_int* iseed, lapack_int
const* n,
10691 #define LAPACK_zlarnv LAPACK_GLOBAL(zlarnv,ZLARNV)
10692 void LAPACK_zlarnv(
10693 lapack_int
const* idist, lapack_int* iseed, lapack_int
const* n,
10694 lapack_complex_double* X );
10696 #define LAPACK_dlartgp LAPACK_GLOBAL(dlartgp,DLARTGP)
10697 void LAPACK_dlartgp(
10704 #define LAPACK_slartgp LAPACK_GLOBAL(slartgp,SLARTGP)
10705 void LAPACK_slartgp(
10712 #define LAPACK_dlartgs LAPACK_GLOBAL(dlartgs,DLARTGS)
10713 void LAPACK_dlartgs(
10716 double const* sigma,
10720 #define LAPACK_slartgs LAPACK_GLOBAL(slartgs,SLARTGS)
10721 void LAPACK_slartgs(
10724 float const* sigma,
10728 #define LAPACK_clascl_base LAPACK_GLOBAL(clascl,CLASCL)
10729 void LAPACK_clascl_base(
10731 lapack_int
const* kl, lapack_int
const* ku,
10732 float const* cfrom,
10733 float const* cto, lapack_int
const* m, lapack_int
const* n,
10734 lapack_complex_float* A, lapack_int
const* lda,
10736 #ifdef LAPACK_FORTRAN_STRLEN_END
10740 #ifdef LAPACK_FORTRAN_STRLEN_END
10741 #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__, 1)
10743 #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__)
10746 #define LAPACK_dlascl_base LAPACK_GLOBAL(dlascl,DLASCL)
10747 void LAPACK_dlascl_base(
10749 lapack_int
const* kl, lapack_int
const* ku,
10750 double const* cfrom,
10751 double const* cto, lapack_int
const* m, lapack_int
const* n,
10752 double* A, lapack_int
const* lda,
10754 #ifdef LAPACK_FORTRAN_STRLEN_END
10758 #ifdef LAPACK_FORTRAN_STRLEN_END
10759 #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__, 1)
10761 #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__)
10764 #define LAPACK_slascl_base LAPACK_GLOBAL(slascl,SLASCL)
10765 void LAPACK_slascl_base(
10767 lapack_int
const* kl, lapack_int
const* ku,
10768 float const* cfrom,
10769 float const* cto, lapack_int
const* m, lapack_int
const* n,
10770 float* A, lapack_int
const* lda,
10772 #ifdef LAPACK_FORTRAN_STRLEN_END
10776 #ifdef LAPACK_FORTRAN_STRLEN_END
10777 #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__, 1)
10779 #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__)
10782 #define LAPACK_zlascl_base LAPACK_GLOBAL(zlascl,ZLASCL)
10783 void LAPACK_zlascl_base(
10785 lapack_int
const* kl, lapack_int
const* ku,
10786 double const* cfrom,
10787 double const* cto, lapack_int
const* m, lapack_int
const* n,
10788 lapack_complex_double* A, lapack_int
const* lda,
10790 #ifdef LAPACK_FORTRAN_STRLEN_END
10794 #ifdef LAPACK_FORTRAN_STRLEN_END
10795 #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__, 1)
10797 #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__)
10800 #define LAPACK_claset_base LAPACK_GLOBAL(claset,CLASET)
10801 void LAPACK_claset_base(
10803 lapack_int
const* m, lapack_int
const* n,
10804 lapack_complex_float
const* alpha,
10805 lapack_complex_float
const* beta,
10806 lapack_complex_float* A, lapack_int
const* lda
10807 #ifdef LAPACK_FORTRAN_STRLEN_END
10811 #ifdef LAPACK_FORTRAN_STRLEN_END
10812 #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__, 1)
10814 #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__)
10817 #define LAPACK_dlaset_base LAPACK_GLOBAL(dlaset,DLASET)
10818 void LAPACK_dlaset_base(
10820 lapack_int
const* m, lapack_int
const* n,
10821 double const* alpha,
10822 double const* beta,
10823 double* A, lapack_int
const* lda
10824 #ifdef LAPACK_FORTRAN_STRLEN_END
10828 #ifdef LAPACK_FORTRAN_STRLEN_END
10829 #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__, 1)
10831 #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__)
10834 #define LAPACK_slaset_base LAPACK_GLOBAL(slaset,SLASET)
10835 void LAPACK_slaset_base(
10837 lapack_int
const* m, lapack_int
const* n,
10838 float const* alpha,
10840 float* A, lapack_int
const* lda
10841 #ifdef LAPACK_FORTRAN_STRLEN_END
10845 #ifdef LAPACK_FORTRAN_STRLEN_END
10846 #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__, 1)
10848 #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__)
10851 #define LAPACK_zlaset_base LAPACK_GLOBAL(zlaset,ZLASET)
10852 void LAPACK_zlaset_base(
10854 lapack_int
const* m, lapack_int
const* n,
10855 lapack_complex_double
const* alpha,
10856 lapack_complex_double
const* beta,
10857 lapack_complex_double* A, lapack_int
const* lda
10858 #ifdef LAPACK_FORTRAN_STRLEN_END
10862 #ifdef LAPACK_FORTRAN_STRLEN_END
10863 #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__, 1)
10865 #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__)
10868 #define LAPACK_dlasrt_base LAPACK_GLOBAL(dlasrt,DLASRT)
10869 void LAPACK_dlasrt_base(
10871 lapack_int
const* n,
10874 #ifdef LAPACK_FORTRAN_STRLEN_END
10878 #ifdef LAPACK_FORTRAN_STRLEN_END
10879 #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__, 1)
10881 #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__)
10884 #define LAPACK_slasrt_base LAPACK_GLOBAL(slasrt,SLASRT)
10885 void LAPACK_slasrt_base(
10887 lapack_int
const* n,
10890 #ifdef LAPACK_FORTRAN_STRLEN_END
10894 #ifdef LAPACK_FORTRAN_STRLEN_END
10895 #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__, 1)
10897 #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__)
10900 #define LAPACK_classq LAPACK_GLOBAL(classq,CLASSQ)
10901 void LAPACK_classq(
10902 lapack_int
const* n,
10903 lapack_complex_float
const* X, lapack_int
const* incx,
10907 #define LAPACK_dlassq LAPACK_GLOBAL(dlassq,DLASSQ)
10908 void LAPACK_dlassq(
10909 lapack_int
const* n,
10910 double const* X, lapack_int
const* incx,
10914 #define LAPACK_slassq LAPACK_GLOBAL(slassq,SLASSQ)
10915 void LAPACK_slassq(
10916 lapack_int
const* n,
10917 float const* X, lapack_int
const* incx,
10921 #define LAPACK_zlassq LAPACK_GLOBAL(zlassq,ZLASSQ)
10922 void LAPACK_zlassq(
10923 lapack_int
const* n,
10924 lapack_complex_double
const* X, lapack_int
const* incx,
10928 #define LAPACK_claswp LAPACK_GLOBAL(claswp,CLASWP)
10929 void LAPACK_claswp(
10930 lapack_int
const* n,
10931 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* k1, lapack_int
const* k2, lapack_int
const* ipiv, lapack_int
const* incx );
10933 #define LAPACK_dlaswp LAPACK_GLOBAL(dlaswp,DLASWP)
10934 void LAPACK_dlaswp(
10935 lapack_int
const* n,
10936 double* A, lapack_int
const* lda, lapack_int
const* k1, lapack_int
const* k2, lapack_int
const* ipiv, lapack_int
const* incx );
10938 #define LAPACK_slaswp LAPACK_GLOBAL(slaswp,SLASWP)
10939 void LAPACK_slaswp(
10940 lapack_int
const* n,
10941 float* A, lapack_int
const* lda, lapack_int
const* k1, lapack_int
const* k2, lapack_int
const* ipiv, lapack_int
const* incx );
10943 #define LAPACK_zlaswp LAPACK_GLOBAL(zlaswp,ZLASWP)
10944 void LAPACK_zlaswp(
10945 lapack_int
const* n,
10946 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* k1, lapack_int
const* k2, lapack_int
const* ipiv, lapack_int
const* incx );
10948 #define LAPACK_clatms_base LAPACK_GLOBAL(clatms,CLATMS)
10949 void LAPACK_clatms_base(
10950 lapack_int
const* m, lapack_int
const* n,
char const* dist,
10951 lapack_int* iseed,
char const* sym,
10953 lapack_int
const* mode,
10955 float const* dmax, lapack_int
const* kl, lapack_int
const* ku,
char const* pack,
10956 lapack_complex_float* A,
10957 lapack_int
const* lda,
10958 lapack_complex_float* work,
10960 #ifdef LAPACK_FORTRAN_STRLEN_END
10961 ,
size_t,
size_t,
size_t
10964 #ifdef LAPACK_FORTRAN_STRLEN_END
10965 #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__, 1, 1, 1)
10967 #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__)
10970 #define LAPACK_dlatms_base LAPACK_GLOBAL(dlatms,DLATMS)
10971 void LAPACK_dlatms_base(
10972 lapack_int
const* m, lapack_int
const* n,
char const* dist,
10973 lapack_int* iseed,
char const* sym,
10975 lapack_int
const* mode,
10976 double const* cond,
10977 double const* dmax, lapack_int
const* kl, lapack_int
const* ku,
char const* pack,
10979 lapack_int
const* lda,
10982 #ifdef LAPACK_FORTRAN_STRLEN_END
10983 ,
size_t,
size_t,
size_t
10986 #ifdef LAPACK_FORTRAN_STRLEN_END
10987 #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__, 1, 1, 1)
10989 #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__)
10992 #define LAPACK_slatms_base LAPACK_GLOBAL(slatms,SLATMS)
10993 void LAPACK_slatms_base(
10994 lapack_int
const* m, lapack_int
const* n,
char const* dist,
10995 lapack_int* iseed,
char const* sym,
10997 lapack_int
const* mode,
10999 float const* dmax, lapack_int
const* kl, lapack_int
const* ku,
char const* pack,
11001 lapack_int
const* lda,
11004 #ifdef LAPACK_FORTRAN_STRLEN_END
11005 ,
size_t,
size_t,
size_t
11008 #ifdef LAPACK_FORTRAN_STRLEN_END
11009 #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__, 1, 1, 1)
11011 #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__)
11014 #define LAPACK_zlatms_base LAPACK_GLOBAL(zlatms,ZLATMS)
11015 void LAPACK_zlatms_base(
11016 lapack_int
const* m, lapack_int
const* n,
char const* dist,
11017 lapack_int* iseed,
char const* sym,
11019 lapack_int
const* mode,
11020 double const* cond,
11021 double const* dmax, lapack_int
const* kl, lapack_int
const* ku,
char const* pack,
11022 lapack_complex_double* A,
11023 lapack_int
const* lda,
11024 lapack_complex_double* work,
11026 #ifdef LAPACK_FORTRAN_STRLEN_END
11027 ,
size_t,
size_t,
size_t
11030 #ifdef LAPACK_FORTRAN_STRLEN_END
11031 #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__, 1, 1, 1)
11033 #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__)
11036 #define LAPACK_clauum_base LAPACK_GLOBAL(clauum,CLAUUM)
11037 void LAPACK_clauum_base(
11039 lapack_int
const* n,
11040 lapack_complex_float* A, lapack_int
const* lda,
11042 #ifdef LAPACK_FORTRAN_STRLEN_END
11046 #ifdef LAPACK_FORTRAN_STRLEN_END
11047 #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__, 1)
11049 #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__)
11052 #define LAPACK_dlauum_base LAPACK_GLOBAL(dlauum,DLAUUM)
11053 void LAPACK_dlauum_base(
11055 lapack_int
const* n,
11056 double* A, lapack_int
const* lda,
11058 #ifdef LAPACK_FORTRAN_STRLEN_END
11062 #ifdef LAPACK_FORTRAN_STRLEN_END
11063 #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__, 1)
11065 #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__)
11068 #define LAPACK_slauum_base LAPACK_GLOBAL(slauum,SLAUUM)
11069 void LAPACK_slauum_base(
11071 lapack_int
const* n,
11072 float* A, lapack_int
const* lda,
11074 #ifdef LAPACK_FORTRAN_STRLEN_END
11078 #ifdef LAPACK_FORTRAN_STRLEN_END
11079 #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__, 1)
11081 #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__)
11084 #define LAPACK_zlauum_base LAPACK_GLOBAL(zlauum,ZLAUUM)
11085 void LAPACK_zlauum_base(
11087 lapack_int
const* n,
11088 lapack_complex_double* A, lapack_int
const* lda,
11090 #ifdef LAPACK_FORTRAN_STRLEN_END
11094 #ifdef LAPACK_FORTRAN_STRLEN_END
11095 #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__, 1)
11097 #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__)
11100 #define LAPACK_ilaver LAPACK_GLOBAL(ilaver,ILAVER)
11101 void LAPACK_ilaver(
11102 lapack_int* vers_major, lapack_int* vers_minor, lapack_int* vers_patch );
11104 #define LAPACK_dopgtr_base LAPACK_GLOBAL(dopgtr,DOPGTR)
11105 void LAPACK_dopgtr_base(
11107 lapack_int
const* n,
11110 double* Q, lapack_int
const* ldq,
11113 #ifdef LAPACK_FORTRAN_STRLEN_END
11117 #ifdef LAPACK_FORTRAN_STRLEN_END
11118 #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__, 1)
11120 #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__)
11123 #define LAPACK_sopgtr_base LAPACK_GLOBAL(sopgtr,SOPGTR)
11124 void LAPACK_sopgtr_base(
11126 lapack_int
const* n,
11129 float* Q, lapack_int
const* ldq,
11132 #ifdef LAPACK_FORTRAN_STRLEN_END
11136 #ifdef LAPACK_FORTRAN_STRLEN_END
11137 #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__, 1)
11139 #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__)
11142 #define LAPACK_dopmtr_base LAPACK_GLOBAL(dopmtr,DOPMTR)
11143 void LAPACK_dopmtr_base(
11144 char const* side,
char const* uplo,
char const* trans,
11145 lapack_int
const* m, lapack_int
const* n,
11148 double* C, lapack_int
const* ldc,
11151 #ifdef LAPACK_FORTRAN_STRLEN_END
11152 ,
size_t,
size_t,
size_t
11155 #ifdef LAPACK_FORTRAN_STRLEN_END
11156 #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__, 1, 1, 1)
11158 #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__)
11161 #define LAPACK_sopmtr_base LAPACK_GLOBAL(sopmtr,SOPMTR)
11162 void LAPACK_sopmtr_base(
11163 char const* side,
char const* uplo,
char const* trans,
11164 lapack_int
const* m, lapack_int
const* n,
11167 float* C, lapack_int
const* ldc,
11170 #ifdef LAPACK_FORTRAN_STRLEN_END
11171 ,
size_t,
size_t,
size_t
11174 #ifdef LAPACK_FORTRAN_STRLEN_END
11175 #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__, 1, 1, 1)
11177 #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__)
11180 #define LAPACK_dorbdb_base LAPACK_GLOBAL(dorbdb,DORBDB)
11181 void LAPACK_dorbdb_base(
11182 char const* trans,
char const* signs,
11183 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
11184 double* X11, lapack_int
const* ldx11,
11185 double* X12, lapack_int
const* ldx12,
11186 double* X21, lapack_int
const* ldx21,
11187 double* X22, lapack_int
const* ldx22,
11194 double* work, lapack_int
const* lwork,
11196 #ifdef LAPACK_FORTRAN_STRLEN_END
11200 #ifdef LAPACK_FORTRAN_STRLEN_END
11201 #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__, 1, 1)
11203 #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__)
11206 #define LAPACK_sorbdb_base LAPACK_GLOBAL(sorbdb,SORBDB)
11207 void LAPACK_sorbdb_base(
11208 char const* trans,
char const* signs,
11209 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
11210 float* X11, lapack_int
const* ldx11,
11211 float* X12, lapack_int
const* ldx12,
11212 float* X21, lapack_int
const* ldx21,
11213 float* X22, lapack_int
const* ldx22,
11220 float* work, lapack_int
const* lwork,
11222 #ifdef LAPACK_FORTRAN_STRLEN_END
11226 #ifdef LAPACK_FORTRAN_STRLEN_END
11227 #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__, 1, 1)
11229 #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__)
11232 #define LAPACK_dorcsd_base LAPACK_GLOBAL(dorcsd,DORCSD)
11233 void LAPACK_dorcsd_base(
11234 char const* jobu1,
char const* jobu2,
char const* jobv1t,
char const* jobv2t,
char const* trans,
char const* signs,
11235 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
11236 double* X11, lapack_int
const* ldx11,
11237 double* X12, lapack_int
const* ldx12,
11238 double* X21, lapack_int
const* ldx21,
11239 double* X22, lapack_int
const* ldx22,
11241 double* U1, lapack_int
const* ldu1,
11242 double* U2, lapack_int
const* ldu2,
11243 double* V1T, lapack_int
const* ldv1t,
11244 double* V2T, lapack_int
const* ldv2t,
11245 double* work, lapack_int
const* lwork,
11248 #ifdef LAPACK_FORTRAN_STRLEN_END
11249 ,
size_t,
size_t,
size_t,
size_t,
size_t,
size_t
11252 #ifdef LAPACK_FORTRAN_STRLEN_END
11253 #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
11255 #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__)
11258 #define LAPACK_sorcsd_base LAPACK_GLOBAL(sorcsd,SORCSD)
11259 void LAPACK_sorcsd_base(
11260 char const* jobu1,
char const* jobu2,
char const* jobv1t,
char const* jobv2t,
char const* trans,
char const* signs,
11261 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
11262 float* X11, lapack_int
const* ldx11,
11263 float* X12, lapack_int
const* ldx12,
11264 float* X21, lapack_int
const* ldx21,
11265 float* X22, lapack_int
const* ldx22,
11267 float* U1, lapack_int
const* ldu1,
11268 float* U2, lapack_int
const* ldu2,
11269 float* V1T, lapack_int
const* ldv1t,
11270 float* V2T, lapack_int
const* ldv2t,
11271 float* work, lapack_int
const* lwork,
11274 #ifdef LAPACK_FORTRAN_STRLEN_END
11275 ,
size_t,
size_t,
size_t,
size_t,
size_t,
size_t
11278 #ifdef LAPACK_FORTRAN_STRLEN_END
11279 #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
11281 #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__)
11284 #define LAPACK_dorcsd2by1_base LAPACK_GLOBAL(dorcsd2by1,DORCSD2BY1)
11285 void LAPACK_dorcsd2by1_base(
11286 char const* jobu1,
char const* jobu2,
char const* jobv1t,
11287 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
11288 double* X11, lapack_int
const* ldx11,
11289 double* X21, lapack_int
const* ldx21,
11291 double* U1, lapack_int
const* ldu1,
11292 double* U2, lapack_int
const* ldu2,
11293 double* V1T, lapack_int
const* ldv1t,
11294 double* work, lapack_int
const* lwork,
11297 #ifdef LAPACK_FORTRAN_STRLEN_END
11298 ,
size_t,
size_t,
size_t
11301 #ifdef LAPACK_FORTRAN_STRLEN_END
11302 #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__, 1, 1, 1)
11304 #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__)
11307 #define LAPACK_sorcsd2by1_base LAPACK_GLOBAL(sorcsd2by1,SORCSD2BY1)
11308 void LAPACK_sorcsd2by1_base(
11309 char const* jobu1,
char const* jobu2,
char const* jobv1t,
11310 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
11311 float* X11, lapack_int
const* ldx11,
11312 float* X21, lapack_int
const* ldx21,
11314 float* U1, lapack_int
const* ldu1,
11315 float* U2, lapack_int
const* ldu2,
11316 float* V1T, lapack_int
const* ldv1t,
11317 float* work, lapack_int
const* lwork,
11320 #ifdef LAPACK_FORTRAN_STRLEN_END
11321 ,
size_t,
size_t,
size_t
11324 #ifdef LAPACK_FORTRAN_STRLEN_END
11325 #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__, 1, 1, 1)
11327 #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__)
11330 #define LAPACK_dorgbr_base LAPACK_GLOBAL(dorgbr,DORGBR)
11331 void LAPACK_dorgbr_base(
11333 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11334 double* A, lapack_int
const* lda,
11336 double* work, lapack_int
const* lwork,
11338 #ifdef LAPACK_FORTRAN_STRLEN_END
11342 #ifdef LAPACK_FORTRAN_STRLEN_END
11343 #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__, 1)
11345 #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__)
11348 #define LAPACK_sorgbr_base LAPACK_GLOBAL(sorgbr,SORGBR)
11349 void LAPACK_sorgbr_base(
11351 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11352 float* A, lapack_int
const* lda,
11354 float* work, lapack_int
const* lwork,
11356 #ifdef LAPACK_FORTRAN_STRLEN_END
11360 #ifdef LAPACK_FORTRAN_STRLEN_END
11361 #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__, 1)
11363 #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__)
11366 #define LAPACK_dorghr LAPACK_GLOBAL(dorghr,DORGHR)
11367 void LAPACK_dorghr(
11368 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
11369 double* A, lapack_int
const* lda,
11371 double* work, lapack_int
const* lwork,
11372 lapack_int* info );
11374 #define LAPACK_sorghr LAPACK_GLOBAL(sorghr,SORGHR)
11375 void LAPACK_sorghr(
11376 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
11377 float* A, lapack_int
const* lda,
11379 float* work, lapack_int
const* lwork,
11380 lapack_int* info );
11382 #define LAPACK_dorglq LAPACK_GLOBAL(dorglq,DORGLQ)
11383 void LAPACK_dorglq(
11384 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11385 double* A, lapack_int
const* lda,
11387 double* work, lapack_int
const* lwork,
11388 lapack_int* info );
11390 #define LAPACK_sorglq LAPACK_GLOBAL(sorglq,SORGLQ)
11391 void LAPACK_sorglq(
11392 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11393 float* A, lapack_int
const* lda,
11395 float* work, lapack_int
const* lwork,
11396 lapack_int* info );
11398 #define LAPACK_dorgql LAPACK_GLOBAL(dorgql,DORGQL)
11399 void LAPACK_dorgql(
11400 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11401 double* A, lapack_int
const* lda,
11403 double* work, lapack_int
const* lwork,
11404 lapack_int* info );
11406 #define LAPACK_sorgql LAPACK_GLOBAL(sorgql,SORGQL)
11407 void LAPACK_sorgql(
11408 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11409 float* A, lapack_int
const* lda,
11411 float* work, lapack_int
const* lwork,
11412 lapack_int* info );
11414 #define LAPACK_dorgqr LAPACK_GLOBAL(dorgqr,DORGQR)
11415 void LAPACK_dorgqr(
11416 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11417 double* A, lapack_int
const* lda,
11419 double* work, lapack_int
const* lwork,
11420 lapack_int* info );
11422 #define LAPACK_sorgqr LAPACK_GLOBAL(sorgqr,SORGQR)
11423 void LAPACK_sorgqr(
11424 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11425 float* A, lapack_int
const* lda,
11427 float* work, lapack_int
const* lwork,
11428 lapack_int* info );
11430 #define LAPACK_dorgrq LAPACK_GLOBAL(dorgrq,DORGRQ)
11431 void LAPACK_dorgrq(
11432 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11433 double* A, lapack_int
const* lda,
11435 double* work, lapack_int
const* lwork,
11436 lapack_int* info );
11438 #define LAPACK_sorgrq LAPACK_GLOBAL(sorgrq,SORGRQ)
11439 void LAPACK_sorgrq(
11440 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11441 float* A, lapack_int
const* lda,
11443 float* work, lapack_int
const* lwork,
11444 lapack_int* info );
11446 #define LAPACK_dorgtr_base LAPACK_GLOBAL(dorgtr,DORGTR)
11447 void LAPACK_dorgtr_base(
11449 lapack_int
const* n,
11450 double* A, lapack_int
const* lda,
11452 double* work, lapack_int
const* lwork,
11454 #ifdef LAPACK_FORTRAN_STRLEN_END
11458 #ifdef LAPACK_FORTRAN_STRLEN_END
11459 #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__, 1)
11461 #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__)
11464 #define LAPACK_sorgtr_base LAPACK_GLOBAL(sorgtr,SORGTR)
11465 void LAPACK_sorgtr_base(
11467 lapack_int
const* n,
11468 float* A, lapack_int
const* lda,
11470 float* work, lapack_int
const* lwork,
11472 #ifdef LAPACK_FORTRAN_STRLEN_END
11476 #ifdef LAPACK_FORTRAN_STRLEN_END
11477 #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__, 1)
11479 #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__)
11482 #define LAPACK_dorgtsqr_row LAPACK_GLOBAL(dorgtsqr_row,DORGTSQR_ROW)
11483 void LAPACK_dorgtsqr_row(
11484 lapack_int
const* m, lapack_int
const* n,
11485 lapack_int
const* mb, lapack_int
const* nb,
11486 double* A, lapack_int
const* lda,
11487 double const* T, lapack_int
const* ldt,
11488 double* work, lapack_int
const* lwork,
11489 lapack_int* info );
11491 #define LAPACK_sorgtsqr_row LAPACK_GLOBAL(sorgtsqr_row,SORGTSQR_ROW)
11492 void LAPACK_sorgtsqr_row(
11493 lapack_int
const* m, lapack_int
const* n,
11494 lapack_int
const* mb, lapack_int
const* nb,
11495 float* A, lapack_int
const* lda,
11496 float const* T, lapack_int
const* ldt,
11497 float* work, lapack_int
const* lwork,
11498 lapack_int* info );
11500 #define LAPACK_dormbr_base LAPACK_GLOBAL(dormbr,DORMBR)
11501 void LAPACK_dormbr_base(
11502 char const* vect,
char const* side,
char const* trans,
11503 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11504 double const* A, lapack_int
const* lda,
11506 double* C, lapack_int
const* ldc,
11507 double* work, lapack_int
const* lwork,
11509 #ifdef LAPACK_FORTRAN_STRLEN_END
11510 ,
size_t,
size_t,
size_t
11513 #ifdef LAPACK_FORTRAN_STRLEN_END
11514 #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__, 1, 1, 1)
11516 #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__)
11519 #define LAPACK_sormbr_base LAPACK_GLOBAL(sormbr,SORMBR)
11520 void LAPACK_sormbr_base(
11521 char const* vect,
char const* side,
char const* trans,
11522 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11523 float const* A, lapack_int
const* lda,
11525 float* C, lapack_int
const* ldc,
11526 float* work, lapack_int
const* lwork,
11528 #ifdef LAPACK_FORTRAN_STRLEN_END
11529 ,
size_t,
size_t,
size_t
11532 #ifdef LAPACK_FORTRAN_STRLEN_END
11533 #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__, 1, 1, 1)
11535 #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__)
11538 #define LAPACK_dormhr_base LAPACK_GLOBAL(dormhr,DORMHR)
11539 void LAPACK_dormhr_base(
11540 char const* side,
char const* trans,
11541 lapack_int
const* m, lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
11542 double const* A, lapack_int
const* lda,
11544 double* C, lapack_int
const* ldc,
11545 double* work, lapack_int
const* lwork,
11547 #ifdef LAPACK_FORTRAN_STRLEN_END
11551 #ifdef LAPACK_FORTRAN_STRLEN_END
11552 #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__, 1, 1)
11554 #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__)
11557 #define LAPACK_sormhr_base LAPACK_GLOBAL(sormhr,SORMHR)
11558 void LAPACK_sormhr_base(
11559 char const* side,
char const* trans,
11560 lapack_int
const* m, lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
11561 float const* A, lapack_int
const* lda,
11563 float* C, lapack_int
const* ldc,
11564 float* work, lapack_int
const* lwork,
11566 #ifdef LAPACK_FORTRAN_STRLEN_END
11570 #ifdef LAPACK_FORTRAN_STRLEN_END
11571 #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__, 1, 1)
11573 #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__)
11576 #define LAPACK_dormlq_base LAPACK_GLOBAL(dormlq,DORMLQ)
11577 void LAPACK_dormlq_base(
11578 char const* side,
char const* trans,
11579 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11580 double const* A, lapack_int
const* lda,
11582 double* C, lapack_int
const* ldc,
11583 double* work, lapack_int
const* lwork,
11585 #ifdef LAPACK_FORTRAN_STRLEN_END
11589 #ifdef LAPACK_FORTRAN_STRLEN_END
11590 #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__, 1, 1)
11592 #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__)
11595 #define LAPACK_sormlq_base LAPACK_GLOBAL(sormlq,SORMLQ)
11596 void LAPACK_sormlq_base(
11597 char const* side,
char const* trans,
11598 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11599 float const* A, lapack_int
const* lda,
11601 float* C, lapack_int
const* ldc,
11602 float* work, lapack_int
const* lwork,
11604 #ifdef LAPACK_FORTRAN_STRLEN_END
11608 #ifdef LAPACK_FORTRAN_STRLEN_END
11609 #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__, 1, 1)
11611 #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__)
11614 #define LAPACK_dormql_base LAPACK_GLOBAL(dormql,DORMQL)
11615 void LAPACK_dormql_base(
11616 char const* side,
char const* trans,
11617 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11618 double const* A, lapack_int
const* lda,
11620 double* C, lapack_int
const* ldc,
11621 double* work, lapack_int
const* lwork,
11623 #ifdef LAPACK_FORTRAN_STRLEN_END
11627 #ifdef LAPACK_FORTRAN_STRLEN_END
11628 #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__, 1, 1)
11630 #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__)
11633 #define LAPACK_sormql_base LAPACK_GLOBAL(sormql,SORMQL)
11634 void LAPACK_sormql_base(
11635 char const* side,
char const* trans,
11636 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11637 float const* A, lapack_int
const* lda,
11639 float* C, lapack_int
const* ldc,
11640 float* work, lapack_int
const* lwork,
11642 #ifdef LAPACK_FORTRAN_STRLEN_END
11646 #ifdef LAPACK_FORTRAN_STRLEN_END
11647 #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__, 1, 1)
11649 #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__)
11652 #define LAPACK_dormqr_base LAPACK_GLOBAL(dormqr,DORMQR)
11653 void LAPACK_dormqr_base(
11654 char const* side,
char const* trans,
11655 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11656 double const* A, lapack_int
const* lda,
11658 double* C, lapack_int
const* ldc,
11659 double* work, lapack_int
const* lwork,
11661 #ifdef LAPACK_FORTRAN_STRLEN_END
11665 #ifdef LAPACK_FORTRAN_STRLEN_END
11666 #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__, 1, 1)
11668 #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__)
11671 #define LAPACK_sormqr_base LAPACK_GLOBAL(sormqr,SORMQR)
11672 void LAPACK_sormqr_base(
11673 char const* side,
char const* trans,
11674 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11675 float const* A, lapack_int
const* lda,
11677 float* C, lapack_int
const* ldc,
11678 float* work, lapack_int
const* lwork,
11680 #ifdef LAPACK_FORTRAN_STRLEN_END
11684 #ifdef LAPACK_FORTRAN_STRLEN_END
11685 #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__, 1, 1)
11687 #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__)
11690 #define LAPACK_dormrq_base LAPACK_GLOBAL(dormrq,DORMRQ)
11691 void LAPACK_dormrq_base(
11692 char const* side,
char const* trans,
11693 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11694 double const* A, lapack_int
const* lda,
11696 double* C, lapack_int
const* ldc,
11697 double* work, lapack_int
const* lwork,
11699 #ifdef LAPACK_FORTRAN_STRLEN_END
11703 #ifdef LAPACK_FORTRAN_STRLEN_END
11704 #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__, 1, 1)
11706 #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__)
11709 #define LAPACK_sormrq_base LAPACK_GLOBAL(sormrq,SORMRQ)
11710 void LAPACK_sormrq_base(
11711 char const* side,
char const* trans,
11712 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11713 float const* A, lapack_int
const* lda,
11715 float* C, lapack_int
const* ldc,
11716 float* work, lapack_int
const* lwork,
11718 #ifdef LAPACK_FORTRAN_STRLEN_END
11722 #ifdef LAPACK_FORTRAN_STRLEN_END
11723 #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__, 1, 1)
11725 #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__)
11728 #define LAPACK_dormrz_base LAPACK_GLOBAL(dormrz,DORMRZ)
11729 void LAPACK_dormrz_base(
11730 char const* side,
char const* trans,
11731 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
11732 double const* A, lapack_int
const* lda,
11734 double* C, lapack_int
const* ldc,
11735 double* work, lapack_int
const* lwork,
11737 #ifdef LAPACK_FORTRAN_STRLEN_END
11741 #ifdef LAPACK_FORTRAN_STRLEN_END
11742 #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__, 1, 1)
11744 #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__)
11747 #define LAPACK_sormrz_base LAPACK_GLOBAL(sormrz,SORMRZ)
11748 void LAPACK_sormrz_base(
11749 char const* side,
char const* trans,
11750 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
11751 float const* A, lapack_int
const* lda,
11753 float* C, lapack_int
const* ldc,
11754 float* work, lapack_int
const* lwork,
11756 #ifdef LAPACK_FORTRAN_STRLEN_END
11760 #ifdef LAPACK_FORTRAN_STRLEN_END
11761 #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__, 1, 1)
11763 #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__)
11766 #define LAPACK_dormtr_base LAPACK_GLOBAL(dormtr,DORMTR)
11767 void LAPACK_dormtr_base(
11768 char const* side,
char const* uplo,
char const* trans,
11769 lapack_int
const* m, lapack_int
const* n,
11770 double const* A, lapack_int
const* lda,
11772 double* C, lapack_int
const* ldc,
11773 double* work, lapack_int
const* lwork,
11775 #ifdef LAPACK_FORTRAN_STRLEN_END
11776 ,
size_t,
size_t,
size_t
11779 #ifdef LAPACK_FORTRAN_STRLEN_END
11780 #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__, 1, 1, 1)
11782 #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__)
11785 #define LAPACK_sormtr_base LAPACK_GLOBAL(sormtr,SORMTR)
11786 void LAPACK_sormtr_base(
11787 char const* side,
char const* uplo,
char const* trans,
11788 lapack_int
const* m, lapack_int
const* n,
11789 float const* A, lapack_int
const* lda,
11791 float* C, lapack_int
const* ldc,
11792 float* work, lapack_int
const* lwork,
11794 #ifdef LAPACK_FORTRAN_STRLEN_END
11795 ,
size_t,
size_t,
size_t
11798 #ifdef LAPACK_FORTRAN_STRLEN_END
11799 #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__, 1, 1, 1)
11801 #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__)
11804 #define LAPACK_cpbcon_base LAPACK_GLOBAL(cpbcon,CPBCON)
11805 void LAPACK_cpbcon_base(
11807 lapack_int
const* n, lapack_int
const* kd,
11808 lapack_complex_float
const* AB, lapack_int
const* ldab,
11809 float const* anorm,
11811 lapack_complex_float* work,
11814 #ifdef LAPACK_FORTRAN_STRLEN_END
11818 #ifdef LAPACK_FORTRAN_STRLEN_END
11819 #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__, 1)
11821 #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__)
11824 #define LAPACK_dpbcon_base LAPACK_GLOBAL(dpbcon,DPBCON)
11825 void LAPACK_dpbcon_base(
11827 lapack_int
const* n, lapack_int
const* kd,
11828 double const* AB, lapack_int
const* ldab,
11829 double const* anorm,
11834 #ifdef LAPACK_FORTRAN_STRLEN_END
11838 #ifdef LAPACK_FORTRAN_STRLEN_END
11839 #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__, 1)
11841 #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__)
11844 #define LAPACK_spbcon_base LAPACK_GLOBAL(spbcon,SPBCON)
11845 void LAPACK_spbcon_base(
11847 lapack_int
const* n, lapack_int
const* kd,
11848 float const* AB, lapack_int
const* ldab,
11849 float const* anorm,
11854 #ifdef LAPACK_FORTRAN_STRLEN_END
11858 #ifdef LAPACK_FORTRAN_STRLEN_END
11859 #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__, 1)
11861 #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__)
11864 #define LAPACK_zpbcon_base LAPACK_GLOBAL(zpbcon,ZPBCON)
11865 void LAPACK_zpbcon_base(
11867 lapack_int
const* n, lapack_int
const* kd,
11868 lapack_complex_double
const* AB, lapack_int
const* ldab,
11869 double const* anorm,
11871 lapack_complex_double* work,
11874 #ifdef LAPACK_FORTRAN_STRLEN_END
11878 #ifdef LAPACK_FORTRAN_STRLEN_END
11879 #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__, 1)
11881 #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__)
11884 #define LAPACK_cpbequ_base LAPACK_GLOBAL(cpbequ,CPBEQU)
11885 void LAPACK_cpbequ_base(
11887 lapack_int
const* n, lapack_int
const* kd,
11888 lapack_complex_float
const* AB, lapack_int
const* ldab,
11893 #ifdef LAPACK_FORTRAN_STRLEN_END
11897 #ifdef LAPACK_FORTRAN_STRLEN_END
11898 #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__, 1)
11900 #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__)
11903 #define LAPACK_dpbequ_base LAPACK_GLOBAL(dpbequ,DPBEQU)
11904 void LAPACK_dpbequ_base(
11906 lapack_int
const* n, lapack_int
const* kd,
11907 double const* AB, lapack_int
const* ldab,
11912 #ifdef LAPACK_FORTRAN_STRLEN_END
11916 #ifdef LAPACK_FORTRAN_STRLEN_END
11917 #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__, 1)
11919 #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__)
11922 #define LAPACK_spbequ_base LAPACK_GLOBAL(spbequ,SPBEQU)
11923 void LAPACK_spbequ_base(
11925 lapack_int
const* n, lapack_int
const* kd,
11926 float const* AB, lapack_int
const* ldab,
11931 #ifdef LAPACK_FORTRAN_STRLEN_END
11935 #ifdef LAPACK_FORTRAN_STRLEN_END
11936 #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__, 1)
11938 #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__)
11941 #define LAPACK_zpbequ_base LAPACK_GLOBAL(zpbequ,ZPBEQU)
11942 void LAPACK_zpbequ_base(
11944 lapack_int
const* n, lapack_int
const* kd,
11945 lapack_complex_double
const* AB, lapack_int
const* ldab,
11950 #ifdef LAPACK_FORTRAN_STRLEN_END
11954 #ifdef LAPACK_FORTRAN_STRLEN_END
11955 #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__, 1)
11957 #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__)
11960 #define LAPACK_cpbrfs_base LAPACK_GLOBAL(cpbrfs,CPBRFS)
11961 void LAPACK_cpbrfs_base(
11963 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
11964 lapack_complex_float
const* AB, lapack_int
const* ldab,
11965 lapack_complex_float
const* AFB, lapack_int
const* ldafb,
11966 lapack_complex_float
const* B, lapack_int
const* ldb,
11967 lapack_complex_float* X, lapack_int
const* ldx,
11970 lapack_complex_float* work,
11973 #ifdef LAPACK_FORTRAN_STRLEN_END
11977 #ifdef LAPACK_FORTRAN_STRLEN_END
11978 #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__, 1)
11980 #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__)
11983 #define LAPACK_dpbrfs_base LAPACK_GLOBAL(dpbrfs,DPBRFS)
11984 void LAPACK_dpbrfs_base(
11986 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
11987 double const* AB, lapack_int
const* ldab,
11988 double const* AFB, lapack_int
const* ldafb,
11989 double const* B, lapack_int
const* ldb,
11990 double* X, lapack_int
const* ldx,
11996 #ifdef LAPACK_FORTRAN_STRLEN_END
12000 #ifdef LAPACK_FORTRAN_STRLEN_END
12001 #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__, 1)
12003 #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__)
12006 #define LAPACK_spbrfs_base LAPACK_GLOBAL(spbrfs,SPBRFS)
12007 void LAPACK_spbrfs_base(
12009 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12010 float const* AB, lapack_int
const* ldab,
12011 float const* AFB, lapack_int
const* ldafb,
12012 float const* B, lapack_int
const* ldb,
12013 float* X, lapack_int
const* ldx,
12019 #ifdef LAPACK_FORTRAN_STRLEN_END
12023 #ifdef LAPACK_FORTRAN_STRLEN_END
12024 #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__, 1)
12026 #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__)
12029 #define LAPACK_zpbrfs_base LAPACK_GLOBAL(zpbrfs,ZPBRFS)
12030 void LAPACK_zpbrfs_base(
12032 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12033 lapack_complex_double
const* AB, lapack_int
const* ldab,
12034 lapack_complex_double
const* AFB, lapack_int
const* ldafb,
12035 lapack_complex_double
const* B, lapack_int
const* ldb,
12036 lapack_complex_double* X, lapack_int
const* ldx,
12039 lapack_complex_double* work,
12042 #ifdef LAPACK_FORTRAN_STRLEN_END
12046 #ifdef LAPACK_FORTRAN_STRLEN_END
12047 #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__, 1)
12049 #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__)
12052 #define LAPACK_cpbstf_base LAPACK_GLOBAL(cpbstf,CPBSTF)
12053 void LAPACK_cpbstf_base(
12055 lapack_int
const* n, lapack_int
const* kd,
12056 lapack_complex_float* AB, lapack_int
const* ldab,
12058 #ifdef LAPACK_FORTRAN_STRLEN_END
12062 #ifdef LAPACK_FORTRAN_STRLEN_END
12063 #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__, 1)
12065 #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__)
12068 #define LAPACK_dpbstf_base LAPACK_GLOBAL(dpbstf,DPBSTF)
12069 void LAPACK_dpbstf_base(
12071 lapack_int
const* n, lapack_int
const* kd,
12072 double* AB, lapack_int
const* ldab,
12074 #ifdef LAPACK_FORTRAN_STRLEN_END
12078 #ifdef LAPACK_FORTRAN_STRLEN_END
12079 #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__, 1)
12081 #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__)
12084 #define LAPACK_spbstf_base LAPACK_GLOBAL(spbstf,SPBSTF)
12085 void LAPACK_spbstf_base(
12087 lapack_int
const* n, lapack_int
const* kd,
12088 float* AB, lapack_int
const* ldab,
12090 #ifdef LAPACK_FORTRAN_STRLEN_END
12094 #ifdef LAPACK_FORTRAN_STRLEN_END
12095 #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__, 1)
12097 #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__)
12100 #define LAPACK_zpbstf_base LAPACK_GLOBAL(zpbstf,ZPBSTF)
12101 void LAPACK_zpbstf_base(
12103 lapack_int
const* n, lapack_int
const* kd,
12104 lapack_complex_double* AB, lapack_int
const* ldab,
12106 #ifdef LAPACK_FORTRAN_STRLEN_END
12110 #ifdef LAPACK_FORTRAN_STRLEN_END
12111 #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__, 1)
12113 #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__)
12116 #define LAPACK_cpbsv_base LAPACK_GLOBAL(cpbsv,CPBSV)
12117 void LAPACK_cpbsv_base(
12119 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12120 lapack_complex_float* AB, lapack_int
const* ldab,
12121 lapack_complex_float* B, lapack_int
const* ldb,
12123 #ifdef LAPACK_FORTRAN_STRLEN_END
12127 #ifdef LAPACK_FORTRAN_STRLEN_END
12128 #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__, 1)
12130 #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__)
12133 #define LAPACK_dpbsv_base LAPACK_GLOBAL(dpbsv,DPBSV)
12134 void LAPACK_dpbsv_base(
12136 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12137 double* AB, lapack_int
const* ldab,
12138 double* B, lapack_int
const* ldb,
12140 #ifdef LAPACK_FORTRAN_STRLEN_END
12144 #ifdef LAPACK_FORTRAN_STRLEN_END
12145 #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__, 1)
12147 #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__)
12150 #define LAPACK_spbsv_base LAPACK_GLOBAL(spbsv,SPBSV)
12151 void LAPACK_spbsv_base(
12153 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12154 float* AB, lapack_int
const* ldab,
12155 float* B, lapack_int
const* ldb,
12157 #ifdef LAPACK_FORTRAN_STRLEN_END
12161 #ifdef LAPACK_FORTRAN_STRLEN_END
12162 #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__, 1)
12164 #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__)
12167 #define LAPACK_zpbsv_base LAPACK_GLOBAL(zpbsv,ZPBSV)
12168 void LAPACK_zpbsv_base(
12170 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12171 lapack_complex_double* AB, lapack_int
const* ldab,
12172 lapack_complex_double* B, lapack_int
const* ldb,
12174 #ifdef LAPACK_FORTRAN_STRLEN_END
12178 #ifdef LAPACK_FORTRAN_STRLEN_END
12179 #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__, 1)
12181 #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__)
12184 #define LAPACK_cpbsvx_base LAPACK_GLOBAL(cpbsvx,CPBSVX)
12185 void LAPACK_cpbsvx_base(
12186 char const* fact,
char const* uplo,
12187 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12188 lapack_complex_float* AB, lapack_int
const* ldab,
12189 lapack_complex_float* AFB, lapack_int
const* ldafb,
char* equed,
12191 lapack_complex_float* B,
12192 lapack_int
const* ldb,
12193 lapack_complex_float* X, lapack_int
const* ldx,
12197 lapack_complex_float* work,
12200 #ifdef LAPACK_FORTRAN_STRLEN_END
12201 ,
size_t,
size_t,
size_t
12204 #ifdef LAPACK_FORTRAN_STRLEN_END
12205 #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__, 1, 1, 1)
12207 #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__)
12210 #define LAPACK_dpbsvx_base LAPACK_GLOBAL(dpbsvx,DPBSVX)
12211 void LAPACK_dpbsvx_base(
12212 char const* fact,
char const* uplo,
12213 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12214 double* AB, lapack_int
const* ldab,
12215 double* AFB, lapack_int
const* ldafb,
char* equed,
12218 lapack_int
const* ldb,
12219 double* X, lapack_int
const* ldx,
12226 #ifdef LAPACK_FORTRAN_STRLEN_END
12227 ,
size_t,
size_t,
size_t
12230 #ifdef LAPACK_FORTRAN_STRLEN_END
12231 #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__, 1, 1, 1)
12233 #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__)
12236 #define LAPACK_spbsvx_base LAPACK_GLOBAL(spbsvx,SPBSVX)
12237 void LAPACK_spbsvx_base(
12238 char const* fact,
char const* uplo,
12239 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12240 float* AB, lapack_int
const* ldab,
12241 float* AFB, lapack_int
const* ldafb,
char* equed,
12244 lapack_int
const* ldb,
12245 float* X, lapack_int
const* ldx,
12252 #ifdef LAPACK_FORTRAN_STRLEN_END
12253 ,
size_t,
size_t,
size_t
12256 #ifdef LAPACK_FORTRAN_STRLEN_END
12257 #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__, 1, 1, 1)
12259 #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__)
12262 #define LAPACK_zpbsvx_base LAPACK_GLOBAL(zpbsvx,ZPBSVX)
12263 void LAPACK_zpbsvx_base(
12264 char const* fact,
char const* uplo,
12265 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12266 lapack_complex_double* AB, lapack_int
const* ldab,
12267 lapack_complex_double* AFB, lapack_int
const* ldafb,
char* equed,
12269 lapack_complex_double* B,
12270 lapack_int
const* ldb,
12271 lapack_complex_double* X, lapack_int
const* ldx,
12275 lapack_complex_double* work,
12278 #ifdef LAPACK_FORTRAN_STRLEN_END
12279 ,
size_t,
size_t,
size_t
12282 #ifdef LAPACK_FORTRAN_STRLEN_END
12283 #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__, 1, 1, 1)
12285 #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__)
12288 #define LAPACK_cpbtrf_base LAPACK_GLOBAL(cpbtrf,CPBTRF)
12289 void LAPACK_cpbtrf_base(
12291 lapack_int
const* n, lapack_int
const* kd,
12292 lapack_complex_float* AB, lapack_int
const* ldab,
12294 #ifdef LAPACK_FORTRAN_STRLEN_END
12298 #ifdef LAPACK_FORTRAN_STRLEN_END
12299 #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__, 1)
12301 #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__)
12304 #define LAPACK_dpbtrf_base LAPACK_GLOBAL(dpbtrf,DPBTRF)
12305 void LAPACK_dpbtrf_base(
12307 lapack_int
const* n, lapack_int
const* kd,
12308 double* AB, lapack_int
const* ldab,
12310 #ifdef LAPACK_FORTRAN_STRLEN_END
12314 #ifdef LAPACK_FORTRAN_STRLEN_END
12315 #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__, 1)
12317 #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__)
12320 #define LAPACK_spbtrf_base LAPACK_GLOBAL(spbtrf,SPBTRF)
12321 void LAPACK_spbtrf_base(
12323 lapack_int
const* n, lapack_int
const* kd,
12324 float* AB, lapack_int
const* ldab,
12326 #ifdef LAPACK_FORTRAN_STRLEN_END
12330 #ifdef LAPACK_FORTRAN_STRLEN_END
12331 #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__, 1)
12333 #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__)
12336 #define LAPACK_zpbtrf_base LAPACK_GLOBAL(zpbtrf,ZPBTRF)
12337 void LAPACK_zpbtrf_base(
12339 lapack_int
const* n, lapack_int
const* kd,
12340 lapack_complex_double* AB, lapack_int
const* ldab,
12342 #ifdef LAPACK_FORTRAN_STRLEN_END
12346 #ifdef LAPACK_FORTRAN_STRLEN_END
12347 #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__, 1)
12349 #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__)
12352 #define LAPACK_cpbtrs_base LAPACK_GLOBAL(cpbtrs,CPBTRS)
12353 void LAPACK_cpbtrs_base(
12355 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12356 lapack_complex_float
const* AB, lapack_int
const* ldab,
12357 lapack_complex_float* B, lapack_int
const* ldb,
12359 #ifdef LAPACK_FORTRAN_STRLEN_END
12363 #ifdef LAPACK_FORTRAN_STRLEN_END
12364 #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__, 1)
12366 #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__)
12369 #define LAPACK_dpbtrs_base LAPACK_GLOBAL(dpbtrs,DPBTRS)
12370 void LAPACK_dpbtrs_base(
12372 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12373 double const* AB, lapack_int
const* ldab,
12374 double* B, lapack_int
const* ldb,
12376 #ifdef LAPACK_FORTRAN_STRLEN_END
12380 #ifdef LAPACK_FORTRAN_STRLEN_END
12381 #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__, 1)
12383 #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__)
12386 #define LAPACK_spbtrs_base LAPACK_GLOBAL(spbtrs,SPBTRS)
12387 void LAPACK_spbtrs_base(
12389 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12390 float const* AB, lapack_int
const* ldab,
12391 float* B, lapack_int
const* ldb,
12393 #ifdef LAPACK_FORTRAN_STRLEN_END
12397 #ifdef LAPACK_FORTRAN_STRLEN_END
12398 #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__, 1)
12400 #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__)
12403 #define LAPACK_zpbtrs_base LAPACK_GLOBAL(zpbtrs,ZPBTRS)
12404 void LAPACK_zpbtrs_base(
12406 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12407 lapack_complex_double
const* AB, lapack_int
const* ldab,
12408 lapack_complex_double* B, lapack_int
const* ldb,
12410 #ifdef LAPACK_FORTRAN_STRLEN_END
12414 #ifdef LAPACK_FORTRAN_STRLEN_END
12415 #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__, 1)
12417 #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__)
12420 #define LAPACK_cpftrf_base LAPACK_GLOBAL(cpftrf,CPFTRF)
12421 void LAPACK_cpftrf_base(
12422 char const* transr,
char const* uplo,
12423 lapack_int
const* n,
12424 lapack_complex_float* A,
12426 #ifdef LAPACK_FORTRAN_STRLEN_END
12430 #ifdef LAPACK_FORTRAN_STRLEN_END
12431 #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__, 1, 1)
12433 #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__)
12436 #define LAPACK_dpftrf_base LAPACK_GLOBAL(dpftrf,DPFTRF)
12437 void LAPACK_dpftrf_base(
12438 char const* transr,
char const* uplo,
12439 lapack_int
const* n,
12442 #ifdef LAPACK_FORTRAN_STRLEN_END
12446 #ifdef LAPACK_FORTRAN_STRLEN_END
12447 #define LAPACK_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__, 1, 1)
12449 #define LAPACK_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__)
12452 #define LAPACK_spftrf_base LAPACK_GLOBAL(spftrf,SPFTRF)
12453 void LAPACK_spftrf_base(
12454 char const* transr,
char const* uplo,
12455 lapack_int
const* n,
12458 #ifdef LAPACK_FORTRAN_STRLEN_END
12462 #ifdef LAPACK_FORTRAN_STRLEN_END
12463 #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__, 1, 1)
12465 #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__)
12468 #define LAPACK_zpftrf_base LAPACK_GLOBAL(zpftrf,ZPFTRF)
12469 void LAPACK_zpftrf_base(
12470 char const* transr,
char const* uplo,
12471 lapack_int
const* n,
12472 lapack_complex_double* A,
12474 #ifdef LAPACK_FORTRAN_STRLEN_END
12478 #ifdef LAPACK_FORTRAN_STRLEN_END
12479 #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__, 1, 1)
12481 #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__)
12484 #define LAPACK_cpftri_base LAPACK_GLOBAL(cpftri,CPFTRI)
12485 void LAPACK_cpftri_base(
12486 char const* transr,
char const* uplo,
12487 lapack_int
const* n,
12488 lapack_complex_float* A,
12490 #ifdef LAPACK_FORTRAN_STRLEN_END
12494 #ifdef LAPACK_FORTRAN_STRLEN_END
12495 #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__, 1, 1)
12497 #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__)
12500 #define LAPACK_dpftri_base LAPACK_GLOBAL(dpftri,DPFTRI)
12501 void LAPACK_dpftri_base(
12502 char const* transr,
char const* uplo,
12503 lapack_int
const* n,
12506 #ifdef LAPACK_FORTRAN_STRLEN_END
12510 #ifdef LAPACK_FORTRAN_STRLEN_END
12511 #define LAPACK_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__, 1, 1)
12513 #define LAPACK_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__)
12516 #define LAPACK_spftri_base LAPACK_GLOBAL(spftri,SPFTRI)
12517 void LAPACK_spftri_base(
12518 char const* transr,
char const* uplo,
12519 lapack_int
const* n,
12522 #ifdef LAPACK_FORTRAN_STRLEN_END
12526 #ifdef LAPACK_FORTRAN_STRLEN_END
12527 #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__, 1, 1)
12529 #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__)
12532 #define LAPACK_zpftri_base LAPACK_GLOBAL(zpftri,ZPFTRI)
12533 void LAPACK_zpftri_base(
12534 char const* transr,
char const* uplo,
12535 lapack_int
const* n,
12536 lapack_complex_double* A,
12538 #ifdef LAPACK_FORTRAN_STRLEN_END
12542 #ifdef LAPACK_FORTRAN_STRLEN_END
12543 #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__, 1, 1)
12545 #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__)
12548 #define LAPACK_cpftrs_base LAPACK_GLOBAL(cpftrs,CPFTRS)
12549 void LAPACK_cpftrs_base(
12550 char const* transr,
char const* uplo,
12551 lapack_int
const* n, lapack_int
const* nrhs,
12552 lapack_complex_float
const* A,
12553 lapack_complex_float* B, lapack_int
const* ldb,
12555 #ifdef LAPACK_FORTRAN_STRLEN_END
12559 #ifdef LAPACK_FORTRAN_STRLEN_END
12560 #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__, 1, 1)
12562 #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__)
12565 #define LAPACK_dpftrs_base LAPACK_GLOBAL(dpftrs,DPFTRS)
12566 void LAPACK_dpftrs_base(
12567 char const* transr,
char const* uplo,
12568 lapack_int
const* n, lapack_int
const* nrhs,
12570 double* B, lapack_int
const* ldb,
12572 #ifdef LAPACK_FORTRAN_STRLEN_END
12576 #ifdef LAPACK_FORTRAN_STRLEN_END
12577 #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__, 1, 1)
12579 #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__)
12582 #define LAPACK_spftrs_base LAPACK_GLOBAL(spftrs,SPFTRS)
12583 void LAPACK_spftrs_base(
12584 char const* transr,
char const* uplo,
12585 lapack_int
const* n, lapack_int
const* nrhs,
12587 float* B, lapack_int
const* ldb,
12589 #ifdef LAPACK_FORTRAN_STRLEN_END
12593 #ifdef LAPACK_FORTRAN_STRLEN_END
12594 #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__, 1, 1)
12596 #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__)
12599 #define LAPACK_zpftrs_base LAPACK_GLOBAL(zpftrs,ZPFTRS)
12600 void LAPACK_zpftrs_base(
12601 char const* transr,
char const* uplo,
12602 lapack_int
const* n, lapack_int
const* nrhs,
12603 lapack_complex_double
const* A,
12604 lapack_complex_double* B, lapack_int
const* ldb,
12606 #ifdef LAPACK_FORTRAN_STRLEN_END
12610 #ifdef LAPACK_FORTRAN_STRLEN_END
12611 #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__, 1, 1)
12613 #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__)
12616 #define LAPACK_cpocon_base LAPACK_GLOBAL(cpocon,CPOCON)
12617 void LAPACK_cpocon_base(
12619 lapack_int
const* n,
12620 lapack_complex_float
const* A, lapack_int
const* lda,
12621 float const* anorm,
12623 lapack_complex_float* work,
12626 #ifdef LAPACK_FORTRAN_STRLEN_END
12630 #ifdef LAPACK_FORTRAN_STRLEN_END
12631 #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__, 1)
12633 #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__)
12636 #define LAPACK_dpocon_base LAPACK_GLOBAL(dpocon,DPOCON)
12637 void LAPACK_dpocon_base(
12639 lapack_int
const* n,
12640 double const* A, lapack_int
const* lda,
12641 double const* anorm,
12646 #ifdef LAPACK_FORTRAN_STRLEN_END
12650 #ifdef LAPACK_FORTRAN_STRLEN_END
12651 #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__, 1)
12653 #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__)
12656 #define LAPACK_spocon_base LAPACK_GLOBAL(spocon,SPOCON)
12657 void LAPACK_spocon_base(
12659 lapack_int
const* n,
12660 float const* A, lapack_int
const* lda,
12661 float const* anorm,
12666 #ifdef LAPACK_FORTRAN_STRLEN_END
12670 #ifdef LAPACK_FORTRAN_STRLEN_END
12671 #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__, 1)
12673 #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__)
12676 #define LAPACK_zpocon_base LAPACK_GLOBAL(zpocon,ZPOCON)
12677 void LAPACK_zpocon_base(
12679 lapack_int
const* n,
12680 lapack_complex_double
const* A, lapack_int
const* lda,
12681 double const* anorm,
12683 lapack_complex_double* work,
12686 #ifdef LAPACK_FORTRAN_STRLEN_END
12690 #ifdef LAPACK_FORTRAN_STRLEN_END
12691 #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__, 1)
12693 #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__)
12696 #define LAPACK_cpoequ LAPACK_GLOBAL(cpoequ,CPOEQU)
12697 void LAPACK_cpoequ(
12698 lapack_int
const* n,
12699 lapack_complex_float
const* A, lapack_int
const* lda,
12703 lapack_int* info );
12705 #define LAPACK_dpoequ LAPACK_GLOBAL(dpoequ,DPOEQU)
12706 void LAPACK_dpoequ(
12707 lapack_int
const* n,
12708 double const* A, lapack_int
const* lda,
12712 lapack_int* info );
12714 #define LAPACK_spoequ LAPACK_GLOBAL(spoequ,SPOEQU)
12715 void LAPACK_spoequ(
12716 lapack_int
const* n,
12717 float const* A, lapack_int
const* lda,
12721 lapack_int* info );
12723 #define LAPACK_zpoequ LAPACK_GLOBAL(zpoequ,ZPOEQU)
12724 void LAPACK_zpoequ(
12725 lapack_int
const* n,
12726 lapack_complex_double
const* A, lapack_int
const* lda,
12730 lapack_int* info );
12732 #define LAPACK_cpoequb LAPACK_GLOBAL(cpoequb,CPOEQUB)
12733 void LAPACK_cpoequb(
12734 lapack_int
const* n,
12735 lapack_complex_float
const* A, lapack_int
const* lda,
12739 lapack_int* info );
12741 #define LAPACK_dpoequb LAPACK_GLOBAL(dpoequb,DPOEQUB)
12742 void LAPACK_dpoequb(
12743 lapack_int
const* n,
12744 double const* A, lapack_int
const* lda,
12748 lapack_int* info );
12750 #define LAPACK_spoequb LAPACK_GLOBAL(spoequb,SPOEQUB)
12751 void LAPACK_spoequb(
12752 lapack_int
const* n,
12753 float const* A, lapack_int
const* lda,
12757 lapack_int* info );
12759 #define LAPACK_zpoequb LAPACK_GLOBAL(zpoequb,ZPOEQUB)
12760 void LAPACK_zpoequb(
12761 lapack_int
const* n,
12762 lapack_complex_double
const* A, lapack_int
const* lda,
12766 lapack_int* info );
12768 #define LAPACK_cporfs_base LAPACK_GLOBAL(cporfs,CPORFS)
12769 void LAPACK_cporfs_base(
12771 lapack_int
const* n, lapack_int
const* nrhs,
12772 lapack_complex_float
const* A, lapack_int
const* lda,
12773 lapack_complex_float
const* AF, lapack_int
const* ldaf,
12774 lapack_complex_float
const* B, lapack_int
const* ldb,
12775 lapack_complex_float* X, lapack_int
const* ldx,
12778 lapack_complex_float* work,
12781 #ifdef LAPACK_FORTRAN_STRLEN_END
12785 #ifdef LAPACK_FORTRAN_STRLEN_END
12786 #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__, 1)
12788 #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__)
12791 #define LAPACK_dporfs_base LAPACK_GLOBAL(dporfs,DPORFS)
12792 void LAPACK_dporfs_base(
12794 lapack_int
const* n, lapack_int
const* nrhs,
12795 double const* A, lapack_int
const* lda,
12796 double const* AF, lapack_int
const* ldaf,
12797 double const* B, lapack_int
const* ldb,
12798 double* X, lapack_int
const* ldx,
12804 #ifdef LAPACK_FORTRAN_STRLEN_END
12808 #ifdef LAPACK_FORTRAN_STRLEN_END
12809 #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__, 1)
12811 #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__)
12814 #define LAPACK_sporfs_base LAPACK_GLOBAL(sporfs,SPORFS)
12815 void LAPACK_sporfs_base(
12817 lapack_int
const* n, lapack_int
const* nrhs,
12818 float const* A, lapack_int
const* lda,
12819 float const* AF, lapack_int
const* ldaf,
12820 float const* B, lapack_int
const* ldb,
12821 float* X, lapack_int
const* ldx,
12827 #ifdef LAPACK_FORTRAN_STRLEN_END
12831 #ifdef LAPACK_FORTRAN_STRLEN_END
12832 #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__, 1)
12834 #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__)
12837 #define LAPACK_zporfs_base LAPACK_GLOBAL(zporfs,ZPORFS)
12838 void LAPACK_zporfs_base(
12840 lapack_int
const* n, lapack_int
const* nrhs,
12841 lapack_complex_double
const* A, lapack_int
const* lda,
12842 lapack_complex_double
const* AF, lapack_int
const* ldaf,
12843 lapack_complex_double
const* B, lapack_int
const* ldb,
12844 lapack_complex_double* X, lapack_int
const* ldx,
12847 lapack_complex_double* work,
12850 #ifdef LAPACK_FORTRAN_STRLEN_END
12854 #ifdef LAPACK_FORTRAN_STRLEN_END
12855 #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__, 1)
12857 #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__)
12860 #define LAPACK_cporfsx_base LAPACK_GLOBAL(cporfsx,CPORFSX)
12861 void LAPACK_cporfsx_base(
12862 char const* uplo,
char const* equed,
12863 lapack_int
const* n, lapack_int
const* nrhs,
12864 lapack_complex_float
const* A, lapack_int
const* lda,
12865 lapack_complex_float
const* AF, lapack_int
const* ldaf,
12867 lapack_complex_float
const* B, lapack_int
const* ldb,
12868 lapack_complex_float* X, lapack_int
const* ldx,
12870 float* berr, lapack_int
const* n_err_bnds,
12871 float* err_bnds_norm,
12872 float* err_bnds_comp, lapack_int
const* nparams,
12874 lapack_complex_float* work,
12877 #ifdef LAPACK_FORTRAN_STRLEN_END
12881 #ifdef LAPACK_FORTRAN_STRLEN_END
12882 #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__, 1, 1)
12884 #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__)
12887 #define LAPACK_dporfsx_base LAPACK_GLOBAL(dporfsx,DPORFSX)
12888 void LAPACK_dporfsx_base(
12889 char const* uplo,
char const* equed,
12890 lapack_int
const* n, lapack_int
const* nrhs,
12891 double const* A, lapack_int
const* lda,
12892 double const* AF, lapack_int
const* ldaf,
12894 double const* B, lapack_int
const* ldb,
12895 double* X, lapack_int
const* ldx,
12897 double* berr, lapack_int
const* n_err_bnds,
12898 double* err_bnds_norm,
12899 double* err_bnds_comp, lapack_int
const* nparams,
12904 #ifdef LAPACK_FORTRAN_STRLEN_END
12908 #ifdef LAPACK_FORTRAN_STRLEN_END
12909 #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__, 1, 1)
12911 #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__)
12914 #define LAPACK_sporfsx_base LAPACK_GLOBAL(sporfsx,SPORFSX)
12915 void LAPACK_sporfsx_base(
12916 char const* uplo,
char const* equed,
12917 lapack_int
const* n, lapack_int
const* nrhs,
12918 float const* A, lapack_int
const* lda,
12919 float const* AF, lapack_int
const* ldaf,
12921 float const* B, lapack_int
const* ldb,
12922 float* X, lapack_int
const* ldx,
12924 float* berr, lapack_int
const* n_err_bnds,
12925 float* err_bnds_norm,
12926 float* err_bnds_comp, lapack_int
const* nparams,
12931 #ifdef LAPACK_FORTRAN_STRLEN_END
12935 #ifdef LAPACK_FORTRAN_STRLEN_END
12936 #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__, 1, 1)
12938 #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__)
12941 #define LAPACK_zporfsx_base LAPACK_GLOBAL(zporfsx,ZPORFSX)
12942 void LAPACK_zporfsx_base(
12943 char const* uplo,
char const* equed,
12944 lapack_int
const* n, lapack_int
const* nrhs,
12945 lapack_complex_double
const* A, lapack_int
const* lda,
12946 lapack_complex_double
const* AF, lapack_int
const* ldaf,
12948 lapack_complex_double
const* B, lapack_int
const* ldb,
12949 lapack_complex_double* X, lapack_int
const* ldx,
12951 double* berr, lapack_int
const* n_err_bnds,
12952 double* err_bnds_norm,
12953 double* err_bnds_comp, lapack_int
const* nparams,
12955 lapack_complex_double* work,
12958 #ifdef LAPACK_FORTRAN_STRLEN_END
12962 #ifdef LAPACK_FORTRAN_STRLEN_END
12963 #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__, 1, 1)
12965 #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__)
12968 #define LAPACK_cposv_base LAPACK_GLOBAL(cposv,CPOSV)
12969 void LAPACK_cposv_base(
12971 lapack_int
const* n, lapack_int
const* nrhs,
12972 lapack_complex_float* A, lapack_int
const* lda,
12973 lapack_complex_float* B, lapack_int
const* ldb,
12975 #ifdef LAPACK_FORTRAN_STRLEN_END
12979 #ifdef LAPACK_FORTRAN_STRLEN_END
12980 #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__, 1)
12982 #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__)
12985 #define LAPACK_dposv_base LAPACK_GLOBAL(dposv,DPOSV)
12986 void LAPACK_dposv_base(
12988 lapack_int
const* n, lapack_int
const* nrhs,
12989 double* A, lapack_int
const* lda,
12990 double* B, lapack_int
const* ldb,
12992 #ifdef LAPACK_FORTRAN_STRLEN_END
12996 #ifdef LAPACK_FORTRAN_STRLEN_END
12997 #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__, 1)
12999 #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__)
13002 #define LAPACK_sposv_base LAPACK_GLOBAL(sposv,SPOSV)
13003 void LAPACK_sposv_base(
13005 lapack_int
const* n, lapack_int
const* nrhs,
13006 float* A, lapack_int
const* lda,
13007 float* B, lapack_int
const* ldb,
13009 #ifdef LAPACK_FORTRAN_STRLEN_END
13013 #ifdef LAPACK_FORTRAN_STRLEN_END
13014 #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__, 1)
13016 #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__)
13019 #define LAPACK_zposv_base LAPACK_GLOBAL(zposv,ZPOSV)
13020 void LAPACK_zposv_base(
13022 lapack_int
const* n, lapack_int
const* nrhs,
13023 lapack_complex_double* A, lapack_int
const* lda,
13024 lapack_complex_double* B, lapack_int
const* ldb,
13026 #ifdef LAPACK_FORTRAN_STRLEN_END
13030 #ifdef LAPACK_FORTRAN_STRLEN_END
13031 #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__, 1)
13033 #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__)
13036 #define LAPACK_dsposv_base LAPACK_GLOBAL(dsposv,DSPOSV)
13037 void LAPACK_dsposv_base(
13039 lapack_int
const* n, lapack_int
const* nrhs,
13040 double* A, lapack_int
const* lda,
13041 double const* B, lapack_int
const* ldb,
13042 double* X, lapack_int
const* ldx,
13044 float* swork, lapack_int* iter,
13046 #ifdef LAPACK_FORTRAN_STRLEN_END
13050 #ifdef LAPACK_FORTRAN_STRLEN_END
13051 #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__, 1)
13053 #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__)
13056 #define LAPACK_zcposv_base LAPACK_GLOBAL(zcposv,ZCPOSV)
13057 void LAPACK_zcposv_base(
13059 lapack_int
const* n, lapack_int
const* nrhs,
13060 lapack_complex_double* A, lapack_int
const* lda,
13061 lapack_complex_double
const* B, lapack_int
const* ldb,
13062 lapack_complex_double* X, lapack_int
const* ldx,
13063 lapack_complex_double* work,
13064 lapack_complex_float* swork,
13065 double* rwork, lapack_int* iter,
13067 #ifdef LAPACK_FORTRAN_STRLEN_END
13071 #ifdef LAPACK_FORTRAN_STRLEN_END
13072 #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__, 1)
13074 #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__)
13077 #define LAPACK_cposvx_base LAPACK_GLOBAL(cposvx,CPOSVX)
13078 void LAPACK_cposvx_base(
13079 char const* fact,
char const* uplo,
13080 lapack_int
const* n, lapack_int
const* nrhs,
13081 lapack_complex_float* A, lapack_int
const* lda,
13082 lapack_complex_float* AF, lapack_int
const* ldaf,
char* equed,
13084 lapack_complex_float* B,
13085 lapack_int
const* ldb,
13086 lapack_complex_float* X, lapack_int
const* ldx,
13090 lapack_complex_float* work,
13093 #ifdef LAPACK_FORTRAN_STRLEN_END
13094 ,
size_t,
size_t,
size_t
13097 #ifdef LAPACK_FORTRAN_STRLEN_END
13098 #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__, 1, 1, 1)
13100 #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__)
13103 #define LAPACK_dposvx_base LAPACK_GLOBAL(dposvx,DPOSVX)
13104 void LAPACK_dposvx_base(
13105 char const* fact,
char const* uplo,
13106 lapack_int
const* n, lapack_int
const* nrhs,
13107 double* A, lapack_int
const* lda,
13108 double* AF, lapack_int
const* ldaf,
char* equed,
13111 lapack_int
const* ldb,
13112 double* X, lapack_int
const* ldx,
13119 #ifdef LAPACK_FORTRAN_STRLEN_END
13120 ,
size_t,
size_t,
size_t
13123 #ifdef LAPACK_FORTRAN_STRLEN_END
13124 #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__, 1, 1, 1)
13126 #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__)
13129 #define LAPACK_sposvx_base LAPACK_GLOBAL(sposvx,SPOSVX)
13130 void LAPACK_sposvx_base(
13131 char const* fact,
char const* uplo,
13132 lapack_int
const* n, lapack_int
const* nrhs,
13133 float* A, lapack_int
const* lda,
13134 float* AF, lapack_int
const* ldaf,
char* equed,
13137 lapack_int
const* ldb,
13138 float* X, lapack_int
const* ldx,
13145 #ifdef LAPACK_FORTRAN_STRLEN_END
13146 ,
size_t,
size_t,
size_t
13149 #ifdef LAPACK_FORTRAN_STRLEN_END
13150 #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__, 1, 1, 1)
13152 #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__)
13155 #define LAPACK_zposvx_base LAPACK_GLOBAL(zposvx,ZPOSVX)
13156 void LAPACK_zposvx_base(
13157 char const* fact,
char const* uplo,
13158 lapack_int
const* n, lapack_int
const* nrhs,
13159 lapack_complex_double* A, lapack_int
const* lda,
13160 lapack_complex_double* AF, lapack_int
const* ldaf,
char* equed,
13162 lapack_complex_double* B,
13163 lapack_int
const* ldb,
13164 lapack_complex_double* X, lapack_int
const* ldx,
13168 lapack_complex_double* work,
13171 #ifdef LAPACK_FORTRAN_STRLEN_END
13172 ,
size_t,
size_t,
size_t
13175 #ifdef LAPACK_FORTRAN_STRLEN_END
13176 #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__, 1, 1, 1)
13178 #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__)
13181 #define LAPACK_cposvxx_base LAPACK_GLOBAL(cposvxx,CPOSVXX)
13182 void LAPACK_cposvxx_base(
13183 char const* fact,
char const* uplo,
13184 lapack_int
const* n, lapack_int
const* nrhs,
13185 lapack_complex_float* A, lapack_int
const* lda,
13186 lapack_complex_float* AF, lapack_int
const* ldaf,
char* equed,
13188 lapack_complex_float* B,
13189 lapack_int
const* ldb,
13190 lapack_complex_float* X, lapack_int
const* ldx,
13193 float* berr, lapack_int
const* n_err_bnds,
13194 float* err_bnds_norm,
13195 float* err_bnds_comp, lapack_int
const* nparams,
13197 lapack_complex_float* work,
13200 #ifdef LAPACK_FORTRAN_STRLEN_END
13201 ,
size_t,
size_t,
size_t
13204 #ifdef LAPACK_FORTRAN_STRLEN_END
13205 #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__, 1, 1, 1)
13207 #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__)
13210 #define LAPACK_dposvxx_base LAPACK_GLOBAL(dposvxx,DPOSVXX)
13211 void LAPACK_dposvxx_base(
13212 char const* fact,
char const* uplo,
13213 lapack_int
const* n, lapack_int
const* nrhs,
13214 double* A, lapack_int
const* lda,
13215 double* AF, lapack_int
const* ldaf,
char* equed,
13218 lapack_int
const* ldb,
13219 double* X, lapack_int
const* ldx,
13222 double* berr, lapack_int
const* n_err_bnds,
13223 double* err_bnds_norm,
13224 double* err_bnds_comp, lapack_int
const* nparams,
13229 #ifdef LAPACK_FORTRAN_STRLEN_END
13230 ,
size_t,
size_t,
size_t
13233 #ifdef LAPACK_FORTRAN_STRLEN_END
13234 #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__, 1, 1, 1)
13236 #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__)
13239 #define LAPACK_sposvxx_base LAPACK_GLOBAL(sposvxx,SPOSVXX)
13240 void LAPACK_sposvxx_base(
13241 char const* fact,
char const* uplo,
13242 lapack_int
const* n, lapack_int
const* nrhs,
13243 float* A, lapack_int
const* lda,
13244 float* AF, lapack_int
const* ldaf,
char* equed,
13247 lapack_int
const* ldb,
13248 float* X, lapack_int
const* ldx,
13251 float* berr, lapack_int
const* n_err_bnds,
13252 float* err_bnds_norm,
13253 float* err_bnds_comp, lapack_int
const* nparams,
13258 #ifdef LAPACK_FORTRAN_STRLEN_END
13259 ,
size_t,
size_t,
size_t
13262 #ifdef LAPACK_FORTRAN_STRLEN_END
13263 #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__, 1, 1, 1)
13265 #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__)
13268 #define LAPACK_zposvxx_base LAPACK_GLOBAL(zposvxx,ZPOSVXX)
13269 void LAPACK_zposvxx_base(
13270 char const* fact,
char const* uplo,
13271 lapack_int
const* n, lapack_int
const* nrhs,
13272 lapack_complex_double* A, lapack_int
const* lda,
13273 lapack_complex_double* AF, lapack_int
const* ldaf,
char* equed,
13275 lapack_complex_double* B,
13276 lapack_int
const* ldb,
13277 lapack_complex_double* X, lapack_int
const* ldx,
13280 double* berr, lapack_int
const* n_err_bnds,
13281 double* err_bnds_norm,
13282 double* err_bnds_comp, lapack_int
const* nparams,
13284 lapack_complex_double* work,
13287 #ifdef LAPACK_FORTRAN_STRLEN_END
13288 ,
size_t,
size_t,
size_t
13291 #ifdef LAPACK_FORTRAN_STRLEN_END
13292 #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__, 1, 1, 1)
13294 #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__)
13297 #define LAPACK_cpotf2_base LAPACK_GLOBAL(cpotf2,CPOTF2)
13298 void LAPACK_cpotf2_base(
13300 lapack_int
const* n,
13301 lapack_complex_float* A, lapack_int
const* lda,
13303 #ifdef LAPACK_FORTRAN_STRLEN_END
13307 #ifdef LAPACK_FORTRAN_STRLEN_END
13308 #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__, 1)
13310 #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__)
13313 #define LAPACK_dpotf2_base LAPACK_GLOBAL(dpotf2,DPOTF2)
13314 void LAPACK_dpotf2_base(
13316 lapack_int
const* n,
13317 double* A, lapack_int
const* lda,
13319 #ifdef LAPACK_FORTRAN_STRLEN_END
13323 #ifdef LAPACK_FORTRAN_STRLEN_END
13324 #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__, 1)
13326 #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__)
13329 #define LAPACK_spotf2_base LAPACK_GLOBAL(spotf2,SPOTF2)
13330 void LAPACK_spotf2_base(
13332 lapack_int
const* n,
13333 float* A, lapack_int
const* lda,
13335 #ifdef LAPACK_FORTRAN_STRLEN_END
13339 #ifdef LAPACK_FORTRAN_STRLEN_END
13340 #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__, 1)
13342 #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__)
13345 #define LAPACK_zpotf2_base LAPACK_GLOBAL(zpotf2,ZPOTF2)
13346 void LAPACK_zpotf2_base(
13348 lapack_int
const* n,
13349 lapack_complex_double* A, lapack_int
const* lda,
13351 #ifdef LAPACK_FORTRAN_STRLEN_END
13355 #ifdef LAPACK_FORTRAN_STRLEN_END
13356 #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__, 1)
13358 #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__)
13361 #define LAPACK_cpotrf_base LAPACK_GLOBAL(cpotrf,CPOTRF)
13362 void LAPACK_cpotrf_base(
13364 lapack_int
const* n,
13365 lapack_complex_float* A, lapack_int
const* lda,
13367 #ifdef LAPACK_FORTRAN_STRLEN_END
13371 #ifdef LAPACK_FORTRAN_STRLEN_END
13372 #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__, 1)
13374 #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__)
13377 #define LAPACK_dpotrf_base LAPACK_GLOBAL(dpotrf,DPOTRF)
13378 void LAPACK_dpotrf_base(
13380 lapack_int
const* n,
13381 double* A, lapack_int
const* lda,
13383 #ifdef LAPACK_FORTRAN_STRLEN_END
13387 #ifdef LAPACK_FORTRAN_STRLEN_END
13388 #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__, 1)
13390 #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__)
13393 #define LAPACK_spotrf_base LAPACK_GLOBAL(spotrf,SPOTRF)
13394 void LAPACK_spotrf_base(
13396 lapack_int
const* n,
13397 float* A, lapack_int
const* lda,
13399 #ifdef LAPACK_FORTRAN_STRLEN_END
13403 #ifdef LAPACK_FORTRAN_STRLEN_END
13404 #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__, 1)
13406 #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__)
13409 #define LAPACK_zpotrf_base LAPACK_GLOBAL(zpotrf,ZPOTRF)
13410 void LAPACK_zpotrf_base(
13412 lapack_int
const* n,
13413 lapack_complex_double* A, lapack_int
const* lda,
13415 #ifdef LAPACK_FORTRAN_STRLEN_END
13419 #ifdef LAPACK_FORTRAN_STRLEN_END
13420 #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__, 1)
13422 #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__)
13425 #define LAPACK_cpotrf2_base LAPACK_GLOBAL(cpotrf2,CPOTRF2)
13426 void LAPACK_cpotrf2_base(
13428 lapack_int
const* n,
13429 lapack_complex_float* A, lapack_int
const* lda,
13431 #ifdef LAPACK_FORTRAN_STRLEN_END
13435 #ifdef LAPACK_FORTRAN_STRLEN_END
13436 #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__, 1)
13438 #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__)
13441 #define LAPACK_dpotrf2_base LAPACK_GLOBAL(dpotrf2,DPOTRF2)
13442 void LAPACK_dpotrf2_base(
13444 lapack_int
const* n,
13445 double* A, lapack_int
const* lda,
13447 #ifdef LAPACK_FORTRAN_STRLEN_END
13451 #ifdef LAPACK_FORTRAN_STRLEN_END
13452 #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__, 1)
13454 #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__)
13457 #define LAPACK_spotrf2_base LAPACK_GLOBAL(spotrf2,SPOTRF2)
13458 void LAPACK_spotrf2_base(
13460 lapack_int
const* n,
13461 float* A, lapack_int
const* lda,
13463 #ifdef LAPACK_FORTRAN_STRLEN_END
13467 #ifdef LAPACK_FORTRAN_STRLEN_END
13468 #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__, 1)
13470 #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__)
13473 #define LAPACK_zpotrf2_base LAPACK_GLOBAL(zpotrf2,ZPOTRF2)
13474 void LAPACK_zpotrf2_base(
13476 lapack_int
const* n,
13477 lapack_complex_double* A, lapack_int
const* lda,
13479 #ifdef LAPACK_FORTRAN_STRLEN_END
13483 #ifdef LAPACK_FORTRAN_STRLEN_END
13484 #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__, 1)
13486 #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__)
13489 #define LAPACK_cpotri_base LAPACK_GLOBAL(cpotri,CPOTRI)
13490 void LAPACK_cpotri_base(
13492 lapack_int
const* n,
13493 lapack_complex_float* A, lapack_int
const* lda,
13495 #ifdef LAPACK_FORTRAN_STRLEN_END
13499 #ifdef LAPACK_FORTRAN_STRLEN_END
13500 #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__, 1)
13502 #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__)
13505 #define LAPACK_dpotri_base LAPACK_GLOBAL(dpotri,DPOTRI)
13506 void LAPACK_dpotri_base(
13508 lapack_int
const* n,
13509 double* A, lapack_int
const* lda,
13511 #ifdef LAPACK_FORTRAN_STRLEN_END
13515 #ifdef LAPACK_FORTRAN_STRLEN_END
13516 #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__, 1)
13518 #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__)
13521 #define LAPACK_spotri_base LAPACK_GLOBAL(spotri,SPOTRI)
13522 void LAPACK_spotri_base(
13524 lapack_int
const* n,
13525 float* A, lapack_int
const* lda,
13527 #ifdef LAPACK_FORTRAN_STRLEN_END
13531 #ifdef LAPACK_FORTRAN_STRLEN_END
13532 #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__, 1)
13534 #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__)
13537 #define LAPACK_zpotri_base LAPACK_GLOBAL(zpotri,ZPOTRI)
13538 void LAPACK_zpotri_base(
13540 lapack_int
const* n,
13541 lapack_complex_double* A, lapack_int
const* lda,
13543 #ifdef LAPACK_FORTRAN_STRLEN_END
13547 #ifdef LAPACK_FORTRAN_STRLEN_END
13548 #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__, 1)
13550 #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__)
13553 #define LAPACK_cpotrs_base LAPACK_GLOBAL(cpotrs,CPOTRS)
13554 void LAPACK_cpotrs_base(
13556 lapack_int
const* n, lapack_int
const* nrhs,
13557 lapack_complex_float
const* A, lapack_int
const* lda,
13558 lapack_complex_float* B, lapack_int
const* ldb,
13560 #ifdef LAPACK_FORTRAN_STRLEN_END
13564 #ifdef LAPACK_FORTRAN_STRLEN_END
13565 #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__, 1)
13567 #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__)
13570 #define LAPACK_dpotrs_base LAPACK_GLOBAL(dpotrs,DPOTRS)
13571 void LAPACK_dpotrs_base(
13573 lapack_int
const* n, lapack_int
const* nrhs,
13574 double const* A, lapack_int
const* lda,
13575 double* B, lapack_int
const* ldb,
13577 #ifdef LAPACK_FORTRAN_STRLEN_END
13581 #ifdef LAPACK_FORTRAN_STRLEN_END
13582 #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__, 1)
13584 #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__)
13587 #define LAPACK_spotrs_base LAPACK_GLOBAL(spotrs,SPOTRS)
13588 void LAPACK_spotrs_base(
13590 lapack_int
const* n, lapack_int
const* nrhs,
13591 float const* A, lapack_int
const* lda,
13592 float* B, lapack_int
const* ldb,
13594 #ifdef LAPACK_FORTRAN_STRLEN_END
13598 #ifdef LAPACK_FORTRAN_STRLEN_END
13599 #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__, 1)
13601 #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__)
13604 #define LAPACK_zpotrs_base LAPACK_GLOBAL(zpotrs,ZPOTRS)
13605 void LAPACK_zpotrs_base(
13607 lapack_int
const* n, lapack_int
const* nrhs,
13608 lapack_complex_double
const* A, lapack_int
const* lda,
13609 lapack_complex_double* B, lapack_int
const* ldb,
13611 #ifdef LAPACK_FORTRAN_STRLEN_END
13615 #ifdef LAPACK_FORTRAN_STRLEN_END
13616 #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__, 1)
13618 #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__)
13621 #define LAPACK_cppcon_base LAPACK_GLOBAL(cppcon,CPPCON)
13622 void LAPACK_cppcon_base(
13624 lapack_int
const* n,
13625 lapack_complex_float
const* AP,
13626 float const* anorm,
13628 lapack_complex_float* work,
13631 #ifdef LAPACK_FORTRAN_STRLEN_END
13635 #ifdef LAPACK_FORTRAN_STRLEN_END
13636 #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__, 1)
13638 #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__)
13641 #define LAPACK_dppcon_base LAPACK_GLOBAL(dppcon,DPPCON)
13642 void LAPACK_dppcon_base(
13644 lapack_int
const* n,
13646 double const* anorm,
13651 #ifdef LAPACK_FORTRAN_STRLEN_END
13655 #ifdef LAPACK_FORTRAN_STRLEN_END
13656 #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__, 1)
13658 #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__)
13661 #define LAPACK_sppcon_base LAPACK_GLOBAL(sppcon,SPPCON)
13662 void LAPACK_sppcon_base(
13664 lapack_int
const* n,
13666 float const* anorm,
13671 #ifdef LAPACK_FORTRAN_STRLEN_END
13675 #ifdef LAPACK_FORTRAN_STRLEN_END
13676 #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__, 1)
13678 #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__)
13681 #define LAPACK_zppcon_base LAPACK_GLOBAL(zppcon,ZPPCON)
13682 void LAPACK_zppcon_base(
13684 lapack_int
const* n,
13685 lapack_complex_double
const* AP,
13686 double const* anorm,
13688 lapack_complex_double* work,
13691 #ifdef LAPACK_FORTRAN_STRLEN_END
13695 #ifdef LAPACK_FORTRAN_STRLEN_END
13696 #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__, 1)
13698 #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__)
13701 #define LAPACK_cppequ_base LAPACK_GLOBAL(cppequ,CPPEQU)
13702 void LAPACK_cppequ_base(
13704 lapack_int
const* n,
13705 lapack_complex_float
const* AP,
13710 #ifdef LAPACK_FORTRAN_STRLEN_END
13714 #ifdef LAPACK_FORTRAN_STRLEN_END
13715 #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__, 1)
13717 #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__)
13720 #define LAPACK_dppequ_base LAPACK_GLOBAL(dppequ,DPPEQU)
13721 void LAPACK_dppequ_base(
13723 lapack_int
const* n,
13729 #ifdef LAPACK_FORTRAN_STRLEN_END
13733 #ifdef LAPACK_FORTRAN_STRLEN_END
13734 #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__, 1)
13736 #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__)
13739 #define LAPACK_sppequ_base LAPACK_GLOBAL(sppequ,SPPEQU)
13740 void LAPACK_sppequ_base(
13742 lapack_int
const* n,
13748 #ifdef LAPACK_FORTRAN_STRLEN_END
13752 #ifdef LAPACK_FORTRAN_STRLEN_END
13753 #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__, 1)
13755 #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__)
13758 #define LAPACK_zppequ_base LAPACK_GLOBAL(zppequ,ZPPEQU)
13759 void LAPACK_zppequ_base(
13761 lapack_int
const* n,
13762 lapack_complex_double
const* AP,
13767 #ifdef LAPACK_FORTRAN_STRLEN_END
13771 #ifdef LAPACK_FORTRAN_STRLEN_END
13772 #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__, 1)
13774 #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__)
13777 #define LAPACK_cpprfs_base LAPACK_GLOBAL(cpprfs,CPPRFS)
13778 void LAPACK_cpprfs_base(
13780 lapack_int
const* n, lapack_int
const* nrhs,
13781 lapack_complex_float
const* AP,
13782 lapack_complex_float
const* AFP,
13783 lapack_complex_float
const* B, lapack_int
const* ldb,
13784 lapack_complex_float* X, lapack_int
const* ldx,
13787 lapack_complex_float* work,
13790 #ifdef LAPACK_FORTRAN_STRLEN_END
13794 #ifdef LAPACK_FORTRAN_STRLEN_END
13795 #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__, 1)
13797 #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__)
13800 #define LAPACK_dpprfs_base LAPACK_GLOBAL(dpprfs,DPPRFS)
13801 void LAPACK_dpprfs_base(
13803 lapack_int
const* n, lapack_int
const* nrhs,
13806 double const* B, lapack_int
const* ldb,
13807 double* X, lapack_int
const* ldx,
13813 #ifdef LAPACK_FORTRAN_STRLEN_END
13817 #ifdef LAPACK_FORTRAN_STRLEN_END
13818 #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__, 1)
13820 #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__)
13823 #define LAPACK_spprfs_base LAPACK_GLOBAL(spprfs,SPPRFS)
13824 void LAPACK_spprfs_base(
13826 lapack_int
const* n, lapack_int
const* nrhs,
13829 float const* B, lapack_int
const* ldb,
13830 float* X, lapack_int
const* ldx,
13836 #ifdef LAPACK_FORTRAN_STRLEN_END
13840 #ifdef LAPACK_FORTRAN_STRLEN_END
13841 #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__, 1)
13843 #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__)
13846 #define LAPACK_zpprfs_base LAPACK_GLOBAL(zpprfs,ZPPRFS)
13847 void LAPACK_zpprfs_base(
13849 lapack_int
const* n, lapack_int
const* nrhs,
13850 lapack_complex_double
const* AP,
13851 lapack_complex_double
const* AFP,
13852 lapack_complex_double
const* B, lapack_int
const* ldb,
13853 lapack_complex_double* X, lapack_int
const* ldx,
13856 lapack_complex_double* work,
13859 #ifdef LAPACK_FORTRAN_STRLEN_END
13863 #ifdef LAPACK_FORTRAN_STRLEN_END
13864 #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__, 1)
13866 #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__)
13869 #define LAPACK_cppsv_base LAPACK_GLOBAL(cppsv,CPPSV)
13870 void LAPACK_cppsv_base(
13872 lapack_int
const* n, lapack_int
const* nrhs,
13873 lapack_complex_float* AP,
13874 lapack_complex_float* B, lapack_int
const* ldb,
13876 #ifdef LAPACK_FORTRAN_STRLEN_END
13880 #ifdef LAPACK_FORTRAN_STRLEN_END
13881 #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__, 1)
13883 #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__)
13886 #define LAPACK_dppsv_base LAPACK_GLOBAL(dppsv,DPPSV)
13887 void LAPACK_dppsv_base(
13889 lapack_int
const* n, lapack_int
const* nrhs,
13891 double* B, lapack_int
const* ldb,
13893 #ifdef LAPACK_FORTRAN_STRLEN_END
13897 #ifdef LAPACK_FORTRAN_STRLEN_END
13898 #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__, 1)
13900 #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__)
13903 #define LAPACK_sppsv_base LAPACK_GLOBAL(sppsv,SPPSV)
13904 void LAPACK_sppsv_base(
13906 lapack_int
const* n, lapack_int
const* nrhs,
13908 float* B, lapack_int
const* ldb,
13910 #ifdef LAPACK_FORTRAN_STRLEN_END
13914 #ifdef LAPACK_FORTRAN_STRLEN_END
13915 #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__, 1)
13917 #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__)
13920 #define LAPACK_zppsv_base LAPACK_GLOBAL(zppsv,ZPPSV)
13921 void LAPACK_zppsv_base(
13923 lapack_int
const* n, lapack_int
const* nrhs,
13924 lapack_complex_double* AP,
13925 lapack_complex_double* B, lapack_int
const* ldb,
13927 #ifdef LAPACK_FORTRAN_STRLEN_END
13931 #ifdef LAPACK_FORTRAN_STRLEN_END
13932 #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__, 1)
13934 #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__)
13937 #define LAPACK_cppsvx_base LAPACK_GLOBAL(cppsvx,CPPSVX)
13938 void LAPACK_cppsvx_base(
13939 char const* fact,
char const* uplo,
13940 lapack_int
const* n, lapack_int
const* nrhs,
13941 lapack_complex_float* AP,
13942 lapack_complex_float* AFP,
char* equed,
13944 lapack_complex_float* B,
13945 lapack_int
const* ldb,
13946 lapack_complex_float* X, lapack_int
const* ldx,
13950 lapack_complex_float* work,
13953 #ifdef LAPACK_FORTRAN_STRLEN_END
13954 ,
size_t,
size_t,
size_t
13957 #ifdef LAPACK_FORTRAN_STRLEN_END
13958 #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__, 1, 1, 1)
13960 #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__)
13963 #define LAPACK_dppsvx_base LAPACK_GLOBAL(dppsvx,DPPSVX)
13964 void LAPACK_dppsvx_base(
13965 char const* fact,
char const* uplo,
13966 lapack_int
const* n, lapack_int
const* nrhs,
13968 double* AFP,
char* equed,
13971 lapack_int
const* ldb,
13972 double* X, lapack_int
const* ldx,
13979 #ifdef LAPACK_FORTRAN_STRLEN_END
13980 ,
size_t,
size_t,
size_t
13983 #ifdef LAPACK_FORTRAN_STRLEN_END
13984 #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__, 1, 1, 1)
13986 #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__)
13989 #define LAPACK_sppsvx_base LAPACK_GLOBAL(sppsvx,SPPSVX)
13990 void LAPACK_sppsvx_base(
13991 char const* fact,
char const* uplo,
13992 lapack_int
const* n, lapack_int
const* nrhs,
13994 float* AFP,
char* equed,
13997 lapack_int
const* ldb,
13998 float* X, lapack_int
const* ldx,
14005 #ifdef LAPACK_FORTRAN_STRLEN_END
14006 ,
size_t,
size_t,
size_t
14009 #ifdef LAPACK_FORTRAN_STRLEN_END
14010 #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__, 1, 1, 1)
14012 #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__)
14015 #define LAPACK_zppsvx_base LAPACK_GLOBAL(zppsvx,ZPPSVX)
14016 void LAPACK_zppsvx_base(
14017 char const* fact,
char const* uplo,
14018 lapack_int
const* n, lapack_int
const* nrhs,
14019 lapack_complex_double* AP,
14020 lapack_complex_double* AFP,
char* equed,
14022 lapack_complex_double* B,
14023 lapack_int
const* ldb,
14024 lapack_complex_double* X, lapack_int
const* ldx,
14028 lapack_complex_double* work,
14031 #ifdef LAPACK_FORTRAN_STRLEN_END
14032 ,
size_t,
size_t,
size_t
14035 #ifdef LAPACK_FORTRAN_STRLEN_END
14036 #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__, 1, 1, 1)
14038 #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__)
14041 #define LAPACK_cpptrf_base LAPACK_GLOBAL(cpptrf,CPPTRF)
14042 void LAPACK_cpptrf_base(
14044 lapack_int
const* n,
14045 lapack_complex_float* AP,
14047 #ifdef LAPACK_FORTRAN_STRLEN_END
14051 #ifdef LAPACK_FORTRAN_STRLEN_END
14052 #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__, 1)
14054 #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__)
14057 #define LAPACK_dpptrf_base LAPACK_GLOBAL(dpptrf,DPPTRF)
14058 void LAPACK_dpptrf_base(
14060 lapack_int
const* n,
14063 #ifdef LAPACK_FORTRAN_STRLEN_END
14067 #ifdef LAPACK_FORTRAN_STRLEN_END
14068 #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__, 1)
14070 #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__)
14073 #define LAPACK_spptrf_base LAPACK_GLOBAL(spptrf,SPPTRF)
14074 void LAPACK_spptrf_base(
14076 lapack_int
const* n,
14079 #ifdef LAPACK_FORTRAN_STRLEN_END
14083 #ifdef LAPACK_FORTRAN_STRLEN_END
14084 #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__, 1)
14086 #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__)
14089 #define LAPACK_zpptrf_base LAPACK_GLOBAL(zpptrf,ZPPTRF)
14090 void LAPACK_zpptrf_base(
14092 lapack_int
const* n,
14093 lapack_complex_double* AP,
14095 #ifdef LAPACK_FORTRAN_STRLEN_END
14099 #ifdef LAPACK_FORTRAN_STRLEN_END
14100 #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__, 1)
14102 #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__)
14105 #define LAPACK_cpptri_base LAPACK_GLOBAL(cpptri,CPPTRI)
14106 void LAPACK_cpptri_base(
14108 lapack_int
const* n,
14109 lapack_complex_float* AP,
14111 #ifdef LAPACK_FORTRAN_STRLEN_END
14115 #ifdef LAPACK_FORTRAN_STRLEN_END
14116 #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__, 1)
14118 #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__)
14121 #define LAPACK_dpptri_base LAPACK_GLOBAL(dpptri,DPPTRI)
14122 void LAPACK_dpptri_base(
14124 lapack_int
const* n,
14127 #ifdef LAPACK_FORTRAN_STRLEN_END
14131 #ifdef LAPACK_FORTRAN_STRLEN_END
14132 #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__, 1)
14134 #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__)
14137 #define LAPACK_spptri_base LAPACK_GLOBAL(spptri,SPPTRI)
14138 void LAPACK_spptri_base(
14140 lapack_int
const* n,
14143 #ifdef LAPACK_FORTRAN_STRLEN_END
14147 #ifdef LAPACK_FORTRAN_STRLEN_END
14148 #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__, 1)
14150 #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__)
14153 #define LAPACK_zpptri_base LAPACK_GLOBAL(zpptri,ZPPTRI)
14154 void LAPACK_zpptri_base(
14156 lapack_int
const* n,
14157 lapack_complex_double* AP,
14159 #ifdef LAPACK_FORTRAN_STRLEN_END
14163 #ifdef LAPACK_FORTRAN_STRLEN_END
14164 #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__, 1)
14166 #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__)
14169 #define LAPACK_cpptrs_base LAPACK_GLOBAL(cpptrs,CPPTRS)
14170 void LAPACK_cpptrs_base(
14172 lapack_int
const* n, lapack_int
const* nrhs,
14173 lapack_complex_float
const* AP,
14174 lapack_complex_float* B, lapack_int
const* ldb,
14176 #ifdef LAPACK_FORTRAN_STRLEN_END
14180 #ifdef LAPACK_FORTRAN_STRLEN_END
14181 #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__, 1)
14183 #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__)
14186 #define LAPACK_dpptrs_base LAPACK_GLOBAL(dpptrs,DPPTRS)
14187 void LAPACK_dpptrs_base(
14189 lapack_int
const* n, lapack_int
const* nrhs,
14191 double* B, lapack_int
const* ldb,
14193 #ifdef LAPACK_FORTRAN_STRLEN_END
14197 #ifdef LAPACK_FORTRAN_STRLEN_END
14198 #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__, 1)
14200 #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__)
14203 #define LAPACK_spptrs_base LAPACK_GLOBAL(spptrs,SPPTRS)
14204 void LAPACK_spptrs_base(
14206 lapack_int
const* n, lapack_int
const* nrhs,
14208 float* B, lapack_int
const* ldb,
14210 #ifdef LAPACK_FORTRAN_STRLEN_END
14214 #ifdef LAPACK_FORTRAN_STRLEN_END
14215 #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__, 1)
14217 #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__)
14220 #define LAPACK_zpptrs_base LAPACK_GLOBAL(zpptrs,ZPPTRS)
14221 void LAPACK_zpptrs_base(
14223 lapack_int
const* n, lapack_int
const* nrhs,
14224 lapack_complex_double
const* AP,
14225 lapack_complex_double* B, lapack_int
const* ldb,
14227 #ifdef LAPACK_FORTRAN_STRLEN_END
14231 #ifdef LAPACK_FORTRAN_STRLEN_END
14232 #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__, 1)
14234 #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__)
14237 #define LAPACK_cpstrf_base LAPACK_GLOBAL(cpstrf,CPSTRF)
14238 void LAPACK_cpstrf_base(
14240 lapack_int
const* n,
14241 lapack_complex_float* A, lapack_int
const* lda, lapack_int* piv, lapack_int* rank,
14245 #ifdef LAPACK_FORTRAN_STRLEN_END
14249 #ifdef LAPACK_FORTRAN_STRLEN_END
14250 #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__, 1)
14252 #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__)
14255 #define LAPACK_dpstrf_base LAPACK_GLOBAL(dpstrf,DPSTRF)
14256 void LAPACK_dpstrf_base(
14258 lapack_int
const* n,
14259 double* A, lapack_int
const* lda, lapack_int* piv, lapack_int* rank,
14263 #ifdef LAPACK_FORTRAN_STRLEN_END
14267 #ifdef LAPACK_FORTRAN_STRLEN_END
14268 #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__, 1)
14270 #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__)
14273 #define LAPACK_spstrf_base LAPACK_GLOBAL(spstrf,SPSTRF)
14274 void LAPACK_spstrf_base(
14276 lapack_int
const* n,
14277 float* A, lapack_int
const* lda, lapack_int* piv, lapack_int* rank,
14281 #ifdef LAPACK_FORTRAN_STRLEN_END
14285 #ifdef LAPACK_FORTRAN_STRLEN_END
14286 #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__, 1)
14288 #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__)
14291 #define LAPACK_zpstrf_base LAPACK_GLOBAL(zpstrf,ZPSTRF)
14292 void LAPACK_zpstrf_base(
14294 lapack_int
const* n,
14295 lapack_complex_double* A, lapack_int
const* lda, lapack_int* piv, lapack_int* rank,
14299 #ifdef LAPACK_FORTRAN_STRLEN_END
14303 #ifdef LAPACK_FORTRAN_STRLEN_END
14304 #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__, 1)
14306 #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__)
14309 #define LAPACK_cptcon LAPACK_GLOBAL(cptcon,CPTCON)
14310 void LAPACK_cptcon(
14311 lapack_int
const* n,
14313 lapack_complex_float
const* E,
14314 float const* anorm,
14317 lapack_int* info );
14319 #define LAPACK_dptcon LAPACK_GLOBAL(dptcon,DPTCON)
14320 void LAPACK_dptcon(
14321 lapack_int
const* n,
14324 double const* anorm,
14327 lapack_int* info );
14329 #define LAPACK_sptcon LAPACK_GLOBAL(sptcon,SPTCON)
14330 void LAPACK_sptcon(
14331 lapack_int
const* n,
14334 float const* anorm,
14337 lapack_int* info );
14339 #define LAPACK_zptcon LAPACK_GLOBAL(zptcon,ZPTCON)
14340 void LAPACK_zptcon(
14341 lapack_int
const* n,
14343 lapack_complex_double
const* E,
14344 double const* anorm,
14347 lapack_int* info );
14349 #define LAPACK_cpteqr_base LAPACK_GLOBAL(cpteqr,CPTEQR)
14350 void LAPACK_cpteqr_base(
14352 lapack_int
const* n,
14355 lapack_complex_float* Z, lapack_int
const* ldz,
14358 #ifdef LAPACK_FORTRAN_STRLEN_END
14362 #ifdef LAPACK_FORTRAN_STRLEN_END
14363 #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__, 1)
14365 #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__)
14368 #define LAPACK_dpteqr_base LAPACK_GLOBAL(dpteqr,DPTEQR)
14369 void LAPACK_dpteqr_base(
14371 lapack_int
const* n,
14374 double* Z, lapack_int
const* ldz,
14377 #ifdef LAPACK_FORTRAN_STRLEN_END
14381 #ifdef LAPACK_FORTRAN_STRLEN_END
14382 #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__, 1)
14384 #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__)
14387 #define LAPACK_spteqr_base LAPACK_GLOBAL(spteqr,SPTEQR)
14388 void LAPACK_spteqr_base(
14390 lapack_int
const* n,
14393 float* Z, lapack_int
const* ldz,
14396 #ifdef LAPACK_FORTRAN_STRLEN_END
14400 #ifdef LAPACK_FORTRAN_STRLEN_END
14401 #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__, 1)
14403 #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__)
14406 #define LAPACK_zpteqr_base LAPACK_GLOBAL(zpteqr,ZPTEQR)
14407 void LAPACK_zpteqr_base(
14409 lapack_int
const* n,
14412 lapack_complex_double* Z, lapack_int
const* ldz,
14415 #ifdef LAPACK_FORTRAN_STRLEN_END
14419 #ifdef LAPACK_FORTRAN_STRLEN_END
14420 #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__, 1)
14422 #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__)
14425 #define LAPACK_cptrfs_base LAPACK_GLOBAL(cptrfs,CPTRFS)
14426 void LAPACK_cptrfs_base(
14428 lapack_int
const* n, lapack_int
const* nrhs,
14430 lapack_complex_float
const* E,
14432 lapack_complex_float
const* EF,
14433 lapack_complex_float
const* B, lapack_int
const* ldb,
14434 lapack_complex_float* X, lapack_int
const* ldx,
14437 lapack_complex_float* work,
14440 #ifdef LAPACK_FORTRAN_STRLEN_END
14444 #ifdef LAPACK_FORTRAN_STRLEN_END
14445 #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__, 1)
14447 #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__)
14450 #define LAPACK_dptrfs LAPACK_GLOBAL(dptrfs,DPTRFS)
14451 void LAPACK_dptrfs(
14452 lapack_int
const* n, lapack_int
const* nrhs,
14457 double const* B, lapack_int
const* ldb,
14458 double* X, lapack_int
const* ldx,
14462 lapack_int* info );
14464 #define LAPACK_sptrfs LAPACK_GLOBAL(sptrfs,SPTRFS)
14465 void LAPACK_sptrfs(
14466 lapack_int
const* n, lapack_int
const* nrhs,
14471 float const* B, lapack_int
const* ldb,
14472 float* X, lapack_int
const* ldx,
14476 lapack_int* info );
14478 #define LAPACK_zptrfs_base LAPACK_GLOBAL(zptrfs,ZPTRFS)
14479 void LAPACK_zptrfs_base(
14481 lapack_int
const* n, lapack_int
const* nrhs,
14483 lapack_complex_double
const* E,
14485 lapack_complex_double
const* EF,
14486 lapack_complex_double
const* B, lapack_int
const* ldb,
14487 lapack_complex_double* X, lapack_int
const* ldx,
14490 lapack_complex_double* work,
14493 #ifdef LAPACK_FORTRAN_STRLEN_END
14497 #ifdef LAPACK_FORTRAN_STRLEN_END
14498 #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__, 1)
14500 #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__)
14503 #define LAPACK_cptsv LAPACK_GLOBAL(cptsv,CPTSV)
14505 lapack_int
const* n, lapack_int
const* nrhs,
14507 lapack_complex_float* E,
14508 lapack_complex_float* B, lapack_int
const* ldb,
14509 lapack_int* info );
14511 #define LAPACK_dptsv LAPACK_GLOBAL(dptsv,DPTSV)
14513 lapack_int
const* n, lapack_int
const* nrhs,
14516 double* B, lapack_int
const* ldb,
14517 lapack_int* info );
14519 #define LAPACK_sptsv LAPACK_GLOBAL(sptsv,SPTSV)
14521 lapack_int
const* n, lapack_int
const* nrhs,
14524 float* B, lapack_int
const* ldb,
14525 lapack_int* info );
14527 #define LAPACK_zptsv LAPACK_GLOBAL(zptsv,ZPTSV)
14529 lapack_int
const* n, lapack_int
const* nrhs,
14531 lapack_complex_double* E,
14532 lapack_complex_double* B, lapack_int
const* ldb,
14533 lapack_int* info );
14535 #define LAPACK_cptsvx_base LAPACK_GLOBAL(cptsvx,CPTSVX)
14536 void LAPACK_cptsvx_base(
14538 lapack_int
const* n, lapack_int
const* nrhs,
14540 lapack_complex_float
const* E,
14542 lapack_complex_float* EF,
14543 lapack_complex_float
const* B, lapack_int
const* ldb,
14544 lapack_complex_float* X, lapack_int
const* ldx,
14548 lapack_complex_float* work,
14551 #ifdef LAPACK_FORTRAN_STRLEN_END
14555 #ifdef LAPACK_FORTRAN_STRLEN_END
14556 #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__, 1)
14558 #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__)
14561 #define LAPACK_dptsvx_base LAPACK_GLOBAL(dptsvx,DPTSVX)
14562 void LAPACK_dptsvx_base(
14564 lapack_int
const* n, lapack_int
const* nrhs,
14569 double const* B, lapack_int
const* ldb,
14570 double* X, lapack_int
const* ldx,
14576 #ifdef LAPACK_FORTRAN_STRLEN_END
14580 #ifdef LAPACK_FORTRAN_STRLEN_END
14581 #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__, 1)
14583 #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__)
14586 #define LAPACK_sptsvx_base LAPACK_GLOBAL(sptsvx,SPTSVX)
14587 void LAPACK_sptsvx_base(
14589 lapack_int
const* n, lapack_int
const* nrhs,
14594 float const* B, lapack_int
const* ldb,
14595 float* X, lapack_int
const* ldx,
14601 #ifdef LAPACK_FORTRAN_STRLEN_END
14605 #ifdef LAPACK_FORTRAN_STRLEN_END
14606 #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__, 1)
14608 #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__)
14611 #define LAPACK_zptsvx_base LAPACK_GLOBAL(zptsvx,ZPTSVX)
14612 void LAPACK_zptsvx_base(
14614 lapack_int
const* n, lapack_int
const* nrhs,
14616 lapack_complex_double
const* E,
14618 lapack_complex_double* EF,
14619 lapack_complex_double
const* B, lapack_int
const* ldb,
14620 lapack_complex_double* X, lapack_int
const* ldx,
14624 lapack_complex_double* work,
14627 #ifdef LAPACK_FORTRAN_STRLEN_END
14631 #ifdef LAPACK_FORTRAN_STRLEN_END
14632 #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__, 1)
14634 #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__)
14637 #define LAPACK_cpttrf LAPACK_GLOBAL(cpttrf,CPTTRF)
14638 void LAPACK_cpttrf(
14639 lapack_int
const* n,
14641 lapack_complex_float* E,
14642 lapack_int* info );
14644 #define LAPACK_dpttrf LAPACK_GLOBAL(dpttrf,DPTTRF)
14645 void LAPACK_dpttrf(
14646 lapack_int
const* n,
14649 lapack_int* info );
14651 #define LAPACK_spttrf LAPACK_GLOBAL(spttrf,SPTTRF)
14652 void LAPACK_spttrf(
14653 lapack_int
const* n,
14656 lapack_int* info );
14658 #define LAPACK_zpttrf LAPACK_GLOBAL(zpttrf,ZPTTRF)
14659 void LAPACK_zpttrf(
14660 lapack_int
const* n,
14662 lapack_complex_double* E,
14663 lapack_int* info );
14665 #define LAPACK_cpttrs_base LAPACK_GLOBAL(cpttrs,CPTTRS)
14666 void LAPACK_cpttrs_base(
14668 lapack_int
const* n, lapack_int
const* nrhs,
14670 lapack_complex_float
const* E,
14671 lapack_complex_float* B, lapack_int
const* ldb,
14673 #ifdef LAPACK_FORTRAN_STRLEN_END
14677 #ifdef LAPACK_FORTRAN_STRLEN_END
14678 #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__, 1)
14680 #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__)
14683 #define LAPACK_dpttrs LAPACK_GLOBAL(dpttrs,DPTTRS)
14684 void LAPACK_dpttrs(
14685 lapack_int
const* n, lapack_int
const* nrhs,
14688 double* B, lapack_int
const* ldb,
14689 lapack_int* info );
14691 #define LAPACK_spttrs LAPACK_GLOBAL(spttrs,SPTTRS)
14692 void LAPACK_spttrs(
14693 lapack_int
const* n, lapack_int
const* nrhs,
14696 float* B, lapack_int
const* ldb,
14697 lapack_int* info );
14699 #define LAPACK_zpttrs_base LAPACK_GLOBAL(zpttrs,ZPTTRS)
14700 void LAPACK_zpttrs_base(
14702 lapack_int
const* n, lapack_int
const* nrhs,
14704 lapack_complex_double
const* E,
14705 lapack_complex_double* B, lapack_int
const* ldb,
14707 #ifdef LAPACK_FORTRAN_STRLEN_END
14711 #ifdef LAPACK_FORTRAN_STRLEN_END
14712 #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__, 1)
14714 #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__)
14717 #define LAPACK_dsbev_base LAPACK_GLOBAL(dsbev,DSBEV)
14718 void LAPACK_dsbev_base(
14719 char const* jobz,
char const* uplo,
14720 lapack_int
const* n, lapack_int
const* kd,
14721 double* AB, lapack_int
const* ldab,
14723 double* Z, lapack_int
const* ldz,
14726 #ifdef LAPACK_FORTRAN_STRLEN_END
14730 #ifdef LAPACK_FORTRAN_STRLEN_END
14731 #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__, 1, 1)
14733 #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__)
14736 #define LAPACK_ssbev_base LAPACK_GLOBAL(ssbev,SSBEV)
14737 void LAPACK_ssbev_base(
14738 char const* jobz,
char const* uplo,
14739 lapack_int
const* n, lapack_int
const* kd,
14740 float* AB, lapack_int
const* ldab,
14742 float* Z, lapack_int
const* ldz,
14745 #ifdef LAPACK_FORTRAN_STRLEN_END
14749 #ifdef LAPACK_FORTRAN_STRLEN_END
14750 #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__, 1, 1)
14752 #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__)
14755 #define LAPACK_dsbev_2stage_base LAPACK_GLOBAL(dsbev_2stage,DSBEV_2STAGE)
14756 void LAPACK_dsbev_2stage_base(
14757 char const* jobz,
char const* uplo,
14758 lapack_int
const* n, lapack_int
const* kd,
14759 double* AB, lapack_int
const* ldab,
14761 double* Z, lapack_int
const* ldz,
14762 double* work, lapack_int
const* lwork,
14764 #ifdef LAPACK_FORTRAN_STRLEN_END
14768 #ifdef LAPACK_FORTRAN_STRLEN_END
14769 #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__, 1, 1)
14771 #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__)
14774 #define LAPACK_ssbev_2stage_base LAPACK_GLOBAL(ssbev_2stage,SSBEV_2STAGE)
14775 void LAPACK_ssbev_2stage_base(
14776 char const* jobz,
char const* uplo,
14777 lapack_int
const* n, lapack_int
const* kd,
14778 float* AB, lapack_int
const* ldab,
14780 float* Z, lapack_int
const* ldz,
14781 float* work, lapack_int
const* lwork,
14783 #ifdef LAPACK_FORTRAN_STRLEN_END
14787 #ifdef LAPACK_FORTRAN_STRLEN_END
14788 #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__, 1, 1)
14790 #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__)
14793 #define LAPACK_dsbevd_base LAPACK_GLOBAL(dsbevd,DSBEVD)
14794 void LAPACK_dsbevd_base(
14795 char const* jobz,
char const* uplo,
14796 lapack_int
const* n, lapack_int
const* kd,
14797 double* AB, lapack_int
const* ldab,
14799 double* Z, lapack_int
const* ldz,
14800 double* work, lapack_int
const* lwork,
14801 lapack_int* iwork, lapack_int
const* liwork,
14803 #ifdef LAPACK_FORTRAN_STRLEN_END
14807 #ifdef LAPACK_FORTRAN_STRLEN_END
14808 #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__, 1, 1)
14810 #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__)
14813 #define LAPACK_ssbevd_base LAPACK_GLOBAL(ssbevd,SSBEVD)
14814 void LAPACK_ssbevd_base(
14815 char const* jobz,
char const* uplo,
14816 lapack_int
const* n, lapack_int
const* kd,
14817 float* AB, lapack_int
const* ldab,
14819 float* Z, lapack_int
const* ldz,
14820 float* work, lapack_int
const* lwork,
14821 lapack_int* iwork, lapack_int
const* liwork,
14823 #ifdef LAPACK_FORTRAN_STRLEN_END
14827 #ifdef LAPACK_FORTRAN_STRLEN_END
14828 #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__, 1, 1)
14830 #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__)
14833 #define LAPACK_dsbevd_2stage_base LAPACK_GLOBAL(dsbevd_2stage,DSBEVD_2STAGE)
14834 void LAPACK_dsbevd_2stage_base(
14835 char const* jobz,
char const* uplo,
14836 lapack_int
const* n, lapack_int
const* kd,
14837 double* AB, lapack_int
const* ldab,
14839 double* Z, lapack_int
const* ldz,
14840 double* work, lapack_int
const* lwork,
14841 lapack_int* iwork, lapack_int
const* liwork,
14843 #ifdef LAPACK_FORTRAN_STRLEN_END
14847 #ifdef LAPACK_FORTRAN_STRLEN_END
14848 #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__, 1, 1)
14850 #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__)
14853 #define LAPACK_ssbevd_2stage_base LAPACK_GLOBAL(ssbevd_2stage,SSBEVD_2STAGE)
14854 void LAPACK_ssbevd_2stage_base(
14855 char const* jobz,
char const* uplo,
14856 lapack_int
const* n, lapack_int
const* kd,
14857 float* AB, lapack_int
const* ldab,
14859 float* Z, lapack_int
const* ldz,
14860 float* work, lapack_int
const* lwork,
14861 lapack_int* iwork, lapack_int
const* liwork,
14863 #ifdef LAPACK_FORTRAN_STRLEN_END
14867 #ifdef LAPACK_FORTRAN_STRLEN_END
14868 #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__, 1, 1)
14870 #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__)
14873 #define LAPACK_dsbevx_base LAPACK_GLOBAL(dsbevx,DSBEVX)
14874 void LAPACK_dsbevx_base(
14875 char const* jobz,
char const* range,
char const* uplo,
14876 lapack_int
const* n, lapack_int
const* kd,
14877 double* AB, lapack_int
const* ldab,
14878 double* Q, lapack_int
const* ldq,
14880 double const* vu, lapack_int
const* il, lapack_int
const* iu,
14881 double const* abstol, lapack_int* m,
14883 double* Z, lapack_int
const* ldz,
14885 lapack_int* iwork, lapack_int* IFAIL,
14887 #ifdef LAPACK_FORTRAN_STRLEN_END
14888 ,
size_t,
size_t,
size_t
14891 #ifdef LAPACK_FORTRAN_STRLEN_END
14892 #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__, 1, 1, 1)
14894 #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__)
14897 #define LAPACK_ssbevx_base LAPACK_GLOBAL(ssbevx,SSBEVX)
14898 void LAPACK_ssbevx_base(
14899 char const* jobz,
char const* range,
char const* uplo,
14900 lapack_int
const* n, lapack_int
const* kd,
14901 float* AB, lapack_int
const* ldab,
14902 float* Q, lapack_int
const* ldq,
14904 float const* vu, lapack_int
const* il, lapack_int
const* iu,
14905 float const* abstol, lapack_int* m,
14907 float* Z, lapack_int
const* ldz,
14909 lapack_int* iwork, lapack_int* IFAIL,
14911 #ifdef LAPACK_FORTRAN_STRLEN_END
14912 ,
size_t,
size_t,
size_t
14915 #ifdef LAPACK_FORTRAN_STRLEN_END
14916 #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__, 1, 1, 1)
14918 #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__)
14921 #define LAPACK_dsbevx_2stage_base LAPACK_GLOBAL(dsbevx_2stage,DSBEVX_2STAGE)
14922 void LAPACK_dsbevx_2stage_base(
14923 char const* jobz,
char const* range,
char const* uplo,
14924 lapack_int
const* n, lapack_int
const* kd,
14925 double* AB, lapack_int
const* ldab,
14926 double* Q, lapack_int
const* ldq,
14928 double const* vu, lapack_int
const* il, lapack_int
const* iu,
14929 double const* abstol, lapack_int* m,
14931 double* Z, lapack_int
const* ldz,
14932 double* work, lapack_int
const* lwork,
14933 lapack_int* iwork, lapack_int* IFAIL,
14935 #ifdef LAPACK_FORTRAN_STRLEN_END
14936 ,
size_t,
size_t,
size_t
14939 #ifdef LAPACK_FORTRAN_STRLEN_END
14940 #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
14942 #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__)
14945 #define LAPACK_ssbevx_2stage_base LAPACK_GLOBAL(ssbevx_2stage,SSBEVX_2STAGE)
14946 void LAPACK_ssbevx_2stage_base(
14947 char const* jobz,
char const* range,
char const* uplo,
14948 lapack_int
const* n, lapack_int
const* kd,
14949 float* AB, lapack_int
const* ldab,
14950 float* Q, lapack_int
const* ldq,
14952 float const* vu, lapack_int
const* il, lapack_int
const* iu,
14953 float const* abstol, lapack_int* m,
14955 float* Z, lapack_int
const* ldz,
14956 float* work, lapack_int
const* lwork,
14957 lapack_int* iwork, lapack_int* IFAIL,
14959 #ifdef LAPACK_FORTRAN_STRLEN_END
14960 ,
size_t,
size_t,
size_t
14963 #ifdef LAPACK_FORTRAN_STRLEN_END
14964 #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
14966 #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__)
14969 #define LAPACK_dsbgst_base LAPACK_GLOBAL(dsbgst,DSBGST)
14970 void LAPACK_dsbgst_base(
14971 char const* vect,
char const* uplo,
14972 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
14973 double* AB, lapack_int
const* ldab,
14974 double const* BB, lapack_int
const* ldbb,
14975 double* X, lapack_int
const* ldx,
14978 #ifdef LAPACK_FORTRAN_STRLEN_END
14982 #ifdef LAPACK_FORTRAN_STRLEN_END
14983 #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__, 1, 1)
14985 #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__)
14988 #define LAPACK_ssbgst_base LAPACK_GLOBAL(ssbgst,SSBGST)
14989 void LAPACK_ssbgst_base(
14990 char const* vect,
char const* uplo,
14991 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
14992 float* AB, lapack_int
const* ldab,
14993 float const* BB, lapack_int
const* ldbb,
14994 float* X, lapack_int
const* ldx,
14997 #ifdef LAPACK_FORTRAN_STRLEN_END
15001 #ifdef LAPACK_FORTRAN_STRLEN_END
15002 #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__, 1, 1)
15004 #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__)
15007 #define LAPACK_dsbgv_base LAPACK_GLOBAL(dsbgv,DSBGV)
15008 void LAPACK_dsbgv_base(
15009 char const* jobz,
char const* uplo,
15010 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
15011 double* AB, lapack_int
const* ldab,
15012 double* BB, lapack_int
const* ldbb,
15014 double* Z, lapack_int
const* ldz,
15017 #ifdef LAPACK_FORTRAN_STRLEN_END
15021 #ifdef LAPACK_FORTRAN_STRLEN_END
15022 #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__, 1, 1)
15024 #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__)
15027 #define LAPACK_ssbgv_base LAPACK_GLOBAL(ssbgv,SSBGV)
15028 void LAPACK_ssbgv_base(
15029 char const* jobz,
char const* uplo,
15030 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
15031 float* AB, lapack_int
const* ldab,
15032 float* BB, lapack_int
const* ldbb,
15034 float* Z, lapack_int
const* ldz,
15037 #ifdef LAPACK_FORTRAN_STRLEN_END
15041 #ifdef LAPACK_FORTRAN_STRLEN_END
15042 #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__, 1, 1)
15044 #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__)
15047 #define LAPACK_dsbgvd_base LAPACK_GLOBAL(dsbgvd,DSBGVD)
15048 void LAPACK_dsbgvd_base(
15049 char const* jobz,
char const* uplo,
15050 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
15051 double* AB, lapack_int
const* ldab,
15052 double* BB, lapack_int
const* ldbb,
15054 double* Z, lapack_int
const* ldz,
15055 double* work, lapack_int
const* lwork,
15056 lapack_int* iwork, lapack_int
const* liwork,
15058 #ifdef LAPACK_FORTRAN_STRLEN_END
15062 #ifdef LAPACK_FORTRAN_STRLEN_END
15063 #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__, 1, 1)
15065 #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__)
15068 #define LAPACK_ssbgvd_base LAPACK_GLOBAL(ssbgvd,SSBGVD)
15069 void LAPACK_ssbgvd_base(
15070 char const* jobz,
char const* uplo,
15071 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
15072 float* AB, lapack_int
const* ldab,
15073 float* BB, lapack_int
const* ldbb,
15075 float* Z, lapack_int
const* ldz,
15076 float* work, lapack_int
const* lwork,
15077 lapack_int* iwork, lapack_int
const* liwork,
15079 #ifdef LAPACK_FORTRAN_STRLEN_END
15083 #ifdef LAPACK_FORTRAN_STRLEN_END
15084 #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__, 1, 1)
15086 #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__)
15089 #define LAPACK_dsbgvx_base LAPACK_GLOBAL(dsbgvx,DSBGVX)
15090 void LAPACK_dsbgvx_base(
15091 char const* jobz,
char const* range,
char const* uplo,
15092 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
15093 double* AB, lapack_int
const* ldab,
15094 double* BB, lapack_int
const* ldbb,
15095 double* Q, lapack_int
const* ldq,
15097 double const* vu, lapack_int
const* il, lapack_int
const* iu,
15098 double const* abstol, lapack_int* m,
15100 double* Z, lapack_int
const* ldz,
15102 lapack_int* iwork, lapack_int* IFAIL,
15104 #ifdef LAPACK_FORTRAN_STRLEN_END
15105 ,
size_t,
size_t,
size_t
15108 #ifdef LAPACK_FORTRAN_STRLEN_END
15109 #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__, 1, 1, 1)
15111 #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__)
15114 #define LAPACK_ssbgvx_base LAPACK_GLOBAL(ssbgvx,SSBGVX)
15115 void LAPACK_ssbgvx_base(
15116 char const* jobz,
char const* range,
char const* uplo,
15117 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
15118 float* AB, lapack_int
const* ldab,
15119 float* BB, lapack_int
const* ldbb,
15120 float* Q, lapack_int
const* ldq,
15122 float const* vu, lapack_int
const* il, lapack_int
const* iu,
15123 float const* abstol, lapack_int* m,
15125 float* Z, lapack_int
const* ldz,
15127 lapack_int* iwork, lapack_int* IFAIL,
15129 #ifdef LAPACK_FORTRAN_STRLEN_END
15130 ,
size_t,
size_t,
size_t
15133 #ifdef LAPACK_FORTRAN_STRLEN_END
15134 #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__, 1, 1, 1)
15136 #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__)
15139 #define LAPACK_dsbtrd_base LAPACK_GLOBAL(dsbtrd,DSBTRD)
15140 void LAPACK_dsbtrd_base(
15141 char const* vect,
char const* uplo,
15142 lapack_int
const* n, lapack_int
const* kd,
15143 double* AB, lapack_int
const* ldab,
15146 double* Q, lapack_int
const* ldq,
15149 #ifdef LAPACK_FORTRAN_STRLEN_END
15153 #ifdef LAPACK_FORTRAN_STRLEN_END
15154 #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__, 1, 1)
15156 #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__)
15159 #define LAPACK_ssbtrd_base LAPACK_GLOBAL(ssbtrd,SSBTRD)
15160 void LAPACK_ssbtrd_base(
15161 char const* vect,
char const* uplo,
15162 lapack_int
const* n, lapack_int
const* kd,
15163 float* AB, lapack_int
const* ldab,
15166 float* Q, lapack_int
const* ldq,
15169 #ifdef LAPACK_FORTRAN_STRLEN_END
15173 #ifdef LAPACK_FORTRAN_STRLEN_END
15174 #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__, 1, 1)
15176 #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__)
15179 #define LAPACK_dsfrk_base LAPACK_GLOBAL(dsfrk,DSFRK)
15180 void LAPACK_dsfrk_base(
15181 char const* transr,
char const* uplo,
char const* trans,
15182 lapack_int
const* n, lapack_int
const* k,
15183 double const* alpha,
15184 double const* A, lapack_int
const* lda,
15185 double const* beta,
15187 #ifdef LAPACK_FORTRAN_STRLEN_END
15188 ,
size_t,
size_t,
size_t
15191 #ifdef LAPACK_FORTRAN_STRLEN_END
15192 #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__, 1, 1, 1)
15194 #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__)
15197 #define LAPACK_ssfrk_base LAPACK_GLOBAL(ssfrk,SSFRK)
15198 void LAPACK_ssfrk_base(
15199 char const* transr,
char const* uplo,
char const* trans,
15200 lapack_int
const* n, lapack_int
const* k,
15201 float const* alpha,
15202 float const* A, lapack_int
const* lda,
15205 #ifdef LAPACK_FORTRAN_STRLEN_END
15206 ,
size_t,
size_t,
size_t
15209 #ifdef LAPACK_FORTRAN_STRLEN_END
15210 #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__, 1, 1, 1)
15212 #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__)
15215 #define LAPACK_cspcon_base LAPACK_GLOBAL(cspcon,CSPCON)
15216 void LAPACK_cspcon_base(
15218 lapack_int
const* n,
15219 lapack_complex_float
const* AP, lapack_int
const* ipiv,
15220 float const* anorm,
15222 lapack_complex_float* work,
15224 #ifdef LAPACK_FORTRAN_STRLEN_END
15228 #ifdef LAPACK_FORTRAN_STRLEN_END
15229 #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__, 1)
15231 #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__)
15234 #define LAPACK_dspcon_base LAPACK_GLOBAL(dspcon,DSPCON)
15235 void LAPACK_dspcon_base(
15237 lapack_int
const* n,
15238 double const* AP, lapack_int
const* ipiv,
15239 double const* anorm,
15244 #ifdef LAPACK_FORTRAN_STRLEN_END
15248 #ifdef LAPACK_FORTRAN_STRLEN_END
15249 #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__, 1)
15251 #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__)
15254 #define LAPACK_sspcon_base LAPACK_GLOBAL(sspcon,SSPCON)
15255 void LAPACK_sspcon_base(
15257 lapack_int
const* n,
15258 float const* AP, lapack_int
const* ipiv,
15259 float const* anorm,
15264 #ifdef LAPACK_FORTRAN_STRLEN_END
15268 #ifdef LAPACK_FORTRAN_STRLEN_END
15269 #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__, 1)
15271 #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__)
15274 #define LAPACK_zspcon_base LAPACK_GLOBAL(zspcon,ZSPCON)
15275 void LAPACK_zspcon_base(
15277 lapack_int
const* n,
15278 lapack_complex_double
const* AP, lapack_int
const* ipiv,
15279 double const* anorm,
15281 lapack_complex_double* work,
15283 #ifdef LAPACK_FORTRAN_STRLEN_END
15287 #ifdef LAPACK_FORTRAN_STRLEN_END
15288 #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__, 1)
15290 #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__)
15293 #define LAPACK_dspev_base LAPACK_GLOBAL(dspev,DSPEV)
15294 void LAPACK_dspev_base(
15295 char const* jobz,
char const* uplo,
15296 lapack_int
const* n,
15299 double* Z, lapack_int
const* ldz,
15302 #ifdef LAPACK_FORTRAN_STRLEN_END
15306 #ifdef LAPACK_FORTRAN_STRLEN_END
15307 #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__, 1, 1)
15309 #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__)
15312 #define LAPACK_sspev_base LAPACK_GLOBAL(sspev,SSPEV)
15313 void LAPACK_sspev_base(
15314 char const* jobz,
char const* uplo,
15315 lapack_int
const* n,
15318 float* Z, lapack_int
const* ldz,
15321 #ifdef LAPACK_FORTRAN_STRLEN_END
15325 #ifdef LAPACK_FORTRAN_STRLEN_END
15326 #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__, 1, 1)
15328 #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__)
15331 #define LAPACK_dspevd_base LAPACK_GLOBAL(dspevd,DSPEVD)
15332 void LAPACK_dspevd_base(
15333 char const* jobz,
char const* uplo,
15334 lapack_int
const* n,
15337 double* Z, lapack_int
const* ldz,
15338 double* work, lapack_int
const* lwork,
15339 lapack_int* iwork, lapack_int
const* liwork,
15341 #ifdef LAPACK_FORTRAN_STRLEN_END
15345 #ifdef LAPACK_FORTRAN_STRLEN_END
15346 #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__, 1, 1)
15348 #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__)
15351 #define LAPACK_sspevd_base LAPACK_GLOBAL(sspevd,SSPEVD)
15352 void LAPACK_sspevd_base(
15353 char const* jobz,
char const* uplo,
15354 lapack_int
const* n,
15357 float* Z, lapack_int
const* ldz,
15358 float* work, lapack_int
const* lwork,
15359 lapack_int* iwork, lapack_int
const* liwork,
15361 #ifdef LAPACK_FORTRAN_STRLEN_END
15365 #ifdef LAPACK_FORTRAN_STRLEN_END
15366 #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__, 1, 1)
15368 #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__)
15371 #define LAPACK_dspevx_base LAPACK_GLOBAL(dspevx,DSPEVX)
15372 void LAPACK_dspevx_base(
15373 char const* jobz,
char const* range,
char const* uplo,
15374 lapack_int
const* n,
15377 double const* vu, lapack_int
const* il, lapack_int
const* iu,
15378 double const* abstol, lapack_int* m,
15380 double* Z, lapack_int
const* ldz,
15382 lapack_int* iwork, lapack_int* IFAIL,
15384 #ifdef LAPACK_FORTRAN_STRLEN_END
15385 ,
size_t,
size_t,
size_t
15388 #ifdef LAPACK_FORTRAN_STRLEN_END
15389 #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__, 1, 1, 1)
15391 #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__)
15394 #define LAPACK_sspevx_base LAPACK_GLOBAL(sspevx,SSPEVX)
15395 void LAPACK_sspevx_base(
15396 char const* jobz,
char const* range,
char const* uplo,
15397 lapack_int
const* n,
15400 float const* vu, lapack_int
const* il, lapack_int
const* iu,
15401 float const* abstol, lapack_int* m,
15403 float* Z, lapack_int
const* ldz,
15405 lapack_int* iwork, lapack_int* IFAIL,
15407 #ifdef LAPACK_FORTRAN_STRLEN_END
15408 ,
size_t,
size_t,
size_t
15411 #ifdef LAPACK_FORTRAN_STRLEN_END
15412 #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__, 1, 1, 1)
15414 #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__)
15417 #define LAPACK_dspgst_base LAPACK_GLOBAL(dspgst,DSPGST)
15418 void LAPACK_dspgst_base(
15419 lapack_int
const* itype,
char const* uplo,
15420 lapack_int
const* n,
15424 #ifdef LAPACK_FORTRAN_STRLEN_END
15428 #ifdef LAPACK_FORTRAN_STRLEN_END
15429 #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__, 1)
15431 #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__)
15434 #define LAPACK_sspgst_base LAPACK_GLOBAL(sspgst,SSPGST)
15435 void LAPACK_sspgst_base(
15436 lapack_int
const* itype,
char const* uplo,
15437 lapack_int
const* n,
15441 #ifdef LAPACK_FORTRAN_STRLEN_END
15445 #ifdef LAPACK_FORTRAN_STRLEN_END
15446 #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__, 1)
15448 #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__)
15451 #define LAPACK_dspgv_base LAPACK_GLOBAL(dspgv,DSPGV)
15452 void LAPACK_dspgv_base(
15453 lapack_int
const* itype,
char const* jobz,
char const* uplo,
15454 lapack_int
const* n,
15458 double* Z, lapack_int
const* ldz,
15461 #ifdef LAPACK_FORTRAN_STRLEN_END
15465 #ifdef LAPACK_FORTRAN_STRLEN_END
15466 #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__, 1, 1)
15468 #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__)
15471 #define LAPACK_sspgv_base LAPACK_GLOBAL(sspgv,SSPGV)
15472 void LAPACK_sspgv_base(
15473 lapack_int
const* itype,
char const* jobz,
char const* uplo,
15474 lapack_int
const* n,
15478 float* Z, lapack_int
const* ldz,
15481 #ifdef LAPACK_FORTRAN_STRLEN_END
15485 #ifdef LAPACK_FORTRAN_STRLEN_END
15486 #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__, 1, 1)
15488 #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__)
15491 #define LAPACK_dspgvd_base LAPACK_GLOBAL(dspgvd,DSPGVD)
15492 void LAPACK_dspgvd_base(
15493 lapack_int
const* itype,
char const* jobz,
char const* uplo,
15494 lapack_int
const* n,
15498 double* Z, lapack_int
const* ldz,
15499 double* work, lapack_int
const* lwork,
15500 lapack_int* iwork, lapack_int
const* liwork,
15502 #ifdef LAPACK_FORTRAN_STRLEN_END
15506 #ifdef LAPACK_FORTRAN_STRLEN_END
15507 #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__, 1, 1)
15509 #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__)
15512 #define LAPACK_sspgvd_base LAPACK_GLOBAL(sspgvd,SSPGVD)
15513 void LAPACK_sspgvd_base(
15514 lapack_int
const* itype,
char const* jobz,
char const* uplo,
15515 lapack_int
const* n,
15519 float* Z, lapack_int
const* ldz,
15520 float* work, lapack_int
const* lwork,
15521 lapack_int* iwork, lapack_int
const* liwork,
15523 #ifdef LAPACK_FORTRAN_STRLEN_END
15527 #ifdef LAPACK_FORTRAN_STRLEN_END
15528 #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__, 1, 1)
15530 #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__)
15533 #define LAPACK_dspgvx_base LAPACK_GLOBAL(dspgvx,DSPGVX)
15534 void LAPACK_dspgvx_base(
15535 lapack_int
const* itype,
char const* jobz,
char const* range,
char const* uplo,
15536 lapack_int
const* n,
15540 double const* vu, lapack_int
const* il, lapack_int
const* iu,
15541 double const* abstol, lapack_int* m,
15543 double* Z, lapack_int
const* ldz,
15545 lapack_int* iwork, lapack_int* IFAIL,
15547 #ifdef LAPACK_FORTRAN_STRLEN_END
15548 ,
size_t,
size_t,
size_t
15551 #ifdef LAPACK_FORTRAN_STRLEN_END
15552 #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__, 1, 1, 1)
15554 #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__)
15557 #define LAPACK_sspgvx_base LAPACK_GLOBAL(sspgvx,SSPGVX)
15558 void LAPACK_sspgvx_base(
15559 lapack_int
const* itype,
char const* jobz,
char const* range,
char const* uplo,
15560 lapack_int
const* n,
15564 float const* vu, lapack_int
const* il, lapack_int
const* iu,
15565 float const* abstol, lapack_int* m,
15567 float* Z, lapack_int
const* ldz,
15569 lapack_int* iwork, lapack_int* IFAIL,
15571 #ifdef LAPACK_FORTRAN_STRLEN_END
15572 ,
size_t,
size_t,
size_t
15575 #ifdef LAPACK_FORTRAN_STRLEN_END
15576 #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__, 1, 1, 1)
15578 #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__)
15581 #define LAPACK_csprfs_base LAPACK_GLOBAL(csprfs,CSPRFS)
15582 void LAPACK_csprfs_base(
15584 lapack_int
const* n, lapack_int
const* nrhs,
15585 lapack_complex_float
const* AP,
15586 lapack_complex_float
const* AFP, lapack_int
const* ipiv,
15587 lapack_complex_float
const* B, lapack_int
const* ldb,
15588 lapack_complex_float* X, lapack_int
const* ldx,
15591 lapack_complex_float* work,
15594 #ifdef LAPACK_FORTRAN_STRLEN_END
15598 #ifdef LAPACK_FORTRAN_STRLEN_END
15599 #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__, 1)
15601 #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__)
15604 #define LAPACK_dsprfs_base LAPACK_GLOBAL(dsprfs,DSPRFS)
15605 void LAPACK_dsprfs_base(
15607 lapack_int
const* n, lapack_int
const* nrhs,
15609 double const* AFP, lapack_int
const* ipiv,
15610 double const* B, lapack_int
const* ldb,
15611 double* X, lapack_int
const* ldx,
15617 #ifdef LAPACK_FORTRAN_STRLEN_END
15621 #ifdef LAPACK_FORTRAN_STRLEN_END
15622 #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__, 1)
15624 #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__)
15627 #define LAPACK_ssprfs_base LAPACK_GLOBAL(ssprfs,SSPRFS)
15628 void LAPACK_ssprfs_base(
15630 lapack_int
const* n, lapack_int
const* nrhs,
15632 float const* AFP, lapack_int
const* ipiv,
15633 float const* B, lapack_int
const* ldb,
15634 float* X, lapack_int
const* ldx,
15640 #ifdef LAPACK_FORTRAN_STRLEN_END
15644 #ifdef LAPACK_FORTRAN_STRLEN_END
15645 #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__, 1)
15647 #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__)
15650 #define LAPACK_zsprfs_base LAPACK_GLOBAL(zsprfs,ZSPRFS)
15651 void LAPACK_zsprfs_base(
15653 lapack_int
const* n, lapack_int
const* nrhs,
15654 lapack_complex_double
const* AP,
15655 lapack_complex_double
const* AFP, lapack_int
const* ipiv,
15656 lapack_complex_double
const* B, lapack_int
const* ldb,
15657 lapack_complex_double* X, lapack_int
const* ldx,
15660 lapack_complex_double* work,
15663 #ifdef LAPACK_FORTRAN_STRLEN_END
15667 #ifdef LAPACK_FORTRAN_STRLEN_END
15668 #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__, 1)
15670 #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__)
15673 #define LAPACK_cspsv_base LAPACK_GLOBAL(cspsv,CSPSV)
15674 void LAPACK_cspsv_base(
15676 lapack_int
const* n, lapack_int
const* nrhs,
15677 lapack_complex_float* AP, lapack_int* ipiv,
15678 lapack_complex_float* B, lapack_int
const* ldb,
15680 #ifdef LAPACK_FORTRAN_STRLEN_END
15684 #ifdef LAPACK_FORTRAN_STRLEN_END
15685 #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__, 1)
15687 #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__)
15690 #define LAPACK_dspsv_base LAPACK_GLOBAL(dspsv,DSPSV)
15691 void LAPACK_dspsv_base(
15693 lapack_int
const* n, lapack_int
const* nrhs,
15694 double* AP, lapack_int* ipiv,
15695 double* B, lapack_int
const* ldb,
15697 #ifdef LAPACK_FORTRAN_STRLEN_END
15701 #ifdef LAPACK_FORTRAN_STRLEN_END
15702 #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__, 1)
15704 #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__)
15707 #define LAPACK_sspsv_base LAPACK_GLOBAL(sspsv,SSPSV)
15708 void LAPACK_sspsv_base(
15710 lapack_int
const* n, lapack_int
const* nrhs,
15711 float* AP, lapack_int* ipiv,
15712 float* B, lapack_int
const* ldb,
15714 #ifdef LAPACK_FORTRAN_STRLEN_END
15718 #ifdef LAPACK_FORTRAN_STRLEN_END
15719 #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__, 1)
15721 #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__)
15724 #define LAPACK_zspsv_base LAPACK_GLOBAL(zspsv,ZSPSV)
15725 void LAPACK_zspsv_base(
15727 lapack_int
const* n, lapack_int
const* nrhs,
15728 lapack_complex_double* AP, lapack_int* ipiv,
15729 lapack_complex_double* B, lapack_int
const* ldb,
15731 #ifdef LAPACK_FORTRAN_STRLEN_END
15735 #ifdef LAPACK_FORTRAN_STRLEN_END
15736 #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__, 1)
15738 #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__)
15741 #define LAPACK_cspsvx_base LAPACK_GLOBAL(cspsvx,CSPSVX)
15742 void LAPACK_cspsvx_base(
15743 char const* fact,
char const* uplo,
15744 lapack_int
const* n, lapack_int
const* nrhs,
15745 lapack_complex_float
const* AP,
15746 lapack_complex_float* AFP, lapack_int* ipiv,
15747 lapack_complex_float
const* B, lapack_int
const* ldb,
15748 lapack_complex_float* X, lapack_int
const* ldx,
15752 lapack_complex_float* work,
15755 #ifdef LAPACK_FORTRAN_STRLEN_END
15759 #ifdef LAPACK_FORTRAN_STRLEN_END
15760 #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__, 1, 1)
15762 #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__)
15765 #define LAPACK_dspsvx_base LAPACK_GLOBAL(dspsvx,DSPSVX)
15766 void LAPACK_dspsvx_base(
15767 char const* fact,
char const* uplo,
15768 lapack_int
const* n, lapack_int
const* nrhs,
15770 double* AFP, lapack_int* ipiv,
15771 double const* B, lapack_int
const* ldb,
15772 double* X, lapack_int
const* ldx,
15779 #ifdef LAPACK_FORTRAN_STRLEN_END
15783 #ifdef LAPACK_FORTRAN_STRLEN_END
15784 #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__, 1, 1)
15786 #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__)
15789 #define LAPACK_sspsvx_base LAPACK_GLOBAL(sspsvx,SSPSVX)
15790 void LAPACK_sspsvx_base(
15791 char const* fact,
char const* uplo,
15792 lapack_int
const* n, lapack_int
const* nrhs,
15794 float* AFP, lapack_int* ipiv,
15795 float const* B, lapack_int
const* ldb,
15796 float* X, lapack_int
const* ldx,
15803 #ifdef LAPACK_FORTRAN_STRLEN_END
15807 #ifdef LAPACK_FORTRAN_STRLEN_END
15808 #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__, 1, 1)
15810 #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__)
15813 #define LAPACK_zspsvx_base LAPACK_GLOBAL(zspsvx,ZSPSVX)
15814 void LAPACK_zspsvx_base(
15815 char const* fact,
char const* uplo,
15816 lapack_int
const* n, lapack_int
const* nrhs,
15817 lapack_complex_double
const* AP,
15818 lapack_complex_double* AFP, lapack_int* ipiv,
15819 lapack_complex_double
const* B, lapack_int
const* ldb,
15820 lapack_complex_double* X, lapack_int
const* ldx,
15824 lapack_complex_double* work,
15827 #ifdef LAPACK_FORTRAN_STRLEN_END
15831 #ifdef LAPACK_FORTRAN_STRLEN_END
15832 #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__, 1, 1)
15834 #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__)
15837 #define LAPACK_dsptrd_base LAPACK_GLOBAL(dsptrd,DSPTRD)
15838 void LAPACK_dsptrd_base(
15840 lapack_int
const* n,
15846 #ifdef LAPACK_FORTRAN_STRLEN_END
15850 #ifdef LAPACK_FORTRAN_STRLEN_END
15851 #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__, 1)
15853 #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__)
15856 #define LAPACK_ssptrd_base LAPACK_GLOBAL(ssptrd,SSPTRD)
15857 void LAPACK_ssptrd_base(
15859 lapack_int
const* n,
15865 #ifdef LAPACK_FORTRAN_STRLEN_END
15869 #ifdef LAPACK_FORTRAN_STRLEN_END
15870 #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__, 1)
15872 #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__)
15875 #define LAPACK_csptrf_base LAPACK_GLOBAL(csptrf,CSPTRF)
15876 void LAPACK_csptrf_base(
15878 lapack_int
const* n,
15879 lapack_complex_float* AP, lapack_int* ipiv,
15881 #ifdef LAPACK_FORTRAN_STRLEN_END
15885 #ifdef LAPACK_FORTRAN_STRLEN_END
15886 #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__, 1)
15888 #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__)
15891 #define LAPACK_dsptrf_base LAPACK_GLOBAL(dsptrf,DSPTRF)
15892 void LAPACK_dsptrf_base(
15894 lapack_int
const* n,
15895 double* AP, lapack_int* ipiv,
15897 #ifdef LAPACK_FORTRAN_STRLEN_END
15901 #ifdef LAPACK_FORTRAN_STRLEN_END
15902 #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__, 1)
15904 #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__)
15907 #define LAPACK_ssptrf_base LAPACK_GLOBAL(ssptrf,SSPTRF)
15908 void LAPACK_ssptrf_base(
15910 lapack_int
const* n,
15911 float* AP, lapack_int* ipiv,
15913 #ifdef LAPACK_FORTRAN_STRLEN_END
15917 #ifdef LAPACK_FORTRAN_STRLEN_END
15918 #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__, 1)
15920 #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__)
15923 #define LAPACK_zsptrf_base LAPACK_GLOBAL(zsptrf,ZSPTRF)
15924 void LAPACK_zsptrf_base(
15926 lapack_int
const* n,
15927 lapack_complex_double* AP, lapack_int* ipiv,
15929 #ifdef LAPACK_FORTRAN_STRLEN_END
15933 #ifdef LAPACK_FORTRAN_STRLEN_END
15934 #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__, 1)
15936 #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__)
15939 #define LAPACK_csptri_base LAPACK_GLOBAL(csptri,CSPTRI)
15940 void LAPACK_csptri_base(
15942 lapack_int
const* n,
15943 lapack_complex_float* AP, lapack_int
const* ipiv,
15944 lapack_complex_float* work,
15946 #ifdef LAPACK_FORTRAN_STRLEN_END
15950 #ifdef LAPACK_FORTRAN_STRLEN_END
15951 #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__, 1)
15953 #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__)
15956 #define LAPACK_dsptri_base LAPACK_GLOBAL(dsptri,DSPTRI)
15957 void LAPACK_dsptri_base(
15959 lapack_int
const* n,
15960 double* AP, lapack_int
const* ipiv,
15963 #ifdef LAPACK_FORTRAN_STRLEN_END
15967 #ifdef LAPACK_FORTRAN_STRLEN_END
15968 #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__, 1)
15970 #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__)
15973 #define LAPACK_ssptri_base LAPACK_GLOBAL(ssptri,SSPTRI)
15974 void LAPACK_ssptri_base(
15976 lapack_int
const* n,
15977 float* AP, lapack_int
const* ipiv,
15980 #ifdef LAPACK_FORTRAN_STRLEN_END
15984 #ifdef LAPACK_FORTRAN_STRLEN_END
15985 #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__, 1)
15987 #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__)
15990 #define LAPACK_zsptri_base LAPACK_GLOBAL(zsptri,ZSPTRI)
15991 void LAPACK_zsptri_base(
15993 lapack_int
const* n,
15994 lapack_complex_double* AP, lapack_int
const* ipiv,
15995 lapack_complex_double* work,
15997 #ifdef LAPACK_FORTRAN_STRLEN_END
16001 #ifdef LAPACK_FORTRAN_STRLEN_END
16002 #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__, 1)
16004 #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__)
16007 #define LAPACK_csptrs_base LAPACK_GLOBAL(csptrs,CSPTRS)
16008 void LAPACK_csptrs_base(
16010 lapack_int
const* n, lapack_int
const* nrhs,
16011 lapack_complex_float
const* AP, lapack_int
const* ipiv,
16012 lapack_complex_float* B, lapack_int
const* ldb,
16014 #ifdef LAPACK_FORTRAN_STRLEN_END
16018 #ifdef LAPACK_FORTRAN_STRLEN_END
16019 #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__, 1)
16021 #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__)
16024 #define LAPACK_dsptrs_base LAPACK_GLOBAL(dsptrs,DSPTRS)
16025 void LAPACK_dsptrs_base(
16027 lapack_int
const* n, lapack_int
const* nrhs,
16028 double const* AP, lapack_int
const* ipiv,
16029 double* B, lapack_int
const* ldb,
16031 #ifdef LAPACK_FORTRAN_STRLEN_END
16035 #ifdef LAPACK_FORTRAN_STRLEN_END
16036 #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__, 1)
16038 #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__)
16041 #define LAPACK_ssptrs_base LAPACK_GLOBAL(ssptrs,SSPTRS)
16042 void LAPACK_ssptrs_base(
16044 lapack_int
const* n, lapack_int
const* nrhs,
16045 float const* AP, lapack_int
const* ipiv,
16046 float* B, lapack_int
const* ldb,
16048 #ifdef LAPACK_FORTRAN_STRLEN_END
16052 #ifdef LAPACK_FORTRAN_STRLEN_END
16053 #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__, 1)
16055 #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__)
16058 #define LAPACK_zsptrs_base LAPACK_GLOBAL(zsptrs,ZSPTRS)
16059 void LAPACK_zsptrs_base(
16061 lapack_int
const* n, lapack_int
const* nrhs,
16062 lapack_complex_double
const* AP, lapack_int
const* ipiv,
16063 lapack_complex_double* B, lapack_int
const* ldb,
16065 #ifdef LAPACK_FORTRAN_STRLEN_END
16069 #ifdef LAPACK_FORTRAN_STRLEN_END
16070 #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__, 1)
16072 #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__)
16075 #define LAPACK_dstebz_base LAPACK_GLOBAL(dstebz,DSTEBZ)
16076 void LAPACK_dstebz_base(
16077 char const* range,
char const* order,
16078 lapack_int
const* n,
16080 double const* vu, lapack_int
const* il, lapack_int
const* iu,
16081 double const* abstol,
16083 double const* E, lapack_int* m, lapack_int* nsplit,
16084 double* W, lapack_int* IBLOCK, lapack_int* ISPLIT,
16088 #ifdef LAPACK_FORTRAN_STRLEN_END
16092 #ifdef LAPACK_FORTRAN_STRLEN_END
16093 #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__, 1, 1)
16095 #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__)
16098 #define LAPACK_sstebz_base LAPACK_GLOBAL(sstebz,SSTEBZ)
16099 void LAPACK_sstebz_base(
16100 char const* range,
char const* order,
16101 lapack_int
const* n,
16103 float const* vu, lapack_int
const* il, lapack_int
const* iu,
16104 float const* abstol,
16106 float const* E, lapack_int* m, lapack_int* nsplit,
16107 float* W, lapack_int* IBLOCK, lapack_int* ISPLIT,
16111 #ifdef LAPACK_FORTRAN_STRLEN_END
16115 #ifdef LAPACK_FORTRAN_STRLEN_END
16116 #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__, 1, 1)
16118 #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__)
16121 #define LAPACK_cstedc_base LAPACK_GLOBAL(cstedc,CSTEDC)
16122 void LAPACK_cstedc_base(
16124 lapack_int
const* n,
16127 lapack_complex_float* Z, lapack_int
const* ldz,
16128 lapack_complex_float* work, lapack_int
const* lwork,
16129 float* rwork, lapack_int
const* lrwork,
16130 lapack_int* iwork, lapack_int
const* liwork,
16132 #ifdef LAPACK_FORTRAN_STRLEN_END
16136 #ifdef LAPACK_FORTRAN_STRLEN_END
16137 #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__, 1)
16139 #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__)
16142 #define LAPACK_dstedc_base LAPACK_GLOBAL(dstedc,DSTEDC)
16143 void LAPACK_dstedc_base(
16145 lapack_int
const* n,
16148 double* Z, lapack_int
const* ldz,
16149 double* work, lapack_int
const* lwork,
16150 lapack_int* iwork, lapack_int
const* liwork,
16152 #ifdef LAPACK_FORTRAN_STRLEN_END
16156 #ifdef LAPACK_FORTRAN_STRLEN_END
16157 #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__, 1)
16159 #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__)
16162 #define LAPACK_sstedc_base LAPACK_GLOBAL(sstedc,SSTEDC)
16163 void LAPACK_sstedc_base(
16165 lapack_int
const* n,
16168 float* Z, lapack_int
const* ldz,
16169 float* work, lapack_int
const* lwork,
16170 lapack_int* iwork, lapack_int
const* liwork,
16172 #ifdef LAPACK_FORTRAN_STRLEN_END
16176 #ifdef LAPACK_FORTRAN_STRLEN_END
16177 #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__, 1)
16179 #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__)
16182 #define LAPACK_zstedc_base LAPACK_GLOBAL(zstedc,ZSTEDC)
16183 void LAPACK_zstedc_base(
16185 lapack_int
const* n,
16188 lapack_complex_double* Z, lapack_int
const* ldz,
16189 lapack_complex_double* work, lapack_int
const* lwork,
16190 double* rwork, lapack_int
const* lrwork,
16191 lapack_int* iwork, lapack_int
const* liwork,
16193 #ifdef LAPACK_FORTRAN_STRLEN_END
16197 #ifdef LAPACK_FORTRAN_STRLEN_END
16198 #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__, 1)
16200 #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__)
16203 #define LAPACK_cstegr_base LAPACK_GLOBAL(cstegr,CSTEGR)
16204 void LAPACK_cstegr_base(
16205 char const* jobz,
char const* range,
16206 lapack_int
const* n,
16210 float const* vu, lapack_int
const* il, lapack_int
const* iu,
16211 float const* abstol, lapack_int* m,
16213 lapack_complex_float* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
16214 float* work, lapack_int
const* lwork,
16215 lapack_int* iwork, lapack_int
const* liwork,
16217 #ifdef LAPACK_FORTRAN_STRLEN_END
16221 #ifdef LAPACK_FORTRAN_STRLEN_END
16222 #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__, 1, 1)
16224 #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__)
16227 #define LAPACK_dstegr_base LAPACK_GLOBAL(dstegr,DSTEGR)
16228 void LAPACK_dstegr_base(
16229 char const* jobz,
char const* range,
16230 lapack_int
const* n,
16234 double const* vu, lapack_int
const* il, lapack_int
const* iu,
16235 double const* abstol, lapack_int* m,
16237 double* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
16238 double* work, lapack_int
const* lwork,
16239 lapack_int* iwork, lapack_int
const* liwork,
16241 #ifdef LAPACK_FORTRAN_STRLEN_END
16245 #ifdef LAPACK_FORTRAN_STRLEN_END
16246 #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__, 1, 1)
16248 #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__)
16251 #define LAPACK_sstegr_base LAPACK_GLOBAL(sstegr,SSTEGR)
16252 void LAPACK_sstegr_base(
16253 char const* jobz,
char const* range,
16254 lapack_int
const* n,
16258 float const* vu, lapack_int
const* il, lapack_int
const* iu,
16259 float const* abstol, lapack_int* m,
16261 float* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
16262 float* work, lapack_int
const* lwork,
16263 lapack_int* iwork, lapack_int
const* liwork,
16265 #ifdef LAPACK_FORTRAN_STRLEN_END
16269 #ifdef LAPACK_FORTRAN_STRLEN_END
16270 #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__, 1, 1)
16272 #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__)
16275 #define LAPACK_zstegr_base LAPACK_GLOBAL(zstegr,ZSTEGR)
16276 void LAPACK_zstegr_base(
16277 char const* jobz,
char const* range,
16278 lapack_int
const* n,
16282 double const* vu, lapack_int
const* il, lapack_int
const* iu,
16283 double const* abstol, lapack_int* m,
16285 lapack_complex_double* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
16286 double* work, lapack_int
const* lwork,
16287 lapack_int* iwork, lapack_int
const* liwork,
16289 #ifdef LAPACK_FORTRAN_STRLEN_END
16293 #ifdef LAPACK_FORTRAN_STRLEN_END
16294 #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__, 1, 1)
16296 #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__)
16299 #define LAPACK_cstein LAPACK_GLOBAL(cstein,CSTEIN)
16300 void LAPACK_cstein(
16301 lapack_int
const* n,
16303 float const* E, lapack_int
const* m,
16304 float const* W, lapack_int
const* IBLOCK, lapack_int
const* ISPLIT,
16305 lapack_complex_float* Z, lapack_int
const* ldz,
16307 lapack_int* iwork, lapack_int* IFAIL,
16308 lapack_int* info );
16310 #define LAPACK_dstein LAPACK_GLOBAL(dstein,DSTEIN)
16311 void LAPACK_dstein(
16312 lapack_int
const* n,
16314 double const* E, lapack_int
const* m,
16315 double const* W, lapack_int
const* IBLOCK, lapack_int
const* ISPLIT,
16316 double* Z, lapack_int
const* ldz,
16318 lapack_int* iwork, lapack_int* IFAIL,
16319 lapack_int* info );
16321 #define LAPACK_sstein LAPACK_GLOBAL(sstein,SSTEIN)
16322 void LAPACK_sstein(
16323 lapack_int
const* n,
16325 float const* E, lapack_int
const* m,
16326 float const* W, lapack_int
const* IBLOCK, lapack_int
const* ISPLIT,
16327 float* Z, lapack_int
const* ldz,
16329 lapack_int* iwork, lapack_int* IFAIL,
16330 lapack_int* info );
16332 #define LAPACK_zstein LAPACK_GLOBAL(zstein,ZSTEIN)
16333 void LAPACK_zstein(
16334 lapack_int
const* n,
16336 double const* E, lapack_int
const* m,
16337 double const* W, lapack_int
const* IBLOCK, lapack_int
const* ISPLIT,
16338 lapack_complex_double* Z, lapack_int
const* ldz,
16340 lapack_int* iwork, lapack_int* IFAIL,
16341 lapack_int* info );
16343 #define LAPACK_cstemr_base LAPACK_GLOBAL(cstemr,CSTEMR)
16344 void LAPACK_cstemr_base(
16345 char const* jobz,
char const* range,
16346 lapack_int
const* n,
16350 float const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* m,
16352 lapack_complex_float* Z, lapack_int
const* ldz, lapack_int
const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16353 float* work, lapack_int
const* lwork,
16354 lapack_int* iwork, lapack_int
const* liwork,
16356 #ifdef LAPACK_FORTRAN_STRLEN_END
16360 #ifdef LAPACK_FORTRAN_STRLEN_END
16361 #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__, 1, 1)
16363 #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__)
16366 #define LAPACK_dstemr_base LAPACK_GLOBAL(dstemr,DSTEMR)
16367 void LAPACK_dstemr_base(
16368 char const* jobz,
char const* range,
16369 lapack_int
const* n,
16373 double const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* m,
16375 double* Z, lapack_int
const* ldz, lapack_int
const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16376 double* work, lapack_int
const* lwork,
16377 lapack_int* iwork, lapack_int
const* liwork,
16379 #ifdef LAPACK_FORTRAN_STRLEN_END
16383 #ifdef LAPACK_FORTRAN_STRLEN_END
16384 #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__, 1, 1)
16386 #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__)
16389 #define LAPACK_sstemr_base LAPACK_GLOBAL(sstemr,SSTEMR)
16390 void LAPACK_sstemr_base(
16391 char const* jobz,
char const* range,
16392 lapack_int
const* n,
16396 float const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* m,
16398 float* Z, lapack_int
const* ldz, lapack_int
const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16399 float* work, lapack_int
const* lwork,
16400 lapack_int* iwork, lapack_int
const* liwork,
16402 #ifdef LAPACK_FORTRAN_STRLEN_END
16406 #ifdef LAPACK_FORTRAN_STRLEN_END
16407 #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__, 1, 1)
16409 #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__)
16412 #define LAPACK_zstemr_base LAPACK_GLOBAL(zstemr,ZSTEMR)
16413 void LAPACK_zstemr_base(
16414 char const* jobz,
char const* range,
16415 lapack_int
const* n,
16419 double const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* m,
16421 lapack_complex_double* Z, lapack_int
const* ldz, lapack_int
const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16422 double* work, lapack_int
const* lwork,
16423 lapack_int* iwork, lapack_int
const* liwork,
16425 #ifdef LAPACK_FORTRAN_STRLEN_END
16429 #ifdef LAPACK_FORTRAN_STRLEN_END
16430 #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__, 1, 1)
16432 #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__)
16435 #define LAPACK_csteqr_base LAPACK_GLOBAL(csteqr,CSTEQR)
16436 void LAPACK_csteqr_base(
16438 lapack_int
const* n,
16441 lapack_complex_float* Z, lapack_int
const* ldz,
16444 #ifdef LAPACK_FORTRAN_STRLEN_END
16448 #ifdef LAPACK_FORTRAN_STRLEN_END
16449 #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__, 1)
16451 #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__)
16454 #define LAPACK_dsteqr_base LAPACK_GLOBAL(dsteqr,DSTEQR)
16455 void LAPACK_dsteqr_base(
16457 lapack_int
const* n,
16460 double* Z, lapack_int
const* ldz,
16463 #ifdef LAPACK_FORTRAN_STRLEN_END
16467 #ifdef LAPACK_FORTRAN_STRLEN_END
16468 #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__, 1)
16470 #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__)
16473 #define LAPACK_ssteqr_base LAPACK_GLOBAL(ssteqr,SSTEQR)
16474 void LAPACK_ssteqr_base(
16476 lapack_int
const* n,
16479 float* Z, lapack_int
const* ldz,
16482 #ifdef LAPACK_FORTRAN_STRLEN_END
16486 #ifdef LAPACK_FORTRAN_STRLEN_END
16487 #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__, 1)
16489 #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__)
16492 #define LAPACK_zsteqr_base LAPACK_GLOBAL(zsteqr,ZSTEQR)
16493 void LAPACK_zsteqr_base(
16495 lapack_int
const* n,
16498 lapack_complex_double* Z, lapack_int
const* ldz,
16501 #ifdef LAPACK_FORTRAN_STRLEN_END
16505 #ifdef LAPACK_FORTRAN_STRLEN_END
16506 #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__, 1)
16508 #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__)
16511 #define LAPACK_dsterf LAPACK_GLOBAL(dsterf,DSTERF)
16512 void LAPACK_dsterf(
16513 lapack_int
const* n,
16516 lapack_int* info );
16518 #define LAPACK_ssterf LAPACK_GLOBAL(ssterf,SSTERF)
16519 void LAPACK_ssterf(
16520 lapack_int
const* n,
16523 lapack_int* info );
16525 #define LAPACK_dstev_base LAPACK_GLOBAL(dstev,DSTEV)
16526 void LAPACK_dstev_base(
16528 lapack_int
const* n,
16531 double* Z, lapack_int
const* ldz,
16534 #ifdef LAPACK_FORTRAN_STRLEN_END
16538 #ifdef LAPACK_FORTRAN_STRLEN_END
16539 #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__, 1)
16541 #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__)
16544 #define LAPACK_sstev_base LAPACK_GLOBAL(sstev,SSTEV)
16545 void LAPACK_sstev_base(
16547 lapack_int
const* n,
16550 float* Z, lapack_int
const* ldz,
16553 #ifdef LAPACK_FORTRAN_STRLEN_END
16557 #ifdef LAPACK_FORTRAN_STRLEN_END
16558 #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__, 1)
16560 #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__)
16563 #define LAPACK_dstevd_base LAPACK_GLOBAL(dstevd,DSTEVD)
16564 void LAPACK_dstevd_base(
16566 lapack_int
const* n,
16569 double* Z, lapack_int
const* ldz,
16570 double* work, lapack_int
const* lwork,
16571 lapack_int* iwork, lapack_int
const* liwork,
16573 #ifdef LAPACK_FORTRAN_STRLEN_END
16577 #ifdef LAPACK_FORTRAN_STRLEN_END
16578 #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__, 1)
16580 #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__)
16583 #define LAPACK_sstevd_base LAPACK_GLOBAL(sstevd,SSTEVD)
16584 void LAPACK_sstevd_base(
16586 lapack_int
const* n,
16589 float* Z, lapack_int
const* ldz,
16590 float* work, lapack_int
const* lwork,
16591 lapack_int* iwork, lapack_int
const* liwork,
16593 #ifdef LAPACK_FORTRAN_STRLEN_END
16597 #ifdef LAPACK_FORTRAN_STRLEN_END
16598 #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__, 1)
16600 #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__)
16603 #define LAPACK_dstevr_base LAPACK_GLOBAL(dstevr,DSTEVR)
16604 void LAPACK_dstevr_base(
16605 char const* jobz,
char const* range,
16606 lapack_int
const* n,
16610 double const* vu, lapack_int
const* il, lapack_int
const* iu,
16611 double const* abstol, lapack_int* m,
16613 double* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
16614 double* work, lapack_int
const* lwork,
16615 lapack_int* iwork, lapack_int
const* liwork,
16617 #ifdef LAPACK_FORTRAN_STRLEN_END
16621 #ifdef LAPACK_FORTRAN_STRLEN_END
16622 #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__, 1, 1)
16624 #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__)
16627 #define LAPACK_sstevr_base LAPACK_GLOBAL(sstevr,SSTEVR)
16628 void LAPACK_sstevr_base(
16629 char const* jobz,
char const* range,
16630 lapack_int
const* n,
16634 float const* vu, lapack_int
const* il, lapack_int
const* iu,
16635 float const* abstol, lapack_int* m,
16637 float* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
16638 float* work, lapack_int
const* lwork,
16639 lapack_int* iwork, lapack_int
const* liwork,
16641 #ifdef LAPACK_FORTRAN_STRLEN_END
16645 #ifdef LAPACK_FORTRAN_STRLEN_END
16646 #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__, 1, 1)
16648 #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__)
16651 #define LAPACK_dstevx_base LAPACK_GLOBAL(dstevx,DSTEVX)
16652 void LAPACK_dstevx_base(
16653 char const* jobz,
char const* range,
16654 lapack_int
const* n,
16658 double const* vu, lapack_int
const* il, lapack_int
const* iu,
16659 double const* abstol, lapack_int* m,
16661 double* Z, lapack_int
const* ldz,
16663 lapack_int* iwork, lapack_int* IFAIL,
16665 #ifdef LAPACK_FORTRAN_STRLEN_END
16669 #ifdef LAPACK_FORTRAN_STRLEN_END
16670 #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__, 1, 1)
16672 #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__)
16675 #define LAPACK_sstevx_base LAPACK_GLOBAL(sstevx,SSTEVX)
16676 void LAPACK_sstevx_base(
16677 char const* jobz,
char const* range,
16678 lapack_int
const* n,
16682 float const* vu, lapack_int
const* il, lapack_int
const* iu,
16683 float const* abstol, lapack_int* m,
16685 float* Z, lapack_int
const* ldz,
16687 lapack_int* iwork, lapack_int* IFAIL,
16689 #ifdef LAPACK_FORTRAN_STRLEN_END
16693 #ifdef LAPACK_FORTRAN_STRLEN_END
16694 #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__, 1, 1)
16696 #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__)
16699 #define LAPACK_csycon_base LAPACK_GLOBAL(csycon,CSYCON)
16700 void LAPACK_csycon_base(
16702 lapack_int
const* n,
16703 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
16704 float const* anorm,
16706 lapack_complex_float* work,
16708 #ifdef LAPACK_FORTRAN_STRLEN_END
16712 #ifdef LAPACK_FORTRAN_STRLEN_END
16713 #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__, 1)
16715 #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__)
16718 #define LAPACK_dsycon_base LAPACK_GLOBAL(dsycon,DSYCON)
16719 void LAPACK_dsycon_base(
16721 lapack_int
const* n,
16722 double const* A, lapack_int
const* lda, lapack_int
const* ipiv,
16723 double const* anorm,
16728 #ifdef LAPACK_FORTRAN_STRLEN_END
16732 #ifdef LAPACK_FORTRAN_STRLEN_END
16733 #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__, 1)
16735 #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__)
16738 #define LAPACK_ssycon_base LAPACK_GLOBAL(ssycon,SSYCON)
16739 void LAPACK_ssycon_base(
16741 lapack_int
const* n,
16742 float const* A, lapack_int
const* lda, lapack_int
const* ipiv,
16743 float const* anorm,
16748 #ifdef LAPACK_FORTRAN_STRLEN_END
16752 #ifdef LAPACK_FORTRAN_STRLEN_END
16753 #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__, 1)
16755 #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__)
16758 #define LAPACK_zsycon_base LAPACK_GLOBAL(zsycon,ZSYCON)
16759 void LAPACK_zsycon_base(
16761 lapack_int
const* n,
16762 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
16763 double const* anorm,
16765 lapack_complex_double* work,
16767 #ifdef LAPACK_FORTRAN_STRLEN_END
16771 #ifdef LAPACK_FORTRAN_STRLEN_END
16772 #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__, 1)
16774 #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__)
16777 #define LAPACK_csycon_3_base LAPACK_GLOBAL(csycon_3,CSYCON_3)
16778 void LAPACK_csycon_3_base(
16780 lapack_int
const* n,
16781 lapack_complex_float
const* A, lapack_int
const* lda,
16782 lapack_complex_float
const* E, lapack_int
const* ipiv,
16783 float const* anorm,
16785 lapack_complex_float* work,
16787 #ifdef LAPACK_FORTRAN_STRLEN_END
16791 #ifdef LAPACK_FORTRAN_STRLEN_END
16792 #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__, 1)
16794 #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__)
16797 #define LAPACK_dsycon_3_base LAPACK_GLOBAL(dsycon_3,DSYCON_3)
16798 void LAPACK_dsycon_3_base(
16800 lapack_int
const* n,
16801 double const* A, lapack_int
const* lda,
16802 double const* E, lapack_int
const* ipiv,
16803 double const* anorm,
16808 #ifdef LAPACK_FORTRAN_STRLEN_END
16812 #ifdef LAPACK_FORTRAN_STRLEN_END
16813 #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__, 1)
16815 #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__)
16818 #define LAPACK_ssycon_3_base LAPACK_GLOBAL(ssycon_3,SSYCON_3)
16819 void LAPACK_ssycon_3_base(
16821 lapack_int
const* n,
16822 float const* A, lapack_int
const* lda,
16823 float const* E, lapack_int
const* ipiv,
16824 float const* anorm,
16829 #ifdef LAPACK_FORTRAN_STRLEN_END
16833 #ifdef LAPACK_FORTRAN_STRLEN_END
16834 #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__, 1)
16836 #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__)
16839 #define LAPACK_zsycon_3_base LAPACK_GLOBAL(zsycon_3,ZSYCON_3)
16840 void LAPACK_zsycon_3_base(
16842 lapack_int
const* n,
16843 lapack_complex_double
const* A, lapack_int
const* lda,
16844 lapack_complex_double
const* E, lapack_int
const* ipiv,
16845 double const* anorm,
16847 lapack_complex_double* work,
16849 #ifdef LAPACK_FORTRAN_STRLEN_END
16853 #ifdef LAPACK_FORTRAN_STRLEN_END
16854 #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__, 1)
16856 #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__)
16859 #define LAPACK_csyconv_base LAPACK_GLOBAL(csyconv,CSYCONV)
16860 void LAPACK_csyconv_base(
16861 char const* uplo,
char const* way,
16862 lapack_int
const* n,
16863 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
16864 lapack_complex_float* E,
16866 #ifdef LAPACK_FORTRAN_STRLEN_END
16870 #ifdef LAPACK_FORTRAN_STRLEN_END
16871 #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__, 1, 1)
16873 #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__)
16876 #define LAPACK_dsyconv_base LAPACK_GLOBAL(dsyconv,DSYCONV)
16877 void LAPACK_dsyconv_base(
16878 char const* uplo,
char const* way,
16879 lapack_int
const* n,
16880 double* A, lapack_int
const* lda, lapack_int
const* ipiv,
16883 #ifdef LAPACK_FORTRAN_STRLEN_END
16887 #ifdef LAPACK_FORTRAN_STRLEN_END
16888 #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__, 1, 1)
16890 #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__)
16893 #define LAPACK_ssyconv_base LAPACK_GLOBAL(ssyconv,SSYCONV)
16894 void LAPACK_ssyconv_base(
16895 char const* uplo,
char const* way,
16896 lapack_int
const* n,
16897 float* A, lapack_int
const* lda, lapack_int
const* ipiv,
16900 #ifdef LAPACK_FORTRAN_STRLEN_END
16904 #ifdef LAPACK_FORTRAN_STRLEN_END
16905 #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__, 1, 1)
16907 #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__)
16910 #define LAPACK_zsyconv_base LAPACK_GLOBAL(zsyconv,ZSYCONV)
16911 void LAPACK_zsyconv_base(
16912 char const* uplo,
char const* way,
16913 lapack_int
const* n,
16914 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
16915 lapack_complex_double* E,
16917 #ifdef LAPACK_FORTRAN_STRLEN_END
16921 #ifdef LAPACK_FORTRAN_STRLEN_END
16922 #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__, 1, 1)
16924 #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__)
16927 #define LAPACK_csyequb_base LAPACK_GLOBAL(csyequb,CSYEQUB)
16928 void LAPACK_csyequb_base(
16930 lapack_int
const* n,
16931 lapack_complex_float
const* A, lapack_int
const* lda,
16935 lapack_complex_float* work,
16937 #ifdef LAPACK_FORTRAN_STRLEN_END
16941 #ifdef LAPACK_FORTRAN_STRLEN_END
16942 #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__, 1)
16944 #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__)
16947 #define LAPACK_dsyequb_base LAPACK_GLOBAL(dsyequb,DSYEQUB)
16948 void LAPACK_dsyequb_base(
16950 lapack_int
const* n,
16951 double const* A, lapack_int
const* lda,
16957 #ifdef LAPACK_FORTRAN_STRLEN_END
16961 #ifdef LAPACK_FORTRAN_STRLEN_END
16962 #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__, 1)
16964 #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__)
16967 #define LAPACK_ssyequb_base LAPACK_GLOBAL(ssyequb,SSYEQUB)
16968 void LAPACK_ssyequb_base(
16970 lapack_int
const* n,
16971 float const* A, lapack_int
const* lda,
16977 #ifdef LAPACK_FORTRAN_STRLEN_END
16981 #ifdef LAPACK_FORTRAN_STRLEN_END
16982 #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__, 1)
16984 #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__)
16987 #define LAPACK_zsyequb_base LAPACK_GLOBAL(zsyequb,ZSYEQUB)
16988 void LAPACK_zsyequb_base(
16990 lapack_int
const* n,
16991 lapack_complex_double
const* A, lapack_int
const* lda,
16995 lapack_complex_double* work,
16997 #ifdef LAPACK_FORTRAN_STRLEN_END
17001 #ifdef LAPACK_FORTRAN_STRLEN_END
17002 #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__, 1)
17004 #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__)
17007 #define LAPACK_dsyev_base LAPACK_GLOBAL(dsyev,DSYEV)
17008 void LAPACK_dsyev_base(
17009 char const* jobz,
char const* uplo,
17010 lapack_int
const* n,
17011 double* A, lapack_int
const* lda,
17013 double* work, lapack_int
const* lwork,
17015 #ifdef LAPACK_FORTRAN_STRLEN_END
17019 #ifdef LAPACK_FORTRAN_STRLEN_END
17020 #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__, 1, 1)
17022 #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__)
17025 #define LAPACK_ssyev_base LAPACK_GLOBAL(ssyev,SSYEV)
17026 void LAPACK_ssyev_base(
17027 char const* jobz,
char const* uplo,
17028 lapack_int
const* n,
17029 float* A, lapack_int
const* lda,
17031 float* work, lapack_int
const* lwork,
17033 #ifdef LAPACK_FORTRAN_STRLEN_END
17037 #ifdef LAPACK_FORTRAN_STRLEN_END
17038 #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__, 1, 1)
17040 #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__)
17043 #define LAPACK_dsyev_2stage_base LAPACK_GLOBAL(dsyev_2stage,DSYEV_2STAGE)
17044 void LAPACK_dsyev_2stage_base(
17045 char const* jobz,
char const* uplo,
17046 lapack_int
const* n,
17047 double* A, lapack_int
const* lda,
17049 double* work, lapack_int
const* lwork,
17051 #ifdef LAPACK_FORTRAN_STRLEN_END
17055 #ifdef LAPACK_FORTRAN_STRLEN_END
17056 #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__, 1, 1)
17058 #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__)
17061 #define LAPACK_ssyev_2stage_base LAPACK_GLOBAL(ssyev_2stage,SSYEV_2STAGE)
17062 void LAPACK_ssyev_2stage_base(
17063 char const* jobz,
char const* uplo,
17064 lapack_int
const* n,
17065 float* A, lapack_int
const* lda,
17067 float* work, lapack_int
const* lwork,
17069 #ifdef LAPACK_FORTRAN_STRLEN_END
17073 #ifdef LAPACK_FORTRAN_STRLEN_END
17074 #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__, 1, 1)
17076 #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__)
17079 #define LAPACK_dsyevd_base LAPACK_GLOBAL(dsyevd,DSYEVD)
17080 void LAPACK_dsyevd_base(
17081 char const* jobz,
char const* uplo,
17082 lapack_int
const* n,
17083 double* A, lapack_int
const* lda,
17085 double* work, lapack_int
const* lwork,
17086 lapack_int* iwork, lapack_int
const* liwork,
17088 #ifdef LAPACK_FORTRAN_STRLEN_END
17092 #ifdef LAPACK_FORTRAN_STRLEN_END
17093 #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__, 1, 1)
17095 #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__)
17098 #define LAPACK_ssyevd_base LAPACK_GLOBAL(ssyevd,SSYEVD)
17099 void LAPACK_ssyevd_base(
17100 char const* jobz,
char const* uplo,
17101 lapack_int
const* n,
17102 float* A, lapack_int
const* lda,
17104 float* work, lapack_int
const* lwork,
17105 lapack_int* iwork, lapack_int
const* liwork,
17107 #ifdef LAPACK_FORTRAN_STRLEN_END
17111 #ifdef LAPACK_FORTRAN_STRLEN_END
17112 #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__, 1, 1)
17114 #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__)
17117 #define LAPACK_dsyevd_2stage_base LAPACK_GLOBAL(dsyevd_2stage,DSYEVD_2STAGE)
17118 void LAPACK_dsyevd_2stage_base(
17119 char const* jobz,
char const* uplo,
17120 lapack_int
const* n,
17121 double* A, lapack_int
const* lda,
17123 double* work, lapack_int
const* lwork,
17124 lapack_int* iwork, lapack_int
const* liwork,
17126 #ifdef LAPACK_FORTRAN_STRLEN_END
17130 #ifdef LAPACK_FORTRAN_STRLEN_END
17131 #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__, 1, 1)
17133 #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__)
17136 #define LAPACK_ssyevd_2stage_base LAPACK_GLOBAL(ssyevd_2stage,SSYEVD_2STAGE)
17137 void LAPACK_ssyevd_2stage_base(
17138 char const* jobz,
char const* uplo,
17139 lapack_int
const* n,
17140 float* A, lapack_int
const* lda,
17142 float* work, lapack_int
const* lwork,
17143 lapack_int* iwork, lapack_int
const* liwork,
17145 #ifdef LAPACK_FORTRAN_STRLEN_END
17149 #ifdef LAPACK_FORTRAN_STRLEN_END
17150 #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__, 1, 1)
17152 #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__)
17155 #define LAPACK_dsyevr_base LAPACK_GLOBAL(dsyevr,DSYEVR)
17156 void LAPACK_dsyevr_base(
17157 char const* jobz,
char const* range,
char const* uplo,
17158 lapack_int
const* n,
17159 double* A, lapack_int
const* lda,
17161 double const* vu, lapack_int
const* il, lapack_int
const* iu,
17162 double const* abstol, lapack_int* m,
17164 double* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
17165 double* work, lapack_int
const* lwork,
17166 lapack_int* iwork, lapack_int
const* liwork,
17168 #ifdef LAPACK_FORTRAN_STRLEN_END
17169 ,
size_t,
size_t,
size_t
17172 #ifdef LAPACK_FORTRAN_STRLEN_END
17173 #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__, 1, 1, 1)
17175 #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__)
17178 #define LAPACK_ssyevr_base LAPACK_GLOBAL(ssyevr,SSYEVR)
17179 void LAPACK_ssyevr_base(
17180 char const* jobz,
char const* range,
char const* uplo,
17181 lapack_int
const* n,
17182 float* A, lapack_int
const* lda,
17184 float const* vu, lapack_int
const* il, lapack_int
const* iu,
17185 float const* abstol, lapack_int* m,
17187 float* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
17188 float* work, lapack_int
const* lwork,
17189 lapack_int* iwork, lapack_int
const* liwork,
17191 #ifdef LAPACK_FORTRAN_STRLEN_END
17192 ,
size_t,
size_t,
size_t
17195 #ifdef LAPACK_FORTRAN_STRLEN_END
17196 #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__, 1, 1, 1)
17198 #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__)
17201 #define LAPACK_dsyevr_2stage_base LAPACK_GLOBAL(dsyevr_2stage,DSYEVR_2STAGE)
17202 void LAPACK_dsyevr_2stage_base(
17203 char const* jobz,
char const* range,
char const* uplo,
17204 lapack_int
const* n,
17205 double* A, lapack_int
const* lda,
17207 double const* vu, lapack_int
const* il, lapack_int
const* iu,
17208 double const* abstol, lapack_int* m,
17210 double* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
17211 double* work, lapack_int
const* lwork,
17212 lapack_int* iwork, lapack_int
const* liwork,
17214 #ifdef LAPACK_FORTRAN_STRLEN_END
17215 ,
size_t,
size_t,
size_t
17218 #ifdef LAPACK_FORTRAN_STRLEN_END
17219 #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__, 1, 1, 1)
17221 #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__)
17224 #define LAPACK_ssyevr_2stage_base LAPACK_GLOBAL(ssyevr_2stage,SSYEVR_2STAGE)
17225 void LAPACK_ssyevr_2stage_base(
17226 char const* jobz,
char const* range,
char const* uplo,
17227 lapack_int
const* n,
17228 float* A, lapack_int
const* lda,
17230 float const* vu, lapack_int
const* il, lapack_int
const* iu,
17231 float const* abstol, lapack_int* m,
17233 float* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
17234 float* work, lapack_int
const* lwork,
17235 lapack_int* iwork, lapack_int
const* liwork,
17237 #ifdef LAPACK_FORTRAN_STRLEN_END
17238 ,
size_t,
size_t,
size_t
17241 #ifdef LAPACK_FORTRAN_STRLEN_END
17242 #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__, 1, 1, 1)
17244 #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__)
17247 #define LAPACK_dsyevx_base LAPACK_GLOBAL(dsyevx,DSYEVX)
17248 void LAPACK_dsyevx_base(
17249 char const* jobz,
char const* range,
char const* uplo,
17250 lapack_int
const* n,
17251 double* A, lapack_int
const* lda,
17253 double const* vu, lapack_int
const* il, lapack_int
const* iu,
17254 double const* abstol, lapack_int* m,
17256 double* Z, lapack_int
const* ldz,
17257 double* work, lapack_int
const* lwork,
17258 lapack_int* iwork, lapack_int* IFAIL,
17260 #ifdef LAPACK_FORTRAN_STRLEN_END
17261 ,
size_t,
size_t,
size_t
17264 #ifdef LAPACK_FORTRAN_STRLEN_END
17265 #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__, 1, 1, 1)
17267 #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__)
17270 #define LAPACK_ssyevx_base LAPACK_GLOBAL(ssyevx,SSYEVX)
17271 void LAPACK_ssyevx_base(
17272 char const* jobz,
char const* range,
char const* uplo,
17273 lapack_int
const* n,
17274 float* A, lapack_int
const* lda,
17276 float const* vu, lapack_int
const* il, lapack_int
const* iu,
17277 float const* abstol, lapack_int* m,
17279 float* Z, lapack_int
const* ldz,
17280 float* work, lapack_int
const* lwork,
17281 lapack_int* iwork, lapack_int* IFAIL,
17283 #ifdef LAPACK_FORTRAN_STRLEN_END
17284 ,
size_t,
size_t,
size_t
17287 #ifdef LAPACK_FORTRAN_STRLEN_END
17288 #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__, 1, 1, 1)
17290 #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__)
17293 #define LAPACK_dsyevx_2stage_base LAPACK_GLOBAL(dsyevx_2stage,DSYEVX_2STAGE)
17294 void LAPACK_dsyevx_2stage_base(
17295 char const* jobz,
char const* range,
char const* uplo,
17296 lapack_int
const* n,
17297 double* A, lapack_int
const* lda,
17299 double const* vu, lapack_int
const* il, lapack_int
const* iu,
17300 double const* abstol, lapack_int* m,
17302 double* Z, lapack_int
const* ldz,
17303 double* work, lapack_int
const* lwork,
17304 lapack_int* iwork, lapack_int* IFAIL,
17306 #ifdef LAPACK_FORTRAN_STRLEN_END
17307 ,
size_t,
size_t,
size_t
17310 #ifdef LAPACK_FORTRAN_STRLEN_END
17311 #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__, 1, 1, 1)
17313 #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__)
17316 #define LAPACK_ssyevx_2stage_base LAPACK_GLOBAL(ssyevx_2stage,SSYEVX_2STAGE)
17317 void LAPACK_ssyevx_2stage_base(
17318 char const* jobz,
char const* range,
char const* uplo,
17319 lapack_int
const* n,
17320 float* A, lapack_int
const* lda,
17322 float const* vu, lapack_int
const* il, lapack_int
const* iu,
17323 float const* abstol, lapack_int* m,
17325 float* Z, lapack_int
const* ldz,
17326 float* work, lapack_int
const* lwork,
17327 lapack_int* iwork, lapack_int* IFAIL,
17329 #ifdef LAPACK_FORTRAN_STRLEN_END
17330 ,
size_t,
size_t,
size_t
17333 #ifdef LAPACK_FORTRAN_STRLEN_END
17334 #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__, 1, 1, 1)
17336 #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__)
17339 #define LAPACK_dsygst_base LAPACK_GLOBAL(dsygst,DSYGST)
17340 void LAPACK_dsygst_base(
17341 lapack_int
const* itype,
char const* uplo,
17342 lapack_int
const* n,
17343 double* A, lapack_int
const* lda,
17344 double const* B, lapack_int
const* ldb,
17346 #ifdef LAPACK_FORTRAN_STRLEN_END
17350 #ifdef LAPACK_FORTRAN_STRLEN_END
17351 #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__, 1)
17353 #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__)
17356 #define LAPACK_ssygst_base LAPACK_GLOBAL(ssygst,SSYGST)
17357 void LAPACK_ssygst_base(
17358 lapack_int
const* itype,
char const* uplo,
17359 lapack_int
const* n,
17360 float* A, lapack_int
const* lda,
17361 float const* B, lapack_int
const* ldb,
17363 #ifdef LAPACK_FORTRAN_STRLEN_END
17367 #ifdef LAPACK_FORTRAN_STRLEN_END
17368 #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__, 1)
17370 #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__)
17373 #define LAPACK_dsygv_base LAPACK_GLOBAL(dsygv,DSYGV)
17374 void LAPACK_dsygv_base(
17375 lapack_int
const* itype,
char const* jobz,
char const* uplo,
17376 lapack_int
const* n,
17377 double* A, lapack_int
const* lda,
17378 double* B, lapack_int
const* ldb,
17380 double* work, lapack_int
const* lwork,
17382 #ifdef LAPACK_FORTRAN_STRLEN_END
17386 #ifdef LAPACK_FORTRAN_STRLEN_END
17387 #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__, 1, 1)
17389 #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__)
17392 #define LAPACK_ssygv_base LAPACK_GLOBAL(ssygv,SSYGV)
17393 void LAPACK_ssygv_base(
17394 lapack_int
const* itype,
char const* jobz,
char const* uplo,
17395 lapack_int
const* n,
17396 float* A, lapack_int
const* lda,
17397 float* B, lapack_int
const* ldb,
17399 float* work, lapack_int
const* lwork,
17401 #ifdef LAPACK_FORTRAN_STRLEN_END
17405 #ifdef LAPACK_FORTRAN_STRLEN_END
17406 #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__, 1, 1)
17408 #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__)
17411 #define LAPACK_dsygv_2stage_base LAPACK_GLOBAL(dsygv_2stage,DSYGV_2STAGE)
17412 void LAPACK_dsygv_2stage_base(
17413 lapack_int
const* itype,
char const* jobz,
char const* uplo,
17414 lapack_int
const* n,
17415 double* A, lapack_int
const* lda,
17416 double* B, lapack_int
const* ldb,
17418 double* work, lapack_int
const* lwork,
17420 #ifdef LAPACK_FORTRAN_STRLEN_END
17424 #ifdef LAPACK_FORTRAN_STRLEN_END
17425 #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__, 1, 1)
17427 #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__)
17430 #define LAPACK_ssygv_2stage_base LAPACK_GLOBAL(ssygv_2stage,SSYGV_2STAGE)
17431 void LAPACK_ssygv_2stage_base(
17432 lapack_int
const* itype,
char const* jobz,
char const* uplo,
17433 lapack_int
const* n,
17434 float* A, lapack_int
const* lda,
17435 float* B, lapack_int
const* ldb,
17437 float* work, lapack_int
const* lwork,
17439 #ifdef LAPACK_FORTRAN_STRLEN_END
17443 #ifdef LAPACK_FORTRAN_STRLEN_END
17444 #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__, 1, 1)
17446 #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__)
17449 #define LAPACK_dsygvd_base LAPACK_GLOBAL(dsygvd,DSYGVD)
17450 void LAPACK_dsygvd_base(
17451 lapack_int
const* itype,
char const* jobz,
char const* uplo,
17452 lapack_int
const* n,
17453 double* A, lapack_int
const* lda,
17454 double* B, lapack_int
const* ldb,
17456 double* work, lapack_int
const* lwork,
17457 lapack_int* iwork, lapack_int
const* liwork,
17459 #ifdef LAPACK_FORTRAN_STRLEN_END
17463 #ifdef LAPACK_FORTRAN_STRLEN_END
17464 #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__, 1, 1)
17466 #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__)
17469 #define LAPACK_ssygvd_base LAPACK_GLOBAL(ssygvd,SSYGVD)
17470 void LAPACK_ssygvd_base(
17471 lapack_int
const* itype,
char const* jobz,
char const* uplo,
17472 lapack_int
const* n,
17473 float* A, lapack_int
const* lda,
17474 float* B, lapack_int
const* ldb,
17476 float* work, lapack_int
const* lwork,
17477 lapack_int* iwork, lapack_int
const* liwork,
17479 #ifdef LAPACK_FORTRAN_STRLEN_END
17483 #ifdef LAPACK_FORTRAN_STRLEN_END
17484 #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__, 1, 1)
17486 #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__)
17489 #define LAPACK_dsygvx_base LAPACK_GLOBAL(dsygvx,DSYGVX)
17490 void LAPACK_dsygvx_base(
17491 lapack_int
const* itype,
char const* jobz,
char const* range,
char const* uplo,
17492 lapack_int
const* n,
17493 double* A, lapack_int
const* lda,
17494 double* B, lapack_int
const* ldb,
17496 double const* vu, lapack_int
const* il, lapack_int
const* iu,
17497 double const* abstol, lapack_int* m,
17499 double* Z, lapack_int
const* ldz,
17500 double* work, lapack_int
const* lwork,
17501 lapack_int* iwork, lapack_int* IFAIL,
17503 #ifdef LAPACK_FORTRAN_STRLEN_END
17504 ,
size_t,
size_t,
size_t
17507 #ifdef LAPACK_FORTRAN_STRLEN_END
17508 #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__, 1, 1, 1)
17510 #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__)
17513 #define LAPACK_ssygvx_base LAPACK_GLOBAL(ssygvx,SSYGVX)
17514 void LAPACK_ssygvx_base(
17515 lapack_int
const* itype,
char const* jobz,
char const* range,
char const* uplo,
17516 lapack_int
const* n,
17517 float* A, lapack_int
const* lda,
17518 float* B, lapack_int
const* ldb,
17520 float const* vu, lapack_int
const* il, lapack_int
const* iu,
17521 float const* abstol, lapack_int* m,
17523 float* Z, lapack_int
const* ldz,
17524 float* work, lapack_int
const* lwork,
17525 lapack_int* iwork, lapack_int* IFAIL,
17527 #ifdef LAPACK_FORTRAN_STRLEN_END
17528 ,
size_t,
size_t,
size_t
17531 #ifdef LAPACK_FORTRAN_STRLEN_END
17532 #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__, 1, 1, 1)
17534 #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__)
17537 #define LAPACK_csyr_base LAPACK_GLOBAL(csyr,CSYR)
17538 void LAPACK_csyr_base(
17540 lapack_int
const* n,
17541 lapack_complex_float
const* alpha,
17542 lapack_complex_float
const* X, lapack_int
const* incx,
17543 lapack_complex_float* A, lapack_int
const* lda
17544 #ifdef LAPACK_FORTRAN_STRLEN_END
17548 #ifdef LAPACK_FORTRAN_STRLEN_END
17549 #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__, 1)
17551 #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__)
17554 #define LAPACK_zsyr_base LAPACK_GLOBAL(zsyr,ZSYR)
17555 void LAPACK_zsyr_base(
17557 lapack_int
const* n,
17558 lapack_complex_double
const* alpha,
17559 lapack_complex_double
const* X, lapack_int
const* incx,
17560 lapack_complex_double* A, lapack_int
const* lda
17561 #ifdef LAPACK_FORTRAN_STRLEN_END
17565 #ifdef LAPACK_FORTRAN_STRLEN_END
17566 #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__, 1)
17568 #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__)
17571 #define LAPACK_csyrfs_base LAPACK_GLOBAL(csyrfs,CSYRFS)
17572 void LAPACK_csyrfs_base(
17574 lapack_int
const* n, lapack_int
const* nrhs,
17575 lapack_complex_float
const* A, lapack_int
const* lda,
17576 lapack_complex_float
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
17577 lapack_complex_float
const* B, lapack_int
const* ldb,
17578 lapack_complex_float* X, lapack_int
const* ldx,
17581 lapack_complex_float* work,
17584 #ifdef LAPACK_FORTRAN_STRLEN_END
17588 #ifdef LAPACK_FORTRAN_STRLEN_END
17589 #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__, 1)
17591 #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__)
17594 #define LAPACK_dsyrfs_base LAPACK_GLOBAL(dsyrfs,DSYRFS)
17595 void LAPACK_dsyrfs_base(
17597 lapack_int
const* n, lapack_int
const* nrhs,
17598 double const* A, lapack_int
const* lda,
17599 double const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
17600 double const* B, lapack_int
const* ldb,
17601 double* X, lapack_int
const* ldx,
17607 #ifdef LAPACK_FORTRAN_STRLEN_END
17611 #ifdef LAPACK_FORTRAN_STRLEN_END
17612 #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__, 1)
17614 #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__)
17617 #define LAPACK_ssyrfs_base LAPACK_GLOBAL(ssyrfs,SSYRFS)
17618 void LAPACK_ssyrfs_base(
17620 lapack_int
const* n, lapack_int
const* nrhs,
17621 float const* A, lapack_int
const* lda,
17622 float const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
17623 float const* B, lapack_int
const* ldb,
17624 float* X, lapack_int
const* ldx,
17630 #ifdef LAPACK_FORTRAN_STRLEN_END
17634 #ifdef LAPACK_FORTRAN_STRLEN_END
17635 #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__, 1)
17637 #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__)
17640 #define LAPACK_zsyrfs_base LAPACK_GLOBAL(zsyrfs,ZSYRFS)
17641 void LAPACK_zsyrfs_base(
17643 lapack_int
const* n, lapack_int
const* nrhs,
17644 lapack_complex_double
const* A, lapack_int
const* lda,
17645 lapack_complex_double
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
17646 lapack_complex_double
const* B, lapack_int
const* ldb,
17647 lapack_complex_double* X, lapack_int
const* ldx,
17650 lapack_complex_double* work,
17653 #ifdef LAPACK_FORTRAN_STRLEN_END
17657 #ifdef LAPACK_FORTRAN_STRLEN_END
17658 #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__, 1)
17660 #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__)
17663 #define LAPACK_csyrfsx_base LAPACK_GLOBAL(csyrfsx,CSYRFSX)
17664 void LAPACK_csyrfsx_base(
17665 char const* uplo,
char const* equed,
17666 lapack_int
const* n, lapack_int
const* nrhs,
17667 lapack_complex_float
const* A, lapack_int
const* lda,
17668 lapack_complex_float
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
17670 lapack_complex_float
const* B, lapack_int
const* ldb,
17671 lapack_complex_float* X, lapack_int
const* ldx,
17673 float* berr, lapack_int
const* n_err_bnds,
17674 float* err_bnds_norm,
17675 float* err_bnds_comp, lapack_int
const* nparams,
17677 lapack_complex_float* work,
17680 #ifdef LAPACK_FORTRAN_STRLEN_END
17684 #ifdef LAPACK_FORTRAN_STRLEN_END
17685 #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__, 1, 1)
17687 #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__)
17690 #define LAPACK_dsyrfsx_base LAPACK_GLOBAL(dsyrfsx,DSYRFSX)
17691 void LAPACK_dsyrfsx_base(
17692 char const* uplo,
char const* equed,
17693 lapack_int
const* n, lapack_int
const* nrhs,
17694 double const* A, lapack_int
const* lda,
17695 double const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
17697 double const* B, lapack_int
const* ldb,
17698 double* X, lapack_int
const* ldx,
17700 double* berr, lapack_int
const* n_err_bnds,
17701 double* err_bnds_norm,
17702 double* err_bnds_comp, lapack_int
const* nparams,
17707 #ifdef LAPACK_FORTRAN_STRLEN_END
17711 #ifdef LAPACK_FORTRAN_STRLEN_END
17712 #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__, 1, 1)
17714 #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__)
17717 #define LAPACK_ssyrfsx_base LAPACK_GLOBAL(ssyrfsx,SSYRFSX)
17718 void LAPACK_ssyrfsx_base(
17719 char const* uplo,
char const* equed,
17720 lapack_int
const* n, lapack_int
const* nrhs,
17721 float const* A, lapack_int
const* lda,
17722 float const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
17724 float const* B, lapack_int
const* ldb,
17725 float* X, lapack_int
const* ldx,
17727 float* berr, lapack_int
const* n_err_bnds,
17728 float* err_bnds_norm,
17729 float* err_bnds_comp, lapack_int
const* nparams,
17734 #ifdef LAPACK_FORTRAN_STRLEN_END
17738 #ifdef LAPACK_FORTRAN_STRLEN_END
17739 #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__, 1, 1)
17741 #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__)
17744 #define LAPACK_zsyrfsx_base LAPACK_GLOBAL(zsyrfsx,ZSYRFSX)
17745 void LAPACK_zsyrfsx_base(
17746 char const* uplo,
char const* equed,
17747 lapack_int
const* n, lapack_int
const* nrhs,
17748 lapack_complex_double
const* A, lapack_int
const* lda,
17749 lapack_complex_double
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
17751 lapack_complex_double
const* B, lapack_int
const* ldb,
17752 lapack_complex_double* X, lapack_int
const* ldx,
17754 double* berr, lapack_int
const* n_err_bnds,
17755 double* err_bnds_norm,
17756 double* err_bnds_comp, lapack_int
const* nparams,
17758 lapack_complex_double* work,
17761 #ifdef LAPACK_FORTRAN_STRLEN_END
17765 #ifdef LAPACK_FORTRAN_STRLEN_END
17766 #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__, 1, 1)
17768 #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__)
17771 #define LAPACK_csysv_base LAPACK_GLOBAL(csysv,CSYSV)
17772 void LAPACK_csysv_base(
17774 lapack_int
const* n, lapack_int
const* nrhs,
17775 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
17776 lapack_complex_float* B, lapack_int
const* ldb,
17777 lapack_complex_float* work, lapack_int
const* lwork,
17779 #ifdef LAPACK_FORTRAN_STRLEN_END
17783 #ifdef LAPACK_FORTRAN_STRLEN_END
17784 #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__, 1)
17786 #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__)
17789 #define LAPACK_dsysv_base LAPACK_GLOBAL(dsysv,DSYSV)
17790 void LAPACK_dsysv_base(
17792 lapack_int
const* n, lapack_int
const* nrhs,
17793 double* A, lapack_int
const* lda, lapack_int* ipiv,
17794 double* B, lapack_int
const* ldb,
17795 double* work, lapack_int
const* lwork,
17797 #ifdef LAPACK_FORTRAN_STRLEN_END
17801 #ifdef LAPACK_FORTRAN_STRLEN_END
17802 #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__, 1)
17804 #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__)
17807 #define LAPACK_ssysv_base LAPACK_GLOBAL(ssysv,SSYSV)
17808 void LAPACK_ssysv_base(
17810 lapack_int
const* n, lapack_int
const* nrhs,
17811 float* A, lapack_int
const* lda, lapack_int* ipiv,
17812 float* B, lapack_int
const* ldb,
17813 float* work, lapack_int
const* lwork,
17815 #ifdef LAPACK_FORTRAN_STRLEN_END
17819 #ifdef LAPACK_FORTRAN_STRLEN_END
17820 #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__, 1)
17822 #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__)
17825 #define LAPACK_zsysv_base LAPACK_GLOBAL(zsysv,ZSYSV)
17826 void LAPACK_zsysv_base(
17828 lapack_int
const* n, lapack_int
const* nrhs,
17829 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
17830 lapack_complex_double* B, lapack_int
const* ldb,
17831 lapack_complex_double* work, lapack_int
const* lwork,
17833 #ifdef LAPACK_FORTRAN_STRLEN_END
17837 #ifdef LAPACK_FORTRAN_STRLEN_END
17838 #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__, 1)
17840 #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__)
17843 #define LAPACK_csysv_aa_base LAPACK_GLOBAL(csysv_aa,CSYSV_AA)
17844 void LAPACK_csysv_aa_base(
17846 lapack_int
const* n, lapack_int
const* nrhs,
17847 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
17848 lapack_complex_float* B, lapack_int
const* ldb,
17849 lapack_complex_float* work, lapack_int
const* lwork,
17851 #ifdef LAPACK_FORTRAN_STRLEN_END
17855 #ifdef LAPACK_FORTRAN_STRLEN_END
17856 #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__, 1)
17858 #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__)
17861 #define LAPACK_dsysv_aa_base LAPACK_GLOBAL(dsysv_aa,DSYSV_AA)
17862 void LAPACK_dsysv_aa_base(
17864 lapack_int
const* n, lapack_int
const* nrhs,
17865 double* A, lapack_int
const* lda, lapack_int* ipiv,
17866 double* B, lapack_int
const* ldb,
17867 double* work, lapack_int
const* lwork,
17869 #ifdef LAPACK_FORTRAN_STRLEN_END
17873 #ifdef LAPACK_FORTRAN_STRLEN_END
17874 #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__, 1)
17876 #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__)
17879 #define LAPACK_ssysv_aa_base LAPACK_GLOBAL(ssysv_aa,SSYSV_AA)
17880 void LAPACK_ssysv_aa_base(
17882 lapack_int
const* n, lapack_int
const* nrhs,
17883 float* A, lapack_int
const* lda, lapack_int* ipiv,
17884 float* B, lapack_int
const* ldb,
17885 float* work, lapack_int
const* lwork,
17887 #ifdef LAPACK_FORTRAN_STRLEN_END
17891 #ifdef LAPACK_FORTRAN_STRLEN_END
17892 #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__, 1)
17894 #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__)
17897 #define LAPACK_zsysv_aa_base LAPACK_GLOBAL(zsysv_aa,ZSYSV_AA)
17898 void LAPACK_zsysv_aa_base(
17900 lapack_int
const* n, lapack_int
const* nrhs,
17901 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
17902 lapack_complex_double* B, lapack_int
const* ldb,
17903 lapack_complex_double* work, lapack_int
const* lwork,
17905 #ifdef LAPACK_FORTRAN_STRLEN_END
17909 #ifdef LAPACK_FORTRAN_STRLEN_END
17910 #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__, 1)
17912 #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__)
17915 #define LAPACK_csysv_aa_2stage_base LAPACK_GLOBAL(csysv_aa_2stage,CSYSV_AA_2STAGE)
17916 void LAPACK_csysv_aa_2stage_base(
17918 lapack_int
const* n, lapack_int
const* nrhs,
17919 lapack_complex_float* A, lapack_int
const* lda,
17920 lapack_complex_float* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17921 lapack_complex_float* B, lapack_int
const* ldb,
17922 lapack_complex_float* work, lapack_int
const* lwork,
17924 #ifdef LAPACK_FORTRAN_STRLEN_END
17928 #ifdef LAPACK_FORTRAN_STRLEN_END
17929 #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__, 1)
17931 #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__)
17934 #define LAPACK_dsysv_aa_2stage_base LAPACK_GLOBAL(dsysv_aa_2stage,DSYSV_AA_2STAGE)
17935 void LAPACK_dsysv_aa_2stage_base(
17937 lapack_int
const* n, lapack_int
const* nrhs,
17938 double* A, lapack_int
const* lda,
17939 double* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17940 double* B, lapack_int
const* ldb,
17941 double* work, lapack_int
const* lwork,
17943 #ifdef LAPACK_FORTRAN_STRLEN_END
17947 #ifdef LAPACK_FORTRAN_STRLEN_END
17948 #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__, 1)
17950 #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__)
17953 #define LAPACK_ssysv_aa_2stage_base LAPACK_GLOBAL(ssysv_aa_2stage,SSYSV_AA_2STAGE)
17954 void LAPACK_ssysv_aa_2stage_base(
17956 lapack_int
const* n, lapack_int
const* nrhs,
17957 float* A, lapack_int
const* lda,
17958 float* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17959 float* B, lapack_int
const* ldb,
17960 float* work, lapack_int
const* lwork,
17962 #ifdef LAPACK_FORTRAN_STRLEN_END
17966 #ifdef LAPACK_FORTRAN_STRLEN_END
17967 #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__, 1)
17969 #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__)
17972 #define LAPACK_zsysv_aa_2stage_base LAPACK_GLOBAL(zsysv_aa_2stage,ZSYSV_AA_2STAGE)
17973 void LAPACK_zsysv_aa_2stage_base(
17975 lapack_int
const* n, lapack_int
const* nrhs,
17976 lapack_complex_double* A, lapack_int
const* lda,
17977 lapack_complex_double* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17978 lapack_complex_double* B, lapack_int
const* ldb,
17979 lapack_complex_double* work, lapack_int
const* lwork,
17981 #ifdef LAPACK_FORTRAN_STRLEN_END
17985 #ifdef LAPACK_FORTRAN_STRLEN_END
17986 #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__, 1)
17988 #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__)
17991 #define LAPACK_csysv_rk_base LAPACK_GLOBAL(csysv_rk,CSYSV_RK)
17992 void LAPACK_csysv_rk_base(
17994 lapack_int
const* n, lapack_int
const* nrhs,
17995 lapack_complex_float* A, lapack_int
const* lda,
17996 lapack_complex_float* E, lapack_int* ipiv,
17997 lapack_complex_float* B, lapack_int
const* ldb,
17998 lapack_complex_float* work, lapack_int
const* lwork,
18000 #ifdef LAPACK_FORTRAN_STRLEN_END
18004 #ifdef LAPACK_FORTRAN_STRLEN_END
18005 #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__, 1)
18007 #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__)
18010 #define LAPACK_dsysv_rk_base LAPACK_GLOBAL(dsysv_rk,DSYSV_RK)
18011 void LAPACK_dsysv_rk_base(
18013 lapack_int
const* n, lapack_int
const* nrhs,
18014 double* A, lapack_int
const* lda,
18015 double* E, lapack_int* ipiv,
18016 double* B, lapack_int
const* ldb,
18017 double* work, lapack_int
const* lwork,
18019 #ifdef LAPACK_FORTRAN_STRLEN_END
18023 #ifdef LAPACK_FORTRAN_STRLEN_END
18024 #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__, 1)
18026 #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__)
18029 #define LAPACK_ssysv_rk_base LAPACK_GLOBAL(ssysv_rk,SSYSV_RK)
18030 void LAPACK_ssysv_rk_base(
18032 lapack_int
const* n, lapack_int
const* nrhs,
18033 float* A, lapack_int
const* lda,
18034 float* E, lapack_int* ipiv,
18035 float* B, lapack_int
const* ldb,
18036 float* work, lapack_int
const* lwork,
18038 #ifdef LAPACK_FORTRAN_STRLEN_END
18042 #ifdef LAPACK_FORTRAN_STRLEN_END
18043 #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__, 1)
18045 #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__)
18048 #define LAPACK_zsysv_rk_base LAPACK_GLOBAL(zsysv_rk,ZSYSV_RK)
18049 void LAPACK_zsysv_rk_base(
18051 lapack_int
const* n, lapack_int
const* nrhs,
18052 lapack_complex_double* A, lapack_int
const* lda,
18053 lapack_complex_double* E, lapack_int* ipiv,
18054 lapack_complex_double* B, lapack_int
const* ldb,
18055 lapack_complex_double* work, lapack_int
const* lwork,
18057 #ifdef LAPACK_FORTRAN_STRLEN_END
18061 #ifdef LAPACK_FORTRAN_STRLEN_END
18062 #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__, 1)
18064 #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__)
18067 #define LAPACK_csysv_rook_base LAPACK_GLOBAL(csysv_rook,CSYSV_ROOK)
18068 void LAPACK_csysv_rook_base(
18070 lapack_int
const* n, lapack_int
const* nrhs,
18071 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
18072 lapack_complex_float* B, lapack_int
const* ldb,
18073 lapack_complex_float* work, lapack_int
const* lwork,
18075 #ifdef LAPACK_FORTRAN_STRLEN_END
18079 #ifdef LAPACK_FORTRAN_STRLEN_END
18080 #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__, 1)
18082 #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__)
18085 #define LAPACK_dsysv_rook_base LAPACK_GLOBAL(dsysv_rook,DSYSV_ROOK)
18086 void LAPACK_dsysv_rook_base(
18088 lapack_int
const* n, lapack_int
const* nrhs,
18089 double* A, lapack_int
const* lda, lapack_int* ipiv,
18090 double* B, lapack_int
const* ldb,
18091 double* work, lapack_int
const* lwork,
18093 #ifdef LAPACK_FORTRAN_STRLEN_END
18097 #ifdef LAPACK_FORTRAN_STRLEN_END
18098 #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__, 1)
18100 #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__)
18103 #define LAPACK_ssysv_rook_base LAPACK_GLOBAL(ssysv_rook,SSYSV_ROOK)
18104 void LAPACK_ssysv_rook_base(
18106 lapack_int
const* n, lapack_int
const* nrhs,
18107 float* A, lapack_int
const* lda, lapack_int* ipiv,
18108 float* B, lapack_int
const* ldb,
18109 float* work, lapack_int
const* lwork,
18111 #ifdef LAPACK_FORTRAN_STRLEN_END
18115 #ifdef LAPACK_FORTRAN_STRLEN_END
18116 #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__, 1)
18118 #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__)
18121 #define LAPACK_zsysv_rook_base LAPACK_GLOBAL(zsysv_rook,ZSYSV_ROOK)
18122 void LAPACK_zsysv_rook_base(
18124 lapack_int
const* n, lapack_int
const* nrhs,
18125 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
18126 lapack_complex_double* B, lapack_int
const* ldb,
18127 lapack_complex_double* work, lapack_int
const* lwork,
18129 #ifdef LAPACK_FORTRAN_STRLEN_END
18133 #ifdef LAPACK_FORTRAN_STRLEN_END
18134 #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__, 1)
18136 #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__)
18139 #define LAPACK_csysvx_base LAPACK_GLOBAL(csysvx,CSYSVX)
18140 void LAPACK_csysvx_base(
18141 char const* fact,
char const* uplo,
18142 lapack_int
const* n, lapack_int
const* nrhs,
18143 lapack_complex_float
const* A, lapack_int
const* lda,
18144 lapack_complex_float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
18145 lapack_complex_float
const* B, lapack_int
const* ldb,
18146 lapack_complex_float* X, lapack_int
const* ldx,
18150 lapack_complex_float* work, lapack_int
const* lwork,
18153 #ifdef LAPACK_FORTRAN_STRLEN_END
18157 #ifdef LAPACK_FORTRAN_STRLEN_END
18158 #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__, 1, 1)
18160 #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__)
18163 #define LAPACK_dsysvx_base LAPACK_GLOBAL(dsysvx,DSYSVX)
18164 void LAPACK_dsysvx_base(
18165 char const* fact,
char const* uplo,
18166 lapack_int
const* n, lapack_int
const* nrhs,
18167 double const* A, lapack_int
const* lda,
18168 double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
18169 double const* B, lapack_int
const* ldb,
18170 double* X, lapack_int
const* ldx,
18174 double* work, lapack_int
const* lwork,
18177 #ifdef LAPACK_FORTRAN_STRLEN_END
18181 #ifdef LAPACK_FORTRAN_STRLEN_END
18182 #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__, 1, 1)
18184 #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__)
18187 #define LAPACK_ssysvx_base LAPACK_GLOBAL(ssysvx,SSYSVX)
18188 void LAPACK_ssysvx_base(
18189 char const* fact,
char const* uplo,
18190 lapack_int
const* n, lapack_int
const* nrhs,
18191 float const* A, lapack_int
const* lda,
18192 float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
18193 float const* B, lapack_int
const* ldb,
18194 float* X, lapack_int
const* ldx,
18198 float* work, lapack_int
const* lwork,
18201 #ifdef LAPACK_FORTRAN_STRLEN_END
18205 #ifdef LAPACK_FORTRAN_STRLEN_END
18206 #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__, 1, 1)
18208 #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__)
18211 #define LAPACK_zsysvx_base LAPACK_GLOBAL(zsysvx,ZSYSVX)
18212 void LAPACK_zsysvx_base(
18213 char const* fact,
char const* uplo,
18214 lapack_int
const* n, lapack_int
const* nrhs,
18215 lapack_complex_double
const* A, lapack_int
const* lda,
18216 lapack_complex_double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
18217 lapack_complex_double
const* B, lapack_int
const* ldb,
18218 lapack_complex_double* X, lapack_int
const* ldx,
18222 lapack_complex_double* work, lapack_int
const* lwork,
18225 #ifdef LAPACK_FORTRAN_STRLEN_END
18229 #ifdef LAPACK_FORTRAN_STRLEN_END
18230 #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__, 1, 1)
18232 #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__)
18235 #define LAPACK_csysvxx_base LAPACK_GLOBAL(csysvxx,CSYSVXX)
18236 void LAPACK_csysvxx_base(
18237 char const* fact,
char const* uplo,
18238 lapack_int
const* n, lapack_int
const* nrhs,
18239 lapack_complex_float* A, lapack_int
const* lda,
18240 lapack_complex_float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
18242 lapack_complex_float* B,
18243 lapack_int
const* ldb,
18244 lapack_complex_float* X, lapack_int
const* ldx,
18247 float* berr, lapack_int
const* n_err_bnds,
18248 float* err_bnds_norm,
18249 float* err_bnds_comp, lapack_int
const* nparams,
18251 lapack_complex_float* work,
18254 #ifdef LAPACK_FORTRAN_STRLEN_END
18255 ,
size_t,
size_t,
size_t
18258 #ifdef LAPACK_FORTRAN_STRLEN_END
18259 #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__, 1, 1, 1)
18261 #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__)
18264 #define LAPACK_dsysvxx_base LAPACK_GLOBAL(dsysvxx,DSYSVXX)
18265 void LAPACK_dsysvxx_base(
18266 char const* fact,
char const* uplo,
18267 lapack_int
const* n, lapack_int
const* nrhs,
18268 double* A, lapack_int
const* lda,
18269 double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
18272 lapack_int
const* ldb,
18273 double* X, lapack_int
const* ldx,
18276 double* berr, lapack_int
const* n_err_bnds,
18277 double* err_bnds_norm,
18278 double* err_bnds_comp, lapack_int
const* nparams,
18283 #ifdef LAPACK_FORTRAN_STRLEN_END
18284 ,
size_t,
size_t,
size_t
18287 #ifdef LAPACK_FORTRAN_STRLEN_END
18288 #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__, 1, 1, 1)
18290 #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__)
18293 #define LAPACK_ssysvxx_base LAPACK_GLOBAL(ssysvxx,SSYSVXX)
18294 void LAPACK_ssysvxx_base(
18295 char const* fact,
char const* uplo,
18296 lapack_int
const* n, lapack_int
const* nrhs,
18297 float* A, lapack_int
const* lda,
18298 float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
18301 lapack_int
const* ldb,
18302 float* X, lapack_int
const* ldx,
18305 float* berr, lapack_int
const* n_err_bnds,
18306 float* err_bnds_norm,
18307 float* err_bnds_comp, lapack_int
const* nparams,
18312 #ifdef LAPACK_FORTRAN_STRLEN_END
18313 ,
size_t,
size_t,
size_t
18316 #ifdef LAPACK_FORTRAN_STRLEN_END
18317 #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__, 1, 1, 1)
18319 #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__)
18322 #define LAPACK_zsysvxx_base LAPACK_GLOBAL(zsysvxx,ZSYSVXX)
18323 void LAPACK_zsysvxx_base(
18324 char const* fact,
char const* uplo,
18325 lapack_int
const* n, lapack_int
const* nrhs,
18326 lapack_complex_double* A, lapack_int
const* lda,
18327 lapack_complex_double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
18329 lapack_complex_double* B,
18330 lapack_int
const* ldb,
18331 lapack_complex_double* X, lapack_int
const* ldx,
18334 double* berr, lapack_int
const* n_err_bnds,
18335 double* err_bnds_norm,
18336 double* err_bnds_comp, lapack_int
const* nparams,
18338 lapack_complex_double* work,
18341 #ifdef LAPACK_FORTRAN_STRLEN_END
18342 ,
size_t,
size_t,
size_t
18345 #ifdef LAPACK_FORTRAN_STRLEN_END
18346 #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__, 1, 1, 1)
18348 #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__)
18351 #define LAPACK_csyswapr_base LAPACK_GLOBAL(csyswapr,CSYSWAPR)
18352 void LAPACK_csyswapr_base(
18354 lapack_int
const* n,
18355 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* i1, lapack_int
const* i2
18356 #ifdef LAPACK_FORTRAN_STRLEN_END
18360 #ifdef LAPACK_FORTRAN_STRLEN_END
18361 #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__, 1)
18363 #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__)
18366 #define LAPACK_dsyswapr_base LAPACK_GLOBAL(dsyswapr,DSYSWAPR)
18367 void LAPACK_dsyswapr_base(
18369 lapack_int
const* n,
18370 double* A, lapack_int
const* lda, lapack_int
const* i1, lapack_int
const* i2
18371 #ifdef LAPACK_FORTRAN_STRLEN_END
18375 #ifdef LAPACK_FORTRAN_STRLEN_END
18376 #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__, 1)
18378 #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__)
18381 #define LAPACK_ssyswapr_base LAPACK_GLOBAL(ssyswapr,SSYSWAPR)
18382 void LAPACK_ssyswapr_base(
18384 lapack_int
const* n,
18385 float* A, lapack_int
const* lda, lapack_int
const* i1, lapack_int
const* i2
18386 #ifdef LAPACK_FORTRAN_STRLEN_END
18390 #ifdef LAPACK_FORTRAN_STRLEN_END
18391 #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__, 1)
18393 #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__)
18396 #define LAPACK_zsyswapr_base LAPACK_GLOBAL(zsyswapr,ZSYSWAPR)
18397 void LAPACK_zsyswapr_base(
18399 lapack_int
const* n,
18400 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* i1, lapack_int
const* i2
18401 #ifdef LAPACK_FORTRAN_STRLEN_END
18405 #ifdef LAPACK_FORTRAN_STRLEN_END
18406 #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__, 1)
18408 #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__)
18411 #define LAPACK_dsytrd_base LAPACK_GLOBAL(dsytrd,DSYTRD)
18412 void LAPACK_dsytrd_base(
18414 lapack_int
const* n,
18415 double* A, lapack_int
const* lda,
18419 double* work, lapack_int
const* lwork,
18421 #ifdef LAPACK_FORTRAN_STRLEN_END
18425 #ifdef LAPACK_FORTRAN_STRLEN_END
18426 #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__, 1)
18428 #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__)
18431 #define LAPACK_ssytrd_base LAPACK_GLOBAL(ssytrd,SSYTRD)
18432 void LAPACK_ssytrd_base(
18434 lapack_int
const* n,
18435 float* A, lapack_int
const* lda,
18439 float* work, lapack_int
const* lwork,
18441 #ifdef LAPACK_FORTRAN_STRLEN_END
18445 #ifdef LAPACK_FORTRAN_STRLEN_END
18446 #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__, 1)
18448 #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__)
18451 #define LAPACK_dsytrd_2stage_base LAPACK_GLOBAL(dsytrd_2stage,DSYTRD_2STAGE)
18452 void LAPACK_dsytrd_2stage_base(
18453 char const* vect,
char const* uplo,
18454 lapack_int
const* n,
18455 double* A, lapack_int
const* lda,
18459 double* HOUS2, lapack_int
const* lhous2,
18460 double* work, lapack_int
const* lwork,
18462 #ifdef LAPACK_FORTRAN_STRLEN_END
18466 #ifdef LAPACK_FORTRAN_STRLEN_END
18467 #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__, 1, 1)
18469 #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__)
18472 #define LAPACK_ssytrd_2stage_base LAPACK_GLOBAL(ssytrd_2stage,SSYTRD_2STAGE)
18473 void LAPACK_ssytrd_2stage_base(
18474 char const* vect,
char const* uplo,
18475 lapack_int
const* n,
18476 float* A, lapack_int
const* lda,
18480 float* HOUS2, lapack_int
const* lhous2,
18481 float* work, lapack_int
const* lwork,
18483 #ifdef LAPACK_FORTRAN_STRLEN_END
18487 #ifdef LAPACK_FORTRAN_STRLEN_END
18488 #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__, 1, 1)
18490 #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__)
18493 #define LAPACK_csytrf_base LAPACK_GLOBAL(csytrf,CSYTRF)
18494 void LAPACK_csytrf_base(
18496 lapack_int
const* n,
18497 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
18498 lapack_complex_float* work, lapack_int
const* lwork,
18500 #ifdef LAPACK_FORTRAN_STRLEN_END
18504 #ifdef LAPACK_FORTRAN_STRLEN_END
18505 #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__, 1)
18507 #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__)
18510 #define LAPACK_dsytrf_base LAPACK_GLOBAL(dsytrf,DSYTRF)
18511 void LAPACK_dsytrf_base(
18513 lapack_int
const* n,
18514 double* A, lapack_int
const* lda, lapack_int* ipiv,
18515 double* work, lapack_int
const* lwork,
18517 #ifdef LAPACK_FORTRAN_STRLEN_END
18521 #ifdef LAPACK_FORTRAN_STRLEN_END
18522 #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__, 1)
18524 #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__)
18527 #define LAPACK_ssytrf_base LAPACK_GLOBAL(ssytrf,SSYTRF)
18528 void LAPACK_ssytrf_base(
18530 lapack_int
const* n,
18531 float* A, lapack_int
const* lda, lapack_int* ipiv,
18532 float* work, lapack_int
const* lwork,
18534 #ifdef LAPACK_FORTRAN_STRLEN_END
18538 #ifdef LAPACK_FORTRAN_STRLEN_END
18539 #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__, 1)
18541 #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__)
18544 #define LAPACK_zsytrf_base LAPACK_GLOBAL(zsytrf,ZSYTRF)
18545 void LAPACK_zsytrf_base(
18547 lapack_int
const* n,
18548 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
18549 lapack_complex_double* work, lapack_int
const* lwork,
18551 #ifdef LAPACK_FORTRAN_STRLEN_END
18555 #ifdef LAPACK_FORTRAN_STRLEN_END
18556 #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__, 1)
18558 #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__)
18561 #define LAPACK_csytrf_aa_base LAPACK_GLOBAL(csytrf_aa,CSYTRF_AA)
18562 void LAPACK_csytrf_aa_base(
18564 lapack_int
const* n,
18565 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
18566 lapack_complex_float* work, lapack_int
const* lwork,
18568 #ifdef LAPACK_FORTRAN_STRLEN_END
18572 #ifdef LAPACK_FORTRAN_STRLEN_END
18573 #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__, 1)
18575 #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__)
18578 #define LAPACK_dsytrf_aa_base LAPACK_GLOBAL(dsytrf_aa,DSYTRF_AA)
18579 void LAPACK_dsytrf_aa_base(
18581 lapack_int
const* n,
18582 double* A, lapack_int
const* lda, lapack_int* ipiv,
18583 double* work, lapack_int
const* lwork,
18585 #ifdef LAPACK_FORTRAN_STRLEN_END
18589 #ifdef LAPACK_FORTRAN_STRLEN_END
18590 #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__, 1)
18592 #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__)
18595 #define LAPACK_ssytrf_aa_base LAPACK_GLOBAL(ssytrf_aa,SSYTRF_AA)
18596 void LAPACK_ssytrf_aa_base(
18598 lapack_int
const* n,
18599 float* A, lapack_int
const* lda, lapack_int* ipiv,
18600 float* work, lapack_int
const* lwork,
18602 #ifdef LAPACK_FORTRAN_STRLEN_END
18606 #ifdef LAPACK_FORTRAN_STRLEN_END
18607 #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__, 1)
18609 #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__)
18612 #define LAPACK_zsytrf_aa_base LAPACK_GLOBAL(zsytrf_aa,ZSYTRF_AA)
18613 void LAPACK_zsytrf_aa_base(
18615 lapack_int
const* n,
18616 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
18617 lapack_complex_double* work, lapack_int
const* lwork,
18619 #ifdef LAPACK_FORTRAN_STRLEN_END
18623 #ifdef LAPACK_FORTRAN_STRLEN_END
18624 #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__, 1)
18626 #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__)
18629 #define LAPACK_csytrf_aa_2stage_base LAPACK_GLOBAL(csytrf_aa_2stage,CSYTRF_AA_2STAGE)
18630 void LAPACK_csytrf_aa_2stage_base(
18632 lapack_int
const* n,
18633 lapack_complex_float* A, lapack_int
const* lda,
18634 lapack_complex_float* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18635 lapack_complex_float* work, lapack_int
const* lwork,
18637 #ifdef LAPACK_FORTRAN_STRLEN_END
18641 #ifdef LAPACK_FORTRAN_STRLEN_END
18642 #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__, 1)
18644 #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__)
18647 #define LAPACK_dsytrf_aa_2stage_base LAPACK_GLOBAL(dsytrf_aa_2stage,DSYTRF_AA_2STAGE)
18648 void LAPACK_dsytrf_aa_2stage_base(
18650 lapack_int
const* n,
18651 double* A, lapack_int
const* lda,
18652 double* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18653 double* work, lapack_int
const* lwork,
18655 #ifdef LAPACK_FORTRAN_STRLEN_END
18659 #ifdef LAPACK_FORTRAN_STRLEN_END
18660 #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__, 1)
18662 #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__)
18665 #define LAPACK_ssytrf_aa_2stage_base LAPACK_GLOBAL(ssytrf_aa_2stage,SSYTRF_AA_2STAGE)
18666 void LAPACK_ssytrf_aa_2stage_base(
18668 lapack_int
const* n,
18669 float* A, lapack_int
const* lda,
18670 float* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18671 float* work, lapack_int
const* lwork,
18673 #ifdef LAPACK_FORTRAN_STRLEN_END
18677 #ifdef LAPACK_FORTRAN_STRLEN_END
18678 #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__, 1)
18680 #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__)
18683 #define LAPACK_zsytrf_aa_2stage_base LAPACK_GLOBAL(zsytrf_aa_2stage,ZSYTRF_AA_2STAGE)
18684 void LAPACK_zsytrf_aa_2stage_base(
18686 lapack_int
const* n,
18687 lapack_complex_double* A, lapack_int
const* lda,
18688 lapack_complex_double* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18689 lapack_complex_double* work, lapack_int
const* lwork,
18691 #ifdef LAPACK_FORTRAN_STRLEN_END
18695 #ifdef LAPACK_FORTRAN_STRLEN_END
18696 #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__, 1)
18698 #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__)
18701 #define LAPACK_csytrf_rk_base LAPACK_GLOBAL(csytrf_rk,CSYTRF_RK)
18702 void LAPACK_csytrf_rk_base(
18704 lapack_int
const* n,
18705 lapack_complex_float* A, lapack_int
const* lda,
18706 lapack_complex_float* E, lapack_int* ipiv,
18707 lapack_complex_float* work, lapack_int
const* lwork,
18709 #ifdef LAPACK_FORTRAN_STRLEN_END
18713 #ifdef LAPACK_FORTRAN_STRLEN_END
18714 #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__, 1)
18716 #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__)
18719 #define LAPACK_dsytrf_rk_base LAPACK_GLOBAL(dsytrf_rk,DSYTRF_RK)
18720 void LAPACK_dsytrf_rk_base(
18722 lapack_int
const* n,
18723 double* A, lapack_int
const* lda,
18724 double* E, lapack_int* ipiv,
18725 double* work, lapack_int
const* lwork,
18727 #ifdef LAPACK_FORTRAN_STRLEN_END
18731 #ifdef LAPACK_FORTRAN_STRLEN_END
18732 #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__, 1)
18734 #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__)
18737 #define LAPACK_ssytrf_rk_base LAPACK_GLOBAL(ssytrf_rk,SSYTRF_RK)
18738 void LAPACK_ssytrf_rk_base(
18740 lapack_int
const* n,
18741 float* A, lapack_int
const* lda,
18742 float* E, lapack_int* ipiv,
18743 float* work, lapack_int
const* lwork,
18745 #ifdef LAPACK_FORTRAN_STRLEN_END
18749 #ifdef LAPACK_FORTRAN_STRLEN_END
18750 #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__, 1)
18752 #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__)
18755 #define LAPACK_zsytrf_rk_base LAPACK_GLOBAL(zsytrf_rk,ZSYTRF_RK)
18756 void LAPACK_zsytrf_rk_base(
18758 lapack_int
const* n,
18759 lapack_complex_double* A, lapack_int
const* lda,
18760 lapack_complex_double* E, lapack_int* ipiv,
18761 lapack_complex_double* work, lapack_int
const* lwork,
18763 #ifdef LAPACK_FORTRAN_STRLEN_END
18767 #ifdef LAPACK_FORTRAN_STRLEN_END
18768 #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__, 1)
18770 #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__)
18773 #define LAPACK_csytrf_rook_base LAPACK_GLOBAL(csytrf_rook,CSYTRF_ROOK)
18774 void LAPACK_csytrf_rook_base(
18776 lapack_int
const* n,
18777 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
18778 lapack_complex_float* work, lapack_int
const* lwork,
18780 #ifdef LAPACK_FORTRAN_STRLEN_END
18784 #ifdef LAPACK_FORTRAN_STRLEN_END
18785 #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__, 1)
18787 #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__)
18790 #define LAPACK_dsytrf_rook_base LAPACK_GLOBAL(dsytrf_rook,DSYTRF_ROOK)
18791 void LAPACK_dsytrf_rook_base(
18793 lapack_int
const* n,
18794 double* A, lapack_int
const* lda, lapack_int* ipiv,
18795 double* work, lapack_int
const* lwork,
18797 #ifdef LAPACK_FORTRAN_STRLEN_END
18801 #ifdef LAPACK_FORTRAN_STRLEN_END
18802 #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__, 1)
18804 #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__)
18807 #define LAPACK_ssytrf_rook_base LAPACK_GLOBAL(ssytrf_rook,SSYTRF_ROOK)
18808 void LAPACK_ssytrf_rook_base(
18810 lapack_int
const* n,
18811 float* A, lapack_int
const* lda, lapack_int* ipiv,
18812 float* work, lapack_int
const* lwork,
18814 #ifdef LAPACK_FORTRAN_STRLEN_END
18818 #ifdef LAPACK_FORTRAN_STRLEN_END
18819 #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__, 1)
18821 #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__)
18824 #define LAPACK_zsytrf_rook_base LAPACK_GLOBAL(zsytrf_rook,ZSYTRF_ROOK)
18825 void LAPACK_zsytrf_rook_base(
18827 lapack_int
const* n,
18828 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
18829 lapack_complex_double* work, lapack_int
const* lwork,
18831 #ifdef LAPACK_FORTRAN_STRLEN_END
18835 #ifdef LAPACK_FORTRAN_STRLEN_END
18836 #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__, 1)
18838 #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__)
18841 #define LAPACK_csytri_base LAPACK_GLOBAL(csytri,CSYTRI)
18842 void LAPACK_csytri_base(
18844 lapack_int
const* n,
18845 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
18846 lapack_complex_float* work,
18848 #ifdef LAPACK_FORTRAN_STRLEN_END
18852 #ifdef LAPACK_FORTRAN_STRLEN_END
18853 #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__, 1)
18855 #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__)
18858 #define LAPACK_dsytri_base LAPACK_GLOBAL(dsytri,DSYTRI)
18859 void LAPACK_dsytri_base(
18861 lapack_int
const* n,
18862 double* A, lapack_int
const* lda, lapack_int
const* ipiv,
18865 #ifdef LAPACK_FORTRAN_STRLEN_END
18869 #ifdef LAPACK_FORTRAN_STRLEN_END
18870 #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__, 1)
18872 #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__)
18875 #define LAPACK_ssytri_base LAPACK_GLOBAL(ssytri,SSYTRI)
18876 void LAPACK_ssytri_base(
18878 lapack_int
const* n,
18879 float* A, lapack_int
const* lda, lapack_int
const* ipiv,
18882 #ifdef LAPACK_FORTRAN_STRLEN_END
18886 #ifdef LAPACK_FORTRAN_STRLEN_END
18887 #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__, 1)
18889 #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__)
18892 #define LAPACK_zsytri_base LAPACK_GLOBAL(zsytri,ZSYTRI)
18893 void LAPACK_zsytri_base(
18895 lapack_int
const* n,
18896 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
18897 lapack_complex_double* work,
18899 #ifdef LAPACK_FORTRAN_STRLEN_END
18903 #ifdef LAPACK_FORTRAN_STRLEN_END
18904 #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__, 1)
18906 #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__)
18909 #define LAPACK_csytri2_base LAPACK_GLOBAL(csytri2,CSYTRI2)
18910 void LAPACK_csytri2_base(
18912 lapack_int
const* n,
18913 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
18914 lapack_complex_float* work, lapack_int
const* lwork,
18916 #ifdef LAPACK_FORTRAN_STRLEN_END
18920 #ifdef LAPACK_FORTRAN_STRLEN_END
18921 #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__, 1)
18923 #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__)
18926 #define LAPACK_dsytri2_base LAPACK_GLOBAL(dsytri2,DSYTRI2)
18927 void LAPACK_dsytri2_base(
18929 lapack_int
const* n,
18930 double* A, lapack_int
const* lda, lapack_int
const* ipiv,
18931 double* work, lapack_int
const* lwork,
18933 #ifdef LAPACK_FORTRAN_STRLEN_END
18937 #ifdef LAPACK_FORTRAN_STRLEN_END
18938 #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__, 1)
18940 #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__)
18943 #define LAPACK_ssytri2_base LAPACK_GLOBAL(ssytri2,SSYTRI2)
18944 void LAPACK_ssytri2_base(
18946 lapack_int
const* n,
18947 float* A, lapack_int
const* lda, lapack_int
const* ipiv,
18948 float* work, lapack_int
const* lwork,
18950 #ifdef LAPACK_FORTRAN_STRLEN_END
18954 #ifdef LAPACK_FORTRAN_STRLEN_END
18955 #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__, 1)
18957 #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__)
18960 #define LAPACK_zsytri2_base LAPACK_GLOBAL(zsytri2,ZSYTRI2)
18961 void LAPACK_zsytri2_base(
18963 lapack_int
const* n,
18964 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
18965 lapack_complex_double* work, lapack_int
const* lwork,
18967 #ifdef LAPACK_FORTRAN_STRLEN_END
18971 #ifdef LAPACK_FORTRAN_STRLEN_END
18972 #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__, 1)
18974 #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__)
18977 #define LAPACK_csytri2x_base LAPACK_GLOBAL(csytri2x,CSYTRI2X)
18978 void LAPACK_csytri2x_base(
18980 lapack_int
const* n,
18981 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
18982 lapack_complex_float* work, lapack_int
const* nb,
18984 #ifdef LAPACK_FORTRAN_STRLEN_END
18988 #ifdef LAPACK_FORTRAN_STRLEN_END
18989 #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__, 1)
18991 #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__)
18994 #define LAPACK_dsytri2x_base LAPACK_GLOBAL(dsytri2x,DSYTRI2X)
18995 void LAPACK_dsytri2x_base(
18997 lapack_int
const* n,
18998 double* A, lapack_int
const* lda, lapack_int
const* ipiv,
18999 double* work, lapack_int
const* nb,
19001 #ifdef LAPACK_FORTRAN_STRLEN_END
19005 #ifdef LAPACK_FORTRAN_STRLEN_END
19006 #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__, 1)
19008 #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__)
19011 #define LAPACK_ssytri2x_base LAPACK_GLOBAL(ssytri2x,SSYTRI2X)
19012 void LAPACK_ssytri2x_base(
19014 lapack_int
const* n,
19015 float* A, lapack_int
const* lda, lapack_int
const* ipiv,
19016 float* work, lapack_int
const* nb,
19018 #ifdef LAPACK_FORTRAN_STRLEN_END
19022 #ifdef LAPACK_FORTRAN_STRLEN_END
19023 #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__, 1)
19025 #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__)
19028 #define LAPACK_zsytri2x_base LAPACK_GLOBAL(zsytri2x,ZSYTRI2X)
19029 void LAPACK_zsytri2x_base(
19031 lapack_int
const* n,
19032 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
19033 lapack_complex_double* work, lapack_int
const* nb,
19035 #ifdef LAPACK_FORTRAN_STRLEN_END
19039 #ifdef LAPACK_FORTRAN_STRLEN_END
19040 #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__, 1)
19042 #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__)
19045 #define LAPACK_csytri_3_base LAPACK_GLOBAL(csytri_3,CSYTRI_3)
19046 void LAPACK_csytri_3_base(
19048 lapack_int
const* n,
19049 lapack_complex_float* A, lapack_int
const* lda,
19050 lapack_complex_float
const* E, lapack_int
const* ipiv,
19051 lapack_complex_float* work, lapack_int
const* lwork,
19053 #ifdef LAPACK_FORTRAN_STRLEN_END
19057 #ifdef LAPACK_FORTRAN_STRLEN_END
19058 #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__, 1)
19060 #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__)
19063 #define LAPACK_dsytri_3_base LAPACK_GLOBAL(dsytri_3,DSYTRI_3)
19064 void LAPACK_dsytri_3_base(
19066 lapack_int
const* n,
19067 double* A, lapack_int
const* lda,
19068 double const* E, lapack_int
const* ipiv,
19069 double* work, lapack_int
const* lwork,
19071 #ifdef LAPACK_FORTRAN_STRLEN_END
19075 #ifdef LAPACK_FORTRAN_STRLEN_END
19076 #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__, 1)
19078 #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__)
19081 #define LAPACK_ssytri_3_base LAPACK_GLOBAL(ssytri_3,SSYTRI_3)
19082 void LAPACK_ssytri_3_base(
19084 lapack_int
const* n,
19085 float* A, lapack_int
const* lda,
19086 float const* E, lapack_int
const* ipiv,
19087 float* work, lapack_int
const* lwork,
19089 #ifdef LAPACK_FORTRAN_STRLEN_END
19093 #ifdef LAPACK_FORTRAN_STRLEN_END
19094 #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__, 1)
19096 #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__)
19099 #define LAPACK_zsytri_3_base LAPACK_GLOBAL(zsytri_3,ZSYTRI_3)
19100 void LAPACK_zsytri_3_base(
19102 lapack_int
const* n,
19103 lapack_complex_double* A, lapack_int
const* lda,
19104 lapack_complex_double
const* E, lapack_int
const* ipiv,
19105 lapack_complex_double* work, lapack_int
const* lwork,
19107 #ifdef LAPACK_FORTRAN_STRLEN_END
19111 #ifdef LAPACK_FORTRAN_STRLEN_END
19112 #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__, 1)
19114 #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__)
19117 #define LAPACK_csytrs_base LAPACK_GLOBAL(csytrs,CSYTRS)
19118 void LAPACK_csytrs_base(
19120 lapack_int
const* n, lapack_int
const* nrhs,
19121 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19122 lapack_complex_float* B, lapack_int
const* ldb,
19124 #ifdef LAPACK_FORTRAN_STRLEN_END
19128 #ifdef LAPACK_FORTRAN_STRLEN_END
19129 #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__, 1)
19131 #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__)
19134 #define LAPACK_dsytrs_base LAPACK_GLOBAL(dsytrs,DSYTRS)
19135 void LAPACK_dsytrs_base(
19137 lapack_int
const* n, lapack_int
const* nrhs,
19138 double const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19139 double* B, lapack_int
const* ldb,
19141 #ifdef LAPACK_FORTRAN_STRLEN_END
19145 #ifdef LAPACK_FORTRAN_STRLEN_END
19146 #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__, 1)
19148 #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__)
19151 #define LAPACK_ssytrs_base LAPACK_GLOBAL(ssytrs,SSYTRS)
19152 void LAPACK_ssytrs_base(
19154 lapack_int
const* n, lapack_int
const* nrhs,
19155 float const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19156 float* B, lapack_int
const* ldb,
19158 #ifdef LAPACK_FORTRAN_STRLEN_END
19162 #ifdef LAPACK_FORTRAN_STRLEN_END
19163 #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__, 1)
19165 #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__)
19168 #define LAPACK_zsytrs_base LAPACK_GLOBAL(zsytrs,ZSYTRS)
19169 void LAPACK_zsytrs_base(
19171 lapack_int
const* n, lapack_int
const* nrhs,
19172 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19173 lapack_complex_double* B, lapack_int
const* ldb,
19175 #ifdef LAPACK_FORTRAN_STRLEN_END
19179 #ifdef LAPACK_FORTRAN_STRLEN_END
19180 #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__, 1)
19182 #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__)
19185 #define LAPACK_csytrs2_base LAPACK_GLOBAL(csytrs2,CSYTRS2)
19186 void LAPACK_csytrs2_base(
19188 lapack_int
const* n, lapack_int
const* nrhs,
19189 const lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
19190 lapack_complex_float* B, lapack_int
const* ldb,
19191 lapack_complex_float* work,
19193 #ifdef LAPACK_FORTRAN_STRLEN_END
19197 #ifdef LAPACK_FORTRAN_STRLEN_END
19198 #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__, 1)
19200 #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__)
19203 #define LAPACK_dsytrs2_base LAPACK_GLOBAL(dsytrs2,DSYTRS2)
19204 void LAPACK_dsytrs2_base(
19206 lapack_int
const* n, lapack_int
const* nrhs,
19207 const double* A, lapack_int
const* lda, lapack_int
const* ipiv,
19208 double* B, lapack_int
const* ldb,
19211 #ifdef LAPACK_FORTRAN_STRLEN_END
19215 #ifdef LAPACK_FORTRAN_STRLEN_END
19216 #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__, 1)
19218 #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__)
19221 #define LAPACK_ssytrs2_base LAPACK_GLOBAL(ssytrs2,SSYTRS2)
19222 void LAPACK_ssytrs2_base(
19224 lapack_int
const* n, lapack_int
const* nrhs,
19225 const float* A, lapack_int
const* lda, lapack_int
const* ipiv,
19226 float* B, lapack_int
const* ldb,
19229 #ifdef LAPACK_FORTRAN_STRLEN_END
19233 #ifdef LAPACK_FORTRAN_STRLEN_END
19234 #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__, 1)
19236 #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__)
19239 #define LAPACK_zsytrs2_base LAPACK_GLOBAL(zsytrs2,ZSYTRS2)
19240 void LAPACK_zsytrs2_base(
19242 lapack_int
const* n, lapack_int
const* nrhs,
19243 const lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
19244 lapack_complex_double* B, lapack_int
const* ldb,
19245 lapack_complex_double* work,
19247 #ifdef LAPACK_FORTRAN_STRLEN_END
19251 #ifdef LAPACK_FORTRAN_STRLEN_END
19252 #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__, 1)
19254 #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__)
19257 #define LAPACK_csytrs_3_base LAPACK_GLOBAL(csytrs_3,CSYTRS_3)
19258 void LAPACK_csytrs_3_base(
19260 lapack_int
const* n, lapack_int
const* nrhs,
19261 lapack_complex_float
const* A, lapack_int
const* lda,
19262 lapack_complex_float
const* E, lapack_int
const* ipiv,
19263 lapack_complex_float* B, lapack_int
const* ldb,
19265 #ifdef LAPACK_FORTRAN_STRLEN_END
19269 #ifdef LAPACK_FORTRAN_STRLEN_END
19270 #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__, 1)
19272 #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__)
19275 #define LAPACK_dsytrs_3_base LAPACK_GLOBAL(dsytrs_3,DSYTRS_3)
19276 void LAPACK_dsytrs_3_base(
19278 lapack_int
const* n, lapack_int
const* nrhs,
19279 double const* A, lapack_int
const* lda,
19280 double const* E, lapack_int
const* ipiv,
19281 double* B, lapack_int
const* ldb,
19283 #ifdef LAPACK_FORTRAN_STRLEN_END
19287 #ifdef LAPACK_FORTRAN_STRLEN_END
19288 #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__, 1)
19290 #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__)
19293 #define LAPACK_ssytrs_3_base LAPACK_GLOBAL(ssytrs_3,SSYTRS_3)
19294 void LAPACK_ssytrs_3_base(
19296 lapack_int
const* n, lapack_int
const* nrhs,
19297 float const* A, lapack_int
const* lda,
19298 float const* E, lapack_int
const* ipiv,
19299 float* B, lapack_int
const* ldb,
19301 #ifdef LAPACK_FORTRAN_STRLEN_END
19305 #ifdef LAPACK_FORTRAN_STRLEN_END
19306 #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__, 1)
19308 #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__)
19311 #define LAPACK_zsytrs_3_base LAPACK_GLOBAL(zsytrs_3,ZSYTRS_3)
19312 void LAPACK_zsytrs_3_base(
19314 lapack_int
const* n, lapack_int
const* nrhs,
19315 lapack_complex_double
const* A, lapack_int
const* lda,
19316 lapack_complex_double
const* E, lapack_int
const* ipiv,
19317 lapack_complex_double* B, lapack_int
const* ldb,
19319 #ifdef LAPACK_FORTRAN_STRLEN_END
19323 #ifdef LAPACK_FORTRAN_STRLEN_END
19324 #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__, 1)
19326 #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__)
19329 #define LAPACK_csytrs_aa_base LAPACK_GLOBAL(csytrs_aa,CSYTRS_AA)
19330 void LAPACK_csytrs_aa_base(
19332 lapack_int
const* n, lapack_int
const* nrhs,
19333 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19334 lapack_complex_float* B, lapack_int
const* ldb,
19335 lapack_complex_float* work, lapack_int
const* lwork,
19337 #ifdef LAPACK_FORTRAN_STRLEN_END
19341 #ifdef LAPACK_FORTRAN_STRLEN_END
19342 #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__, 1)
19344 #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__)
19347 #define LAPACK_dsytrs_aa_base LAPACK_GLOBAL(dsytrs_aa,DSYTRS_AA)
19348 void LAPACK_dsytrs_aa_base(
19350 lapack_int
const* n, lapack_int
const* nrhs,
19351 double const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19352 double* B, lapack_int
const* ldb,
19353 double* work, lapack_int
const* lwork,
19355 #ifdef LAPACK_FORTRAN_STRLEN_END
19359 #ifdef LAPACK_FORTRAN_STRLEN_END
19360 #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__, 1)
19362 #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__)
19365 #define LAPACK_ssytrs_aa_base LAPACK_GLOBAL(ssytrs_aa,SSYTRS_AA)
19366 void LAPACK_ssytrs_aa_base(
19368 lapack_int
const* n, lapack_int
const* nrhs,
19369 float const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19370 float* B, lapack_int
const* ldb,
19371 float* work, lapack_int
const* lwork,
19373 #ifdef LAPACK_FORTRAN_STRLEN_END
19377 #ifdef LAPACK_FORTRAN_STRLEN_END
19378 #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__, 1)
19380 #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__)
19383 #define LAPACK_zsytrs_aa_base LAPACK_GLOBAL(zsytrs_aa,ZSYTRS_AA)
19384 void LAPACK_zsytrs_aa_base(
19386 lapack_int
const* n, lapack_int
const* nrhs,
19387 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19388 lapack_complex_double* B, lapack_int
const* ldb,
19389 lapack_complex_double* work, lapack_int
const* lwork,
19391 #ifdef LAPACK_FORTRAN_STRLEN_END
19395 #ifdef LAPACK_FORTRAN_STRLEN_END
19396 #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__, 1)
19398 #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__)
19401 #define LAPACK_csytrs_aa_2stage_base LAPACK_GLOBAL(csytrs_aa_2stage,CSYTRS_AA_2STAGE)
19402 void LAPACK_csytrs_aa_2stage_base(
19404 lapack_int
const* n, lapack_int
const* nrhs,
19405 lapack_complex_float
const* A, lapack_int
const* lda,
19406 lapack_complex_float* TB, lapack_int
const* ltb, lapack_int
const* ipiv, lapack_int
const* ipiv2,
19407 lapack_complex_float* B, lapack_int
const* ldb,
19409 #ifdef LAPACK_FORTRAN_STRLEN_END
19413 #ifdef LAPACK_FORTRAN_STRLEN_END
19414 #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__, 1)
19416 #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__)
19419 #define LAPACK_dsytrs_aa_2stage_base LAPACK_GLOBAL(dsytrs_aa_2stage,DSYTRS_AA_2STAGE)
19420 void LAPACK_dsytrs_aa_2stage_base(
19422 lapack_int
const* n, lapack_int
const* nrhs,
19423 double const* A, lapack_int
const* lda,
19424 double* TB, lapack_int
const* ltb, lapack_int
const* ipiv, lapack_int
const* ipiv2,
19425 double* B, lapack_int
const* ldb,
19427 #ifdef LAPACK_FORTRAN_STRLEN_END
19431 #ifdef LAPACK_FORTRAN_STRLEN_END
19432 #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__, 1)
19434 #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__)
19437 #define LAPACK_ssytrs_aa_2stage_base LAPACK_GLOBAL(ssytrs_aa_2stage,SSYTRS_AA_2STAGE)
19438 void LAPACK_ssytrs_aa_2stage_base(
19440 lapack_int
const* n, lapack_int
const* nrhs,
19441 float const* A, lapack_int
const* lda,
19442 float* TB, lapack_int
const* ltb, lapack_int
const* ipiv, lapack_int
const* ipiv2,
19443 float* B, lapack_int
const* ldb,
19445 #ifdef LAPACK_FORTRAN_STRLEN_END
19449 #ifdef LAPACK_FORTRAN_STRLEN_END
19450 #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__, 1)
19452 #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__)
19455 #define LAPACK_zsytrs_aa_2stage_base LAPACK_GLOBAL(zsytrs_aa_2stage,ZSYTRS_AA_2STAGE)
19456 void LAPACK_zsytrs_aa_2stage_base(
19458 lapack_int
const* n, lapack_int
const* nrhs,
19459 lapack_complex_double
const* A, lapack_int
const* lda,
19460 lapack_complex_double* TB, lapack_int
const* ltb, lapack_int
const* ipiv, lapack_int
const* ipiv2,
19461 lapack_complex_double* B, lapack_int
const* ldb,
19463 #ifdef LAPACK_FORTRAN_STRLEN_END
19467 #ifdef LAPACK_FORTRAN_STRLEN_END
19468 #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__, 1)
19470 #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__)
19473 #define LAPACK_csytrs_rook_base LAPACK_GLOBAL(csytrs_rook,CSYTRS_ROOK)
19474 void LAPACK_csytrs_rook_base(
19476 lapack_int
const* n, lapack_int
const* nrhs,
19477 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19478 lapack_complex_float* B, lapack_int
const* ldb,
19480 #ifdef LAPACK_FORTRAN_STRLEN_END
19484 #ifdef LAPACK_FORTRAN_STRLEN_END
19485 #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__, 1)
19487 #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__)
19490 #define LAPACK_dsytrs_rook_base LAPACK_GLOBAL(dsytrs_rook,DSYTRS_ROOK)
19491 void LAPACK_dsytrs_rook_base(
19493 lapack_int
const* n, lapack_int
const* nrhs,
19494 double const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19495 double* B, lapack_int
const* ldb,
19497 #ifdef LAPACK_FORTRAN_STRLEN_END
19501 #ifdef LAPACK_FORTRAN_STRLEN_END
19502 #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__, 1)
19504 #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__)
19507 #define LAPACK_ssytrs_rook_base LAPACK_GLOBAL(ssytrs_rook,SSYTRS_ROOK)
19508 void LAPACK_ssytrs_rook_base(
19510 lapack_int
const* n, lapack_int
const* nrhs,
19511 float const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19512 float* B, lapack_int
const* ldb,
19514 #ifdef LAPACK_FORTRAN_STRLEN_END
19518 #ifdef LAPACK_FORTRAN_STRLEN_END
19519 #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__, 1)
19521 #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__)
19524 #define LAPACK_zsytrs_rook_base LAPACK_GLOBAL(zsytrs_rook,ZSYTRS_ROOK)
19525 void LAPACK_zsytrs_rook_base(
19527 lapack_int
const* n, lapack_int
const* nrhs,
19528 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19529 lapack_complex_double* B, lapack_int
const* ldb,
19531 #ifdef LAPACK_FORTRAN_STRLEN_END
19535 #ifdef LAPACK_FORTRAN_STRLEN_END
19536 #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__, 1)
19538 #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__)
19541 #define LAPACK_ctbcon_base LAPACK_GLOBAL(ctbcon,CTBCON)
19542 void LAPACK_ctbcon_base(
19543 char const* norm,
char const* uplo,
char const* diag,
19544 lapack_int
const* n, lapack_int
const* kd,
19545 lapack_complex_float
const* AB, lapack_int
const* ldab,
19547 lapack_complex_float* work,
19550 #ifdef LAPACK_FORTRAN_STRLEN_END
19551 ,
size_t,
size_t,
size_t
19554 #ifdef LAPACK_FORTRAN_STRLEN_END
19555 #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__, 1, 1, 1)
19557 #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__)
19560 #define LAPACK_dtbcon_base LAPACK_GLOBAL(dtbcon,DTBCON)
19561 void LAPACK_dtbcon_base(
19562 char const* norm,
char const* uplo,
char const* diag,
19563 lapack_int
const* n, lapack_int
const* kd,
19564 double const* AB, lapack_int
const* ldab,
19569 #ifdef LAPACK_FORTRAN_STRLEN_END
19570 ,
size_t,
size_t,
size_t
19573 #ifdef LAPACK_FORTRAN_STRLEN_END
19574 #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__, 1, 1, 1)
19576 #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__)
19579 #define LAPACK_stbcon_base LAPACK_GLOBAL(stbcon,STBCON)
19580 void LAPACK_stbcon_base(
19581 char const* norm,
char const* uplo,
char const* diag,
19582 lapack_int
const* n, lapack_int
const* kd,
19583 float const* AB, lapack_int
const* ldab,
19588 #ifdef LAPACK_FORTRAN_STRLEN_END
19589 ,
size_t,
size_t,
size_t
19592 #ifdef LAPACK_FORTRAN_STRLEN_END
19593 #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__, 1, 1, 1)
19595 #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__)
19598 #define LAPACK_ztbcon_base LAPACK_GLOBAL(ztbcon,ZTBCON)
19599 void LAPACK_ztbcon_base(
19600 char const* norm,
char const* uplo,
char const* diag,
19601 lapack_int
const* n, lapack_int
const* kd,
19602 lapack_complex_double
const* AB, lapack_int
const* ldab,
19604 lapack_complex_double* work,
19607 #ifdef LAPACK_FORTRAN_STRLEN_END
19608 ,
size_t,
size_t,
size_t
19611 #ifdef LAPACK_FORTRAN_STRLEN_END
19612 #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__, 1, 1, 1)
19614 #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__)
19617 #define LAPACK_ctbrfs_base LAPACK_GLOBAL(ctbrfs,CTBRFS)
19618 void LAPACK_ctbrfs_base(
19619 char const* uplo,
char const* trans,
char const* diag,
19620 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
19621 lapack_complex_float
const* AB, lapack_int
const* ldab,
19622 lapack_complex_float
const* B, lapack_int
const* ldb,
19623 lapack_complex_float
const* X, lapack_int
const* ldx,
19626 lapack_complex_float* work,
19629 #ifdef LAPACK_FORTRAN_STRLEN_END
19630 ,
size_t,
size_t,
size_t
19633 #ifdef LAPACK_FORTRAN_STRLEN_END
19634 #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__, 1, 1, 1)
19636 #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__)
19639 #define LAPACK_dtbrfs_base LAPACK_GLOBAL(dtbrfs,DTBRFS)
19640 void LAPACK_dtbrfs_base(
19641 char const* uplo,
char const* trans,
char const* diag,
19642 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
19643 double const* AB, lapack_int
const* ldab,
19644 double const* B, lapack_int
const* ldb,
19645 double const* X, lapack_int
const* ldx,
19651 #ifdef LAPACK_FORTRAN_STRLEN_END
19652 ,
size_t,
size_t,
size_t
19655 #ifdef LAPACK_FORTRAN_STRLEN_END
19656 #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__, 1, 1, 1)
19658 #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__)
19661 #define LAPACK_stbrfs_base LAPACK_GLOBAL(stbrfs,STBRFS)
19662 void LAPACK_stbrfs_base(
19663 char const* uplo,
char const* trans,
char const* diag,
19664 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
19665 float const* AB, lapack_int
const* ldab,
19666 float const* B, lapack_int
const* ldb,
19667 float const* X, lapack_int
const* ldx,
19673 #ifdef LAPACK_FORTRAN_STRLEN_END
19674 ,
size_t,
size_t,
size_t
19677 #ifdef LAPACK_FORTRAN_STRLEN_END
19678 #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__, 1, 1, 1)
19680 #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__)
19683 #define LAPACK_ztbrfs_base LAPACK_GLOBAL(ztbrfs,ZTBRFS)
19684 void LAPACK_ztbrfs_base(
19685 char const* uplo,
char const* trans,
char const* diag,
19686 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
19687 lapack_complex_double
const* AB, lapack_int
const* ldab,
19688 lapack_complex_double
const* B, lapack_int
const* ldb,
19689 lapack_complex_double
const* X, lapack_int
const* ldx,
19692 lapack_complex_double* work,
19695 #ifdef LAPACK_FORTRAN_STRLEN_END
19696 ,
size_t,
size_t,
size_t
19699 #ifdef LAPACK_FORTRAN_STRLEN_END
19700 #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__, 1, 1, 1)
19702 #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__)
19705 #define LAPACK_ctbtrs_base LAPACK_GLOBAL(ctbtrs,CTBTRS)
19706 void LAPACK_ctbtrs_base(
19707 char const* uplo,
char const* trans,
char const* diag,
19708 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
19709 lapack_complex_float
const* AB, lapack_int
const* ldab,
19710 lapack_complex_float* B, lapack_int
const* ldb,
19712 #ifdef LAPACK_FORTRAN_STRLEN_END
19713 ,
size_t,
size_t,
size_t
19716 #ifdef LAPACK_FORTRAN_STRLEN_END
19717 #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__, 1, 1, 1)
19719 #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__)
19722 #define LAPACK_dtbtrs_base LAPACK_GLOBAL(dtbtrs,DTBTRS)
19723 void LAPACK_dtbtrs_base(
19724 char const* uplo,
char const* trans,
char const* diag,
19725 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
19726 double const* AB, lapack_int
const* ldab,
19727 double* B, lapack_int
const* ldb,
19729 #ifdef LAPACK_FORTRAN_STRLEN_END
19730 ,
size_t,
size_t,
size_t
19733 #ifdef LAPACK_FORTRAN_STRLEN_END
19734 #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__, 1, 1, 1)
19736 #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__)
19739 #define LAPACK_stbtrs_base LAPACK_GLOBAL(stbtrs,STBTRS)
19740 void LAPACK_stbtrs_base(
19741 char const* uplo,
char const* trans,
char const* diag,
19742 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
19743 float const* AB, lapack_int
const* ldab,
19744 float* B, lapack_int
const* ldb,
19746 #ifdef LAPACK_FORTRAN_STRLEN_END
19747 ,
size_t,
size_t,
size_t
19750 #ifdef LAPACK_FORTRAN_STRLEN_END
19751 #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__, 1, 1, 1)
19753 #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__)
19756 #define LAPACK_ztbtrs_base LAPACK_GLOBAL(ztbtrs,ZTBTRS)
19757 void LAPACK_ztbtrs_base(
19758 char const* uplo,
char const* trans,
char const* diag,
19759 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
19760 lapack_complex_double
const* AB, lapack_int
const* ldab,
19761 lapack_complex_double* B, lapack_int
const* ldb,
19763 #ifdef LAPACK_FORTRAN_STRLEN_END
19764 ,
size_t,
size_t,
size_t
19767 #ifdef LAPACK_FORTRAN_STRLEN_END
19768 #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__, 1, 1, 1)
19770 #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__)
19773 #define LAPACK_ctfsm_base LAPACK_GLOBAL(ctfsm,CTFSM)
19774 void LAPACK_ctfsm_base(
19775 char const* transr,
char const* side,
char const* uplo,
char const* trans,
char const* diag,
19776 lapack_int
const* m, lapack_int
const* n,
19777 lapack_complex_float
const* alpha,
19778 lapack_complex_float
const* A,
19779 lapack_complex_float* B, lapack_int
const* ldb
19780 #ifdef LAPACK_FORTRAN_STRLEN_END
19781 ,
size_t,
size_t,
size_t,
size_t,
size_t
19784 #ifdef LAPACK_FORTRAN_STRLEN_END
19785 #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19787 #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__)
19790 #define LAPACK_dtfsm_base LAPACK_GLOBAL(dtfsm,DTFSM)
19791 void LAPACK_dtfsm_base(
19792 char const* transr,
char const* side,
char const* uplo,
char const* trans,
char const* diag,
19793 lapack_int
const* m, lapack_int
const* n,
19794 double const* alpha,
19796 double* B, lapack_int
const* ldb
19797 #ifdef LAPACK_FORTRAN_STRLEN_END
19798 ,
size_t,
size_t,
size_t,
size_t,
size_t
19801 #ifdef LAPACK_FORTRAN_STRLEN_END
19802 #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19804 #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__)
19807 #define LAPACK_stfsm_base LAPACK_GLOBAL(stfsm,STFSM)
19808 void LAPACK_stfsm_base(
19809 char const* transr,
char const* side,
char const* uplo,
char const* trans,
char const* diag,
19810 lapack_int
const* m, lapack_int
const* n,
19811 float const* alpha,
19813 float* B, lapack_int
const* ldb
19814 #ifdef LAPACK_FORTRAN_STRLEN_END
19815 ,
size_t,
size_t,
size_t,
size_t,
size_t
19818 #ifdef LAPACK_FORTRAN_STRLEN_END
19819 #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19821 #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__)
19824 #define LAPACK_ztfsm_base LAPACK_GLOBAL(ztfsm,ZTFSM)
19825 void LAPACK_ztfsm_base(
19826 char const* transr,
char const* side,
char const* uplo,
char const* trans,
char const* diag,
19827 lapack_int
const* m, lapack_int
const* n,
19828 lapack_complex_double
const* alpha,
19829 lapack_complex_double
const* A,
19830 lapack_complex_double* B, lapack_int
const* ldb
19831 #ifdef LAPACK_FORTRAN_STRLEN_END
19832 ,
size_t,
size_t,
size_t,
size_t,
size_t
19835 #ifdef LAPACK_FORTRAN_STRLEN_END
19836 #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19838 #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__)
19841 #define LAPACK_ctftri_base LAPACK_GLOBAL(ctftri,CTFTRI)
19842 void LAPACK_ctftri_base(
19843 char const* transr,
char const* uplo,
char const* diag,
19844 lapack_int
const* n,
19845 lapack_complex_float* A,
19847 #ifdef LAPACK_FORTRAN_STRLEN_END
19848 ,
size_t,
size_t,
size_t
19851 #ifdef LAPACK_FORTRAN_STRLEN_END
19852 #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__, 1, 1, 1)
19854 #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__)
19857 #define LAPACK_dtftri_base LAPACK_GLOBAL(dtftri,DTFTRI)
19858 void LAPACK_dtftri_base(
19859 char const* transr,
char const* uplo,
char const* diag,
19860 lapack_int
const* n,
19863 #ifdef LAPACK_FORTRAN_STRLEN_END
19864 ,
size_t,
size_t,
size_t
19867 #ifdef LAPACK_FORTRAN_STRLEN_END
19868 #define LAPACK_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__, 1, 1, 1)
19870 #define LAPACK_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__)
19873 #define LAPACK_stftri_base LAPACK_GLOBAL(stftri,STFTRI)
19874 void LAPACK_stftri_base(
19875 char const* transr,
char const* uplo,
char const* diag,
19876 lapack_int
const* n,
19879 #ifdef LAPACK_FORTRAN_STRLEN_END
19880 ,
size_t,
size_t,
size_t
19883 #ifdef LAPACK_FORTRAN_STRLEN_END
19884 #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__, 1, 1, 1)
19886 #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__)
19889 #define LAPACK_ztftri_base LAPACK_GLOBAL(ztftri,ZTFTRI)
19890 void LAPACK_ztftri_base(
19891 char const* transr,
char const* uplo,
char const* diag,
19892 lapack_int
const* n,
19893 lapack_complex_double* A,
19895 #ifdef LAPACK_FORTRAN_STRLEN_END
19896 ,
size_t,
size_t,
size_t
19899 #ifdef LAPACK_FORTRAN_STRLEN_END
19900 #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__, 1, 1, 1)
19902 #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__)
19905 #define LAPACK_ctfttp_base LAPACK_GLOBAL(ctfttp,CTFTTP)
19906 void LAPACK_ctfttp_base(
19907 char const* transr,
char const* uplo,
19908 lapack_int
const* n,
19909 lapack_complex_float
const* ARF,
19910 lapack_complex_float* AP,
19912 #ifdef LAPACK_FORTRAN_STRLEN_END
19916 #ifdef LAPACK_FORTRAN_STRLEN_END
19917 #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__, 1, 1)
19919 #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__)
19922 #define LAPACK_dtfttp_base LAPACK_GLOBAL(dtfttp,DTFTTP)
19923 void LAPACK_dtfttp_base(
19924 char const* transr,
char const* uplo,
19925 lapack_int
const* n,
19929 #ifdef LAPACK_FORTRAN_STRLEN_END
19933 #ifdef LAPACK_FORTRAN_STRLEN_END
19934 #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__, 1, 1)
19936 #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__)
19939 #define LAPACK_stfttp_base LAPACK_GLOBAL(stfttp,STFTTP)
19940 void LAPACK_stfttp_base(
19941 char const* transr,
char const* uplo,
19942 lapack_int
const* n,
19946 #ifdef LAPACK_FORTRAN_STRLEN_END
19950 #ifdef LAPACK_FORTRAN_STRLEN_END
19951 #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__, 1, 1)
19953 #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__)
19956 #define LAPACK_ztfttp_base LAPACK_GLOBAL(ztfttp,ZTFTTP)
19957 void LAPACK_ztfttp_base(
19958 char const* transr,
char const* uplo,
19959 lapack_int
const* n,
19960 lapack_complex_double
const* ARF,
19961 lapack_complex_double* AP,
19963 #ifdef LAPACK_FORTRAN_STRLEN_END
19967 #ifdef LAPACK_FORTRAN_STRLEN_END
19968 #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__, 1, 1)
19970 #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__)
19973 #define LAPACK_ctfttr_base LAPACK_GLOBAL(ctfttr,CTFTTR)
19974 void LAPACK_ctfttr_base(
19975 char const* transr,
char const* uplo,
19976 lapack_int
const* n,
19977 lapack_complex_float
const* ARF,
19978 lapack_complex_float* A, lapack_int
const* lda,
19980 #ifdef LAPACK_FORTRAN_STRLEN_END
19984 #ifdef LAPACK_FORTRAN_STRLEN_END
19985 #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__, 1, 1)
19987 #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__)
19990 #define LAPACK_dtfttr_base LAPACK_GLOBAL(dtfttr,DTFTTR)
19991 void LAPACK_dtfttr_base(
19992 char const* transr,
char const* uplo,
19993 lapack_int
const* n,
19995 double* A, lapack_int
const* lda,
19997 #ifdef LAPACK_FORTRAN_STRLEN_END
20001 #ifdef LAPACK_FORTRAN_STRLEN_END
20002 #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__, 1, 1)
20004 #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__)
20007 #define LAPACK_stfttr_base LAPACK_GLOBAL(stfttr,STFTTR)
20008 void LAPACK_stfttr_base(
20009 char const* transr,
char const* uplo,
20010 lapack_int
const* n,
20012 float* A, lapack_int
const* lda,
20014 #ifdef LAPACK_FORTRAN_STRLEN_END
20018 #ifdef LAPACK_FORTRAN_STRLEN_END
20019 #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__, 1, 1)
20021 #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__)
20024 #define LAPACK_ztfttr_base LAPACK_GLOBAL(ztfttr,ZTFTTR)
20025 void LAPACK_ztfttr_base(
20026 char const* transr,
char const* uplo,
20027 lapack_int
const* n,
20028 lapack_complex_double
const* ARF,
20029 lapack_complex_double* A, lapack_int
const* lda,
20031 #ifdef LAPACK_FORTRAN_STRLEN_END
20035 #ifdef LAPACK_FORTRAN_STRLEN_END
20036 #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__, 1, 1)
20038 #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__)
20041 #define LAPACK_ctgevc_base LAPACK_GLOBAL(ctgevc,CTGEVC)
20042 void LAPACK_ctgevc_base(
20043 char const* side,
char const* howmny,
20044 lapack_logical
const* select,
20045 lapack_int
const* n,
20046 lapack_complex_float
const* S, lapack_int
const* lds,
20047 lapack_complex_float
const* P, lapack_int
const* ldp,
20048 lapack_complex_float* VL, lapack_int
const* ldvl,
20049 lapack_complex_float* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
20050 lapack_complex_float* work,
20053 #ifdef LAPACK_FORTRAN_STRLEN_END
20057 #ifdef LAPACK_FORTRAN_STRLEN_END
20058 #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__, 1, 1)
20060 #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__)
20063 #define LAPACK_dtgevc_base LAPACK_GLOBAL(dtgevc,DTGEVC)
20064 void LAPACK_dtgevc_base(
20065 char const* side,
char const* howmny,
20066 lapack_logical
const* select,
20067 lapack_int
const* n,
20068 double const* S, lapack_int
const* lds,
20069 double const* P, lapack_int
const* ldp,
20070 double* VL, lapack_int
const* ldvl,
20071 double* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
20074 #ifdef LAPACK_FORTRAN_STRLEN_END
20078 #ifdef LAPACK_FORTRAN_STRLEN_END
20079 #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__, 1, 1)
20081 #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__)
20084 #define LAPACK_stgevc_base LAPACK_GLOBAL(stgevc,STGEVC)
20085 void LAPACK_stgevc_base(
20086 char const* side,
char const* howmny,
20087 lapack_logical
const* select,
20088 lapack_int
const* n,
20089 float const* S, lapack_int
const* lds,
20090 float const* P, lapack_int
const* ldp,
20091 float* VL, lapack_int
const* ldvl,
20092 float* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
20095 #ifdef LAPACK_FORTRAN_STRLEN_END
20099 #ifdef LAPACK_FORTRAN_STRLEN_END
20100 #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__, 1, 1)
20102 #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__)
20105 #define LAPACK_ztgevc_base LAPACK_GLOBAL(ztgevc,ZTGEVC)
20106 void LAPACK_ztgevc_base(
20107 char const* side,
char const* howmny,
20108 lapack_logical
const* select,
20109 lapack_int
const* n,
20110 lapack_complex_double
const* S, lapack_int
const* lds,
20111 lapack_complex_double
const* P, lapack_int
const* ldp,
20112 lapack_complex_double* VL, lapack_int
const* ldvl,
20113 lapack_complex_double* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
20114 lapack_complex_double* work,
20117 #ifdef LAPACK_FORTRAN_STRLEN_END
20121 #ifdef LAPACK_FORTRAN_STRLEN_END
20122 #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__, 1, 1)
20124 #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__)
20127 #define LAPACK_ctgexc LAPACK_GLOBAL(ctgexc,CTGEXC)
20128 void LAPACK_ctgexc(
20129 lapack_logical
const* wantq, lapack_logical
const* wantz, lapack_int
const* n,
20130 lapack_complex_float* A, lapack_int
const* lda,
20131 lapack_complex_float* B, lapack_int
const* ldb,
20132 lapack_complex_float* Q, lapack_int
const* ldq,
20133 lapack_complex_float* Z, lapack_int
const* ldz, lapack_int
const* ifst, lapack_int* ilst,
20134 lapack_int* info );
20136 #define LAPACK_dtgexc LAPACK_GLOBAL(dtgexc,DTGEXC)
20137 void LAPACK_dtgexc(
20138 lapack_logical
const* wantq, lapack_logical
const* wantz, lapack_int
const* n,
20139 double* A, lapack_int
const* lda,
20140 double* B, lapack_int
const* ldb,
20141 double* Q, lapack_int
const* ldq,
20142 double* Z, lapack_int
const* ldz, lapack_int* ifst, lapack_int* ilst,
20143 double* work, lapack_int
const* lwork,
20144 lapack_int* info );
20146 #define LAPACK_stgexc LAPACK_GLOBAL(stgexc,STGEXC)
20147 void LAPACK_stgexc(
20148 lapack_logical
const* wantq, lapack_logical
const* wantz, lapack_int
const* n,
20149 float* A, lapack_int
const* lda,
20150 float* B, lapack_int
const* ldb,
20151 float* Q, lapack_int
const* ldq,
20152 float* Z, lapack_int
const* ldz, lapack_int* ifst, lapack_int* ilst,
20153 float* work, lapack_int
const* lwork,
20154 lapack_int* info );
20156 #define LAPACK_ztgexc LAPACK_GLOBAL(ztgexc,ZTGEXC)
20157 void LAPACK_ztgexc(
20158 lapack_logical
const* wantq, lapack_logical
const* wantz, lapack_int
const* n,
20159 lapack_complex_double* A, lapack_int
const* lda,
20160 lapack_complex_double* B, lapack_int
const* ldb,
20161 lapack_complex_double* Q, lapack_int
const* ldq,
20162 lapack_complex_double* Z, lapack_int
const* ldz, lapack_int
const* ifst, lapack_int* ilst,
20163 lapack_int* info );
20165 #define LAPACK_ctgsen LAPACK_GLOBAL(ctgsen,CTGSEN)
20166 void LAPACK_ctgsen(
20167 lapack_int
const* ijob, lapack_logical
const* wantq, lapack_logical
const* wantz, lapack_logical
const* select, lapack_int
const* n,
20168 lapack_complex_float* A, lapack_int
const* lda,
20169 lapack_complex_float* B, lapack_int
const* ldb,
20170 lapack_complex_float* alpha,
20171 lapack_complex_float* beta,
20172 lapack_complex_float* Q, lapack_int
const* ldq,
20173 lapack_complex_float* Z, lapack_int
const* ldz, lapack_int* m,
20177 lapack_complex_float* work, lapack_int
const* lwork,
20178 lapack_int* iwork, lapack_int
const* liwork,
20179 lapack_int* info );
20181 #define LAPACK_dtgsen LAPACK_GLOBAL(dtgsen,DTGSEN)
20182 void LAPACK_dtgsen(
20183 lapack_int
const* ijob, lapack_logical
const* wantq, lapack_logical
const* wantz, lapack_logical
const* select, lapack_int
const* n,
20184 double* A, lapack_int
const* lda,
20185 double* B, lapack_int
const* ldb,
20189 double* Q, lapack_int
const* ldq,
20190 double* Z, lapack_int
const* ldz, lapack_int* m,
20194 double* work, lapack_int
const* lwork,
20195 lapack_int* iwork, lapack_int
const* liwork,
20196 lapack_int* info );
20198 #define LAPACK_stgsen LAPACK_GLOBAL(stgsen,STGSEN)
20199 void LAPACK_stgsen(
20200 lapack_int
const* ijob, lapack_logical
const* wantq, lapack_logical
const* wantz, lapack_logical
const* select, lapack_int
const* n,
20201 float* A, lapack_int
const* lda,
20202 float* B, lapack_int
const* ldb,
20206 float* Q, lapack_int
const* ldq,
20207 float* Z, lapack_int
const* ldz, lapack_int* m,
20211 float* work, lapack_int
const* lwork,
20212 lapack_int* iwork, lapack_int
const* liwork,
20213 lapack_int* info );
20215 #define LAPACK_ztgsen LAPACK_GLOBAL(ztgsen,ZTGSEN)
20216 void LAPACK_ztgsen(
20217 lapack_int
const* ijob, lapack_logical
const* wantq, lapack_logical
const* wantz, lapack_logical
const* select, lapack_int
const* n,
20218 lapack_complex_double* A, lapack_int
const* lda,
20219 lapack_complex_double* B, lapack_int
const* ldb,
20220 lapack_complex_double* alpha,
20221 lapack_complex_double* beta,
20222 lapack_complex_double* Q, lapack_int
const* ldq,
20223 lapack_complex_double* Z, lapack_int
const* ldz, lapack_int* m,
20227 lapack_complex_double* work, lapack_int
const* lwork,
20228 lapack_int* iwork, lapack_int
const* liwork,
20229 lapack_int* info );
20231 #define LAPACK_ctgsja_base LAPACK_GLOBAL(ctgsja,CTGSJA)
20232 void LAPACK_ctgsja_base(
20233 char const* jobu,
char const* jobv,
char const* jobq,
20234 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
20235 lapack_complex_float* A, lapack_int
const* lda,
20236 lapack_complex_float* B, lapack_int
const* ldb,
20241 lapack_complex_float* U, lapack_int
const* ldu,
20242 lapack_complex_float* V, lapack_int
const* ldv,
20243 lapack_complex_float* Q, lapack_int
const* ldq,
20244 lapack_complex_float* work, lapack_int* ncycle,
20246 #ifdef LAPACK_FORTRAN_STRLEN_END
20247 ,
size_t,
size_t,
size_t
20250 #ifdef LAPACK_FORTRAN_STRLEN_END
20251 #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__, 1, 1, 1)
20253 #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__)
20256 #define LAPACK_dtgsja_base LAPACK_GLOBAL(dtgsja,DTGSJA)
20257 void LAPACK_dtgsja_base(
20258 char const* jobu,
char const* jobv,
char const* jobq,
20259 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
20260 double* A, lapack_int
const* lda,
20261 double* B, lapack_int
const* ldb,
20262 double const* tola,
20263 double const* tolb,
20266 double* U, lapack_int
const* ldu,
20267 double* V, lapack_int
const* ldv,
20268 double* Q, lapack_int
const* ldq,
20269 double* work, lapack_int* ncycle,
20271 #ifdef LAPACK_FORTRAN_STRLEN_END
20272 ,
size_t,
size_t,
size_t
20275 #ifdef LAPACK_FORTRAN_STRLEN_END
20276 #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__, 1, 1, 1)
20278 #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__)
20281 #define LAPACK_stgsja_base LAPACK_GLOBAL(stgsja,STGSJA)
20282 void LAPACK_stgsja_base(
20283 char const* jobu,
char const* jobv,
char const* jobq,
20284 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
20285 float* A, lapack_int
const* lda,
20286 float* B, lapack_int
const* ldb,
20291 float* U, lapack_int
const* ldu,
20292 float* V, lapack_int
const* ldv,
20293 float* Q, lapack_int
const* ldq,
20294 float* work, lapack_int* ncycle,
20296 #ifdef LAPACK_FORTRAN_STRLEN_END
20297 ,
size_t,
size_t,
size_t
20300 #ifdef LAPACK_FORTRAN_STRLEN_END
20301 #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__, 1, 1, 1)
20303 #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__)
20306 #define LAPACK_ztgsja_base LAPACK_GLOBAL(ztgsja,ZTGSJA)
20307 void LAPACK_ztgsja_base(
20308 char const* jobu,
char const* jobv,
char const* jobq,
20309 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
20310 lapack_complex_double* A, lapack_int
const* lda,
20311 lapack_complex_double* B, lapack_int
const* ldb,
20312 double const* tola,
20313 double const* tolb,
20316 lapack_complex_double* U, lapack_int
const* ldu,
20317 lapack_complex_double* V, lapack_int
const* ldv,
20318 lapack_complex_double* Q, lapack_int
const* ldq,
20319 lapack_complex_double* work, lapack_int* ncycle,
20321 #ifdef LAPACK_FORTRAN_STRLEN_END
20322 ,
size_t,
size_t,
size_t
20325 #ifdef LAPACK_FORTRAN_STRLEN_END
20326 #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__, 1, 1, 1)
20328 #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__)
20331 #define LAPACK_ctgsna_base LAPACK_GLOBAL(ctgsna,CTGSNA)
20332 void LAPACK_ctgsna_base(
20333 char const* job,
char const* howmny,
20334 lapack_logical
const* select,
20335 lapack_int
const* n,
20336 lapack_complex_float
const* A, lapack_int
const* lda,
20337 lapack_complex_float
const* B, lapack_int
const* ldb,
20338 lapack_complex_float
const* VL, lapack_int
const* ldvl,
20339 lapack_complex_float
const* VR, lapack_int
const* ldvr,
20341 float* DIF, lapack_int
const* mm, lapack_int* m,
20342 lapack_complex_float* work, lapack_int
const* lwork,
20345 #ifdef LAPACK_FORTRAN_STRLEN_END
20349 #ifdef LAPACK_FORTRAN_STRLEN_END
20350 #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__, 1, 1)
20352 #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__)
20355 #define LAPACK_dtgsna_base LAPACK_GLOBAL(dtgsna,DTGSNA)
20356 void LAPACK_dtgsna_base(
20357 char const* job,
char const* howmny,
20358 lapack_logical
const* select,
20359 lapack_int
const* n,
20360 double const* A, lapack_int
const* lda,
20361 double const* B, lapack_int
const* ldb,
20362 double const* VL, lapack_int
const* ldvl,
20363 double const* VR, lapack_int
const* ldvr,
20365 double* DIF, lapack_int
const* mm, lapack_int* m,
20366 double* work, lapack_int
const* lwork,
20369 #ifdef LAPACK_FORTRAN_STRLEN_END
20373 #ifdef LAPACK_FORTRAN_STRLEN_END
20374 #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__, 1, 1)
20376 #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__)
20379 #define LAPACK_stgsna_base LAPACK_GLOBAL(stgsna,STGSNA)
20380 void LAPACK_stgsna_base(
20381 char const* job,
char const* howmny,
20382 lapack_logical
const* select,
20383 lapack_int
const* n,
20384 float const* A, lapack_int
const* lda,
20385 float const* B, lapack_int
const* ldb,
20386 float const* VL, lapack_int
const* ldvl,
20387 float const* VR, lapack_int
const* ldvr,
20389 float* DIF, lapack_int
const* mm, lapack_int* m,
20390 float* work, lapack_int
const* lwork,
20393 #ifdef LAPACK_FORTRAN_STRLEN_END
20397 #ifdef LAPACK_FORTRAN_STRLEN_END
20398 #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__, 1, 1)
20400 #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__)
20403 #define LAPACK_ztgsna_base LAPACK_GLOBAL(ztgsna,ZTGSNA)
20404 void LAPACK_ztgsna_base(
20405 char const* job,
char const* howmny,
20406 lapack_logical
const* select,
20407 lapack_int
const* n,
20408 lapack_complex_double
const* A, lapack_int
const* lda,
20409 lapack_complex_double
const* B, lapack_int
const* ldb,
20410 lapack_complex_double
const* VL, lapack_int
const* ldvl,
20411 lapack_complex_double
const* VR, lapack_int
const* ldvr,
20413 double* DIF, lapack_int
const* mm, lapack_int* m,
20414 lapack_complex_double* work, lapack_int
const* lwork,
20417 #ifdef LAPACK_FORTRAN_STRLEN_END
20421 #ifdef LAPACK_FORTRAN_STRLEN_END
20422 #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__, 1, 1)
20424 #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__)
20427 #define LAPACK_ctgsyl_base LAPACK_GLOBAL(ctgsyl,CTGSYL)
20428 void LAPACK_ctgsyl_base(
20430 lapack_int
const* ijob, lapack_int
const* m, lapack_int
const* n,
20431 lapack_complex_float
const* A, lapack_int
const* lda,
20432 lapack_complex_float
const* B, lapack_int
const* ldb,
20433 lapack_complex_float* C, lapack_int
const* ldc,
20434 lapack_complex_float
const* D, lapack_int
const* ldd,
20435 lapack_complex_float
const* E, lapack_int
const* lde,
20436 lapack_complex_float* F, lapack_int
const* ldf,
20439 lapack_complex_float* work, lapack_int
const* lwork,
20442 #ifdef LAPACK_FORTRAN_STRLEN_END
20446 #ifdef LAPACK_FORTRAN_STRLEN_END
20447 #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__, 1)
20449 #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__)
20452 #define LAPACK_dtgsyl_base LAPACK_GLOBAL(dtgsyl,DTGSYL)
20453 void LAPACK_dtgsyl_base(
20455 lapack_int
const* ijob, lapack_int
const* m, lapack_int
const* n,
20456 double const* A, lapack_int
const* lda,
20457 double const* B, lapack_int
const* ldb,
20458 double* C, lapack_int
const* ldc,
20459 double const* D, lapack_int
const* ldd,
20460 double const* E, lapack_int
const* lde,
20461 double* F, lapack_int
const* ldf,
20464 double* work, lapack_int
const* lwork,
20467 #ifdef LAPACK_FORTRAN_STRLEN_END
20471 #ifdef LAPACK_FORTRAN_STRLEN_END
20472 #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__, 1)
20474 #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__)
20477 #define LAPACK_stgsyl_base LAPACK_GLOBAL(stgsyl,STGSYL)
20478 void LAPACK_stgsyl_base(
20480 lapack_int
const* ijob, lapack_int
const* m, lapack_int
const* n,
20481 float const* A, lapack_int
const* lda,
20482 float const* B, lapack_int
const* ldb,
20483 float* C, lapack_int
const* ldc,
20484 float const* D, lapack_int
const* ldd,
20485 float const* E, lapack_int
const* lde,
20486 float* F, lapack_int
const* ldf,
20489 float* work, lapack_int
const* lwork,
20492 #ifdef LAPACK_FORTRAN_STRLEN_END
20496 #ifdef LAPACK_FORTRAN_STRLEN_END
20497 #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__, 1)
20499 #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__)
20502 #define LAPACK_ztgsyl_base LAPACK_GLOBAL(ztgsyl,ZTGSYL)
20503 void LAPACK_ztgsyl_base(
20505 lapack_int
const* ijob, lapack_int
const* m, lapack_int
const* n,
20506 lapack_complex_double
const* A, lapack_int
const* lda,
20507 lapack_complex_double
const* B, lapack_int
const* ldb,
20508 lapack_complex_double* C, lapack_int
const* ldc,
20509 lapack_complex_double
const* D, lapack_int
const* ldd,
20510 lapack_complex_double
const* E, lapack_int
const* lde,
20511 lapack_complex_double* F, lapack_int
const* ldf,
20514 lapack_complex_double* work, lapack_int
const* lwork,
20517 #ifdef LAPACK_FORTRAN_STRLEN_END
20521 #ifdef LAPACK_FORTRAN_STRLEN_END
20522 #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__, 1)
20524 #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__)
20527 #define LAPACK_ctpcon_base LAPACK_GLOBAL(ctpcon,CTPCON)
20528 void LAPACK_ctpcon_base(
20529 char const* norm,
char const* uplo,
char const* diag,
20530 lapack_int
const* n,
20531 lapack_complex_float
const* AP,
20533 lapack_complex_float* work,
20536 #ifdef LAPACK_FORTRAN_STRLEN_END
20537 ,
size_t,
size_t,
size_t
20540 #ifdef LAPACK_FORTRAN_STRLEN_END
20541 #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__, 1, 1, 1)
20543 #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__)
20546 #define LAPACK_dtpcon_base LAPACK_GLOBAL(dtpcon,DTPCON)
20547 void LAPACK_dtpcon_base(
20548 char const* norm,
char const* uplo,
char const* diag,
20549 lapack_int
const* n,
20555 #ifdef LAPACK_FORTRAN_STRLEN_END
20556 ,
size_t,
size_t,
size_t
20559 #ifdef LAPACK_FORTRAN_STRLEN_END
20560 #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__, 1, 1, 1)
20562 #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__)
20565 #define LAPACK_stpcon_base LAPACK_GLOBAL(stpcon,STPCON)
20566 void LAPACK_stpcon_base(
20567 char const* norm,
char const* uplo,
char const* diag,
20568 lapack_int
const* n,
20574 #ifdef LAPACK_FORTRAN_STRLEN_END
20575 ,
size_t,
size_t,
size_t
20578 #ifdef LAPACK_FORTRAN_STRLEN_END
20579 #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__, 1, 1, 1)
20581 #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__)
20584 #define LAPACK_ztpcon_base LAPACK_GLOBAL(ztpcon,ZTPCON)
20585 void LAPACK_ztpcon_base(
20586 char const* norm,
char const* uplo,
char const* diag,
20587 lapack_int
const* n,
20588 lapack_complex_double
const* AP,
20590 lapack_complex_double* work,
20593 #ifdef LAPACK_FORTRAN_STRLEN_END
20594 ,
size_t,
size_t,
size_t
20597 #ifdef LAPACK_FORTRAN_STRLEN_END
20598 #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__, 1, 1, 1)
20600 #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__)
20603 #define LAPACK_ctplqt LAPACK_GLOBAL(ctplqt,CTPLQT)
20604 void LAPACK_ctplqt(
20605 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l, lapack_int
const* mb,
20606 lapack_complex_float* A, lapack_int
const* lda,
20607 lapack_complex_float* B, lapack_int
const* ldb,
20608 lapack_complex_float* T, lapack_int
const* ldt,
20609 lapack_complex_float* work,
20610 lapack_int* info );
20612 #define LAPACK_dtplqt LAPACK_GLOBAL(dtplqt,DTPLQT)
20613 void LAPACK_dtplqt(
20614 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l, lapack_int
const* mb,
20615 double* A, lapack_int
const* lda,
20616 double* B, lapack_int
const* ldb,
20617 double* T, lapack_int
const* ldt,
20619 lapack_int* info );
20621 #define LAPACK_stplqt LAPACK_GLOBAL(stplqt,STPLQT)
20622 void LAPACK_stplqt(
20623 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l, lapack_int
const* mb,
20624 float* A, lapack_int
const* lda,
20625 float* B, lapack_int
const* ldb,
20626 float* T, lapack_int
const* ldt,
20628 lapack_int* info );
20630 #define LAPACK_ztplqt LAPACK_GLOBAL(ztplqt,ZTPLQT)
20631 void LAPACK_ztplqt(
20632 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l, lapack_int
const* mb,
20633 lapack_complex_double* A, lapack_int
const* lda,
20634 lapack_complex_double* B, lapack_int
const* ldb,
20635 lapack_complex_double* T, lapack_int
const* ldt,
20636 lapack_complex_double* work,
20637 lapack_int* info );
20639 #define LAPACK_ctplqt2 LAPACK_GLOBAL(ctplqt2,CTPLQT2)
20640 void LAPACK_ctplqt2(
20641 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l,
20642 lapack_complex_float* A, lapack_int
const* lda,
20643 lapack_complex_float* B, lapack_int
const* ldb,
20644 lapack_complex_float* T, lapack_int
const* ldt,
20645 lapack_int* info );
20647 #define LAPACK_dtplqt2 LAPACK_GLOBAL(dtplqt2,DTPLQT2)
20648 void LAPACK_dtplqt2(
20649 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l,
20650 double* A, lapack_int
const* lda,
20651 double* B, lapack_int
const* ldb,
20652 double* T, lapack_int
const* ldt,
20653 lapack_int* info );
20655 #define LAPACK_stplqt2 LAPACK_GLOBAL(stplqt2,STPLQT2)
20656 void LAPACK_stplqt2(
20657 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l,
20658 float* A, lapack_int
const* lda,
20659 float* B, lapack_int
const* ldb,
20660 float* T, lapack_int
const* ldt,
20661 lapack_int* info );
20663 #define LAPACK_ztplqt2 LAPACK_GLOBAL(ztplqt2,ZTPLQT2)
20664 void LAPACK_ztplqt2(
20665 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l,
20666 lapack_complex_double* A, lapack_int
const* lda,
20667 lapack_complex_double* B, lapack_int
const* ldb,
20668 lapack_complex_double* T, lapack_int
const* ldt,
20669 lapack_int* info );
20671 #define LAPACK_ctpmlqt_base LAPACK_GLOBAL(ctpmlqt,CTPMLQT)
20672 void LAPACK_ctpmlqt_base(
20673 char const* side,
char const* trans,
20674 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l, lapack_int
const* mb,
20675 lapack_complex_float
const* V, lapack_int
const* ldv,
20676 lapack_complex_float
const* T, lapack_int
const* ldt,
20677 lapack_complex_float* A, lapack_int
const* lda,
20678 lapack_complex_float* B, lapack_int
const* ldb,
20679 lapack_complex_float* work,
20681 #ifdef LAPACK_FORTRAN_STRLEN_END
20685 #ifdef LAPACK_FORTRAN_STRLEN_END
20686 #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__, 1, 1)
20688 #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__)
20691 #define LAPACK_dtpmlqt_base LAPACK_GLOBAL(dtpmlqt,DTPMLQT)
20692 void LAPACK_dtpmlqt_base(
20693 char const* side,
char const* trans,
20694 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l, lapack_int
const* mb,
20695 double const* V, lapack_int
const* ldv,
20696 double const* T, lapack_int
const* ldt,
20697 double* A, lapack_int
const* lda,
20698 double* B, lapack_int
const* ldb,
20701 #ifdef LAPACK_FORTRAN_STRLEN_END
20705 #ifdef LAPACK_FORTRAN_STRLEN_END
20706 #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__, 1, 1)
20708 #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__)
20711 #define LAPACK_stpmlqt_base LAPACK_GLOBAL(stpmlqt,STPMLQT)
20712 void LAPACK_stpmlqt_base(
20713 char const* side,
char const* trans,
20714 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l, lapack_int
const* mb,
20715 float const* V, lapack_int
const* ldv,
20716 float const* T, lapack_int
const* ldt,
20717 float* A, lapack_int
const* lda,
20718 float* B, lapack_int
const* ldb,
20721 #ifdef LAPACK_FORTRAN_STRLEN_END
20725 #ifdef LAPACK_FORTRAN_STRLEN_END
20726 #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__, 1, 1)
20728 #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__)
20731 #define LAPACK_ztpmlqt_base LAPACK_GLOBAL(ztpmlqt,ZTPMLQT)
20732 void LAPACK_ztpmlqt_base(
20733 char const* side,
char const* trans,
20734 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l, lapack_int
const* mb,
20735 lapack_complex_double
const* V, lapack_int
const* ldv,
20736 lapack_complex_double
const* T, lapack_int
const* ldt,
20737 lapack_complex_double* A, lapack_int
const* lda,
20738 lapack_complex_double* B, lapack_int
const* ldb,
20739 lapack_complex_double* work,
20741 #ifdef LAPACK_FORTRAN_STRLEN_END
20745 #ifdef LAPACK_FORTRAN_STRLEN_END
20746 #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__, 1, 1)
20748 #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__)
20751 #define LAPACK_ctpmqrt_base LAPACK_GLOBAL(ctpmqrt,CTPMQRT)
20752 void LAPACK_ctpmqrt_base(
20753 char const* side,
char const* trans,
20754 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l, lapack_int
const* nb,
20755 lapack_complex_float
const* V, lapack_int
const* ldv,
20756 lapack_complex_float
const* T, lapack_int
const* ldt,
20757 lapack_complex_float* A, lapack_int
const* lda,
20758 lapack_complex_float* B, lapack_int
const* ldb,
20759 lapack_complex_float* work,
20761 #ifdef LAPACK_FORTRAN_STRLEN_END
20765 #ifdef LAPACK_FORTRAN_STRLEN_END
20766 #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__, 1, 1)
20768 #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__)
20771 #define LAPACK_dtpmqrt_base LAPACK_GLOBAL(dtpmqrt,DTPMQRT)
20772 void LAPACK_dtpmqrt_base(
20773 char const* side,
char const* trans,
20774 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l, lapack_int
const* nb,
20775 double const* V, lapack_int
const* ldv,
20776 double const* T, lapack_int
const* ldt,
20777 double* A, lapack_int
const* lda,
20778 double* B, lapack_int
const* ldb,
20781 #ifdef LAPACK_FORTRAN_STRLEN_END
20785 #ifdef LAPACK_FORTRAN_STRLEN_END
20786 #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__, 1, 1)
20788 #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__)
20791 #define LAPACK_stpmqrt_base LAPACK_GLOBAL(stpmqrt,STPMQRT)
20792 void LAPACK_stpmqrt_base(
20793 char const* side,
char const* trans,
20794 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l, lapack_int
const* nb,
20795 float const* V, lapack_int
const* ldv,
20796 float const* T, lapack_int
const* ldt,
20797 float* A, lapack_int
const* lda,
20798 float* B, lapack_int
const* ldb,
20801 #ifdef LAPACK_FORTRAN_STRLEN_END
20805 #ifdef LAPACK_FORTRAN_STRLEN_END
20806 #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__, 1, 1)
20808 #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__)
20811 #define LAPACK_ztpmqrt_base LAPACK_GLOBAL(ztpmqrt,ZTPMQRT)
20812 void LAPACK_ztpmqrt_base(
20813 char const* side,
char const* trans,
20814 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l, lapack_int
const* nb,
20815 lapack_complex_double
const* V, lapack_int
const* ldv,
20816 lapack_complex_double
const* T, lapack_int
const* ldt,
20817 lapack_complex_double* A, lapack_int
const* lda,
20818 lapack_complex_double* B, lapack_int
const* ldb,
20819 lapack_complex_double* work,
20821 #ifdef LAPACK_FORTRAN_STRLEN_END
20825 #ifdef LAPACK_FORTRAN_STRLEN_END
20826 #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__, 1, 1)
20828 #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__)
20831 #define LAPACK_ctpqrt LAPACK_GLOBAL(ctpqrt,CTPQRT)
20832 void LAPACK_ctpqrt(
20833 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l, lapack_int
const* nb,
20834 lapack_complex_float* A, lapack_int
const* lda,
20835 lapack_complex_float* B, lapack_int
const* ldb,
20836 lapack_complex_float* T, lapack_int
const* ldt,
20837 lapack_complex_float* work,
20838 lapack_int* info );
20840 #define LAPACK_dtpqrt LAPACK_GLOBAL(dtpqrt,DTPQRT)
20841 void LAPACK_dtpqrt(
20842 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l, lapack_int
const* nb,
20843 double* A, lapack_int
const* lda,
20844 double* B, lapack_int
const* ldb,
20845 double* T, lapack_int
const* ldt,
20847 lapack_int* info );
20849 #define LAPACK_stpqrt LAPACK_GLOBAL(stpqrt,STPQRT)
20850 void LAPACK_stpqrt(
20851 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l, lapack_int
const* nb,
20852 float* A, lapack_int
const* lda,
20853 float* B, lapack_int
const* ldb,
20854 float* T, lapack_int
const* ldt,
20856 lapack_int* info );
20858 #define LAPACK_ztpqrt LAPACK_GLOBAL(ztpqrt,ZTPQRT)
20859 void LAPACK_ztpqrt(
20860 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l, lapack_int
const* nb,
20861 lapack_complex_double* A, lapack_int
const* lda,
20862 lapack_complex_double* B, lapack_int
const* ldb,
20863 lapack_complex_double* T, lapack_int
const* ldt,
20864 lapack_complex_double* work,
20865 lapack_int* info );
20867 #define LAPACK_ctpqrt2 LAPACK_GLOBAL(ctpqrt2,CTPQRT2)
20868 void LAPACK_ctpqrt2(
20869 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l,
20870 lapack_complex_float* A, lapack_int
const* lda,
20871 lapack_complex_float* B, lapack_int
const* ldb,
20872 lapack_complex_float* T, lapack_int
const* ldt,
20873 lapack_int* info );
20875 #define LAPACK_dtpqrt2 LAPACK_GLOBAL(dtpqrt2,DTPQRT2)
20876 void LAPACK_dtpqrt2(
20877 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l,
20878 double* A, lapack_int
const* lda,
20879 double* B, lapack_int
const* ldb,
20880 double* T, lapack_int
const* ldt,
20881 lapack_int* info );
20883 #define LAPACK_stpqrt2 LAPACK_GLOBAL(stpqrt2,STPQRT2)
20884 void LAPACK_stpqrt2(
20885 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l,
20886 float* A, lapack_int
const* lda,
20887 float* B, lapack_int
const* ldb,
20888 float* T, lapack_int
const* ldt,
20889 lapack_int* info );
20891 #define LAPACK_ztpqrt2 LAPACK_GLOBAL(ztpqrt2,ZTPQRT2)
20892 void LAPACK_ztpqrt2(
20893 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l,
20894 lapack_complex_double* A, lapack_int
const* lda,
20895 lapack_complex_double* B, lapack_int
const* ldb,
20896 lapack_complex_double* T, lapack_int
const* ldt,
20897 lapack_int* info );
20899 #define LAPACK_ctprfb_base LAPACK_GLOBAL(ctprfb,CTPRFB)
20900 void LAPACK_ctprfb_base(
20901 char const* side,
char const* trans,
char const* direct,
char const* storev,
20902 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
20903 lapack_complex_float
const* V, lapack_int
const* ldv,
20904 lapack_complex_float
const* T, lapack_int
const* ldt,
20905 lapack_complex_float* A, lapack_int
const* lda,
20906 lapack_complex_float* B, lapack_int
const* ldb,
20907 lapack_complex_float* work, lapack_int
const* ldwork
20908 #ifdef LAPACK_FORTRAN_STRLEN_END
20909 ,
size_t,
size_t,
size_t,
size_t
20912 #ifdef LAPACK_FORTRAN_STRLEN_END
20913 #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20915 #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__)
20918 #define LAPACK_dtprfb_base LAPACK_GLOBAL(dtprfb,DTPRFB)
20919 void LAPACK_dtprfb_base(
20920 char const* side,
char const* trans,
char const* direct,
char const* storev,
20921 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
20922 double const* V, lapack_int
const* ldv,
20923 double const* T, lapack_int
const* ldt,
20924 double* A, lapack_int
const* lda,
20925 double* B, lapack_int
const* ldb,
20926 double* work, lapack_int
const* ldwork
20927 #ifdef LAPACK_FORTRAN_STRLEN_END
20928 ,
size_t,
size_t,
size_t,
size_t
20931 #ifdef LAPACK_FORTRAN_STRLEN_END
20932 #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20934 #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__)
20937 #define LAPACK_stprfb_base LAPACK_GLOBAL(stprfb,STPRFB)
20938 void LAPACK_stprfb_base(
20939 char const* side,
char const* trans,
char const* direct,
char const* storev,
20940 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
20941 float const* V, lapack_int
const* ldv,
20942 float const* T, lapack_int
const* ldt,
20943 float* A, lapack_int
const* lda,
20944 float* B, lapack_int
const* ldb,
20945 float* work, lapack_int
const* ldwork
20946 #ifdef LAPACK_FORTRAN_STRLEN_END
20947 ,
size_t,
size_t,
size_t,
size_t
20950 #ifdef LAPACK_FORTRAN_STRLEN_END
20951 #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20953 #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__)
20956 #define LAPACK_ztprfb_base LAPACK_GLOBAL(ztprfb,ZTPRFB)
20957 void LAPACK_ztprfb_base(
20958 char const* side,
char const* trans,
char const* direct,
char const* storev,
20959 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
20960 lapack_complex_double
const* V, lapack_int
const* ldv,
20961 lapack_complex_double
const* T, lapack_int
const* ldt,
20962 lapack_complex_double* A, lapack_int
const* lda,
20963 lapack_complex_double* B, lapack_int
const* ldb,
20964 lapack_complex_double* work, lapack_int
const* ldwork
20965 #ifdef LAPACK_FORTRAN_STRLEN_END
20966 ,
size_t,
size_t,
size_t,
size_t
20969 #ifdef LAPACK_FORTRAN_STRLEN_END
20970 #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20972 #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__)
20975 #define LAPACK_ctprfs_base LAPACK_GLOBAL(ctprfs,CTPRFS)
20976 void LAPACK_ctprfs_base(
20977 char const* uplo,
char const* trans,
char const* diag,
20978 lapack_int
const* n, lapack_int
const* nrhs,
20979 lapack_complex_float
const* AP,
20980 lapack_complex_float
const* B, lapack_int
const* ldb,
20981 lapack_complex_float
const* X, lapack_int
const* ldx,
20984 lapack_complex_float* work,
20987 #ifdef LAPACK_FORTRAN_STRLEN_END
20988 ,
size_t,
size_t,
size_t
20991 #ifdef LAPACK_FORTRAN_STRLEN_END
20992 #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__, 1, 1, 1)
20994 #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__)
20997 #define LAPACK_dtprfs_base LAPACK_GLOBAL(dtprfs,DTPRFS)
20998 void LAPACK_dtprfs_base(
20999 char const* uplo,
char const* trans,
char const* diag,
21000 lapack_int
const* n, lapack_int
const* nrhs,
21002 double const* B, lapack_int
const* ldb,
21003 double const* X, lapack_int
const* ldx,
21009 #ifdef LAPACK_FORTRAN_STRLEN_END
21010 ,
size_t,
size_t,
size_t
21013 #ifdef LAPACK_FORTRAN_STRLEN_END
21014 #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__, 1, 1, 1)
21016 #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__)
21019 #define LAPACK_stprfs_base LAPACK_GLOBAL(stprfs,STPRFS)
21020 void LAPACK_stprfs_base(
21021 char const* uplo,
char const* trans,
char const* diag,
21022 lapack_int
const* n, lapack_int
const* nrhs,
21024 float const* B, lapack_int
const* ldb,
21025 float const* X, lapack_int
const* ldx,
21031 #ifdef LAPACK_FORTRAN_STRLEN_END
21032 ,
size_t,
size_t,
size_t
21035 #ifdef LAPACK_FORTRAN_STRLEN_END
21036 #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__, 1, 1, 1)
21038 #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__)
21041 #define LAPACK_ztprfs_base LAPACK_GLOBAL(ztprfs,ZTPRFS)
21042 void LAPACK_ztprfs_base(
21043 char const* uplo,
char const* trans,
char const* diag,
21044 lapack_int
const* n, lapack_int
const* nrhs,
21045 lapack_complex_double
const* AP,
21046 lapack_complex_double
const* B, lapack_int
const* ldb,
21047 lapack_complex_double
const* X, lapack_int
const* ldx,
21050 lapack_complex_double* work,
21053 #ifdef LAPACK_FORTRAN_STRLEN_END
21054 ,
size_t,
size_t,
size_t
21057 #ifdef LAPACK_FORTRAN_STRLEN_END
21058 #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__, 1, 1, 1)
21060 #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__)
21063 #define LAPACK_ctptri_base LAPACK_GLOBAL(ctptri,CTPTRI)
21064 void LAPACK_ctptri_base(
21065 char const* uplo,
char const* diag,
21066 lapack_int
const* n,
21067 lapack_complex_float* AP,
21069 #ifdef LAPACK_FORTRAN_STRLEN_END
21073 #ifdef LAPACK_FORTRAN_STRLEN_END
21074 #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__, 1, 1)
21076 #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__)
21079 #define LAPACK_dtptri_base LAPACK_GLOBAL(dtptri,DTPTRI)
21080 void LAPACK_dtptri_base(
21081 char const* uplo,
char const* diag,
21082 lapack_int
const* n,
21085 #ifdef LAPACK_FORTRAN_STRLEN_END
21089 #ifdef LAPACK_FORTRAN_STRLEN_END
21090 #define LAPACK_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__, 1, 1)
21092 #define LAPACK_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__)
21095 #define LAPACK_stptri_base LAPACK_GLOBAL(stptri,STPTRI)
21096 void LAPACK_stptri_base(
21097 char const* uplo,
char const* diag,
21098 lapack_int
const* n,
21101 #ifdef LAPACK_FORTRAN_STRLEN_END
21105 #ifdef LAPACK_FORTRAN_STRLEN_END
21106 #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__, 1, 1)
21108 #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__)
21111 #define LAPACK_ztptri_base LAPACK_GLOBAL(ztptri,ZTPTRI)
21112 void LAPACK_ztptri_base(
21113 char const* uplo,
char const* diag,
21114 lapack_int
const* n,
21115 lapack_complex_double* AP,
21117 #ifdef LAPACK_FORTRAN_STRLEN_END
21121 #ifdef LAPACK_FORTRAN_STRLEN_END
21122 #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__, 1, 1)
21124 #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__)
21127 #define LAPACK_ctptrs_base LAPACK_GLOBAL(ctptrs,CTPTRS)
21128 void LAPACK_ctptrs_base(
21129 char const* uplo,
char const* trans,
char const* diag,
21130 lapack_int
const* n, lapack_int
const* nrhs,
21131 lapack_complex_float
const* AP,
21132 lapack_complex_float* B, lapack_int
const* ldb,
21134 #ifdef LAPACK_FORTRAN_STRLEN_END
21135 ,
size_t,
size_t,
size_t
21138 #ifdef LAPACK_FORTRAN_STRLEN_END
21139 #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__, 1, 1, 1)
21141 #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__)
21144 #define LAPACK_dtptrs_base LAPACK_GLOBAL(dtptrs,DTPTRS)
21145 void LAPACK_dtptrs_base(
21146 char const* uplo,
char const* trans,
char const* diag,
21147 lapack_int
const* n, lapack_int
const* nrhs,
21149 double* B, lapack_int
const* ldb,
21151 #ifdef LAPACK_FORTRAN_STRLEN_END
21152 ,
size_t,
size_t,
size_t
21155 #ifdef LAPACK_FORTRAN_STRLEN_END
21156 #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__, 1, 1, 1)
21158 #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__)
21161 #define LAPACK_stptrs_base LAPACK_GLOBAL(stptrs,STPTRS)
21162 void LAPACK_stptrs_base(
21163 char const* uplo,
char const* trans,
char const* diag,
21164 lapack_int
const* n, lapack_int
const* nrhs,
21166 float* B, lapack_int
const* ldb,
21168 #ifdef LAPACK_FORTRAN_STRLEN_END
21169 ,
size_t,
size_t,
size_t
21172 #ifdef LAPACK_FORTRAN_STRLEN_END
21173 #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__, 1, 1, 1)
21175 #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__)
21178 #define LAPACK_ztptrs_base LAPACK_GLOBAL(ztptrs,ZTPTRS)
21179 void LAPACK_ztptrs_base(
21180 char const* uplo,
char const* trans,
char const* diag,
21181 lapack_int
const* n, lapack_int
const* nrhs,
21182 lapack_complex_double
const* AP,
21183 lapack_complex_double* B, lapack_int
const* ldb,
21185 #ifdef LAPACK_FORTRAN_STRLEN_END
21186 ,
size_t,
size_t,
size_t
21189 #ifdef LAPACK_FORTRAN_STRLEN_END
21190 #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__, 1, 1, 1)
21192 #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__)
21195 #define LAPACK_ctpttf_base LAPACK_GLOBAL(ctpttf,CTPTTF)
21196 void LAPACK_ctpttf_base(
21197 char const* transr,
char const* uplo,
21198 lapack_int
const* n,
21199 lapack_complex_float
const* AP,
21200 lapack_complex_float* ARF,
21202 #ifdef LAPACK_FORTRAN_STRLEN_END
21206 #ifdef LAPACK_FORTRAN_STRLEN_END
21207 #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__, 1, 1)
21209 #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__)
21212 #define LAPACK_dtpttf_base LAPACK_GLOBAL(dtpttf,DTPTTF)
21213 void LAPACK_dtpttf_base(
21214 char const* transr,
char const* uplo,
21215 lapack_int
const* n,
21219 #ifdef LAPACK_FORTRAN_STRLEN_END
21223 #ifdef LAPACK_FORTRAN_STRLEN_END
21224 #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__, 1, 1)
21226 #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__)
21229 #define LAPACK_stpttf_base LAPACK_GLOBAL(stpttf,STPTTF)
21230 void LAPACK_stpttf_base(
21231 char const* transr,
char const* uplo,
21232 lapack_int
const* n,
21236 #ifdef LAPACK_FORTRAN_STRLEN_END
21240 #ifdef LAPACK_FORTRAN_STRLEN_END
21241 #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__, 1, 1)
21243 #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__)
21246 #define LAPACK_ztpttf_base LAPACK_GLOBAL(ztpttf,ZTPTTF)
21247 void LAPACK_ztpttf_base(
21248 char const* transr,
char const* uplo,
21249 lapack_int
const* n,
21250 lapack_complex_double
const* AP,
21251 lapack_complex_double* ARF,
21253 #ifdef LAPACK_FORTRAN_STRLEN_END
21257 #ifdef LAPACK_FORTRAN_STRLEN_END
21258 #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__, 1, 1)
21260 #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__)
21263 #define LAPACK_ctpttr_base LAPACK_GLOBAL(ctpttr,CTPTTR)
21264 void LAPACK_ctpttr_base(
21266 lapack_int
const* n,
21267 lapack_complex_float
const* AP,
21268 lapack_complex_float* A, lapack_int
const* lda,
21270 #ifdef LAPACK_FORTRAN_STRLEN_END
21274 #ifdef LAPACK_FORTRAN_STRLEN_END
21275 #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__, 1)
21277 #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__)
21280 #define LAPACK_dtpttr_base LAPACK_GLOBAL(dtpttr,DTPTTR)
21281 void LAPACK_dtpttr_base(
21283 lapack_int
const* n,
21285 double* A, lapack_int
const* lda,
21287 #ifdef LAPACK_FORTRAN_STRLEN_END
21291 #ifdef LAPACK_FORTRAN_STRLEN_END
21292 #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__, 1)
21294 #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__)
21297 #define LAPACK_stpttr_base LAPACK_GLOBAL(stpttr,STPTTR)
21298 void LAPACK_stpttr_base(
21300 lapack_int
const* n,
21302 float* A, lapack_int
const* lda,
21304 #ifdef LAPACK_FORTRAN_STRLEN_END
21308 #ifdef LAPACK_FORTRAN_STRLEN_END
21309 #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__, 1)
21311 #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__)
21314 #define LAPACK_ztpttr_base LAPACK_GLOBAL(ztpttr,ZTPTTR)
21315 void LAPACK_ztpttr_base(
21317 lapack_int
const* n,
21318 lapack_complex_double
const* AP,
21319 lapack_complex_double* A, lapack_int
const* lda,
21321 #ifdef LAPACK_FORTRAN_STRLEN_END
21325 #ifdef LAPACK_FORTRAN_STRLEN_END
21326 #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__, 1)
21328 #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__)
21331 #define LAPACK_ctrcon_base LAPACK_GLOBAL(ctrcon,CTRCON)
21332 void LAPACK_ctrcon_base(
21333 char const* norm,
char const* uplo,
char const* diag,
21334 lapack_int
const* n,
21335 lapack_complex_float
const* A, lapack_int
const* lda,
21337 lapack_complex_float* work,
21340 #ifdef LAPACK_FORTRAN_STRLEN_END
21341 ,
size_t,
size_t,
size_t
21344 #ifdef LAPACK_FORTRAN_STRLEN_END
21345 #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__, 1, 1, 1)
21347 #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__)
21350 #define LAPACK_dtrcon_base LAPACK_GLOBAL(dtrcon,DTRCON)
21351 void LAPACK_dtrcon_base(
21352 char const* norm,
char const* uplo,
char const* diag,
21353 lapack_int
const* n,
21354 double const* A, lapack_int
const* lda,
21359 #ifdef LAPACK_FORTRAN_STRLEN_END
21360 ,
size_t,
size_t,
size_t
21363 #ifdef LAPACK_FORTRAN_STRLEN_END
21364 #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__, 1, 1, 1)
21366 #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__)
21369 #define LAPACK_strcon_base LAPACK_GLOBAL(strcon,STRCON)
21370 void LAPACK_strcon_base(
21371 char const* norm,
char const* uplo,
char const* diag,
21372 lapack_int
const* n,
21373 float const* A, lapack_int
const* lda,
21378 #ifdef LAPACK_FORTRAN_STRLEN_END
21379 ,
size_t,
size_t,
size_t
21382 #ifdef LAPACK_FORTRAN_STRLEN_END
21383 #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__, 1, 1, 1)
21385 #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__)
21388 #define LAPACK_ztrcon_base LAPACK_GLOBAL(ztrcon,ZTRCON)
21389 void LAPACK_ztrcon_base(
21390 char const* norm,
char const* uplo,
char const* diag,
21391 lapack_int
const* n,
21392 lapack_complex_double
const* A, lapack_int
const* lda,
21394 lapack_complex_double* work,
21397 #ifdef LAPACK_FORTRAN_STRLEN_END
21398 ,
size_t,
size_t,
size_t
21401 #ifdef LAPACK_FORTRAN_STRLEN_END
21402 #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__, 1, 1, 1)
21404 #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__)
21407 #define LAPACK_ctrevc_base LAPACK_GLOBAL(ctrevc,CTREVC)
21408 void LAPACK_ctrevc_base(
21409 char const* side,
char const* howmny,
21410 lapack_logical
const* select,
21411 lapack_int
const* n,
21412 lapack_complex_float* T, lapack_int
const* ldt,
21413 lapack_complex_float* VL, lapack_int
const* ldvl,
21414 lapack_complex_float* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
21415 lapack_complex_float* work,
21418 #ifdef LAPACK_FORTRAN_STRLEN_END
21422 #ifdef LAPACK_FORTRAN_STRLEN_END
21423 #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__, 1, 1)
21425 #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__)
21428 #define LAPACK_dtrevc_base LAPACK_GLOBAL(dtrevc,DTREVC)
21429 void LAPACK_dtrevc_base(
21430 char const* side,
char const* howmny,
21431 lapack_logical* select,
21432 lapack_int
const* n,
21433 double const* T, lapack_int
const* ldt,
21434 double* VL, lapack_int
const* ldvl,
21435 double* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
21438 #ifdef LAPACK_FORTRAN_STRLEN_END
21442 #ifdef LAPACK_FORTRAN_STRLEN_END
21443 #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__, 1, 1)
21445 #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__)
21448 #define LAPACK_strevc_base LAPACK_GLOBAL(strevc,STREVC)
21449 void LAPACK_strevc_base(
21450 char const* side,
char const* howmny,
21451 lapack_logical* select,
21452 lapack_int
const* n,
21453 float const* T, lapack_int
const* ldt,
21454 float* VL, lapack_int
const* ldvl,
21455 float* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
21458 #ifdef LAPACK_FORTRAN_STRLEN_END
21462 #ifdef LAPACK_FORTRAN_STRLEN_END
21463 #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__, 1, 1)
21465 #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__)
21468 #define LAPACK_ztrevc_base LAPACK_GLOBAL(ztrevc,ZTREVC)
21469 void LAPACK_ztrevc_base(
21470 char const* side,
char const* howmny,
21471 lapack_logical
const* select,
21472 lapack_int
const* n,
21473 lapack_complex_double* T, lapack_int
const* ldt,
21474 lapack_complex_double* VL, lapack_int
const* ldvl,
21475 lapack_complex_double* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
21476 lapack_complex_double* work,
21479 #ifdef LAPACK_FORTRAN_STRLEN_END
21483 #ifdef LAPACK_FORTRAN_STRLEN_END
21484 #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__, 1, 1)
21486 #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__)
21489 #define LAPACK_ctrevc3_base LAPACK_GLOBAL(ctrevc3,CTREVC3)
21490 void LAPACK_ctrevc3_base(
21491 char const* side,
char const* howmny,
21492 lapack_logical
const* select,
21493 lapack_int
const* n,
21494 lapack_complex_float* T, lapack_int
const* ldt,
21495 lapack_complex_float* VL, lapack_int
const* ldvl,
21496 lapack_complex_float* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
21497 lapack_complex_float* work, lapack_int
const* lwork,
21498 float* rwork, lapack_int
const* lrwork,
21500 #ifdef LAPACK_FORTRAN_STRLEN_END
21504 #ifdef LAPACK_FORTRAN_STRLEN_END
21505 #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__, 1, 1)
21507 #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__)
21510 #define LAPACK_dtrevc3_base LAPACK_GLOBAL(dtrevc3,DTREVC3)
21511 void LAPACK_dtrevc3_base(
21512 char const* side,
char const* howmny,
21513 lapack_logical* select,
21514 lapack_int
const* n,
21515 double const* T, lapack_int
const* ldt,
21516 double* VL, lapack_int
const* ldvl,
21517 double* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
21518 double* work, lapack_int
const* lwork,
21520 #ifdef LAPACK_FORTRAN_STRLEN_END
21524 #ifdef LAPACK_FORTRAN_STRLEN_END
21525 #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__, 1, 1)
21527 #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__)
21530 #define LAPACK_strevc3_base LAPACK_GLOBAL(strevc3,STREVC3)
21531 void LAPACK_strevc3_base(
21532 char const* side,
char const* howmny,
21533 lapack_logical* select,
21534 lapack_int
const* n,
21535 float const* T, lapack_int
const* ldt,
21536 float* VL, lapack_int
const* ldvl,
21537 float* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
21538 float* work, lapack_int
const* lwork,
21540 #ifdef LAPACK_FORTRAN_STRLEN_END
21544 #ifdef LAPACK_FORTRAN_STRLEN_END
21545 #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__, 1, 1)
21547 #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__)
21550 #define LAPACK_ztrevc3_base LAPACK_GLOBAL(ztrevc3,ZTREVC3)
21551 void LAPACK_ztrevc3_base(
21552 char const* side,
char const* howmny,
21553 lapack_logical
const* select,
21554 lapack_int
const* n,
21555 lapack_complex_double* T, lapack_int
const* ldt,
21556 lapack_complex_double* VL, lapack_int
const* ldvl,
21557 lapack_complex_double* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
21558 lapack_complex_double* work, lapack_int
const* lwork,
21559 double* rwork, lapack_int
const* lrwork,
21561 #ifdef LAPACK_FORTRAN_STRLEN_END
21565 #ifdef LAPACK_FORTRAN_STRLEN_END
21566 #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__, 1, 1)
21568 #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__)
21571 #define LAPACK_ctrexc_base LAPACK_GLOBAL(ctrexc,CTREXC)
21572 void LAPACK_ctrexc_base(
21574 lapack_int
const* n,
21575 lapack_complex_float* T, lapack_int
const* ldt,
21576 lapack_complex_float* Q, lapack_int
const* ldq, lapack_int
const* ifst, lapack_int
const* ilst,
21578 #ifdef LAPACK_FORTRAN_STRLEN_END
21582 #ifdef LAPACK_FORTRAN_STRLEN_END
21583 #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__, 1)
21585 #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__)
21588 #define LAPACK_dtrexc_base LAPACK_GLOBAL(dtrexc,DTREXC)
21589 void LAPACK_dtrexc_base(
21591 lapack_int
const* n,
21592 double* T, lapack_int
const* ldt,
21593 double* Q, lapack_int
const* ldq, lapack_int* ifst, lapack_int* ilst,
21596 #ifdef LAPACK_FORTRAN_STRLEN_END
21600 #ifdef LAPACK_FORTRAN_STRLEN_END
21601 #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__, 1)
21603 #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__)
21606 #define LAPACK_strexc_base LAPACK_GLOBAL(strexc,STREXC)
21607 void LAPACK_strexc_base(
21609 lapack_int
const* n,
21610 float* T, lapack_int
const* ldt,
21611 float* Q, lapack_int
const* ldq, lapack_int* ifst, lapack_int* ilst,
21614 #ifdef LAPACK_FORTRAN_STRLEN_END
21618 #ifdef LAPACK_FORTRAN_STRLEN_END
21619 #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__, 1)
21621 #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__)
21624 #define LAPACK_ztrexc_base LAPACK_GLOBAL(ztrexc,ZTREXC)
21625 void LAPACK_ztrexc_base(
21627 lapack_int
const* n,
21628 lapack_complex_double* T, lapack_int
const* ldt,
21629 lapack_complex_double* Q, lapack_int
const* ldq, lapack_int
const* ifst, lapack_int
const* ilst,
21631 #ifdef LAPACK_FORTRAN_STRLEN_END
21635 #ifdef LAPACK_FORTRAN_STRLEN_END
21636 #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__, 1)
21638 #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__)
21641 #define LAPACK_ctrrfs_base LAPACK_GLOBAL(ctrrfs,CTRRFS)
21642 void LAPACK_ctrrfs_base(
21643 char const* uplo,
char const* trans,
char const* diag,
21644 lapack_int
const* n, lapack_int
const* nrhs,
21645 lapack_complex_float
const* A, lapack_int
const* lda,
21646 lapack_complex_float
const* B, lapack_int
const* ldb,
21647 lapack_complex_float
const* X, lapack_int
const* ldx,
21650 lapack_complex_float* work,
21653 #ifdef LAPACK_FORTRAN_STRLEN_END
21654 ,
size_t,
size_t,
size_t
21657 #ifdef LAPACK_FORTRAN_STRLEN_END
21658 #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__, 1, 1, 1)
21660 #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__)
21663 #define LAPACK_dtrrfs_base LAPACK_GLOBAL(dtrrfs,DTRRFS)
21664 void LAPACK_dtrrfs_base(
21665 char const* uplo,
char const* trans,
char const* diag,
21666 lapack_int
const* n, lapack_int
const* nrhs,
21667 double const* A, lapack_int
const* lda,
21668 double const* B, lapack_int
const* ldb,
21669 double const* X, lapack_int
const* ldx,
21675 #ifdef LAPACK_FORTRAN_STRLEN_END
21676 ,
size_t,
size_t,
size_t
21679 #ifdef LAPACK_FORTRAN_STRLEN_END
21680 #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__, 1, 1, 1)
21682 #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__)
21685 #define LAPACK_strrfs_base LAPACK_GLOBAL(strrfs,STRRFS)
21686 void LAPACK_strrfs_base(
21687 char const* uplo,
char const* trans,
char const* diag,
21688 lapack_int
const* n, lapack_int
const* nrhs,
21689 float const* A, lapack_int
const* lda,
21690 float const* B, lapack_int
const* ldb,
21691 float const* X, lapack_int
const* ldx,
21697 #ifdef LAPACK_FORTRAN_STRLEN_END
21698 ,
size_t,
size_t,
size_t
21701 #ifdef LAPACK_FORTRAN_STRLEN_END
21702 #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__, 1, 1, 1)
21704 #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__)
21707 #define LAPACK_ztrrfs_base LAPACK_GLOBAL(ztrrfs,ZTRRFS)
21708 void LAPACK_ztrrfs_base(
21709 char const* uplo,
char const* trans,
char const* diag,
21710 lapack_int
const* n, lapack_int
const* nrhs,
21711 lapack_complex_double
const* A, lapack_int
const* lda,
21712 lapack_complex_double
const* B, lapack_int
const* ldb,
21713 lapack_complex_double
const* X, lapack_int
const* ldx,
21716 lapack_complex_double* work,
21719 #ifdef LAPACK_FORTRAN_STRLEN_END
21720 ,
size_t,
size_t,
size_t
21723 #ifdef LAPACK_FORTRAN_STRLEN_END
21724 #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__, 1, 1, 1)
21726 #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__)
21729 #define LAPACK_ctrsen_base LAPACK_GLOBAL(ctrsen,CTRSEN)
21730 void LAPACK_ctrsen_base(
21731 char const* job,
char const* compq,
21732 lapack_logical
const* select,
21733 lapack_int
const* n,
21734 lapack_complex_float* T, lapack_int
const* ldt,
21735 lapack_complex_float* Q, lapack_int
const* ldq,
21736 lapack_complex_float* W, lapack_int* m,
21739 lapack_complex_float* work, lapack_int
const* lwork,
21741 #ifdef LAPACK_FORTRAN_STRLEN_END
21745 #ifdef LAPACK_FORTRAN_STRLEN_END
21746 #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__, 1, 1)
21748 #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__)
21751 #define LAPACK_dtrsen_base LAPACK_GLOBAL(dtrsen,DTRSEN)
21752 void LAPACK_dtrsen_base(
21753 char const* job,
char const* compq,
21754 lapack_logical
const* select,
21755 lapack_int
const* n,
21756 double* T, lapack_int
const* ldt,
21757 double* Q, lapack_int
const* ldq,
21759 double* WI, lapack_int* m,
21762 double* work, lapack_int
const* lwork,
21763 lapack_int* iwork, lapack_int
const* liwork,
21765 #ifdef LAPACK_FORTRAN_STRLEN_END
21769 #ifdef LAPACK_FORTRAN_STRLEN_END
21770 #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__, 1, 1)
21772 #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__)
21775 #define LAPACK_strsen_base LAPACK_GLOBAL(strsen,STRSEN)
21776 void LAPACK_strsen_base(
21777 char const* job,
char const* compq,
21778 lapack_logical
const* select,
21779 lapack_int
const* n,
21780 float* T, lapack_int
const* ldt,
21781 float* Q, lapack_int
const* ldq,
21783 float* WI, lapack_int* m,
21786 float* work, lapack_int
const* lwork,
21787 lapack_int* iwork, lapack_int
const* liwork,
21789 #ifdef LAPACK_FORTRAN_STRLEN_END
21793 #ifdef LAPACK_FORTRAN_STRLEN_END
21794 #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__, 1, 1)
21796 #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__)
21799 #define LAPACK_ztrsen_base LAPACK_GLOBAL(ztrsen,ZTRSEN)
21800 void LAPACK_ztrsen_base(
21801 char const* job,
char const* compq,
21802 lapack_logical
const* select,
21803 lapack_int
const* n,
21804 lapack_complex_double* T, lapack_int
const* ldt,
21805 lapack_complex_double* Q, lapack_int
const* ldq,
21806 lapack_complex_double* W, lapack_int* m,
21809 lapack_complex_double* work, lapack_int
const* lwork,
21811 #ifdef LAPACK_FORTRAN_STRLEN_END
21815 #ifdef LAPACK_FORTRAN_STRLEN_END
21816 #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__, 1, 1)
21818 #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__)
21821 #define LAPACK_ctrsna_base LAPACK_GLOBAL(ctrsna,CTRSNA)
21822 void LAPACK_ctrsna_base(
21823 char const* job,
char const* howmny,
21824 lapack_logical
const* select,
21825 lapack_int
const* n,
21826 lapack_complex_float
const* T, lapack_int
const* ldt,
21827 lapack_complex_float
const* VL, lapack_int
const* ldvl,
21828 lapack_complex_float
const* VR, lapack_int
const* ldvr,
21830 float* SEP, lapack_int
const* mm, lapack_int* m,
21831 lapack_complex_float* work, lapack_int
const* ldwork,
21834 #ifdef LAPACK_FORTRAN_STRLEN_END
21838 #ifdef LAPACK_FORTRAN_STRLEN_END
21839 #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__, 1, 1)
21841 #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__)
21844 #define LAPACK_dtrsna_base LAPACK_GLOBAL(dtrsna,DTRSNA)
21845 void LAPACK_dtrsna_base(
21846 char const* job,
char const* howmny,
21847 lapack_logical
const* select,
21848 lapack_int
const* n,
21849 double const* T, lapack_int
const* ldt,
21850 double const* VL, lapack_int
const* ldvl,
21851 double const* VR, lapack_int
const* ldvr,
21853 double* SEP, lapack_int
const* mm, lapack_int* m,
21854 double* work, lapack_int
const* ldwork,
21857 #ifdef LAPACK_FORTRAN_STRLEN_END
21861 #ifdef LAPACK_FORTRAN_STRLEN_END
21862 #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__, 1, 1)
21864 #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__)
21867 #define LAPACK_strsna_base LAPACK_GLOBAL(strsna,STRSNA)
21868 void LAPACK_strsna_base(
21869 char const* job,
char const* howmny,
21870 lapack_logical
const* select,
21871 lapack_int
const* n,
21872 float const* T, lapack_int
const* ldt,
21873 float const* VL, lapack_int
const* ldvl,
21874 float const* VR, lapack_int
const* ldvr,
21876 float* SEP, lapack_int
const* mm, lapack_int* m,
21877 float* work, lapack_int
const* ldwork,
21880 #ifdef LAPACK_FORTRAN_STRLEN_END
21884 #ifdef LAPACK_FORTRAN_STRLEN_END
21885 #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__, 1, 1)
21887 #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__)
21890 #define LAPACK_ztrsna_base LAPACK_GLOBAL(ztrsna,ZTRSNA)
21891 void LAPACK_ztrsna_base(
21892 char const* job,
char const* howmny,
21893 lapack_logical
const* select,
21894 lapack_int
const* n,
21895 lapack_complex_double
const* T, lapack_int
const* ldt,
21896 lapack_complex_double
const* VL, lapack_int
const* ldvl,
21897 lapack_complex_double
const* VR, lapack_int
const* ldvr,
21899 double* SEP, lapack_int
const* mm, lapack_int* m,
21900 lapack_complex_double* work, lapack_int
const* ldwork,
21903 #ifdef LAPACK_FORTRAN_STRLEN_END
21907 #ifdef LAPACK_FORTRAN_STRLEN_END
21908 #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__, 1, 1)
21910 #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__)
21913 #define LAPACK_ctrsyl_base LAPACK_GLOBAL(ctrsyl,CTRSYL)
21914 void LAPACK_ctrsyl_base(
21915 char const* trana,
char const* tranb,
21916 lapack_int
const* isgn, lapack_int
const* m, lapack_int
const* n,
21917 lapack_complex_float
const* A, lapack_int
const* lda,
21918 lapack_complex_float
const* B, lapack_int
const* ldb,
21919 lapack_complex_float* C, lapack_int
const* ldc,
21922 #ifdef LAPACK_FORTRAN_STRLEN_END
21926 #ifdef LAPACK_FORTRAN_STRLEN_END
21927 #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__, 1, 1)
21929 #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__)
21932 #define LAPACK_dtrsyl_base LAPACK_GLOBAL(dtrsyl,DTRSYL)
21933 void LAPACK_dtrsyl_base(
21934 char const* trana,
char const* tranb,
21935 lapack_int
const* isgn, lapack_int
const* m, lapack_int
const* n,
21936 double const* A, lapack_int
const* lda,
21937 double const* B, lapack_int
const* ldb,
21938 double* C, lapack_int
const* ldc,
21941 #ifdef LAPACK_FORTRAN_STRLEN_END
21945 #ifdef LAPACK_FORTRAN_STRLEN_END
21946 #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__, 1, 1)
21948 #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__)
21951 #define LAPACK_strsyl_base LAPACK_GLOBAL(strsyl,STRSYL)
21952 void LAPACK_strsyl_base(
21953 char const* trana,
char const* tranb,
21954 lapack_int
const* isgn, lapack_int
const* m, lapack_int
const* n,
21955 float const* A, lapack_int
const* lda,
21956 float const* B, lapack_int
const* ldb,
21957 float* C, lapack_int
const* ldc,
21960 #ifdef LAPACK_FORTRAN_STRLEN_END
21964 #ifdef LAPACK_FORTRAN_STRLEN_END
21965 #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__, 1, 1)
21967 #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__)
21970 #define LAPACK_ztrsyl_base LAPACK_GLOBAL(ztrsyl,ZTRSYL)
21971 void LAPACK_ztrsyl_base(
21972 char const* trana,
char const* tranb,
21973 lapack_int
const* isgn, lapack_int
const* m, lapack_int
const* n,
21974 lapack_complex_double
const* A, lapack_int
const* lda,
21975 lapack_complex_double
const* B, lapack_int
const* ldb,
21976 lapack_complex_double* C, lapack_int
const* ldc,
21979 #ifdef LAPACK_FORTRAN_STRLEN_END
21983 #ifdef LAPACK_FORTRAN_STRLEN_END
21984 #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__, 1, 1)
21986 #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__)
21989 #define LAPACK_ctrtri_base LAPACK_GLOBAL(ctrtri,CTRTRI)
21990 void LAPACK_ctrtri_base(
21991 char const* uplo,
char const* diag,
21992 lapack_int
const* n,
21993 lapack_complex_float* A, lapack_int
const* lda,
21995 #ifdef LAPACK_FORTRAN_STRLEN_END
21999 #ifdef LAPACK_FORTRAN_STRLEN_END
22000 #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__, 1, 1)
22002 #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__)
22005 #define LAPACK_dtrtri_base LAPACK_GLOBAL(dtrtri,DTRTRI)
22006 void LAPACK_dtrtri_base(
22007 char const* uplo,
char const* diag,
22008 lapack_int
const* n,
22009 double* A, lapack_int
const* lda,
22011 #ifdef LAPACK_FORTRAN_STRLEN_END
22015 #ifdef LAPACK_FORTRAN_STRLEN_END
22016 #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__, 1, 1)
22018 #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__)
22021 #define LAPACK_strtri_base LAPACK_GLOBAL(strtri,STRTRI)
22022 void LAPACK_strtri_base(
22023 char const* uplo,
char const* diag,
22024 lapack_int
const* n,
22025 float* A, lapack_int
const* lda,
22027 #ifdef LAPACK_FORTRAN_STRLEN_END
22031 #ifdef LAPACK_FORTRAN_STRLEN_END
22032 #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__, 1, 1)
22034 #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__)
22037 #define LAPACK_ztrtri_base LAPACK_GLOBAL(ztrtri,ZTRTRI)
22038 void LAPACK_ztrtri_base(
22039 char const* uplo,
char const* diag,
22040 lapack_int
const* n,
22041 lapack_complex_double* A, lapack_int
const* lda,
22043 #ifdef LAPACK_FORTRAN_STRLEN_END
22047 #ifdef LAPACK_FORTRAN_STRLEN_END
22048 #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__, 1, 1)
22050 #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__)
22053 #define LAPACK_ctrtrs_base LAPACK_GLOBAL(ctrtrs,CTRTRS)
22054 void LAPACK_ctrtrs_base(
22055 char const* uplo,
char const* trans,
char const* diag,
22056 lapack_int
const* n, lapack_int
const* nrhs,
22057 lapack_complex_float
const* A, lapack_int
const* lda,
22058 lapack_complex_float* B, lapack_int
const* ldb,
22060 #ifdef LAPACK_FORTRAN_STRLEN_END
22061 ,
size_t,
size_t,
size_t
22064 #ifdef LAPACK_FORTRAN_STRLEN_END
22065 #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__, 1, 1, 1)
22067 #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__)
22070 #define LAPACK_dtrtrs_base LAPACK_GLOBAL(dtrtrs,DTRTRS)
22071 void LAPACK_dtrtrs_base(
22072 char const* uplo,
char const* trans,
char const* diag,
22073 lapack_int
const* n, lapack_int
const* nrhs,
22074 double const* A, lapack_int
const* lda,
22075 double* B, lapack_int
const* ldb,
22077 #ifdef LAPACK_FORTRAN_STRLEN_END
22078 ,
size_t,
size_t,
size_t
22081 #ifdef LAPACK_FORTRAN_STRLEN_END
22082 #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__, 1, 1, 1)
22084 #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__)
22087 #define LAPACK_strtrs_base LAPACK_GLOBAL(strtrs,STRTRS)
22088 void LAPACK_strtrs_base(
22089 char const* uplo,
char const* trans,
char const* diag,
22090 lapack_int
const* n, lapack_int
const* nrhs,
22091 float const* A, lapack_int
const* lda,
22092 float* B, lapack_int
const* ldb,
22094 #ifdef LAPACK_FORTRAN_STRLEN_END
22095 ,
size_t,
size_t,
size_t
22098 #ifdef LAPACK_FORTRAN_STRLEN_END
22099 #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__, 1, 1, 1)
22101 #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__)
22104 #define LAPACK_ztrtrs_base LAPACK_GLOBAL(ztrtrs,ZTRTRS)
22105 void LAPACK_ztrtrs_base(
22106 char const* uplo,
char const* trans,
char const* diag,
22107 lapack_int
const* n, lapack_int
const* nrhs,
22108 lapack_complex_double
const* A, lapack_int
const* lda,
22109 lapack_complex_double* B, lapack_int
const* ldb,
22111 #ifdef LAPACK_FORTRAN_STRLEN_END
22112 ,
size_t,
size_t,
size_t
22115 #ifdef LAPACK_FORTRAN_STRLEN_END
22116 #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__, 1, 1, 1)
22118 #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__)
22121 #define LAPACK_ctrttf_base LAPACK_GLOBAL(ctrttf,CTRTTF)
22122 void LAPACK_ctrttf_base(
22123 char const* transr,
char const* uplo,
22124 lapack_int
const* n,
22125 lapack_complex_float
const* A, lapack_int
const* lda,
22126 lapack_complex_float* ARF,
22128 #ifdef LAPACK_FORTRAN_STRLEN_END
22132 #ifdef LAPACK_FORTRAN_STRLEN_END
22133 #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__, 1, 1)
22135 #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__)
22138 #define LAPACK_dtrttf_base LAPACK_GLOBAL(dtrttf,DTRTTF)
22139 void LAPACK_dtrttf_base(
22140 char const* transr,
char const* uplo,
22141 lapack_int
const* n,
22142 double const* A, lapack_int
const* lda,
22145 #ifdef LAPACK_FORTRAN_STRLEN_END
22149 #ifdef LAPACK_FORTRAN_STRLEN_END
22150 #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__, 1, 1)
22152 #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__)
22155 #define LAPACK_strttf_base LAPACK_GLOBAL(strttf,STRTTF)
22156 void LAPACK_strttf_base(
22157 char const* transr,
char const* uplo,
22158 lapack_int
const* n,
22159 float const* A, lapack_int
const* lda,
22162 #ifdef LAPACK_FORTRAN_STRLEN_END
22166 #ifdef LAPACK_FORTRAN_STRLEN_END
22167 #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__, 1, 1)
22169 #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__)
22172 #define LAPACK_ztrttf_base LAPACK_GLOBAL(ztrttf,ZTRTTF)
22173 void LAPACK_ztrttf_base(
22174 char const* transr,
char const* uplo,
22175 lapack_int
const* n,
22176 lapack_complex_double
const* A, lapack_int
const* lda,
22177 lapack_complex_double* ARF,
22179 #ifdef LAPACK_FORTRAN_STRLEN_END
22183 #ifdef LAPACK_FORTRAN_STRLEN_END
22184 #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__, 1, 1)
22186 #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__)
22189 #define LAPACK_ctrttp_base LAPACK_GLOBAL(ctrttp,CTRTTP)
22190 void LAPACK_ctrttp_base(
22192 lapack_int
const* n,
22193 lapack_complex_float
const* A, lapack_int
const* lda,
22194 lapack_complex_float* AP,
22196 #ifdef LAPACK_FORTRAN_STRLEN_END
22200 #ifdef LAPACK_FORTRAN_STRLEN_END
22201 #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__, 1)
22203 #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__)
22206 #define LAPACK_dtrttp_base LAPACK_GLOBAL(dtrttp,DTRTTP)
22207 void LAPACK_dtrttp_base(
22209 lapack_int
const* n,
22210 double const* A, lapack_int
const* lda,
22213 #ifdef LAPACK_FORTRAN_STRLEN_END
22217 #ifdef LAPACK_FORTRAN_STRLEN_END
22218 #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__, 1)
22220 #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__)
22223 #define LAPACK_strttp_base LAPACK_GLOBAL(strttp,STRTTP)
22224 void LAPACK_strttp_base(
22226 lapack_int
const* n,
22227 float const* A, lapack_int
const* lda,
22230 #ifdef LAPACK_FORTRAN_STRLEN_END
22234 #ifdef LAPACK_FORTRAN_STRLEN_END
22235 #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__, 1)
22237 #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__)
22240 #define LAPACK_ztrttp_base LAPACK_GLOBAL(ztrttp,ZTRTTP)
22241 void LAPACK_ztrttp_base(
22243 lapack_int
const* n,
22244 lapack_complex_double
const* A, lapack_int
const* lda,
22245 lapack_complex_double* AP,
22247 #ifdef LAPACK_FORTRAN_STRLEN_END
22251 #ifdef LAPACK_FORTRAN_STRLEN_END
22252 #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__, 1)
22254 #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__)
22257 #define LAPACK_ctzrzf LAPACK_GLOBAL(ctzrzf,CTZRZF)
22258 void LAPACK_ctzrzf(
22259 lapack_int
const* m, lapack_int
const* n,
22260 lapack_complex_float* A, lapack_int
const* lda,
22261 lapack_complex_float* tau,
22262 lapack_complex_float* work, lapack_int
const* lwork,
22263 lapack_int* info );
22265 #define LAPACK_dtzrzf LAPACK_GLOBAL(dtzrzf,DTZRZF)
22266 void LAPACK_dtzrzf(
22267 lapack_int
const* m, lapack_int
const* n,
22268 double* A, lapack_int
const* lda,
22270 double* work, lapack_int
const* lwork,
22271 lapack_int* info );
22273 #define LAPACK_stzrzf LAPACK_GLOBAL(stzrzf,STZRZF)
22274 void LAPACK_stzrzf(
22275 lapack_int
const* m, lapack_int
const* n,
22276 float* A, lapack_int
const* lda,
22278 float* work, lapack_int
const* lwork,
22279 lapack_int* info );
22281 #define LAPACK_ztzrzf LAPACK_GLOBAL(ztzrzf,ZTZRZF)
22282 void LAPACK_ztzrzf(
22283 lapack_int
const* m, lapack_int
const* n,
22284 lapack_complex_double* A, lapack_int
const* lda,
22285 lapack_complex_double* tau,
22286 lapack_complex_double* work, lapack_int
const* lwork,
22287 lapack_int* info );
22289 #define LAPACK_cunbdb_base LAPACK_GLOBAL(cunbdb,CUNBDB)
22290 void LAPACK_cunbdb_base(
22291 char const* trans,
char const* signs,
22292 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
22293 lapack_complex_float* X11, lapack_int
const* ldx11,
22294 lapack_complex_float* X12, lapack_int
const* ldx12,
22295 lapack_complex_float* X21, lapack_int
const* ldx21,
22296 lapack_complex_float* X22, lapack_int
const* ldx22,
22299 lapack_complex_float* TAUP1,
22300 lapack_complex_float* TAUP2,
22301 lapack_complex_float* TAUQ1,
22302 lapack_complex_float* TAUQ2,
22303 lapack_complex_float* work, lapack_int
const* lwork,
22305 #ifdef LAPACK_FORTRAN_STRLEN_END
22309 #ifdef LAPACK_FORTRAN_STRLEN_END
22310 #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__, 1, 1)
22312 #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__)
22315 #define LAPACK_zunbdb_base LAPACK_GLOBAL(zunbdb,ZUNBDB)
22316 void LAPACK_zunbdb_base(
22317 char const* trans,
char const* signs,
22318 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
22319 lapack_complex_double* X11, lapack_int
const* ldx11,
22320 lapack_complex_double* X12, lapack_int
const* ldx12,
22321 lapack_complex_double* X21, lapack_int
const* ldx21,
22322 lapack_complex_double* X22, lapack_int
const* ldx22,
22325 lapack_complex_double* TAUP1,
22326 lapack_complex_double* TAUP2,
22327 lapack_complex_double* TAUQ1,
22328 lapack_complex_double* TAUQ2,
22329 lapack_complex_double* work, lapack_int
const* lwork,
22331 #ifdef LAPACK_FORTRAN_STRLEN_END
22335 #ifdef LAPACK_FORTRAN_STRLEN_END
22336 #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__, 1, 1)
22338 #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__)
22341 #define LAPACK_cuncsd_base LAPACK_GLOBAL(cuncsd,CUNCSD)
22342 void LAPACK_cuncsd_base(
22343 char const* jobu1,
char const* jobu2,
char const* jobv1t,
char const* jobv2t,
char const* trans,
char const* signs,
22344 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
22345 lapack_complex_float* X11, lapack_int
const* ldx11,
22346 lapack_complex_float* X12, lapack_int
const* ldx12,
22347 lapack_complex_float* X21, lapack_int
const* ldx21,
22348 lapack_complex_float* X22, lapack_int
const* ldx22,
22350 lapack_complex_float* U1, lapack_int
const* ldu1,
22351 lapack_complex_float* U2, lapack_int
const* ldu2,
22352 lapack_complex_float* V1T, lapack_int
const* ldv1t,
22353 lapack_complex_float* V2T, lapack_int
const* ldv2t,
22354 lapack_complex_float* work, lapack_int
const* lwork,
22355 float* rwork, lapack_int
const* lrwork,
22358 #ifdef LAPACK_FORTRAN_STRLEN_END
22359 ,
size_t,
size_t,
size_t,
size_t,
size_t,
size_t
22362 #ifdef LAPACK_FORTRAN_STRLEN_END
22363 #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
22365 #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__)
22368 #define LAPACK_zuncsd_base LAPACK_GLOBAL(zuncsd,ZUNCSD)
22369 void LAPACK_zuncsd_base(
22370 char const* jobu1,
char const* jobu2,
char const* jobv1t,
char const* jobv2t,
char const* trans,
char const* signs,
22371 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
22372 lapack_complex_double* X11, lapack_int
const* ldx11,
22373 lapack_complex_double* X12, lapack_int
const* ldx12,
22374 lapack_complex_double* X21, lapack_int
const* ldx21,
22375 lapack_complex_double* X22, lapack_int
const* ldx22,
22377 lapack_complex_double* U1, lapack_int
const* ldu1,
22378 lapack_complex_double* U2, lapack_int
const* ldu2,
22379 lapack_complex_double* V1T, lapack_int
const* ldv1t,
22380 lapack_complex_double* V2T, lapack_int
const* ldv2t,
22381 lapack_complex_double* work, lapack_int
const* lwork,
22382 double* rwork, lapack_int
const* lrwork,
22385 #ifdef LAPACK_FORTRAN_STRLEN_END
22386 ,
size_t,
size_t,
size_t,
size_t,
size_t,
size_t
22389 #ifdef LAPACK_FORTRAN_STRLEN_END
22390 #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
22392 #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__)
22395 #define LAPACK_cuncsd2by1_base LAPACK_GLOBAL(cuncsd2by1,CUNCSD2BY1)
22396 void LAPACK_cuncsd2by1_base(
22397 char const* jobu1,
char const* jobu2,
char const* jobv1t,
22398 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
22399 lapack_complex_float* X11, lapack_int
const* ldx11,
22400 lapack_complex_float* X21, lapack_int
const* ldx21,
22402 lapack_complex_float* U1, lapack_int
const* ldu1,
22403 lapack_complex_float* U2, lapack_int
const* ldu2,
22404 lapack_complex_float* V1T, lapack_int
const* ldv1t,
22405 lapack_complex_float* work, lapack_int
const* lwork,
22406 float* rwork, lapack_int
const* lrwork,
22409 #ifdef LAPACK_FORTRAN_STRLEN_END
22410 ,
size_t,
size_t,
size_t
22413 #ifdef LAPACK_FORTRAN_STRLEN_END
22414 #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__, 1, 1, 1)
22416 #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__)
22419 #define LAPACK_zuncsd2by1_base LAPACK_GLOBAL(zuncsd2by1,ZUNCSD2BY1)
22420 void LAPACK_zuncsd2by1_base(
22421 char const* jobu1,
char const* jobu2,
char const* jobv1t,
22422 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
22423 lapack_complex_double* X11, lapack_int
const* ldx11,
22424 lapack_complex_double* X21, lapack_int
const* ldx21,
22426 lapack_complex_double* U1, lapack_int
const* ldu1,
22427 lapack_complex_double* U2, lapack_int
const* ldu2,
22428 lapack_complex_double* V1T, lapack_int
const* ldv1t,
22429 lapack_complex_double* work, lapack_int
const* lwork,
22430 double* rwork, lapack_int
const* lrwork,
22433 #ifdef LAPACK_FORTRAN_STRLEN_END
22434 ,
size_t,
size_t,
size_t
22437 #ifdef LAPACK_FORTRAN_STRLEN_END
22438 #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__, 1, 1, 1)
22440 #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__)
22443 #define LAPACK_cungbr_base LAPACK_GLOBAL(cungbr,CUNGBR)
22444 void LAPACK_cungbr_base(
22446 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22447 lapack_complex_float* A, lapack_int
const* lda,
22448 lapack_complex_float
const* tau,
22449 lapack_complex_float* work, lapack_int
const* lwork,
22451 #ifdef LAPACK_FORTRAN_STRLEN_END
22455 #ifdef LAPACK_FORTRAN_STRLEN_END
22456 #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__, 1)
22458 #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__)
22461 #define LAPACK_zungbr_base LAPACK_GLOBAL(zungbr,ZUNGBR)
22462 void LAPACK_zungbr_base(
22464 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22465 lapack_complex_double* A, lapack_int
const* lda,
22466 lapack_complex_double
const* tau,
22467 lapack_complex_double* work, lapack_int
const* lwork,
22469 #ifdef LAPACK_FORTRAN_STRLEN_END
22473 #ifdef LAPACK_FORTRAN_STRLEN_END
22474 #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__, 1)
22476 #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__)
22479 #define LAPACK_cunghr LAPACK_GLOBAL(cunghr,CUNGHR)
22480 void LAPACK_cunghr(
22481 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
22482 lapack_complex_float* A, lapack_int
const* lda,
22483 lapack_complex_float
const* tau,
22484 lapack_complex_float* work, lapack_int
const* lwork,
22485 lapack_int* info );
22487 #define LAPACK_zunghr LAPACK_GLOBAL(zunghr,ZUNGHR)
22488 void LAPACK_zunghr(
22489 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
22490 lapack_complex_double* A, lapack_int
const* lda,
22491 lapack_complex_double
const* tau,
22492 lapack_complex_double* work, lapack_int
const* lwork,
22493 lapack_int* info );
22495 #define LAPACK_cunglq LAPACK_GLOBAL(cunglq,CUNGLQ)
22496 void LAPACK_cunglq(
22497 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22498 lapack_complex_float* A, lapack_int
const* lda,
22499 lapack_complex_float
const* tau,
22500 lapack_complex_float* work, lapack_int
const* lwork,
22501 lapack_int* info );
22503 #define LAPACK_zunglq LAPACK_GLOBAL(zunglq,ZUNGLQ)
22504 void LAPACK_zunglq(
22505 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22506 lapack_complex_double* A, lapack_int
const* lda,
22507 lapack_complex_double
const* tau,
22508 lapack_complex_double* work, lapack_int
const* lwork,
22509 lapack_int* info );
22511 #define LAPACK_cungql LAPACK_GLOBAL(cungql,CUNGQL)
22512 void LAPACK_cungql(
22513 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22514 lapack_complex_float* A, lapack_int
const* lda,
22515 lapack_complex_float
const* tau,
22516 lapack_complex_float* work, lapack_int
const* lwork,
22517 lapack_int* info );
22519 #define LAPACK_zungql LAPACK_GLOBAL(zungql,ZUNGQL)
22520 void LAPACK_zungql(
22521 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22522 lapack_complex_double* A, lapack_int
const* lda,
22523 lapack_complex_double
const* tau,
22524 lapack_complex_double* work, lapack_int
const* lwork,
22525 lapack_int* info );
22527 #define LAPACK_cungqr LAPACK_GLOBAL(cungqr,CUNGQR)
22528 void LAPACK_cungqr(
22529 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22530 lapack_complex_float* A, lapack_int
const* lda,
22531 lapack_complex_float
const* tau,
22532 lapack_complex_float* work, lapack_int
const* lwork,
22533 lapack_int* info );
22535 #define LAPACK_zungqr LAPACK_GLOBAL(zungqr,ZUNGQR)
22536 void LAPACK_zungqr(
22537 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22538 lapack_complex_double* A, lapack_int
const* lda,
22539 lapack_complex_double
const* tau,
22540 lapack_complex_double* work, lapack_int
const* lwork,
22541 lapack_int* info );
22543 #define LAPACK_cungrq LAPACK_GLOBAL(cungrq,CUNGRQ)
22544 void LAPACK_cungrq(
22545 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22546 lapack_complex_float* A, lapack_int
const* lda,
22547 lapack_complex_float
const* tau,
22548 lapack_complex_float* work, lapack_int
const* lwork,
22549 lapack_int* info );
22551 #define LAPACK_zungrq LAPACK_GLOBAL(zungrq,ZUNGRQ)
22552 void LAPACK_zungrq(
22553 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22554 lapack_complex_double* A, lapack_int
const* lda,
22555 lapack_complex_double
const* tau,
22556 lapack_complex_double* work, lapack_int
const* lwork,
22557 lapack_int* info );
22559 #define LAPACK_cungtr_base LAPACK_GLOBAL(cungtr,CUNGTR)
22560 void LAPACK_cungtr_base(
22562 lapack_int
const* n,
22563 lapack_complex_float* A, lapack_int
const* lda,
22564 lapack_complex_float
const* tau,
22565 lapack_complex_float* work, lapack_int
const* lwork,
22567 #ifdef LAPACK_FORTRAN_STRLEN_END
22571 #ifdef LAPACK_FORTRAN_STRLEN_END
22572 #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__, 1)
22574 #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__)
22577 #define LAPACK_zungtr_base LAPACK_GLOBAL(zungtr,ZUNGTR)
22578 void LAPACK_zungtr_base(
22580 lapack_int
const* n,
22581 lapack_complex_double* A, lapack_int
const* lda,
22582 lapack_complex_double
const* tau,
22583 lapack_complex_double* work, lapack_int
const* lwork,
22585 #ifdef LAPACK_FORTRAN_STRLEN_END
22589 #ifdef LAPACK_FORTRAN_STRLEN_END
22590 #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__, 1)
22592 #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__)
22595 #define LAPACK_cungtsqr_row LAPACK_GLOBAL(cungtsqr_row,CUNGTSQR_ROW)
22596 void LAPACK_cungtsqr_row(
22597 lapack_int
const* m, lapack_int
const* n,
22598 lapack_int
const* mb, lapack_int
const* nb,
22599 lapack_complex_float* A, lapack_int
const* lda,
22600 lapack_complex_float
const* T, lapack_int
const* ldt,
22601 lapack_complex_float* work, lapack_int
const* lwork,
22602 lapack_int* info );
22604 #define LAPACK_zungtsqr_row LAPACK_GLOBAL(zungtsqr_row,ZUNGTSQR_ROW)
22605 void LAPACK_zungtsqr_row(
22606 lapack_int
const* m, lapack_int
const* n,
22607 lapack_int
const* mb, lapack_int
const* nb,
22608 lapack_complex_double* A, lapack_int
const* lda,
22609 lapack_complex_double
const* T, lapack_int
const* ldt,
22610 lapack_complex_double* work, lapack_int
const* lwork,
22611 lapack_int* info );
22613 #define LAPACK_cunmbr_base LAPACK_GLOBAL(cunmbr,CUNMBR)
22614 void LAPACK_cunmbr_base(
22615 char const* vect,
char const* side,
char const* trans,
22616 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22617 lapack_complex_float
const* A, lapack_int
const* lda,
22618 lapack_complex_float
const* tau,
22619 lapack_complex_float* C, lapack_int
const* ldc,
22620 lapack_complex_float* work, lapack_int
const* lwork,
22622 #ifdef LAPACK_FORTRAN_STRLEN_END
22623 ,
size_t,
size_t,
size_t
22626 #ifdef LAPACK_FORTRAN_STRLEN_END
22627 #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__, 1, 1, 1)
22629 #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__)
22632 #define LAPACK_zunmbr_base LAPACK_GLOBAL(zunmbr,ZUNMBR)
22633 void LAPACK_zunmbr_base(
22634 char const* vect,
char const* side,
char const* trans,
22635 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22636 lapack_complex_double
const* A, lapack_int
const* lda,
22637 lapack_complex_double
const* tau,
22638 lapack_complex_double* C, lapack_int
const* ldc,
22639 lapack_complex_double* work, lapack_int
const* lwork,
22641 #ifdef LAPACK_FORTRAN_STRLEN_END
22642 ,
size_t,
size_t,
size_t
22645 #ifdef LAPACK_FORTRAN_STRLEN_END
22646 #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__, 1, 1, 1)
22648 #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__)
22651 #define LAPACK_cunmhr_base LAPACK_GLOBAL(cunmhr,CUNMHR)
22652 void LAPACK_cunmhr_base(
22653 char const* side,
char const* trans,
22654 lapack_int
const* m, lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
22655 lapack_complex_float
const* A, lapack_int
const* lda,
22656 lapack_complex_float
const* tau,
22657 lapack_complex_float* C, lapack_int
const* ldc,
22658 lapack_complex_float* work, lapack_int
const* lwork,
22660 #ifdef LAPACK_FORTRAN_STRLEN_END
22664 #ifdef LAPACK_FORTRAN_STRLEN_END
22665 #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__, 1, 1)
22667 #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__)
22670 #define LAPACK_zunmhr_base LAPACK_GLOBAL(zunmhr,ZUNMHR)
22671 void LAPACK_zunmhr_base(
22672 char const* side,
char const* trans,
22673 lapack_int
const* m, lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
22674 lapack_complex_double
const* A, lapack_int
const* lda,
22675 lapack_complex_double
const* tau,
22676 lapack_complex_double* C, lapack_int
const* ldc,
22677 lapack_complex_double* work, lapack_int
const* lwork,
22679 #ifdef LAPACK_FORTRAN_STRLEN_END
22683 #ifdef LAPACK_FORTRAN_STRLEN_END
22684 #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__, 1, 1)
22686 #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__)
22689 #define LAPACK_cunmlq_base LAPACK_GLOBAL(cunmlq,CUNMLQ)
22690 void LAPACK_cunmlq_base(
22691 char const* side,
char const* trans,
22692 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22693 lapack_complex_float
const* A, lapack_int
const* lda,
22694 lapack_complex_float
const* tau,
22695 lapack_complex_float* C, lapack_int
const* ldc,
22696 lapack_complex_float* work, lapack_int
const* lwork,
22698 #ifdef LAPACK_FORTRAN_STRLEN_END
22702 #ifdef LAPACK_FORTRAN_STRLEN_END
22703 #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__, 1, 1)
22705 #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__)
22708 #define LAPACK_zunmlq_base LAPACK_GLOBAL(zunmlq,ZUNMLQ)
22709 void LAPACK_zunmlq_base(
22710 char const* side,
char const* trans,
22711 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22712 lapack_complex_double
const* A, lapack_int
const* lda,
22713 lapack_complex_double
const* tau,
22714 lapack_complex_double* C, lapack_int
const* ldc,
22715 lapack_complex_double* work, lapack_int
const* lwork,
22717 #ifdef LAPACK_FORTRAN_STRLEN_END
22721 #ifdef LAPACK_FORTRAN_STRLEN_END
22722 #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__, 1, 1)
22724 #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__)
22727 #define LAPACK_cunmql_base LAPACK_GLOBAL(cunmql,CUNMQL)
22728 void LAPACK_cunmql_base(
22729 char const* side,
char const* trans,
22730 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22731 lapack_complex_float
const* A, lapack_int
const* lda,
22732 lapack_complex_float
const* tau,
22733 lapack_complex_float* C, lapack_int
const* ldc,
22734 lapack_complex_float* work, lapack_int
const* lwork,
22736 #ifdef LAPACK_FORTRAN_STRLEN_END
22740 #ifdef LAPACK_FORTRAN_STRLEN_END
22741 #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__, 1, 1)
22743 #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__)
22746 #define LAPACK_zunmql_base LAPACK_GLOBAL(zunmql,ZUNMQL)
22747 void LAPACK_zunmql_base(
22748 char const* side,
char const* trans,
22749 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22750 lapack_complex_double
const* A, lapack_int
const* lda,
22751 lapack_complex_double
const* tau,
22752 lapack_complex_double* C, lapack_int
const* ldc,
22753 lapack_complex_double* work, lapack_int
const* lwork,
22755 #ifdef LAPACK_FORTRAN_STRLEN_END
22759 #ifdef LAPACK_FORTRAN_STRLEN_END
22760 #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__, 1, 1)
22762 #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__)
22765 #define LAPACK_cunmqr_base LAPACK_GLOBAL(cunmqr,CUNMQR)
22766 void LAPACK_cunmqr_base(
22767 char const* side,
char const* trans,
22768 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22769 lapack_complex_float
const* A, lapack_int
const* lda,
22770 lapack_complex_float
const* tau,
22771 lapack_complex_float* C, lapack_int
const* ldc,
22772 lapack_complex_float* work, lapack_int
const* lwork,
22774 #ifdef LAPACK_FORTRAN_STRLEN_END
22778 #ifdef LAPACK_FORTRAN_STRLEN_END
22779 #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__, 1, 1)
22781 #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__)
22784 #define LAPACK_zunmqr_base LAPACK_GLOBAL(zunmqr,ZUNMQR)
22785 void LAPACK_zunmqr_base(
22786 char const* side,
char const* trans,
22787 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22788 lapack_complex_double
const* A, lapack_int
const* lda,
22789 lapack_complex_double
const* tau,
22790 lapack_complex_double* C, lapack_int
const* ldc,
22791 lapack_complex_double* work, lapack_int
const* lwork,
22793 #ifdef LAPACK_FORTRAN_STRLEN_END
22797 #ifdef LAPACK_FORTRAN_STRLEN_END
22798 #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__, 1, 1)
22800 #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__)
22803 #define LAPACK_cunmrq_base LAPACK_GLOBAL(cunmrq,CUNMRQ)
22804 void LAPACK_cunmrq_base(
22805 char const* side,
char const* trans,
22806 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22807 lapack_complex_float
const* A, lapack_int
const* lda,
22808 lapack_complex_float
const* tau,
22809 lapack_complex_float* C, lapack_int
const* ldc,
22810 lapack_complex_float* work, lapack_int
const* lwork,
22812 #ifdef LAPACK_FORTRAN_STRLEN_END
22816 #ifdef LAPACK_FORTRAN_STRLEN_END
22817 #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__, 1, 1)
22819 #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__)
22822 #define LAPACK_zunmrq_base LAPACK_GLOBAL(zunmrq,ZUNMRQ)
22823 void LAPACK_zunmrq_base(
22824 char const* side,
char const* trans,
22825 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22826 lapack_complex_double
const* A, lapack_int
const* lda,
22827 lapack_complex_double
const* tau,
22828 lapack_complex_double* C, lapack_int
const* ldc,
22829 lapack_complex_double* work, lapack_int
const* lwork,
22831 #ifdef LAPACK_FORTRAN_STRLEN_END
22835 #ifdef LAPACK_FORTRAN_STRLEN_END
22836 #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__, 1, 1)
22838 #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__)
22841 #define LAPACK_cunmrz_base LAPACK_GLOBAL(cunmrz,CUNMRZ)
22842 void LAPACK_cunmrz_base(
22843 char const* side,
char const* trans,
22844 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
22845 lapack_complex_float
const* A, lapack_int
const* lda,
22846 lapack_complex_float
const* tau,
22847 lapack_complex_float* C, lapack_int
const* ldc,
22848 lapack_complex_float* work, lapack_int
const* lwork,
22850 #ifdef LAPACK_FORTRAN_STRLEN_END
22854 #ifdef LAPACK_FORTRAN_STRLEN_END
22855 #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__, 1, 1)
22857 #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__)
22860 #define LAPACK_zunmrz_base LAPACK_GLOBAL(zunmrz,ZUNMRZ)
22861 void LAPACK_zunmrz_base(
22862 char const* side,
char const* trans,
22863 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
22864 lapack_complex_double
const* A, lapack_int
const* lda,
22865 lapack_complex_double
const* tau,
22866 lapack_complex_double* C, lapack_int
const* ldc,
22867 lapack_complex_double* work, lapack_int
const* lwork,
22869 #ifdef LAPACK_FORTRAN_STRLEN_END
22873 #ifdef LAPACK_FORTRAN_STRLEN_END
22874 #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__, 1, 1)
22876 #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__)
22879 #define LAPACK_cunmtr_base LAPACK_GLOBAL(cunmtr,CUNMTR)
22880 void LAPACK_cunmtr_base(
22881 char const* side,
char const* uplo,
char const* trans,
22882 lapack_int
const* m, lapack_int
const* n,
22883 lapack_complex_float
const* A, lapack_int
const* lda,
22884 lapack_complex_float
const* tau,
22885 lapack_complex_float* C, lapack_int
const* ldc,
22886 lapack_complex_float* work, lapack_int
const* lwork,
22888 #ifdef LAPACK_FORTRAN_STRLEN_END
22889 ,
size_t,
size_t,
size_t
22892 #ifdef LAPACK_FORTRAN_STRLEN_END
22893 #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__, 1, 1, 1)
22895 #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__)
22898 #define LAPACK_zunmtr_base LAPACK_GLOBAL(zunmtr,ZUNMTR)
22899 void LAPACK_zunmtr_base(
22900 char const* side,
char const* uplo,
char const* trans,
22901 lapack_int
const* m, lapack_int
const* n,
22902 lapack_complex_double
const* A, lapack_int
const* lda,
22903 lapack_complex_double
const* tau,
22904 lapack_complex_double* C, lapack_int
const* ldc,
22905 lapack_complex_double* work, lapack_int
const* lwork,
22907 #ifdef LAPACK_FORTRAN_STRLEN_END
22908 ,
size_t,
size_t,
size_t
22911 #ifdef LAPACK_FORTRAN_STRLEN_END
22912 #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__, 1, 1, 1)
22914 #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__)
22917 #define LAPACK_cupgtr_base LAPACK_GLOBAL(cupgtr,CUPGTR)
22918 void LAPACK_cupgtr_base(
22920 lapack_int
const* n,
22921 lapack_complex_float
const* AP,
22922 lapack_complex_float
const* tau,
22923 lapack_complex_float* Q, lapack_int
const* ldq,
22924 lapack_complex_float* work,
22926 #ifdef LAPACK_FORTRAN_STRLEN_END
22930 #ifdef LAPACK_FORTRAN_STRLEN_END
22931 #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__, 1)
22933 #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__)
22936 #define LAPACK_zupgtr_base LAPACK_GLOBAL(zupgtr,ZUPGTR)
22937 void LAPACK_zupgtr_base(
22939 lapack_int
const* n,
22940 lapack_complex_double
const* AP,
22941 lapack_complex_double
const* tau,
22942 lapack_complex_double* Q, lapack_int
const* ldq,
22943 lapack_complex_double* work,
22945 #ifdef LAPACK_FORTRAN_STRLEN_END
22949 #ifdef LAPACK_FORTRAN_STRLEN_END
22950 #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__, 1)
22952 #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__)
22955 #define LAPACK_cupmtr_base LAPACK_GLOBAL(cupmtr,CUPMTR)
22956 void LAPACK_cupmtr_base(
22957 char const* side,
char const* uplo,
char const* trans,
22958 lapack_int
const* m, lapack_int
const* n,
22959 lapack_complex_float
const* AP,
22960 lapack_complex_float
const* tau,
22961 lapack_complex_float* C, lapack_int
const* ldc,
22962 lapack_complex_float* work,
22964 #ifdef LAPACK_FORTRAN_STRLEN_END
22965 ,
size_t,
size_t,
size_t
22968 #ifdef LAPACK_FORTRAN_STRLEN_END
22969 #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__, 1, 1, 1)
22971 #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__)
22974 #define LAPACK_zupmtr_base LAPACK_GLOBAL(zupmtr,ZUPMTR)
22975 void LAPACK_zupmtr_base(
22976 char const* side,
char const* uplo,
char const* trans,
22977 lapack_int
const* m, lapack_int
const* n,
22978 lapack_complex_double
const* AP,
22979 lapack_complex_double
const* tau,
22980 lapack_complex_double* C, lapack_int
const* ldc,
22981 lapack_complex_double* work,
22983 #ifdef LAPACK_FORTRAN_STRLEN_END
22984 ,
size_t,
size_t,
size_t
22987 #ifdef LAPACK_FORTRAN_STRLEN_END
22988 #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__, 1, 1, 1)
22990 #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__)