7#ifdef HAVE_LAPACK_CONFIG_H
8#include "lapacke_config.h"
11#include "lapacke_mangling.h"
20#define LAPACK_FORTRAN_STRLEN_END
37#ifndef LAPACK_COMPLEX_CUSTOM
40#ifndef lapack_complex_float
46#define lapack_complex_float float _Complex
49#ifndef lapack_complex_float_real
50#define lapack_complex_float_real(z) (creal(z))
53#ifndef lapack_complex_float_imag
54#define lapack_complex_float_imag(z) (cimag(z))
58#ifndef lapack_complex_double
64#define lapack_complex_double double _Complex
67#ifndef lapack_complex_double_real
68#define lapack_complex_double_real(z) (creal(z))
71#ifndef lapack_complex_double_imag
72#define lapack_complex_double_imag(z) (cimag(z))
84#if defined(LAPACK_ILP64)
85#define lapack_int int64_t
87#define lapack_int int32_t
95#if defined(LAPACK_ILP64)
96#define LAPACK_IFMT PRId64
98#define LAPACK_IFMT PRId32
102#ifndef lapack_logical
103#define lapack_logical lapack_int
108#if defined(LAPACK_F2C)
109 typedef double lapack_float_return;
111 typedef float lapack_float_return;
119typedef lapack_logical (*LAPACK_S_SELECT2) (
const float*,
const float* );
120typedef lapack_logical (*LAPACK_S_SELECT3)
121 (
const float*,
const float*,
const float* );
122typedef lapack_logical (*LAPACK_D_SELECT2) (
const double*,
const double* );
123typedef lapack_logical (*LAPACK_D_SELECT3)
124 (
const double*,
const double*,
const double* );
126typedef lapack_logical (*LAPACK_C_SELECT1) (
const lapack_complex_float* );
127typedef lapack_logical (*LAPACK_C_SELECT2)
128 (
const lapack_complex_float*,
const lapack_complex_float* );
129typedef lapack_logical (*LAPACK_Z_SELECT1) (
const lapack_complex_double* );
130typedef lapack_logical (*LAPACK_Z_SELECT2)
131 (
const lapack_complex_double*,
const lapack_complex_double* );
133#define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME)
134lapack_logical LAPACK_lsame_base(
const char* ca,
const char* cb,
135 lapack_int lca, lapack_int lcb
136#ifdef LAPACK_FORTRAN_STRLEN_END
140#ifdef LAPACK_FORTRAN_STRLEN_END
141 #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__, 1, 1)
143 #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__)
150#define LAPACK_cbbcsd_base LAPACK_GLOBAL(cbbcsd,CBBCSD)
151void LAPACK_cbbcsd_base(
152 char const* jobu1,
char const* jobu2,
char const* jobv1t,
char const* jobv2t,
char const* trans,
153 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
156 lapack_complex_float* U1, lapack_int
const* ldu1,
157 lapack_complex_float* U2, lapack_int
const* ldu2,
158 lapack_complex_float* V1T, lapack_int
const* ldv1t,
159 lapack_complex_float* V2T, lapack_int
const* ldv2t,
168 float* rwork, lapack_int
const* lrwork,
170#ifdef LAPACK_FORTRAN_STRLEN_END
171 ,
size_t,
size_t,
size_t,
size_t,
size_t
174#ifdef LAPACK_FORTRAN_STRLEN_END
175 #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
177 #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__)
180#define LAPACK_dbbcsd_base LAPACK_GLOBAL(dbbcsd,DBBCSD)
181void LAPACK_dbbcsd_base(
182 char const* jobu1,
char const* jobu2,
char const* jobv1t,
char const* jobv2t,
char const* trans,
183 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
186 double* U1, lapack_int
const* ldu1,
187 double* U2, lapack_int
const* ldu2,
188 double* V1T, lapack_int
const* ldv1t,
189 double* V2T, lapack_int
const* ldv2t,
198 double* work, lapack_int
const* lwork,
200#ifdef LAPACK_FORTRAN_STRLEN_END
201 ,
size_t,
size_t,
size_t,
size_t,
size_t
204#ifdef LAPACK_FORTRAN_STRLEN_END
205 #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
207 #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__)
210#define LAPACK_sbbcsd_base LAPACK_GLOBAL(sbbcsd,SBBCSD)
211void LAPACK_sbbcsd_base(
212 char const* jobu1,
char const* jobu2,
char const* jobv1t,
char const* jobv2t,
char const* trans,
213 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
216 float* U1, lapack_int
const* ldu1,
217 float* U2, lapack_int
const* ldu2,
218 float* V1T, lapack_int
const* ldv1t,
219 float* V2T, lapack_int
const* ldv2t,
228 float* work, lapack_int
const* lwork,
230#ifdef LAPACK_FORTRAN_STRLEN_END
231 ,
size_t,
size_t,
size_t,
size_t,
size_t
234#ifdef LAPACK_FORTRAN_STRLEN_END
235 #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
237 #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__)
240#define LAPACK_zbbcsd_base LAPACK_GLOBAL(zbbcsd,ZBBCSD)
241void LAPACK_zbbcsd_base(
242 char const* jobu1,
char const* jobu2,
char const* jobv1t,
char const* jobv2t,
char const* trans,
243 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
246 lapack_complex_double* U1, lapack_int
const* ldu1,
247 lapack_complex_double* U2, lapack_int
const* ldu2,
248 lapack_complex_double* V1T, lapack_int
const* ldv1t,
249 lapack_complex_double* V2T, lapack_int
const* ldv2t,
258 double* rwork, lapack_int
const* lrwork,
260#ifdef LAPACK_FORTRAN_STRLEN_END
261 ,
size_t,
size_t,
size_t,
size_t,
size_t
264#ifdef LAPACK_FORTRAN_STRLEN_END
265 #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
267 #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__)
270#define LAPACK_dbdsdc_base LAPACK_GLOBAL(dbdsdc,DBDSDC)
271void LAPACK_dbdsdc_base(
272 char const* uplo,
char const* compq,
276 double* U, lapack_int
const* ldu,
277 double* VT, lapack_int
const* ldvt,
278 double* Q, lapack_int* IQ,
282#ifdef LAPACK_FORTRAN_STRLEN_END
286#ifdef LAPACK_FORTRAN_STRLEN_END
287 #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__, 1, 1)
289 #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__)
292#define LAPACK_sbdsdc_base LAPACK_GLOBAL(sbdsdc,SBDSDC)
293void LAPACK_sbdsdc_base(
294 char const* uplo,
char const* compq,
298 float* U, lapack_int
const* ldu,
299 float* VT, lapack_int
const* ldvt,
300 float* Q, lapack_int* IQ,
304#ifdef LAPACK_FORTRAN_STRLEN_END
308#ifdef LAPACK_FORTRAN_STRLEN_END
309 #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__, 1, 1)
311 #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__)
314#define LAPACK_cbdsqr_base LAPACK_GLOBAL(cbdsqr,CBDSQR)
315void LAPACK_cbdsqr_base(
317 lapack_int
const* n, lapack_int
const* ncvt, lapack_int
const* nru, lapack_int
const* ncc,
320 lapack_complex_float* VT, lapack_int
const* ldvt,
321 lapack_complex_float* U, lapack_int
const* ldu,
322 lapack_complex_float* C, lapack_int
const* ldc,
325#ifdef LAPACK_FORTRAN_STRLEN_END
329#ifdef LAPACK_FORTRAN_STRLEN_END
330 #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__, 1)
332 #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__)
335#define LAPACK_dbdsqr_base LAPACK_GLOBAL(dbdsqr,DBDSQR)
336void LAPACK_dbdsqr_base(
338 lapack_int
const* n, lapack_int
const* ncvt, lapack_int
const* nru, lapack_int
const* ncc,
341 double* VT, lapack_int
const* ldvt,
342 double* U, lapack_int
const* ldu,
343 double* C, lapack_int
const* ldc,
346#ifdef LAPACK_FORTRAN_STRLEN_END
350#ifdef LAPACK_FORTRAN_STRLEN_END
351 #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__, 1)
353 #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__)
356#define LAPACK_sbdsqr_base LAPACK_GLOBAL(sbdsqr,SBDSQR)
357void LAPACK_sbdsqr_base(
359 lapack_int
const* n, lapack_int
const* ncvt, lapack_int
const* nru, lapack_int
const* ncc,
362 float* VT, lapack_int
const* ldvt,
363 float* U, lapack_int
const* ldu,
364 float* C, lapack_int
const* ldc,
367#ifdef LAPACK_FORTRAN_STRLEN_END
371#ifdef LAPACK_FORTRAN_STRLEN_END
372 #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__, 1)
374 #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__)
377#define LAPACK_zbdsqr_base LAPACK_GLOBAL(zbdsqr,ZBDSQR)
378void LAPACK_zbdsqr_base(
380 lapack_int
const* n, lapack_int
const* ncvt, lapack_int
const* nru, lapack_int
const* ncc,
383 lapack_complex_double* VT, lapack_int
const* ldvt,
384 lapack_complex_double* U, lapack_int
const* ldu,
385 lapack_complex_double* C, lapack_int
const* ldc,
388#ifdef LAPACK_FORTRAN_STRLEN_END
392#ifdef LAPACK_FORTRAN_STRLEN_END
393 #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__, 1)
395 #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__)
398#define LAPACK_dbdsvdx_base LAPACK_GLOBAL(dbdsvdx,DBDSVDX)
399void LAPACK_dbdsvdx_base(
400 char const* uplo,
char const* jobz,
char const* range,
405 double const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* ns,
407 double* Z, lapack_int
const* ldz,
411#ifdef LAPACK_FORTRAN_STRLEN_END
412 ,
size_t,
size_t,
size_t
415#ifdef LAPACK_FORTRAN_STRLEN_END
416 #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__, 1, 1, 1)
418 #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__)
421#define LAPACK_sbdsvdx_base LAPACK_GLOBAL(sbdsvdx,SBDSVDX)
422void LAPACK_sbdsvdx_base(
423 char const* uplo,
char const* jobz,
char const* range,
428 float const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* ns,
430 float* Z, lapack_int
const* ldz,
434#ifdef LAPACK_FORTRAN_STRLEN_END
435 ,
size_t,
size_t,
size_t
438#ifdef LAPACK_FORTRAN_STRLEN_END
439 #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__, 1, 1, 1)
441 #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__)
444#define LAPACK_ddisna_base LAPACK_GLOBAL(ddisna,DDISNA)
445void LAPACK_ddisna_base(
447 lapack_int
const* m, lapack_int
const* n,
451#ifdef LAPACK_FORTRAN_STRLEN_END
455#ifdef LAPACK_FORTRAN_STRLEN_END
456 #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__, 1)
458 #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__)
461#define LAPACK_sdisna_base LAPACK_GLOBAL(sdisna,SDISNA)
462void LAPACK_sdisna_base(
464 lapack_int
const* m, lapack_int
const* n,
468#ifdef LAPACK_FORTRAN_STRLEN_END
472#ifdef LAPACK_FORTRAN_STRLEN_END
473 #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__, 1)
475 #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__)
478#define LAPACK_cgbbrd_base LAPACK_GLOBAL(cgbbrd,CGBBRD)
479void LAPACK_cgbbrd_base(
481 lapack_int
const* m, lapack_int
const* n, lapack_int
const* ncc, lapack_int
const* kl, lapack_int
const* ku,
482 lapack_complex_float* AB, lapack_int
const* ldab,
485 lapack_complex_float* Q, lapack_int
const* ldq,
486 lapack_complex_float* PT, lapack_int
const* ldpt,
487 lapack_complex_float* C, lapack_int
const* ldc,
488 lapack_complex_float* work,
491#ifdef LAPACK_FORTRAN_STRLEN_END
495#ifdef LAPACK_FORTRAN_STRLEN_END
496 #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__, 1)
498 #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__)
501#define LAPACK_dgbbrd_base LAPACK_GLOBAL(dgbbrd,DGBBRD)
502void LAPACK_dgbbrd_base(
504 lapack_int
const* m, lapack_int
const* n, lapack_int
const* ncc, lapack_int
const* kl, lapack_int
const* ku,
505 double* AB, lapack_int
const* ldab,
508 double* Q, lapack_int
const* ldq,
509 double* PT, lapack_int
const* ldpt,
510 double* C, lapack_int
const* ldc,
513#ifdef LAPACK_FORTRAN_STRLEN_END
517#ifdef LAPACK_FORTRAN_STRLEN_END
518 #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__, 1)
520 #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__)
523#define LAPACK_sgbbrd_base LAPACK_GLOBAL(sgbbrd,SGBBRD)
524void LAPACK_sgbbrd_base(
526 lapack_int
const* m, lapack_int
const* n, lapack_int
const* ncc, lapack_int
const* kl, lapack_int
const* ku,
527 float* AB, lapack_int
const* ldab,
530 float* Q, lapack_int
const* ldq,
531 float* PT, lapack_int
const* ldpt,
532 float* C, lapack_int
const* ldc,
535#ifdef LAPACK_FORTRAN_STRLEN_END
539#ifdef LAPACK_FORTRAN_STRLEN_END
540 #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__, 1)
542 #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__)
545#define LAPACK_zgbbrd_base LAPACK_GLOBAL(zgbbrd,ZGBBRD)
546void LAPACK_zgbbrd_base(
548 lapack_int
const* m, lapack_int
const* n, lapack_int
const* ncc, lapack_int
const* kl, lapack_int
const* ku,
549 lapack_complex_double* AB, lapack_int
const* ldab,
552 lapack_complex_double* Q, lapack_int
const* ldq,
553 lapack_complex_double* PT, lapack_int
const* ldpt,
554 lapack_complex_double* C, lapack_int
const* ldc,
555 lapack_complex_double* work,
558#ifdef LAPACK_FORTRAN_STRLEN_END
562#ifdef LAPACK_FORTRAN_STRLEN_END
563 #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__, 1)
565 #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__)
568#define LAPACK_cgbcon_base LAPACK_GLOBAL(cgbcon,CGBCON)
569void LAPACK_cgbcon_base(
571 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
572 lapack_complex_float
const* AB, lapack_int
const* ldab, lapack_int
const* ipiv,
575 lapack_complex_float* work,
578#ifdef LAPACK_FORTRAN_STRLEN_END
582#ifdef LAPACK_FORTRAN_STRLEN_END
583 #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__, 1)
585 #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__)
588#define LAPACK_dgbcon_base LAPACK_GLOBAL(dgbcon,DGBCON)
589void LAPACK_dgbcon_base(
591 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
592 double const* AB, lapack_int
const* ldab, lapack_int
const* ipiv,
598#ifdef LAPACK_FORTRAN_STRLEN_END
602#ifdef LAPACK_FORTRAN_STRLEN_END
603 #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__, 1)
605 #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__)
608#define LAPACK_sgbcon_base LAPACK_GLOBAL(sgbcon,SGBCON)
609void LAPACK_sgbcon_base(
611 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
612 float const* AB, lapack_int
const* ldab, lapack_int
const* ipiv,
618#ifdef LAPACK_FORTRAN_STRLEN_END
622#ifdef LAPACK_FORTRAN_STRLEN_END
623 #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__, 1)
625 #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__)
628#define LAPACK_zgbcon_base LAPACK_GLOBAL(zgbcon,ZGBCON)
629void LAPACK_zgbcon_base(
631 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
632 lapack_complex_double
const* AB, lapack_int
const* ldab, lapack_int
const* ipiv,
635 lapack_complex_double* work,
638#ifdef LAPACK_FORTRAN_STRLEN_END
642#ifdef LAPACK_FORTRAN_STRLEN_END
643 #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__, 1)
645 #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__)
648#define LAPACK_cgbequ LAPACK_GLOBAL(cgbequ,CGBEQU)
650 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
651 lapack_complex_float
const* AB, lapack_int
const* ldab,
659#define LAPACK_dgbequ LAPACK_GLOBAL(dgbequ,DGBEQU)
661 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
662 double const* AB, lapack_int
const* ldab,
670#define LAPACK_sgbequ LAPACK_GLOBAL(sgbequ,SGBEQU)
672 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
673 float const* AB, lapack_int
const* ldab,
681#define LAPACK_zgbequ LAPACK_GLOBAL(zgbequ,ZGBEQU)
683 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
684 lapack_complex_double
const* AB, lapack_int
const* ldab,
692#define LAPACK_cgbequb LAPACK_GLOBAL(cgbequb,CGBEQUB)
694 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
695 lapack_complex_float
const* AB, lapack_int
const* ldab,
703#define LAPACK_dgbequb LAPACK_GLOBAL(dgbequb,DGBEQUB)
705 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
706 double const* AB, lapack_int
const* ldab,
714#define LAPACK_sgbequb LAPACK_GLOBAL(sgbequb,SGBEQUB)
716 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
717 float const* AB, lapack_int
const* ldab,
725#define LAPACK_zgbequb LAPACK_GLOBAL(zgbequb,ZGBEQUB)
727 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
728 lapack_complex_double
const* AB, lapack_int
const* ldab,
736#define LAPACK_cgbrfs_base LAPACK_GLOBAL(cgbrfs,CGBRFS)
737void LAPACK_cgbrfs_base(
739 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
740 lapack_complex_float
const* AB, lapack_int
const* ldab,
741 lapack_complex_float
const* AFB, lapack_int
const* ldafb, lapack_int
const* ipiv,
742 lapack_complex_float
const* B, lapack_int
const* ldb,
743 lapack_complex_float* X, lapack_int
const* ldx,
746 lapack_complex_float* work,
749#ifdef LAPACK_FORTRAN_STRLEN_END
753#ifdef LAPACK_FORTRAN_STRLEN_END
754 #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__, 1)
756 #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__)
759#define LAPACK_dgbrfs_base LAPACK_GLOBAL(dgbrfs,DGBRFS)
760void LAPACK_dgbrfs_base(
762 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
763 double const* AB, lapack_int
const* ldab,
764 double const* AFB, lapack_int
const* ldafb, lapack_int
const* ipiv,
765 double const* B, lapack_int
const* ldb,
766 double* X, lapack_int
const* ldx,
772#ifdef LAPACK_FORTRAN_STRLEN_END
776#ifdef LAPACK_FORTRAN_STRLEN_END
777 #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__, 1)
779 #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__)
782#define LAPACK_sgbrfs_base LAPACK_GLOBAL(sgbrfs,SGBRFS)
783void LAPACK_sgbrfs_base(
785 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
786 float const* AB, lapack_int
const* ldab,
787 float const* AFB, lapack_int
const* ldafb, lapack_int
const* ipiv,
788 float const* B, lapack_int
const* ldb,
789 float* X, lapack_int
const* ldx,
795#ifdef LAPACK_FORTRAN_STRLEN_END
799#ifdef LAPACK_FORTRAN_STRLEN_END
800 #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__, 1)
802 #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__)
805#define LAPACK_zgbrfs_base LAPACK_GLOBAL(zgbrfs,ZGBRFS)
806void LAPACK_zgbrfs_base(
808 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
809 lapack_complex_double
const* AB, lapack_int
const* ldab,
810 lapack_complex_double
const* AFB, lapack_int
const* ldafb, lapack_int
const* ipiv,
811 lapack_complex_double
const* B, lapack_int
const* ldb,
812 lapack_complex_double* X, lapack_int
const* ldx,
815 lapack_complex_double* work,
818#ifdef LAPACK_FORTRAN_STRLEN_END
822#ifdef LAPACK_FORTRAN_STRLEN_END
823 #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__, 1)
825 #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__)
828#define LAPACK_cgbrfsx_base LAPACK_GLOBAL(cgbrfsx,CGBRFSX)
829void LAPACK_cgbrfsx_base(
830 char const* trans,
char const* equed,
831 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
832 lapack_complex_float
const* AB, lapack_int
const* ldab,
833 lapack_complex_float
const* AFB, lapack_int
const* ldafb, lapack_int
const* ipiv,
836 lapack_complex_float
const* B, lapack_int
const* ldb,
837 lapack_complex_float* X, lapack_int
const* ldx,
839 float* berr, lapack_int
const* n_err_bnds,
840 float* err_bnds_norm,
841 float* err_bnds_comp, lapack_int
const* nparams,
843 lapack_complex_float* work,
846#ifdef LAPACK_FORTRAN_STRLEN_END
850#ifdef LAPACK_FORTRAN_STRLEN_END
851 #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__, 1, 1)
853 #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__)
856#define LAPACK_dgbrfsx_base LAPACK_GLOBAL(dgbrfsx,DGBRFSX)
857void LAPACK_dgbrfsx_base(
858 char const* trans,
char const* equed,
859 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
860 double const* AB, lapack_int
const* ldab,
861 double const* AFB, lapack_int
const* ldafb, lapack_int
const* ipiv,
864 double const* B, lapack_int
const* ldb,
865 double* X, lapack_int
const* ldx,
867 double* berr, lapack_int
const* n_err_bnds,
868 double* err_bnds_norm,
869 double* err_bnds_comp, lapack_int
const* nparams,
874#ifdef LAPACK_FORTRAN_STRLEN_END
878#ifdef LAPACK_FORTRAN_STRLEN_END
879 #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__, 1, 1)
881 #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__)
884#define LAPACK_sgbrfsx_base LAPACK_GLOBAL(sgbrfsx,SGBRFSX)
885void LAPACK_sgbrfsx_base(
886 char const* trans,
char const* equed,
887 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
888 float const* AB, lapack_int
const* ldab,
889 float const* AFB, lapack_int
const* ldafb, lapack_int
const* ipiv,
892 float const* B, lapack_int
const* ldb,
893 float* X, lapack_int
const* ldx,
895 float* berr, lapack_int
const* n_err_bnds,
896 float* err_bnds_norm,
897 float* err_bnds_comp, lapack_int
const* nparams,
902#ifdef LAPACK_FORTRAN_STRLEN_END
906#ifdef LAPACK_FORTRAN_STRLEN_END
907 #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__, 1, 1)
909 #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__)
912#define LAPACK_zgbrfsx_base LAPACK_GLOBAL(zgbrfsx,ZGBRFSX)
913void LAPACK_zgbrfsx_base(
914 char const* trans,
char const* equed,
915 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
916 lapack_complex_double
const* AB, lapack_int
const* ldab,
917 lapack_complex_double
const* AFB, lapack_int
const* ldafb, lapack_int
const* ipiv,
920 lapack_complex_double
const* B, lapack_int
const* ldb,
921 lapack_complex_double* X, lapack_int
const* ldx,
923 double* berr, lapack_int
const* n_err_bnds,
924 double* err_bnds_norm,
925 double* err_bnds_comp, lapack_int
const* nparams,
927 lapack_complex_double* work,
930#ifdef LAPACK_FORTRAN_STRLEN_END
934#ifdef LAPACK_FORTRAN_STRLEN_END
935 #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__, 1, 1)
937 #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__)
940#define LAPACK_cgbsv LAPACK_GLOBAL(cgbsv,CGBSV)
942 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
943 lapack_complex_float* AB, lapack_int
const* ldab, lapack_int* ipiv,
944 lapack_complex_float* B, lapack_int
const* ldb,
947#define LAPACK_dgbsv LAPACK_GLOBAL(dgbsv,DGBSV)
949 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
950 double* AB, lapack_int
const* ldab, lapack_int* ipiv,
951 double* B, lapack_int
const* ldb,
954#define LAPACK_sgbsv LAPACK_GLOBAL(sgbsv,SGBSV)
956 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
957 float* AB, lapack_int
const* ldab, lapack_int* ipiv,
958 float* B, lapack_int
const* ldb,
961#define LAPACK_zgbsv LAPACK_GLOBAL(zgbsv,ZGBSV)
963 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
964 lapack_complex_double* AB, lapack_int
const* ldab, lapack_int* ipiv,
965 lapack_complex_double* B, lapack_int
const* ldb,
968#define LAPACK_cgbsvx_base LAPACK_GLOBAL(cgbsvx,CGBSVX)
969void LAPACK_cgbsvx_base(
970 char const* fact,
char const* trans,
971 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
972 lapack_complex_float* AB, lapack_int
const* ldab,
973 lapack_complex_float* AFB, lapack_int
const* ldafb, lapack_int* ipiv,
char* equed,
976 lapack_complex_float* B,
977 lapack_int
const* ldb,
978 lapack_complex_float* X, lapack_int
const* ldx,
982 lapack_complex_float* work,
985#ifdef LAPACK_FORTRAN_STRLEN_END
986 ,
size_t,
size_t,
size_t
989#ifdef LAPACK_FORTRAN_STRLEN_END
990 #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__, 1, 1, 1)
992 #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__)
995#define LAPACK_dgbsvx_base LAPACK_GLOBAL(dgbsvx,DGBSVX)
996void LAPACK_dgbsvx_base(
997 char const* fact,
char const* trans,
998 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
999 double* AB, lapack_int
const* ldab,
1000 double* AFB, lapack_int
const* ldafb, lapack_int* ipiv,
char* equed,
1004 lapack_int
const* ldb,
1005 double* X, lapack_int
const* ldx,
1012#ifdef LAPACK_FORTRAN_STRLEN_END
1013 ,
size_t,
size_t,
size_t
1016#ifdef LAPACK_FORTRAN_STRLEN_END
1017 #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__, 1, 1, 1)
1019 #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__)
1022#define LAPACK_sgbsvx_base LAPACK_GLOBAL(sgbsvx,SGBSVX)
1023void LAPACK_sgbsvx_base(
1024 char const* fact,
char const* trans,
1025 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1026 float* AB, lapack_int
const* ldab,
1027 float* AFB, lapack_int
const* ldafb, lapack_int* ipiv,
char* equed,
1031 lapack_int
const* ldb,
1032 float* X, lapack_int
const* ldx,
1039#ifdef LAPACK_FORTRAN_STRLEN_END
1040 ,
size_t,
size_t,
size_t
1043#ifdef LAPACK_FORTRAN_STRLEN_END
1044 #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__, 1, 1, 1)
1046 #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__)
1049#define LAPACK_zgbsvx_base LAPACK_GLOBAL(zgbsvx,ZGBSVX)
1050void LAPACK_zgbsvx_base(
1051 char const* fact,
char const* trans,
1052 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1053 lapack_complex_double* AB, lapack_int
const* ldab,
1054 lapack_complex_double* AFB, lapack_int
const* ldafb, lapack_int* ipiv,
char* equed,
1057 lapack_complex_double* B,
1058 lapack_int
const* ldb,
1059 lapack_complex_double* X, lapack_int
const* ldx,
1063 lapack_complex_double* work,
1066#ifdef LAPACK_FORTRAN_STRLEN_END
1067 ,
size_t,
size_t,
size_t
1070#ifdef LAPACK_FORTRAN_STRLEN_END
1071 #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__, 1, 1, 1)
1073 #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__)
1076#define LAPACK_cgbsvxx_base LAPACK_GLOBAL(cgbsvxx,CGBSVXX)
1077void LAPACK_cgbsvxx_base(
1078 char const* fact,
char const* trans,
1079 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1080 lapack_complex_float* AB, lapack_int
const* ldab,
1081 lapack_complex_float* AFB, lapack_int
const* ldafb, lapack_int* ipiv,
char* equed,
1084 lapack_complex_float* B,
1085 lapack_int
const* ldb,
1086 lapack_complex_float* X, lapack_int
const* ldx,
1089 float* berr, lapack_int
const* n_err_bnds,
1090 float* err_bnds_norm,
1091 float* err_bnds_comp, lapack_int
const* nparams,
1093 lapack_complex_float* work,
1096#ifdef LAPACK_FORTRAN_STRLEN_END
1097 ,
size_t,
size_t,
size_t
1100#ifdef LAPACK_FORTRAN_STRLEN_END
1101 #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1103 #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__)
1106#define LAPACK_dgbsvxx_base LAPACK_GLOBAL(dgbsvxx,DGBSVXX)
1107void LAPACK_dgbsvxx_base(
1108 char const* fact,
char const* trans,
1109 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1110 double* AB, lapack_int
const* ldab,
1111 double* AFB, lapack_int
const* ldafb, lapack_int* ipiv,
char* equed,
1115 lapack_int
const* ldb,
1116 double* X, lapack_int
const* ldx,
1119 double* berr, lapack_int
const* n_err_bnds,
1120 double* err_bnds_norm,
1121 double* err_bnds_comp, lapack_int
const* nparams,
1126#ifdef LAPACK_FORTRAN_STRLEN_END
1127 ,
size_t,
size_t,
size_t
1130#ifdef LAPACK_FORTRAN_STRLEN_END
1131 #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1133 #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__)
1136#define LAPACK_sgbsvxx_base LAPACK_GLOBAL(sgbsvxx,SGBSVXX)
1137void LAPACK_sgbsvxx_base(
1138 char const* fact,
char const* trans,
1139 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1140 float* AB, lapack_int
const* ldab,
1141 float* AFB, lapack_int
const* ldafb, lapack_int* ipiv,
char* equed,
1145 lapack_int
const* ldb,
1146 float* X, lapack_int
const* ldx,
1149 float* berr, lapack_int
const* n_err_bnds,
1150 float* err_bnds_norm,
1151 float* err_bnds_comp, lapack_int
const* nparams,
1156#ifdef LAPACK_FORTRAN_STRLEN_END
1157 ,
size_t,
size_t,
size_t
1160#ifdef LAPACK_FORTRAN_STRLEN_END
1161 #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1163 #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__)
1166#define LAPACK_zgbsvxx_base LAPACK_GLOBAL(zgbsvxx,ZGBSVXX)
1167void LAPACK_zgbsvxx_base(
1168 char const* fact,
char const* trans,
1169 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1170 lapack_complex_double* AB, lapack_int
const* ldab,
1171 lapack_complex_double* AFB, lapack_int
const* ldafb, lapack_int* ipiv,
char* equed,
1174 lapack_complex_double* B,
1175 lapack_int
const* ldb,
1176 lapack_complex_double* X, lapack_int
const* ldx,
1179 double* berr, lapack_int
const* n_err_bnds,
1180 double* err_bnds_norm,
1181 double* err_bnds_comp, lapack_int
const* nparams,
1183 lapack_complex_double* work,
1186#ifdef LAPACK_FORTRAN_STRLEN_END
1187 ,
size_t,
size_t,
size_t
1190#ifdef LAPACK_FORTRAN_STRLEN_END
1191 #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1193 #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__)
1196#define LAPACK_cgbtrf LAPACK_GLOBAL(cgbtrf,CGBTRF)
1198 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
1199 lapack_complex_float* AB, lapack_int
const* ldab, lapack_int* ipiv,
1202#define LAPACK_dgbtrf LAPACK_GLOBAL(dgbtrf,DGBTRF)
1204 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
1205 double* AB, lapack_int
const* ldab, lapack_int* ipiv,
1208#define LAPACK_sgbtrf LAPACK_GLOBAL(sgbtrf,SGBTRF)
1210 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
1211 float* AB, lapack_int
const* ldab, lapack_int* ipiv,
1214#define LAPACK_zgbtrf LAPACK_GLOBAL(zgbtrf,ZGBTRF)
1216 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
1217 lapack_complex_double* AB, lapack_int
const* ldab, lapack_int* ipiv,
1220#define LAPACK_cgbtrs_base LAPACK_GLOBAL(cgbtrs,CGBTRS)
1221void LAPACK_cgbtrs_base(
1223 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1224 lapack_complex_float
const* AB, lapack_int
const* ldab, lapack_int
const* ipiv,
1225 lapack_complex_float* B, lapack_int
const* ldb,
1227#ifdef LAPACK_FORTRAN_STRLEN_END
1231#ifdef LAPACK_FORTRAN_STRLEN_END
1232 #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__, 1)
1234 #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__)
1237#define LAPACK_dgbtrs_base LAPACK_GLOBAL(dgbtrs,DGBTRS)
1238void LAPACK_dgbtrs_base(
1240 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1241 double const* AB, lapack_int
const* ldab, lapack_int
const* ipiv,
1242 double* B, lapack_int
const* ldb,
1244#ifdef LAPACK_FORTRAN_STRLEN_END
1248#ifdef LAPACK_FORTRAN_STRLEN_END
1249 #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__, 1)
1251 #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__)
1254#define LAPACK_sgbtrs_base LAPACK_GLOBAL(sgbtrs,SGBTRS)
1255void LAPACK_sgbtrs_base(
1257 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1258 float const* AB, lapack_int
const* ldab, lapack_int
const* ipiv,
1259 float* B, lapack_int
const* ldb,
1261#ifdef LAPACK_FORTRAN_STRLEN_END
1265#ifdef LAPACK_FORTRAN_STRLEN_END
1266 #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__, 1)
1268 #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__)
1271#define LAPACK_zgbtrs_base LAPACK_GLOBAL(zgbtrs,ZGBTRS)
1272void LAPACK_zgbtrs_base(
1274 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku, lapack_int
const* nrhs,
1275 lapack_complex_double
const* AB, lapack_int
const* ldab, lapack_int
const* ipiv,
1276 lapack_complex_double* B, lapack_int
const* ldb,
1278#ifdef LAPACK_FORTRAN_STRLEN_END
1282#ifdef LAPACK_FORTRAN_STRLEN_END
1283 #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__, 1)
1285 #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__)
1288#define LAPACK_cgebak_base LAPACK_GLOBAL(cgebak,CGEBAK)
1289void LAPACK_cgebak_base(
1290 char const* job,
char const* side,
1291 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
1292 float const* scale, lapack_int
const* m,
1293 lapack_complex_float* V, lapack_int
const* ldv,
1295#ifdef LAPACK_FORTRAN_STRLEN_END
1299#ifdef LAPACK_FORTRAN_STRLEN_END
1300 #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__, 1, 1)
1302 #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__)
1305#define LAPACK_dgebak_base LAPACK_GLOBAL(dgebak,DGEBAK)
1306void LAPACK_dgebak_base(
1307 char const* job,
char const* side,
1308 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
1309 double const* scale, lapack_int
const* m,
1310 double* V, lapack_int
const* ldv,
1312#ifdef LAPACK_FORTRAN_STRLEN_END
1316#ifdef LAPACK_FORTRAN_STRLEN_END
1317 #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__, 1, 1)
1319 #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__)
1322#define LAPACK_sgebak_base LAPACK_GLOBAL(sgebak,SGEBAK)
1323void LAPACK_sgebak_base(
1324 char const* job,
char const* side,
1325 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
1326 float const* scale, lapack_int
const* m,
1327 float* V, lapack_int
const* ldv,
1329#ifdef LAPACK_FORTRAN_STRLEN_END
1333#ifdef LAPACK_FORTRAN_STRLEN_END
1334 #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__, 1, 1)
1336 #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__)
1339#define LAPACK_zgebak_base LAPACK_GLOBAL(zgebak,ZGEBAK)
1340void LAPACK_zgebak_base(
1341 char const* job,
char const* side,
1342 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
1343 double const* scale, lapack_int
const* m,
1344 lapack_complex_double* V, lapack_int
const* ldv,
1346#ifdef LAPACK_FORTRAN_STRLEN_END
1350#ifdef LAPACK_FORTRAN_STRLEN_END
1351 #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__, 1, 1)
1353 #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__)
1356#define LAPACK_cgebal_base LAPACK_GLOBAL(cgebal,CGEBAL)
1357void LAPACK_cgebal_base(
1359 lapack_int
const* n,
1360 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ilo, lapack_int* ihi,
1363#ifdef LAPACK_FORTRAN_STRLEN_END
1367#ifdef LAPACK_FORTRAN_STRLEN_END
1368 #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__, 1)
1370 #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__)
1373#define LAPACK_dgebal_base LAPACK_GLOBAL(dgebal,DGEBAL)
1374void LAPACK_dgebal_base(
1376 lapack_int
const* n,
1377 double* A, lapack_int
const* lda, lapack_int* ilo, lapack_int* ihi,
1380#ifdef LAPACK_FORTRAN_STRLEN_END
1384#ifdef LAPACK_FORTRAN_STRLEN_END
1385 #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__, 1)
1387 #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__)
1390#define LAPACK_sgebal_base LAPACK_GLOBAL(sgebal,SGEBAL)
1391void LAPACK_sgebal_base(
1393 lapack_int
const* n,
1394 float* A, lapack_int
const* lda, lapack_int* ilo, lapack_int* ihi,
1397#ifdef LAPACK_FORTRAN_STRLEN_END
1401#ifdef LAPACK_FORTRAN_STRLEN_END
1402 #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__, 1)
1404 #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__)
1407#define LAPACK_zgebal_base LAPACK_GLOBAL(zgebal,ZGEBAL)
1408void LAPACK_zgebal_base(
1410 lapack_int
const* n,
1411 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ilo, lapack_int* ihi,
1414#ifdef LAPACK_FORTRAN_STRLEN_END
1418#ifdef LAPACK_FORTRAN_STRLEN_END
1419 #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__, 1)
1421 #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__)
1424#define LAPACK_cgebrd LAPACK_GLOBAL(cgebrd,CGEBRD)
1426 lapack_int
const* m, lapack_int
const* n,
1427 lapack_complex_float* A, lapack_int
const* lda,
1430 lapack_complex_float* tauq,
1431 lapack_complex_float* taup,
1432 lapack_complex_float* work, lapack_int
const* lwork,
1435#define LAPACK_dgebrd LAPACK_GLOBAL(dgebrd,DGEBRD)
1437 lapack_int
const* m, lapack_int
const* n,
1438 double* A, lapack_int
const* lda,
1443 double* work, lapack_int
const* lwork,
1446#define LAPACK_sgebrd LAPACK_GLOBAL(sgebrd,SGEBRD)
1448 lapack_int
const* m, lapack_int
const* n,
1449 float* A, lapack_int
const* lda,
1454 float* work, lapack_int
const* lwork,
1457#define LAPACK_zgebrd LAPACK_GLOBAL(zgebrd,ZGEBRD)
1459 lapack_int
const* m, lapack_int
const* n,
1460 lapack_complex_double* A, lapack_int
const* lda,
1463 lapack_complex_double* tauq,
1464 lapack_complex_double* taup,
1465 lapack_complex_double* work, lapack_int
const* lwork,
1468#define LAPACK_cgecon_base LAPACK_GLOBAL(cgecon,CGECON)
1469void LAPACK_cgecon_base(
1471 lapack_int
const* n,
1472 lapack_complex_float
const* A, lapack_int
const* lda,
1475 lapack_complex_float* work,
1478#ifdef LAPACK_FORTRAN_STRLEN_END
1482#ifdef LAPACK_FORTRAN_STRLEN_END
1483 #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__, 1)
1485 #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__)
1488#define LAPACK_dgecon_base LAPACK_GLOBAL(dgecon,DGECON)
1489void LAPACK_dgecon_base(
1491 lapack_int
const* n,
1492 double const* A, lapack_int
const* lda,
1493 double const* anorm,
1498#ifdef LAPACK_FORTRAN_STRLEN_END
1502#ifdef LAPACK_FORTRAN_STRLEN_END
1503 #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__, 1)
1505 #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__)
1508#define LAPACK_sgecon_base LAPACK_GLOBAL(sgecon,SGECON)
1509void LAPACK_sgecon_base(
1511 lapack_int
const* n,
1512 float const* A, lapack_int
const* lda,
1518#ifdef LAPACK_FORTRAN_STRLEN_END
1522#ifdef LAPACK_FORTRAN_STRLEN_END
1523 #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__, 1)
1525 #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__)
1528#define LAPACK_zgecon_base LAPACK_GLOBAL(zgecon,ZGECON)
1529void LAPACK_zgecon_base(
1531 lapack_int
const* n,
1532 lapack_complex_double
const* A, lapack_int
const* lda,
1533 double const* anorm,
1535 lapack_complex_double* work,
1538#ifdef LAPACK_FORTRAN_STRLEN_END
1542#ifdef LAPACK_FORTRAN_STRLEN_END
1543 #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__, 1)
1545 #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__)
1548#define LAPACK_cgeequ LAPACK_GLOBAL(cgeequ,CGEEQU)
1550 lapack_int
const* m, lapack_int
const* n,
1551 lapack_complex_float
const* A, lapack_int
const* lda,
1559#define LAPACK_dgeequ LAPACK_GLOBAL(dgeequ,DGEEQU)
1561 lapack_int
const* m, lapack_int
const* n,
1562 double const* A, lapack_int
const* lda,
1570#define LAPACK_sgeequ LAPACK_GLOBAL(sgeequ,SGEEQU)
1572 lapack_int
const* m, lapack_int
const* n,
1573 float const* A, lapack_int
const* lda,
1581#define LAPACK_zgeequ LAPACK_GLOBAL(zgeequ,ZGEEQU)
1583 lapack_int
const* m, lapack_int
const* n,
1584 lapack_complex_double
const* A, lapack_int
const* lda,
1592#define LAPACK_cgeequb LAPACK_GLOBAL(cgeequb,CGEEQUB)
1594 lapack_int
const* m, lapack_int
const* n,
1595 lapack_complex_float
const* A, lapack_int
const* lda,
1603#define LAPACK_dgeequb LAPACK_GLOBAL(dgeequb,DGEEQUB)
1605 lapack_int
const* m, lapack_int
const* n,
1606 double const* A, lapack_int
const* lda,
1614#define LAPACK_sgeequb LAPACK_GLOBAL(sgeequb,SGEEQUB)
1616 lapack_int
const* m, lapack_int
const* n,
1617 float const* A, lapack_int
const* lda,
1625#define LAPACK_zgeequb LAPACK_GLOBAL(zgeequb,ZGEEQUB)
1627 lapack_int
const* m, lapack_int
const* n,
1628 lapack_complex_double
const* A, lapack_int
const* lda,
1636#define LAPACK_cgees_base LAPACK_GLOBAL(cgees,CGEES)
1637void LAPACK_cgees_base(
1638 char const* jobvs,
char const* sort, LAPACK_C_SELECT1 select,
1639 lapack_int
const* n,
1640 lapack_complex_float* A, lapack_int
const* lda, lapack_int* sdim,
1641 lapack_complex_float* W,
1642 lapack_complex_float* VS, lapack_int
const* ldvs,
1643 lapack_complex_float* work, lapack_int
const* lwork,
1644 float* rwork, lapack_logical* BWORK,
1646#ifdef LAPACK_FORTRAN_STRLEN_END
1650#ifdef LAPACK_FORTRAN_STRLEN_END
1651 #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__, 1, 1)
1653 #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__)
1656#define LAPACK_dgees_base LAPACK_GLOBAL(dgees,DGEES)
1657void LAPACK_dgees_base(
1658 char const* jobvs,
char const* sort, LAPACK_D_SELECT2 select,
1659 lapack_int
const* n,
1660 double* A, lapack_int
const* lda, lapack_int* sdim,
1663 double* VS, lapack_int
const* ldvs,
1664 double* work, lapack_int
const* lwork, lapack_logical* BWORK,
1666#ifdef LAPACK_FORTRAN_STRLEN_END
1670#ifdef LAPACK_FORTRAN_STRLEN_END
1671 #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__, 1, 1)
1673 #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__)
1676#define LAPACK_sgees_base LAPACK_GLOBAL(sgees,SGEES)
1677void LAPACK_sgees_base(
1678 char const* jobvs,
char const* sort, LAPACK_S_SELECT2 select,
1679 lapack_int
const* n,
1680 float* A, lapack_int
const* lda, lapack_int* sdim,
1683 float* VS, lapack_int
const* ldvs,
1684 float* work, lapack_int
const* lwork, lapack_logical* BWORK,
1686#ifdef LAPACK_FORTRAN_STRLEN_END
1690#ifdef LAPACK_FORTRAN_STRLEN_END
1691 #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__, 1, 1)
1693 #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__)
1696#define LAPACK_zgees_base LAPACK_GLOBAL(zgees,ZGEES)
1697void LAPACK_zgees_base(
1698 char const* jobvs,
char const* sort, LAPACK_Z_SELECT1 select,
1699 lapack_int
const* n,
1700 lapack_complex_double* A, lapack_int
const* lda, lapack_int* sdim,
1701 lapack_complex_double* W,
1702 lapack_complex_double* VS, lapack_int
const* ldvs,
1703 lapack_complex_double* work, lapack_int
const* lwork,
1704 double* rwork, lapack_logical* BWORK,
1706#ifdef LAPACK_FORTRAN_STRLEN_END
1710#ifdef LAPACK_FORTRAN_STRLEN_END
1711 #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__, 1, 1)
1713 #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__)
1716#define LAPACK_cgeesx_base LAPACK_GLOBAL(cgeesx,CGEESX)
1717void LAPACK_cgeesx_base(
1718 char const* jobvs,
char const* sort, LAPACK_C_SELECT1 select,
char const* sense,
1719 lapack_int
const* n,
1720 lapack_complex_float* A, lapack_int
const* lda, lapack_int* sdim,
1721 lapack_complex_float* W,
1722 lapack_complex_float* VS, lapack_int
const* ldvs,
1725 lapack_complex_float* work, lapack_int
const* lwork,
1726 float* rwork, lapack_logical* BWORK,
1728#ifdef LAPACK_FORTRAN_STRLEN_END
1729 ,
size_t,
size_t,
size_t
1732#ifdef LAPACK_FORTRAN_STRLEN_END
1733 #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__, 1, 1, 1)
1735 #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__)
1738#define LAPACK_dgeesx_base LAPACK_GLOBAL(dgeesx,DGEESX)
1739void LAPACK_dgeesx_base(
1740 char const* jobvs,
char const* sort, LAPACK_D_SELECT2 select,
char const* sense,
1741 lapack_int
const* n,
1742 double* A, lapack_int
const* lda, lapack_int* sdim,
1745 double* VS, lapack_int
const* ldvs,
1748 double* work, lapack_int
const* lwork,
1749 lapack_int* iwork, lapack_int
const* liwork, lapack_logical* BWORK,
1751#ifdef LAPACK_FORTRAN_STRLEN_END
1752 ,
size_t,
size_t,
size_t
1755#ifdef LAPACK_FORTRAN_STRLEN_END
1756 #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__, 1, 1, 1)
1758 #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__)
1761#define LAPACK_sgeesx_base LAPACK_GLOBAL(sgeesx,SGEESX)
1762void LAPACK_sgeesx_base(
1763 char const* jobvs,
char const* sort, LAPACK_S_SELECT2 select,
char const* sense,
1764 lapack_int
const* n,
1765 float* A, lapack_int
const* lda, lapack_int* sdim,
1768 float* VS, lapack_int
const* ldvs,
1771 float* work, lapack_int
const* lwork,
1772 lapack_int* iwork, lapack_int
const* liwork, lapack_logical* BWORK,
1774#ifdef LAPACK_FORTRAN_STRLEN_END
1775 ,
size_t,
size_t,
size_t
1778#ifdef LAPACK_FORTRAN_STRLEN_END
1779 #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__, 1, 1, 1)
1781 #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__)
1784#define LAPACK_zgeesx_base LAPACK_GLOBAL(zgeesx,ZGEESX)
1785void LAPACK_zgeesx_base(
1786 char const* jobvs,
char const* sort, LAPACK_Z_SELECT1 select,
char const* sense,
1787 lapack_int
const* n,
1788 lapack_complex_double* A, lapack_int
const* lda, lapack_int* sdim,
1789 lapack_complex_double* W,
1790 lapack_complex_double* VS, lapack_int
const* ldvs,
1793 lapack_complex_double* work, lapack_int
const* lwork,
1794 double* rwork, lapack_logical* BWORK,
1796#ifdef LAPACK_FORTRAN_STRLEN_END
1797 ,
size_t,
size_t,
size_t
1800#ifdef LAPACK_FORTRAN_STRLEN_END
1801 #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__, 1, 1, 1)
1803 #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__)
1806#define LAPACK_cgeev_base LAPACK_GLOBAL(cgeev,CGEEV)
1807void LAPACK_cgeev_base(
1808 char const* jobvl,
char const* jobvr,
1809 lapack_int
const* n,
1810 lapack_complex_float* A, lapack_int
const* lda,
1811 lapack_complex_float* W,
1812 lapack_complex_float* VL, lapack_int
const* ldvl,
1813 lapack_complex_float* VR, lapack_int
const* ldvr,
1814 lapack_complex_float* work, lapack_int
const* lwork,
1817#ifdef LAPACK_FORTRAN_STRLEN_END
1821#ifdef LAPACK_FORTRAN_STRLEN_END
1822 #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__, 1, 1)
1824 #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__)
1827#define LAPACK_dgeev_base LAPACK_GLOBAL(dgeev,DGEEV)
1828void LAPACK_dgeev_base(
1829 char const* jobvl,
char const* jobvr,
1830 lapack_int
const* n,
1831 double* A, lapack_int
const* lda,
1834 double* VL, lapack_int
const* ldvl,
1835 double* VR, lapack_int
const* ldvr,
1836 double* work, lapack_int
const* lwork,
1838#ifdef LAPACK_FORTRAN_STRLEN_END
1842#ifdef LAPACK_FORTRAN_STRLEN_END
1843 #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__, 1, 1)
1845 #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__)
1848#define LAPACK_sgeev_base LAPACK_GLOBAL(sgeev,SGEEV)
1849void LAPACK_sgeev_base(
1850 char const* jobvl,
char const* jobvr,
1851 lapack_int
const* n,
1852 float* A, lapack_int
const* lda,
1855 float* VL, lapack_int
const* ldvl,
1856 float* VR, lapack_int
const* ldvr,
1857 float* work, lapack_int
const* lwork,
1859#ifdef LAPACK_FORTRAN_STRLEN_END
1863#ifdef LAPACK_FORTRAN_STRLEN_END
1864 #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__, 1, 1)
1866 #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__)
1869#define LAPACK_zgeev_base LAPACK_GLOBAL(zgeev,ZGEEV)
1870void LAPACK_zgeev_base(
1871 char const* jobvl,
char const* jobvr,
1872 lapack_int
const* n,
1873 lapack_complex_double* A, lapack_int
const* lda,
1874 lapack_complex_double* W,
1875 lapack_complex_double* VL, lapack_int
const* ldvl,
1876 lapack_complex_double* VR, lapack_int
const* ldvr,
1877 lapack_complex_double* work, lapack_int
const* lwork,
1880#ifdef LAPACK_FORTRAN_STRLEN_END
1884#ifdef LAPACK_FORTRAN_STRLEN_END
1885 #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__, 1, 1)
1887 #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__)
1890#define LAPACK_cgeevx_base LAPACK_GLOBAL(cgeevx,CGEEVX)
1891void LAPACK_cgeevx_base(
1892 char const* balanc,
char const* jobvl,
char const* jobvr,
char const* sense,
1893 lapack_int
const* n,
1894 lapack_complex_float* A, lapack_int
const* lda,
1895 lapack_complex_float* W,
1896 lapack_complex_float* VL, lapack_int
const* ldvl,
1897 lapack_complex_float* VR, lapack_int
const* ldvr, lapack_int* ilo, lapack_int* ihi,
1902 lapack_complex_float* work, lapack_int
const* lwork,
1905#ifdef LAPACK_FORTRAN_STRLEN_END
1906 ,
size_t,
size_t,
size_t,
size_t
1909#ifdef LAPACK_FORTRAN_STRLEN_END
1910 #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1912 #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__)
1915#define LAPACK_dgeevx_base LAPACK_GLOBAL(dgeevx,DGEEVX)
1916void LAPACK_dgeevx_base(
1917 char const* balanc,
char const* jobvl,
char const* jobvr,
char const* sense,
1918 lapack_int
const* n,
1919 double* A, lapack_int
const* lda,
1922 double* VL, lapack_int
const* ldvl,
1923 double* VR, lapack_int
const* ldvr, lapack_int* ilo, lapack_int* ihi,
1928 double* work, lapack_int
const* lwork,
1931#ifdef LAPACK_FORTRAN_STRLEN_END
1932 ,
size_t,
size_t,
size_t,
size_t
1935#ifdef LAPACK_FORTRAN_STRLEN_END
1936 #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1938 #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__)
1941#define LAPACK_sgeevx_base LAPACK_GLOBAL(sgeevx,SGEEVX)
1942void LAPACK_sgeevx_base(
1943 char const* balanc,
char const* jobvl,
char const* jobvr,
char const* sense,
1944 lapack_int
const* n,
1945 float* A, lapack_int
const* lda,
1948 float* VL, lapack_int
const* ldvl,
1949 float* VR, lapack_int
const* ldvr, lapack_int* ilo, lapack_int* ihi,
1954 float* work, lapack_int
const* lwork,
1957#ifdef LAPACK_FORTRAN_STRLEN_END
1958 ,
size_t,
size_t,
size_t,
size_t
1961#ifdef LAPACK_FORTRAN_STRLEN_END
1962 #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1964 #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__)
1967#define LAPACK_zgeevx_base LAPACK_GLOBAL(zgeevx,ZGEEVX)
1968void LAPACK_zgeevx_base(
1969 char const* balanc,
char const* jobvl,
char const* jobvr,
char const* sense,
1970 lapack_int
const* n,
1971 lapack_complex_double* A, lapack_int
const* lda,
1972 lapack_complex_double* W,
1973 lapack_complex_double* VL, lapack_int
const* ldvl,
1974 lapack_complex_double* VR, lapack_int
const* ldvr, lapack_int* ilo, lapack_int* ihi,
1979 lapack_complex_double* work, lapack_int
const* lwork,
1982#ifdef LAPACK_FORTRAN_STRLEN_END
1983 ,
size_t,
size_t,
size_t,
size_t
1986#ifdef LAPACK_FORTRAN_STRLEN_END
1987 #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1989 #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__)
1992#define LAPACK_cgehrd LAPACK_GLOBAL(cgehrd,CGEHRD)
1994 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
1995 lapack_complex_float* A, lapack_int
const* lda,
1996 lapack_complex_float* tau,
1997 lapack_complex_float* work, lapack_int
const* lwork,
2000#define LAPACK_dgehrd LAPACK_GLOBAL(dgehrd,DGEHRD)
2002 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
2003 double* A, lapack_int
const* lda,
2005 double* work, lapack_int
const* lwork,
2008#define LAPACK_sgehrd LAPACK_GLOBAL(sgehrd,SGEHRD)
2010 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
2011 float* A, lapack_int
const* lda,
2013 float* work, lapack_int
const* lwork,
2016#define LAPACK_zgehrd LAPACK_GLOBAL(zgehrd,ZGEHRD)
2018 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
2019 lapack_complex_double* A, lapack_int
const* lda,
2020 lapack_complex_double* tau,
2021 lapack_complex_double* work, lapack_int
const* lwork,
2024#define LAPACK_cgejsv_base LAPACK_GLOBAL(cgejsv,CGEJSV)
2025void LAPACK_cgejsv_base(
2026 char const* joba,
char const* jobu,
char const* jobv,
char const* jobr,
char const* jobt,
char const* jobp,
2027 lapack_int
const* m, lapack_int
const* n,
2028 lapack_complex_float* A, lapack_int
const* lda,
2030 lapack_complex_float* U, lapack_int
const* ldu,
2031 lapack_complex_float* V, lapack_int
const* ldv,
2032 lapack_complex_float* cwork, lapack_int
const* lwork,
2033 float* rwork, lapack_int
const* lrwork,
2036#ifdef LAPACK_FORTRAN_STRLEN_END
2037 ,
size_t,
size_t,
size_t,
size_t,
size_t,
size_t
2040#ifdef LAPACK_FORTRAN_STRLEN_END
2041 #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2043 #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__)
2046#define LAPACK_dgejsv_base LAPACK_GLOBAL(dgejsv,DGEJSV)
2047void LAPACK_dgejsv_base(
2048 char const* joba,
char const* jobu,
char const* jobv,
char const* jobr,
char const* jobt,
char const* jobp,
2049 lapack_int
const* m, lapack_int
const* n,
2050 double* A, lapack_int
const* lda,
2052 double* U, lapack_int
const* ldu,
2053 double* V, lapack_int
const* ldv,
2054 double* work, lapack_int
const* lwork,
2057#ifdef LAPACK_FORTRAN_STRLEN_END
2058 ,
size_t,
size_t,
size_t,
size_t,
size_t,
size_t
2061#ifdef LAPACK_FORTRAN_STRLEN_END
2062 #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2064 #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__)
2067#define LAPACK_sgejsv_base LAPACK_GLOBAL(sgejsv,SGEJSV)
2068void LAPACK_sgejsv_base(
2069 char const* joba,
char const* jobu,
char const* jobv,
char const* jobr,
char const* jobt,
char const* jobp,
2070 lapack_int
const* m, lapack_int
const* n,
2071 float* A, lapack_int
const* lda,
2073 float* U, lapack_int
const* ldu,
2074 float* V, lapack_int
const* ldv,
2075 float* work, lapack_int
const* lwork,
2078#ifdef LAPACK_FORTRAN_STRLEN_END
2079 ,
size_t,
size_t,
size_t,
size_t,
size_t,
size_t
2082#ifdef LAPACK_FORTRAN_STRLEN_END
2083 #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2085 #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__)
2088#define LAPACK_zgejsv_base LAPACK_GLOBAL(zgejsv,ZGEJSV)
2089void LAPACK_zgejsv_base(
2090 char const* joba,
char const* jobu,
char const* jobv,
char const* jobr,
char const* jobt,
char const* jobp,
2091 lapack_int
const* m, lapack_int
const* n,
2092 lapack_complex_double* A, lapack_int
const* lda,
2094 lapack_complex_double* U, lapack_int
const* ldu,
2095 lapack_complex_double* V, lapack_int
const* ldv,
2096 lapack_complex_double* cwork, lapack_int
const* lwork,
2097 double* rwork, lapack_int
const* lrwork,
2100#ifdef LAPACK_FORTRAN_STRLEN_END
2101 ,
size_t,
size_t,
size_t,
size_t,
size_t,
size_t
2104#ifdef LAPACK_FORTRAN_STRLEN_END
2105 #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2107 #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__)
2110#define LAPACK_cgelq LAPACK_GLOBAL(cgelq,CGELQ)
2112 lapack_int
const* m, lapack_int
const* n,
2113 lapack_complex_float* A, lapack_int
const* lda,
2114 lapack_complex_float* T, lapack_int
const* tsize,
2115 lapack_complex_float* work, lapack_int
const* lwork,
2118#define LAPACK_dgelq LAPACK_GLOBAL(dgelq,DGELQ)
2120 lapack_int
const* m, lapack_int
const* n,
2121 double* A, lapack_int
const* lda,
2122 double* T, lapack_int
const* tsize,
2123 double* work, lapack_int
const* lwork,
2126#define LAPACK_sgelq LAPACK_GLOBAL(sgelq,SGELQ)
2128 lapack_int
const* m, lapack_int
const* n,
2129 float* A, lapack_int
const* lda,
2130 float* T, lapack_int
const* tsize,
2131 float* work, lapack_int
const* lwork,
2134#define LAPACK_zgelq LAPACK_GLOBAL(zgelq,ZGELQ)
2136 lapack_int
const* m, lapack_int
const* n,
2137 lapack_complex_double* A, lapack_int
const* lda,
2138 lapack_complex_double* T, lapack_int
const* tsize,
2139 lapack_complex_double* work, lapack_int
const* lwork,
2142#define LAPACK_cgelq2 LAPACK_GLOBAL(cgelq2,CGELQ2)
2144 lapack_int
const* m, lapack_int
const* n,
2145 lapack_complex_float* A, lapack_int
const* lda,
2146 lapack_complex_float* tau,
2147 lapack_complex_float* work,
2150#define LAPACK_dgelq2 LAPACK_GLOBAL(dgelq2,DGELQ2)
2152 lapack_int
const* m, lapack_int
const* n,
2153 double* A, lapack_int
const* lda,
2158#define LAPACK_sgelq2 LAPACK_GLOBAL(sgelq2,SGELQ2)
2160 lapack_int
const* m, lapack_int
const* n,
2161 float* A, lapack_int
const* lda,
2166#define LAPACK_zgelq2 LAPACK_GLOBAL(zgelq2,ZGELQ2)
2168 lapack_int
const* m, lapack_int
const* n,
2169 lapack_complex_double* A, lapack_int
const* lda,
2170 lapack_complex_double* tau,
2171 lapack_complex_double* work,
2174#define LAPACK_cgelqf LAPACK_GLOBAL(cgelqf,CGELQF)
2176 lapack_int
const* m, lapack_int
const* n,
2177 lapack_complex_float* A, lapack_int
const* lda,
2178 lapack_complex_float* tau,
2179 lapack_complex_float* work, lapack_int
const* lwork,
2182#define LAPACK_dgelqf LAPACK_GLOBAL(dgelqf,DGELQF)
2184 lapack_int
const* m, lapack_int
const* n,
2185 double* A, lapack_int
const* lda,
2187 double* work, lapack_int
const* lwork,
2190#define LAPACK_sgelqf LAPACK_GLOBAL(sgelqf,SGELQF)
2192 lapack_int
const* m, lapack_int
const* n,
2193 float* A, lapack_int
const* lda,
2195 float* work, lapack_int
const* lwork,
2198#define LAPACK_zgelqf LAPACK_GLOBAL(zgelqf,ZGELQF)
2200 lapack_int
const* m, lapack_int
const* n,
2201 lapack_complex_double* A, lapack_int
const* lda,
2202 lapack_complex_double* tau,
2203 lapack_complex_double* work, lapack_int
const* lwork,
2206#define LAPACK_cgels_base LAPACK_GLOBAL(cgels,CGELS)
2207void LAPACK_cgels_base(
2209 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2210 lapack_complex_float* A, lapack_int
const* lda,
2211 lapack_complex_float* B, lapack_int
const* ldb,
2212 lapack_complex_float* work, lapack_int
const* lwork,
2214#ifdef LAPACK_FORTRAN_STRLEN_END
2218#ifdef LAPACK_FORTRAN_STRLEN_END
2219 #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__, 1)
2221 #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__)
2224#define LAPACK_dgels_base LAPACK_GLOBAL(dgels,DGELS)
2225void LAPACK_dgels_base(
2227 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2228 double* A, lapack_int
const* lda,
2229 double* B, lapack_int
const* ldb,
2230 double* work, lapack_int
const* lwork,
2232#ifdef LAPACK_FORTRAN_STRLEN_END
2236#ifdef LAPACK_FORTRAN_STRLEN_END
2237 #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__, 1)
2239 #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__)
2242#define LAPACK_sgels_base LAPACK_GLOBAL(sgels,SGELS)
2243void LAPACK_sgels_base(
2245 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2246 float* A, lapack_int
const* lda,
2247 float* B, lapack_int
const* ldb,
2248 float* work, lapack_int
const* lwork,
2250#ifdef LAPACK_FORTRAN_STRLEN_END
2254#ifdef LAPACK_FORTRAN_STRLEN_END
2255 #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__, 1)
2257 #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__)
2260#define LAPACK_zgels_base LAPACK_GLOBAL(zgels,ZGELS)
2261void LAPACK_zgels_base(
2263 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2264 lapack_complex_double* A, lapack_int
const* lda,
2265 lapack_complex_double* B, lapack_int
const* ldb,
2266 lapack_complex_double* work, lapack_int
const* lwork,
2268#ifdef LAPACK_FORTRAN_STRLEN_END
2272#ifdef LAPACK_FORTRAN_STRLEN_END
2273 #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__, 1)
2275 #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__)
2278#define LAPACK_cgelsd LAPACK_GLOBAL(cgelsd,CGELSD)
2280 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2281 lapack_complex_float* A, lapack_int
const* lda,
2282 lapack_complex_float* B, lapack_int
const* ldb,
2284 float const* rcond, lapack_int* rank,
2285 lapack_complex_float* work, lapack_int
const* lwork,
2290#define LAPACK_dgelsd LAPACK_GLOBAL(dgelsd,DGELSD)
2292 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2293 double* A, lapack_int
const* lda,
2294 double* B, lapack_int
const* ldb,
2296 double const* rcond, lapack_int* rank,
2297 double* work, lapack_int
const* lwork,
2301#define LAPACK_sgelsd LAPACK_GLOBAL(sgelsd,SGELSD)
2303 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2304 float* A, lapack_int
const* lda,
2305 float* B, lapack_int
const* ldb,
2307 float const* rcond, lapack_int* rank,
2308 float* work, lapack_int
const* lwork,
2312#define LAPACK_zgelsd LAPACK_GLOBAL(zgelsd,ZGELSD)
2314 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2315 lapack_complex_double* A, lapack_int
const* lda,
2316 lapack_complex_double* B, lapack_int
const* ldb,
2318 double const* rcond, lapack_int* rank,
2319 lapack_complex_double* work, lapack_int
const* lwork,
2324#define LAPACK_cgelss LAPACK_GLOBAL(cgelss,CGELSS)
2326 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2327 lapack_complex_float* A, lapack_int
const* lda,
2328 lapack_complex_float* B, lapack_int
const* ldb,
2330 float const* rcond, lapack_int* rank,
2331 lapack_complex_float* work, lapack_int
const* lwork,
2335#define LAPACK_dgelss LAPACK_GLOBAL(dgelss,DGELSS)
2337 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2338 double* A, lapack_int
const* lda,
2339 double* B, lapack_int
const* ldb,
2341 double const* rcond, lapack_int* rank,
2342 double* work, lapack_int
const* lwork,
2345#define LAPACK_sgelss LAPACK_GLOBAL(sgelss,SGELSS)
2347 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2348 float* A, lapack_int
const* lda,
2349 float* B, lapack_int
const* ldb,
2351 float const* rcond, lapack_int* rank,
2352 float* work, lapack_int
const* lwork,
2355#define LAPACK_zgelss LAPACK_GLOBAL(zgelss,ZGELSS)
2357 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2358 lapack_complex_double* A, lapack_int
const* lda,
2359 lapack_complex_double* B, lapack_int
const* ldb,
2361 double const* rcond, lapack_int* rank,
2362 lapack_complex_double* work, lapack_int
const* lwork,
2366#define LAPACK_cgelsy LAPACK_GLOBAL(cgelsy,CGELSY)
2368 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2369 lapack_complex_float* A, lapack_int
const* lda,
2370 lapack_complex_float* B, lapack_int
const* ldb, lapack_int* JPVT,
2371 float const* rcond, lapack_int* rank,
2372 lapack_complex_float* work, lapack_int
const* lwork,
2376#define LAPACK_dgelsy LAPACK_GLOBAL(dgelsy,DGELSY)
2378 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2379 double* A, lapack_int
const* lda,
2380 double* B, lapack_int
const* ldb, lapack_int* JPVT,
2381 double const* rcond, lapack_int* rank,
2382 double* work, lapack_int
const* lwork,
2385#define LAPACK_sgelsy LAPACK_GLOBAL(sgelsy,SGELSY)
2387 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2388 float* A, lapack_int
const* lda,
2389 float* B, lapack_int
const* ldb, lapack_int* JPVT,
2390 float const* rcond, lapack_int* rank,
2391 float* work, lapack_int
const* lwork,
2394#define LAPACK_zgelsy LAPACK_GLOBAL(zgelsy,ZGELSY)
2396 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
2397 lapack_complex_double* A, lapack_int
const* lda,
2398 lapack_complex_double* B, lapack_int
const* ldb, lapack_int* JPVT,
2399 double const* rcond, lapack_int* rank,
2400 lapack_complex_double* work, lapack_int
const* lwork,
2404#define LAPACK_cgemlq_base LAPACK_GLOBAL(cgemlq,CGEMLQ)
2405void LAPACK_cgemlq_base(
2406 char const* side,
char const* trans,
2407 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
2408 lapack_complex_float
const* A, lapack_int
const* lda,
2409 lapack_complex_float
const* T, lapack_int
const* tsize,
2410 lapack_complex_float* C, lapack_int
const* ldc,
2411 lapack_complex_float* work, lapack_int
const* lwork,
2413#ifdef LAPACK_FORTRAN_STRLEN_END
2417#ifdef LAPACK_FORTRAN_STRLEN_END
2418 #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__, 1, 1)
2420 #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__)
2423#define LAPACK_dgemlq_base LAPACK_GLOBAL(dgemlq,DGEMLQ)
2424void LAPACK_dgemlq_base(
2425 char const* side,
char const* trans,
2426 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
2427 double const* A, lapack_int
const* lda,
2428 double const* T, lapack_int
const* tsize,
2429 double* C, lapack_int
const* ldc,
2430 double* work, lapack_int
const* lwork,
2432#ifdef LAPACK_FORTRAN_STRLEN_END
2436#ifdef LAPACK_FORTRAN_STRLEN_END
2437 #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__, 1, 1)
2439 #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__)
2442#define LAPACK_sgemlq_base LAPACK_GLOBAL(sgemlq,SGEMLQ)
2443void LAPACK_sgemlq_base(
2444 char const* side,
char const* trans,
2445 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
2446 float const* A, lapack_int
const* lda,
2447 float const* T, lapack_int
const* tsize,
2448 float* C, lapack_int
const* ldc,
2449 float* work, lapack_int
const* lwork,
2451#ifdef LAPACK_FORTRAN_STRLEN_END
2455#ifdef LAPACK_FORTRAN_STRLEN_END
2456 #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__, 1, 1)
2458 #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__)
2461#define LAPACK_zgemlq_base LAPACK_GLOBAL(zgemlq,ZGEMLQ)
2462void LAPACK_zgemlq_base(
2463 char const* side,
char const* trans,
2464 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
2465 lapack_complex_double
const* A, lapack_int
const* lda,
2466 lapack_complex_double
const* T, lapack_int
const* tsize,
2467 lapack_complex_double* C, lapack_int
const* ldc,
2468 lapack_complex_double* work, lapack_int
const* lwork,
2470#ifdef LAPACK_FORTRAN_STRLEN_END
2474#ifdef LAPACK_FORTRAN_STRLEN_END
2475 #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__, 1, 1)
2477 #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__)
2480#define LAPACK_cgemqr_base LAPACK_GLOBAL(cgemqr,CGEMQR)
2481void LAPACK_cgemqr_base(
2482 char const* side,
char const* trans,
2483 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
2484 lapack_complex_float
const* A, lapack_int
const* lda,
2485 lapack_complex_float
const* T, lapack_int
const* tsize,
2486 lapack_complex_float* C, lapack_int
const* ldc,
2487 lapack_complex_float* work, lapack_int
const* lwork,
2489#ifdef LAPACK_FORTRAN_STRLEN_END
2493#ifdef LAPACK_FORTRAN_STRLEN_END
2494 #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__, 1, 1)
2496 #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__)
2499#define LAPACK_dgemqr_base LAPACK_GLOBAL(dgemqr,DGEMQR)
2500void LAPACK_dgemqr_base(
2501 char const* side,
char const* trans,
2502 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
2503 double const* A, lapack_int
const* lda,
2504 double const* T, lapack_int
const* tsize,
2505 double* C, lapack_int
const* ldc,
2506 double* work, lapack_int
const* lwork,
2508#ifdef LAPACK_FORTRAN_STRLEN_END
2512#ifdef LAPACK_FORTRAN_STRLEN_END
2513 #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__, 1, 1)
2515 #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__)
2518#define LAPACK_sgemqr_base LAPACK_GLOBAL(sgemqr,SGEMQR)
2519void LAPACK_sgemqr_base(
2520 char const* side,
char const* trans,
2521 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
2522 float const* A, lapack_int
const* lda,
2523 float const* T, lapack_int
const* tsize,
2524 float* C, lapack_int
const* ldc,
2525 float* work, lapack_int
const* lwork,
2527#ifdef LAPACK_FORTRAN_STRLEN_END
2531#ifdef LAPACK_FORTRAN_STRLEN_END
2532 #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__, 1, 1)
2534 #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__)
2537#define LAPACK_zgemqr_base LAPACK_GLOBAL(zgemqr,ZGEMQR)
2538void LAPACK_zgemqr_base(
2539 char const* side,
char const* trans,
2540 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
2541 lapack_complex_double
const* A, lapack_int
const* lda,
2542 lapack_complex_double
const* T, lapack_int
const* tsize,
2543 lapack_complex_double* C, lapack_int
const* ldc,
2544 lapack_complex_double* work, lapack_int
const* lwork,
2546#ifdef LAPACK_FORTRAN_STRLEN_END
2550#ifdef LAPACK_FORTRAN_STRLEN_END
2551 #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__, 1, 1)
2553 #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__)
2556#define LAPACK_cgemqrt_base LAPACK_GLOBAL(cgemqrt,CGEMQRT)
2557void LAPACK_cgemqrt_base(
2558 char const* side,
char const* trans,
2559 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* nb,
2560 lapack_complex_float
const* V, lapack_int
const* ldv,
2561 lapack_complex_float
const* T, lapack_int
const* ldt,
2562 lapack_complex_float* C, lapack_int
const* ldc,
2563 lapack_complex_float* work,
2565#ifdef LAPACK_FORTRAN_STRLEN_END
2569#ifdef LAPACK_FORTRAN_STRLEN_END
2570 #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__, 1, 1)
2572 #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__)
2575#define LAPACK_dgemqrt_base LAPACK_GLOBAL(dgemqrt,DGEMQRT)
2576void LAPACK_dgemqrt_base(
2577 char const* side,
char const* trans,
2578 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* nb,
2579 double const* V, lapack_int
const* ldv,
2580 double const* T, lapack_int
const* ldt,
2581 double* C, lapack_int
const* ldc,
2584#ifdef LAPACK_FORTRAN_STRLEN_END
2588#ifdef LAPACK_FORTRAN_STRLEN_END
2589 #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__, 1, 1)
2591 #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__)
2594#define LAPACK_sgemqrt_base LAPACK_GLOBAL(sgemqrt,SGEMQRT)
2595void LAPACK_sgemqrt_base(
2596 char const* side,
char const* trans,
2597 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* nb,
2598 float const* V, lapack_int
const* ldv,
2599 float const* T, lapack_int
const* ldt,
2600 float* C, lapack_int
const* ldc,
2603#ifdef LAPACK_FORTRAN_STRLEN_END
2607#ifdef LAPACK_FORTRAN_STRLEN_END
2608 #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__, 1, 1)
2610 #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__)
2613#define LAPACK_zgemqrt_base LAPACK_GLOBAL(zgemqrt,ZGEMQRT)
2614void LAPACK_zgemqrt_base(
2615 char const* side,
char const* trans,
2616 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* nb,
2617 lapack_complex_double
const* V, lapack_int
const* ldv,
2618 lapack_complex_double
const* T, lapack_int
const* ldt,
2619 lapack_complex_double* C, lapack_int
const* ldc,
2620 lapack_complex_double* work,
2622#ifdef LAPACK_FORTRAN_STRLEN_END
2626#ifdef LAPACK_FORTRAN_STRLEN_END
2627 #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__, 1, 1)
2629 #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__)
2632#define LAPACK_cgeql2 LAPACK_GLOBAL(cgeql2,CGEQL2)
2634 lapack_int
const* m, lapack_int
const* n,
2635 lapack_complex_float* A, lapack_int
const* lda,
2636 lapack_complex_float* tau,
2637 lapack_complex_float* work,
2640#define LAPACK_dgeql2 LAPACK_GLOBAL(dgeql2,DGEQL2)
2642 lapack_int
const* m, lapack_int
const* n,
2643 double* A, lapack_int
const* lda,
2648#define LAPACK_sgeql2 LAPACK_GLOBAL(sgeql2,SGEQL2)
2650 lapack_int
const* m, lapack_int
const* n,
2651 float* A, lapack_int
const* lda,
2656#define LAPACK_zgeql2 LAPACK_GLOBAL(zgeql2,ZGEQL2)
2658 lapack_int
const* m, lapack_int
const* n,
2659 lapack_complex_double* A, lapack_int
const* lda,
2660 lapack_complex_double* tau,
2661 lapack_complex_double* work,
2664#define LAPACK_cgeqlf LAPACK_GLOBAL(cgeqlf,CGEQLF)
2666 lapack_int
const* m, lapack_int
const* n,
2667 lapack_complex_float* A, lapack_int
const* lda,
2668 lapack_complex_float* tau,
2669 lapack_complex_float* work, lapack_int
const* lwork,
2672#define LAPACK_dgeqlf LAPACK_GLOBAL(dgeqlf,DGEQLF)
2674 lapack_int
const* m, lapack_int
const* n,
2675 double* A, lapack_int
const* lda,
2677 double* work, lapack_int
const* lwork,
2680#define LAPACK_sgeqlf LAPACK_GLOBAL(sgeqlf,SGEQLF)
2682 lapack_int
const* m, lapack_int
const* n,
2683 float* A, lapack_int
const* lda,
2685 float* work, lapack_int
const* lwork,
2688#define LAPACK_zgeqlf LAPACK_GLOBAL(zgeqlf,ZGEQLF)
2690 lapack_int
const* m, lapack_int
const* n,
2691 lapack_complex_double* A, lapack_int
const* lda,
2692 lapack_complex_double* tau,
2693 lapack_complex_double* work, lapack_int
const* lwork,
2696#define LAPACK_sgeqpf LAPACK_GLOBAL(sgeqpf,SGEQPF)
2697void LAPACK_sgeqpf( lapack_int* m, lapack_int* n,
float* a, lapack_int* lda,
2698 lapack_int* jpvt,
float* tau,
float* work,
2701#define LAPACK_dgeqpf LAPACK_GLOBAL(dgeqpf,DGEQPF)
2702void LAPACK_dgeqpf( lapack_int* m, lapack_int* n,
double* a, lapack_int* lda,
2703 lapack_int* jpvt,
double* tau,
double* work,
2706#define LAPACK_cgeqpf LAPACK_GLOBAL(cgeqpf,CGEQPF)
2707void LAPACK_cgeqpf( lapack_int* m, lapack_int* n, lapack_complex_float* a,
2708 lapack_int* lda, lapack_int* jpvt,
2709 lapack_complex_float* tau, lapack_complex_float* work,
2710 float* rwork, lapack_int *info );
2712#define LAPACK_zgeqpf LAPACK_GLOBAL(zgeqpf,ZGEQPF)
2713void LAPACK_zgeqpf( lapack_int* m, lapack_int* n, lapack_complex_double* a,
2714 lapack_int* lda, lapack_int* jpvt,
2715 lapack_complex_double* tau, lapack_complex_double* work,
2716 double* rwork, lapack_int *info );
2718#define LAPACK_cgeqp3 LAPACK_GLOBAL(cgeqp3,CGEQP3)
2720 lapack_int
const* m, lapack_int
const* n,
2721 lapack_complex_float* A, lapack_int
const* lda, lapack_int* JPVT,
2722 lapack_complex_float* tau,
2723 lapack_complex_float* work, lapack_int
const* lwork,
2727#define LAPACK_dgeqp3 LAPACK_GLOBAL(dgeqp3,DGEQP3)
2729 lapack_int
const* m, lapack_int
const* n,
2730 double* A, lapack_int
const* lda, lapack_int* JPVT,
2732 double* work, lapack_int
const* lwork,
2735#define LAPACK_sgeqp3 LAPACK_GLOBAL(sgeqp3,SGEQP3)
2737 lapack_int
const* m, lapack_int
const* n,
2738 float* A, lapack_int
const* lda, lapack_int* JPVT,
2740 float* work, lapack_int
const* lwork,
2743#define LAPACK_zgeqp3 LAPACK_GLOBAL(zgeqp3,ZGEQP3)
2745 lapack_int
const* m, lapack_int
const* n,
2746 lapack_complex_double* A, lapack_int
const* lda, lapack_int* JPVT,
2747 lapack_complex_double* tau,
2748 lapack_complex_double* work, lapack_int
const* lwork,
2752#define LAPACK_cgeqr LAPACK_GLOBAL(cgeqr,CGEQR)
2754 lapack_int
const* m, lapack_int
const* n,
2755 lapack_complex_float* A, lapack_int
const* lda,
2756 lapack_complex_float* T, lapack_int
const* tsize,
2757 lapack_complex_float* work, lapack_int
const* lwork,
2760#define LAPACK_dgeqr LAPACK_GLOBAL(dgeqr,DGEQR)
2762 lapack_int
const* m, lapack_int
const* n,
2763 double* A, lapack_int
const* lda,
2764 double* T, lapack_int
const* tsize,
2765 double* work, lapack_int
const* lwork,
2768#define LAPACK_sgeqr LAPACK_GLOBAL(sgeqr,SGEQR)
2770 lapack_int
const* m, lapack_int
const* n,
2771 float* A, lapack_int
const* lda,
2772 float* T, lapack_int
const* tsize,
2773 float* work, lapack_int
const* lwork,
2776#define LAPACK_zgeqr LAPACK_GLOBAL(zgeqr,ZGEQR)
2778 lapack_int
const* m, lapack_int
const* n,
2779 lapack_complex_double* A, lapack_int
const* lda,
2780 lapack_complex_double* T, lapack_int
const* tsize,
2781 lapack_complex_double* work, lapack_int
const* lwork,
2784#define LAPACK_cgeqr2 LAPACK_GLOBAL(cgeqr2,CGEQR2)
2786 lapack_int
const* m, lapack_int
const* n,
2787 lapack_complex_float* A, lapack_int
const* lda,
2788 lapack_complex_float* tau,
2789 lapack_complex_float* work,
2792#define LAPACK_dgeqr2 LAPACK_GLOBAL(dgeqr2,DGEQR2)
2794 lapack_int
const* m, lapack_int
const* n,
2795 double* A, lapack_int
const* lda,
2800#define LAPACK_sgeqr2 LAPACK_GLOBAL(sgeqr2,SGEQR2)
2802 lapack_int
const* m, lapack_int
const* n,
2803 float* A, lapack_int
const* lda,
2808#define LAPACK_zgeqr2 LAPACK_GLOBAL(zgeqr2,ZGEQR2)
2810 lapack_int
const* m, lapack_int
const* n,
2811 lapack_complex_double* A, lapack_int
const* lda,
2812 lapack_complex_double* tau,
2813 lapack_complex_double* work,
2816#define LAPACK_cgeqrf LAPACK_GLOBAL(cgeqrf,CGEQRF)
2818 lapack_int
const* m, lapack_int
const* n,
2819 lapack_complex_float* A, lapack_int
const* lda,
2820 lapack_complex_float* tau,
2821 lapack_complex_float* work, lapack_int
const* lwork,
2824#define LAPACK_dgeqrf LAPACK_GLOBAL(dgeqrf,DGEQRF)
2826 lapack_int
const* m, lapack_int
const* n,
2827 double* A, lapack_int
const* lda,
2829 double* work, lapack_int
const* lwork,
2832#define LAPACK_sgeqrf LAPACK_GLOBAL(sgeqrf,SGEQRF)
2834 lapack_int
const* m, lapack_int
const* n,
2835 float* A, lapack_int
const* lda,
2837 float* work, lapack_int
const* lwork,
2840#define LAPACK_zgeqrf LAPACK_GLOBAL(zgeqrf,ZGEQRF)
2842 lapack_int
const* m, lapack_int
const* n,
2843 lapack_complex_double* A, lapack_int
const* lda,
2844 lapack_complex_double* tau,
2845 lapack_complex_double* work, lapack_int
const* lwork,
2848#define LAPACK_cgeqrfp LAPACK_GLOBAL(cgeqrfp,CGEQRFP)
2850 lapack_int
const* m, lapack_int
const* n,
2851 lapack_complex_float* A, lapack_int
const* lda,
2852 lapack_complex_float* tau,
2853 lapack_complex_float* work, lapack_int
const* lwork,
2856#define LAPACK_dgeqrfp LAPACK_GLOBAL(dgeqrfp,DGEQRFP)
2858 lapack_int
const* m, lapack_int
const* n,
2859 double* A, lapack_int
const* lda,
2861 double* work, lapack_int
const* lwork,
2864#define LAPACK_sgeqrfp LAPACK_GLOBAL(sgeqrfp,SGEQRFP)
2866 lapack_int
const* m, lapack_int
const* n,
2867 float* A, lapack_int
const* lda,
2869 float* work, lapack_int
const* lwork,
2872#define LAPACK_zgeqrfp LAPACK_GLOBAL(zgeqrfp,ZGEQRFP)
2874 lapack_int
const* m, lapack_int
const* n,
2875 lapack_complex_double* A, lapack_int
const* lda,
2876 lapack_complex_double* tau,
2877 lapack_complex_double* work, lapack_int
const* lwork,
2880#define LAPACK_cgeqrt LAPACK_GLOBAL(cgeqrt,CGEQRT)
2882 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nb,
2883 lapack_complex_float* A, lapack_int
const* lda,
2884 lapack_complex_float* T, lapack_int
const* ldt,
2885 lapack_complex_float* work,
2888#define LAPACK_dgeqrt LAPACK_GLOBAL(dgeqrt,DGEQRT)
2890 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nb,
2891 double* A, lapack_int
const* lda,
2892 double* T, lapack_int
const* ldt,
2896#define LAPACK_sgeqrt LAPACK_GLOBAL(sgeqrt,SGEQRT)
2898 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nb,
2899 float* A, lapack_int
const* lda,
2900 float* T, lapack_int
const* ldt,
2904#define LAPACK_zgeqrt LAPACK_GLOBAL(zgeqrt,ZGEQRT)
2906 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nb,
2907 lapack_complex_double* A, lapack_int
const* lda,
2908 lapack_complex_double* T, lapack_int
const* ldt,
2909 lapack_complex_double* work,
2912#define LAPACK_cgeqrt2 LAPACK_GLOBAL(cgeqrt2,CGEQRT2)
2914 lapack_int
const* m, lapack_int
const* n,
2915 lapack_complex_float* A, lapack_int
const* lda,
2916 lapack_complex_float* T, lapack_int
const* ldt,
2919#define LAPACK_dgeqrt2 LAPACK_GLOBAL(dgeqrt2,DGEQRT2)
2921 lapack_int
const* m, lapack_int
const* n,
2922 double* A, lapack_int
const* lda,
2923 double* T, lapack_int
const* ldt,
2926#define LAPACK_sgeqrt2 LAPACK_GLOBAL(sgeqrt2,SGEQRT2)
2928 lapack_int
const* m, lapack_int
const* n,
2929 float* A, lapack_int
const* lda,
2930 float* T, lapack_int
const* ldt,
2933#define LAPACK_zgeqrt2 LAPACK_GLOBAL(zgeqrt2,ZGEQRT2)
2935 lapack_int
const* m, lapack_int
const* n,
2936 lapack_complex_double* A, lapack_int
const* lda,
2937 lapack_complex_double* T, lapack_int
const* ldt,
2940#define LAPACK_cgeqrt3 LAPACK_GLOBAL(cgeqrt3,CGEQRT3)
2942 lapack_int
const* m, lapack_int
const* n,
2943 lapack_complex_float* A, lapack_int
const* lda,
2944 lapack_complex_float* T, lapack_int
const* ldt,
2947#define LAPACK_dgeqrt3 LAPACK_GLOBAL(dgeqrt3,DGEQRT3)
2949 lapack_int
const* m, lapack_int
const* n,
2950 double* A, lapack_int
const* lda,
2951 double* T, lapack_int
const* ldt,
2954#define LAPACK_sgeqrt3 LAPACK_GLOBAL(sgeqrt3,SGEQRT3)
2956 lapack_int
const* m, lapack_int
const* n,
2957 float* A, lapack_int
const* lda,
2958 float* T, lapack_int
const* ldt,
2961#define LAPACK_zgeqrt3 LAPACK_GLOBAL(zgeqrt3,ZGEQRT3)
2963 lapack_int
const* m, lapack_int
const* n,
2964 lapack_complex_double* A, lapack_int
const* lda,
2965 lapack_complex_double* T, lapack_int
const* ldt,
2968#define LAPACK_cgerfs_base LAPACK_GLOBAL(cgerfs,CGERFS)
2969void LAPACK_cgerfs_base(
2971 lapack_int
const* n, lapack_int
const* nrhs,
2972 lapack_complex_float
const* A, lapack_int
const* lda,
2973 lapack_complex_float
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
2974 lapack_complex_float
const* B, lapack_int
const* ldb,
2975 lapack_complex_float* X, lapack_int
const* ldx,
2978 lapack_complex_float* work,
2981#ifdef LAPACK_FORTRAN_STRLEN_END
2985#ifdef LAPACK_FORTRAN_STRLEN_END
2986 #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__, 1)
2988 #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__)
2991#define LAPACK_dgerfs_base LAPACK_GLOBAL(dgerfs,DGERFS)
2992void LAPACK_dgerfs_base(
2994 lapack_int
const* n, lapack_int
const* nrhs,
2995 double const* A, lapack_int
const* lda,
2996 double const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
2997 double const* B, lapack_int
const* ldb,
2998 double* X, lapack_int
const* ldx,
3004#ifdef LAPACK_FORTRAN_STRLEN_END
3008#ifdef LAPACK_FORTRAN_STRLEN_END
3009 #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__, 1)
3011 #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__)
3014#define LAPACK_sgerfs_base LAPACK_GLOBAL(sgerfs,SGERFS)
3015void LAPACK_sgerfs_base(
3017 lapack_int
const* n, lapack_int
const* nrhs,
3018 float const* A, lapack_int
const* lda,
3019 float const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
3020 float const* B, lapack_int
const* ldb,
3021 float* X, lapack_int
const* ldx,
3027#ifdef LAPACK_FORTRAN_STRLEN_END
3031#ifdef LAPACK_FORTRAN_STRLEN_END
3032 #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__, 1)
3034 #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__)
3037#define LAPACK_zgerfs_base LAPACK_GLOBAL(zgerfs,ZGERFS)
3038void LAPACK_zgerfs_base(
3040 lapack_int
const* n, lapack_int
const* nrhs,
3041 lapack_complex_double
const* A, lapack_int
const* lda,
3042 lapack_complex_double
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
3043 lapack_complex_double
const* B, lapack_int
const* ldb,
3044 lapack_complex_double* X, lapack_int
const* ldx,
3047 lapack_complex_double* work,
3050#ifdef LAPACK_FORTRAN_STRLEN_END
3054#ifdef LAPACK_FORTRAN_STRLEN_END
3055 #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__, 1)
3057 #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__)
3060#define LAPACK_cgerfsx_base LAPACK_GLOBAL(cgerfsx,CGERFSX)
3061void LAPACK_cgerfsx_base(
3062 char const* trans,
char const* equed,
3063 lapack_int
const* n, lapack_int
const* nrhs,
3064 lapack_complex_float
const* A, lapack_int
const* lda,
3065 lapack_complex_float
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
3068 lapack_complex_float
const* B, lapack_int
const* ldb,
3069 lapack_complex_float* X, lapack_int
const* ldx,
3071 float* berr, lapack_int
const* n_err_bnds,
3072 float* err_bnds_norm,
3073 float* err_bnds_comp, lapack_int
const* nparams,
3075 lapack_complex_float* work,
3078#ifdef LAPACK_FORTRAN_STRLEN_END
3082#ifdef LAPACK_FORTRAN_STRLEN_END
3083 #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__, 1, 1)
3085 #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__)
3088#define LAPACK_dgerfsx_base LAPACK_GLOBAL(dgerfsx,DGERFSX)
3089void LAPACK_dgerfsx_base(
3090 char const* trans,
char const* equed,
3091 lapack_int
const* n, lapack_int
const* nrhs,
3092 double const* A, lapack_int
const* lda,
3093 double const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
3096 double const* B, lapack_int
const* ldb,
3097 double* X, lapack_int
const* ldx,
3099 double* berr, lapack_int
const* n_err_bnds,
3100 double* err_bnds_norm,
3101 double* err_bnds_comp, lapack_int
const* nparams,
3106#ifdef LAPACK_FORTRAN_STRLEN_END
3110#ifdef LAPACK_FORTRAN_STRLEN_END
3111 #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__, 1, 1)
3113 #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__)
3116#define LAPACK_sgerfsx_base LAPACK_GLOBAL(sgerfsx,SGERFSX)
3117void LAPACK_sgerfsx_base(
3118 char const* trans,
char const* equed,
3119 lapack_int
const* n, lapack_int
const* nrhs,
3120 float const* A, lapack_int
const* lda,
3121 float const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
3124 float const* B, lapack_int
const* ldb,
3125 float* X, lapack_int
const* ldx,
3127 float* berr, lapack_int
const* n_err_bnds,
3128 float* err_bnds_norm,
3129 float* err_bnds_comp, lapack_int
const* nparams,
3134#ifdef LAPACK_FORTRAN_STRLEN_END
3138#ifdef LAPACK_FORTRAN_STRLEN_END
3139 #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__, 1, 1)
3141 #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__)
3144#define LAPACK_zgerfsx_base LAPACK_GLOBAL(zgerfsx,ZGERFSX)
3145void LAPACK_zgerfsx_base(
3146 char const* trans,
char const* equed,
3147 lapack_int
const* n, lapack_int
const* nrhs,
3148 lapack_complex_double
const* A, lapack_int
const* lda,
3149 lapack_complex_double
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
3152 lapack_complex_double
const* B, lapack_int
const* ldb,
3153 lapack_complex_double* X, lapack_int
const* ldx,
3155 double* berr, lapack_int
const* n_err_bnds,
3156 double* err_bnds_norm,
3157 double* err_bnds_comp, lapack_int
const* nparams,
3159 lapack_complex_double* work,
3162#ifdef LAPACK_FORTRAN_STRLEN_END
3166#ifdef LAPACK_FORTRAN_STRLEN_END
3167 #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__, 1, 1)
3169 #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__)
3172#define LAPACK_cgerq2 LAPACK_GLOBAL(cgerq2,CGERQ2)
3174 lapack_int
const* m, lapack_int
const* n,
3175 lapack_complex_float* A, lapack_int
const* lda,
3176 lapack_complex_float* tau,
3177 lapack_complex_float* work,
3180#define LAPACK_dgerq2 LAPACK_GLOBAL(dgerq2,DGERQ2)
3182 lapack_int
const* m, lapack_int
const* n,
3183 double* A, lapack_int
const* lda,
3188#define LAPACK_sgerq2 LAPACK_GLOBAL(sgerq2,SGERQ2)
3190 lapack_int
const* m, lapack_int
const* n,
3191 float* A, lapack_int
const* lda,
3196#define LAPACK_zgerq2 LAPACK_GLOBAL(zgerq2,ZGERQ2)
3198 lapack_int
const* m, lapack_int
const* n,
3199 lapack_complex_double* A, lapack_int
const* lda,
3200 lapack_complex_double* tau,
3201 lapack_complex_double* work,
3204#define LAPACK_cgerqf LAPACK_GLOBAL(cgerqf,CGERQF)
3206 lapack_int
const* m, lapack_int
const* n,
3207 lapack_complex_float* A, lapack_int
const* lda,
3208 lapack_complex_float* tau,
3209 lapack_complex_float* work, lapack_int
const* lwork,
3212#define LAPACK_dgerqf LAPACK_GLOBAL(dgerqf,DGERQF)
3214 lapack_int
const* m, lapack_int
const* n,
3215 double* A, lapack_int
const* lda,
3217 double* work, lapack_int
const* lwork,
3220#define LAPACK_sgerqf LAPACK_GLOBAL(sgerqf,SGERQF)
3222 lapack_int
const* m, lapack_int
const* n,
3223 float* A, lapack_int
const* lda,
3225 float* work, lapack_int
const* lwork,
3228#define LAPACK_zgerqf LAPACK_GLOBAL(zgerqf,ZGERQF)
3230 lapack_int
const* m, lapack_int
const* n,
3231 lapack_complex_double* A, lapack_int
const* lda,
3232 lapack_complex_double* tau,
3233 lapack_complex_double* work, lapack_int
const* lwork,
3236#define LAPACK_cgesdd_base LAPACK_GLOBAL(cgesdd,CGESDD)
3237void LAPACK_cgesdd_base(
3239 lapack_int
const* m, lapack_int
const* n,
3240 lapack_complex_float* A, lapack_int
const* lda,
3242 lapack_complex_float* U, lapack_int
const* ldu,
3243 lapack_complex_float* VT, lapack_int
const* ldvt,
3244 lapack_complex_float* work, lapack_int
const* lwork,
3248#ifdef LAPACK_FORTRAN_STRLEN_END
3252#ifdef LAPACK_FORTRAN_STRLEN_END
3253 #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__, 1)
3255 #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__)
3258#define LAPACK_dgesdd_base LAPACK_GLOBAL(dgesdd,DGESDD)
3259void LAPACK_dgesdd_base(
3261 lapack_int
const* m, lapack_int
const* n,
3262 double* A, lapack_int
const* lda,
3264 double* U, lapack_int
const* ldu,
3265 double* VT, lapack_int
const* ldvt,
3266 double* work, lapack_int
const* lwork,
3269#ifdef LAPACK_FORTRAN_STRLEN_END
3273#ifdef LAPACK_FORTRAN_STRLEN_END
3274 #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__, 1)
3276 #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__)
3279#define LAPACK_sgesdd_base LAPACK_GLOBAL(sgesdd,SGESDD)
3280void LAPACK_sgesdd_base(
3282 lapack_int
const* m, lapack_int
const* n,
3283 float* A, lapack_int
const* lda,
3285 float* U, lapack_int
const* ldu,
3286 float* VT, lapack_int
const* ldvt,
3287 float* work, lapack_int
const* lwork,
3290#ifdef LAPACK_FORTRAN_STRLEN_END
3294#ifdef LAPACK_FORTRAN_STRLEN_END
3295 #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__, 1)
3297 #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__)
3300#define LAPACK_zgesdd_base LAPACK_GLOBAL(zgesdd,ZGESDD)
3301void LAPACK_zgesdd_base(
3303 lapack_int
const* m, lapack_int
const* n,
3304 lapack_complex_double* A, lapack_int
const* lda,
3306 lapack_complex_double* U, lapack_int
const* ldu,
3307 lapack_complex_double* VT, lapack_int
const* ldvt,
3308 lapack_complex_double* work, lapack_int
const* lwork,
3312#ifdef LAPACK_FORTRAN_STRLEN_END
3316#ifdef LAPACK_FORTRAN_STRLEN_END
3317 #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__, 1)
3319 #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__)
3322#define LAPACK_cgesv LAPACK_GLOBAL(cgesv,CGESV)
3324 lapack_int
const* n, lapack_int
const* nrhs,
3325 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
3326 lapack_complex_float* B, lapack_int
const* ldb,
3329#define LAPACK_dgesv LAPACK_GLOBAL(dgesv,DGESV)
3331 lapack_int
const* n, lapack_int
const* nrhs,
3332 double* A, lapack_int
const* lda, lapack_int* ipiv,
3333 double* B, lapack_int
const* ldb,
3336#define LAPACK_sgesv LAPACK_GLOBAL(sgesv,SGESV)
3338 lapack_int
const* n, lapack_int
const* nrhs,
3339 float* A, lapack_int
const* lda, lapack_int* ipiv,
3340 float* B, lapack_int
const* ldb,
3343#define LAPACK_zgesv LAPACK_GLOBAL(zgesv,ZGESV)
3345 lapack_int
const* n, lapack_int
const* nrhs,
3346 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
3347 lapack_complex_double* B, lapack_int
const* ldb,
3350#define LAPACK_dsgesv LAPACK_GLOBAL(dsgesv,DSGESV)
3352 lapack_int
const* n, lapack_int
const* nrhs,
3353 double* A, lapack_int
const* lda, lapack_int* ipiv,
3354 double const* B, lapack_int
const* ldb,
3355 double* X, lapack_int
const* ldx,
3357 float* swork, lapack_int* iter,
3360#define LAPACK_zcgesv LAPACK_GLOBAL(zcgesv,ZCGESV)
3362 lapack_int
const* n, lapack_int
const* nrhs,
3363 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
3364 lapack_complex_double
const* B, lapack_int
const* ldb,
3365 lapack_complex_double* X, lapack_int
const* ldx,
3366 lapack_complex_double* work,
3367 lapack_complex_float* swork,
3368 double* rwork, lapack_int* iter,
3371#define LAPACK_cgesvd_base LAPACK_GLOBAL(cgesvd,CGESVD)
3372void LAPACK_cgesvd_base(
3373 char const* jobu,
char const* jobvt,
3374 lapack_int
const* m, lapack_int
const* n,
3375 lapack_complex_float* A, lapack_int
const* lda,
3377 lapack_complex_float* U, lapack_int
const* ldu,
3378 lapack_complex_float* VT, lapack_int
const* ldvt,
3379 lapack_complex_float* work, lapack_int
const* lwork,
3382#ifdef LAPACK_FORTRAN_STRLEN_END
3386#ifdef LAPACK_FORTRAN_STRLEN_END
3387 #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__, 1, 1)
3389 #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__)
3392#define LAPACK_dgesvd_base LAPACK_GLOBAL(dgesvd,DGESVD)
3393void LAPACK_dgesvd_base(
3394 char const* jobu,
char const* jobvt,
3395 lapack_int
const* m, lapack_int
const* n,
3396 double* A, lapack_int
const* lda,
3398 double* U, lapack_int
const* ldu,
3399 double* VT, lapack_int
const* ldvt,
3400 double* work, lapack_int
const* lwork,
3402#ifdef LAPACK_FORTRAN_STRLEN_END
3406#ifdef LAPACK_FORTRAN_STRLEN_END
3407 #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__, 1, 1)
3409 #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__)
3412#define LAPACK_sgesvd_base LAPACK_GLOBAL(sgesvd,SGESVD)
3413void LAPACK_sgesvd_base(
3414 char const* jobu,
char const* jobvt,
3415 lapack_int
const* m, lapack_int
const* n,
3416 float* A, lapack_int
const* lda,
3418 float* U, lapack_int
const* ldu,
3419 float* VT, lapack_int
const* ldvt,
3420 float* work, lapack_int
const* lwork,
3422#ifdef LAPACK_FORTRAN_STRLEN_END
3426#ifdef LAPACK_FORTRAN_STRLEN_END
3427 #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__, 1, 1)
3429 #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__)
3432#define LAPACK_zgesvd_base LAPACK_GLOBAL(zgesvd,ZGESVD)
3433void LAPACK_zgesvd_base(
3434 char const* jobu,
char const* jobvt,
3435 lapack_int
const* m, lapack_int
const* n,
3436 lapack_complex_double* A, lapack_int
const* lda,
3438 lapack_complex_double* U, lapack_int
const* ldu,
3439 lapack_complex_double* VT, lapack_int
const* ldvt,
3440 lapack_complex_double* work, lapack_int
const* lwork,
3443#ifdef LAPACK_FORTRAN_STRLEN_END
3447#ifdef LAPACK_FORTRAN_STRLEN_END
3448 #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__, 1, 1)
3450 #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__)
3453#define LAPACK_cgesvdq_base LAPACK_GLOBAL(cgesvdq,CGESVDQ)
3454void LAPACK_cgesvdq_base(
3455 char const* joba,
char const* jobp,
char const* jobr,
char const* jobu,
char const* jobv,
3456 lapack_int
const* m, lapack_int
const* n,
3457 lapack_complex_float* A, lapack_int
const* lda,
3459 lapack_complex_float* U, lapack_int
const* ldu,
3460 lapack_complex_float* V, lapack_int
const* ldv, lapack_int* numrank,
3461 lapack_int* iwork, lapack_int
const* liwork,
3462 lapack_complex_float* cwork, lapack_int* lcwork,
3463 float* rwork, lapack_int
const* lrwork,
3465#ifdef LAPACK_FORTRAN_STRLEN_END
3466 ,
size_t,
size_t,
size_t,
size_t,
size_t
3469#ifdef LAPACK_FORTRAN_STRLEN_END
3470 #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3472 #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__)
3475#define LAPACK_dgesvdq_base LAPACK_GLOBAL(dgesvdq,DGESVDQ)
3476void LAPACK_dgesvdq_base(
3477 char const* joba,
char const* jobp,
char const* jobr,
char const* jobu,
char const* jobv,
3478 lapack_int
const* m, lapack_int
const* n,
3479 double* A, lapack_int
const* lda,
3481 double* U, lapack_int
const* ldu,
3482 double* V, lapack_int
const* ldv, lapack_int* numrank,
3483 lapack_int* iwork, lapack_int
const* liwork,
3484 double* work, lapack_int* lwork,
3485 double* rwork, lapack_int
const* lrwork,
3487#ifdef LAPACK_FORTRAN_STRLEN_END
3488 ,
size_t,
size_t,
size_t,
size_t,
size_t
3491#ifdef LAPACK_FORTRAN_STRLEN_END
3492 #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3494 #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__)
3497#define LAPACK_sgesvdq_base LAPACK_GLOBAL(sgesvdq,SGESVDQ)
3498void LAPACK_sgesvdq_base(
3499 char const* joba,
char const* jobp,
char const* jobr,
char const* jobu,
char const* jobv,
3500 lapack_int
const* m, lapack_int
const* n,
3501 float* A, lapack_int
const* lda,
3503 float* U, lapack_int
const* ldu,
3504 float* V, lapack_int
const* ldv, lapack_int* numrank,
3505 lapack_int* iwork, lapack_int
const* liwork,
3506 float* work, lapack_int* lwork,
3507 float* rwork, lapack_int
const* lrwork,
3509#ifdef LAPACK_FORTRAN_STRLEN_END
3510 ,
size_t,
size_t,
size_t,
size_t,
size_t
3513#ifdef LAPACK_FORTRAN_STRLEN_END
3514 #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3516 #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__)
3519#define LAPACK_zgesvdq_base LAPACK_GLOBAL(zgesvdq,ZGESVDQ)
3520void LAPACK_zgesvdq_base(
3521 char const* joba,
char const* jobp,
char const* jobr,
char const* jobu,
char const* jobv,
3522 lapack_int
const* m, lapack_int
const* n,
3523 lapack_complex_double* A, lapack_int
const* lda,
3525 lapack_complex_double* U, lapack_int
const* ldu,
3526 lapack_complex_double* V, lapack_int
const* ldv, lapack_int* numrank,
3527 lapack_int* iwork, lapack_int
const* liwork,
3528 lapack_complex_double* cwork, lapack_int* lcwork,
3529 double* rwork, lapack_int
const* lrwork,
3531#ifdef LAPACK_FORTRAN_STRLEN_END
3532 ,
size_t,
size_t,
size_t,
size_t,
size_t
3535#ifdef LAPACK_FORTRAN_STRLEN_END
3536 #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3538 #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__)
3541#define LAPACK_cgesvdx_base LAPACK_GLOBAL(cgesvdx,CGESVDX)
3542void LAPACK_cgesvdx_base(
3543 char const* jobu,
char const* jobvt,
char const* range,
3544 lapack_int
const* m, lapack_int
const* n,
3545 lapack_complex_float* A, lapack_int
const* lda,
3547 float const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* ns,
3549 lapack_complex_float* U, lapack_int
const* ldu,
3550 lapack_complex_float* VT, lapack_int
const* ldvt,
3551 lapack_complex_float* work, lapack_int
const* lwork,
3555#ifdef LAPACK_FORTRAN_STRLEN_END
3556 ,
size_t,
size_t,
size_t
3559#ifdef LAPACK_FORTRAN_STRLEN_END
3560 #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__, 1, 1, 1)
3562 #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__)
3566#define LAPACK_dgesvdx_base LAPACK_GLOBAL(dgesvdx,DGESVDX)
3567void LAPACK_dgesvdx_base(
3568 char const* jobu,
char const* jobvt,
char const* range,
3569 lapack_int
const* m, lapack_int
const* n,
3570 double* A, lapack_int
const* lda,
3572 double const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* ns,
3574 double* U, lapack_int
const* ldu,
3575 double* VT, lapack_int
const* ldvt,
3576 double* work, lapack_int
const* lwork,
3579#ifdef LAPACK_FORTRAN_STRLEN_END
3580 ,
size_t,
size_t,
size_t
3583#ifdef LAPACK_FORTRAN_STRLEN_END
3584 #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__, 1, 1, 1)
3586 #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__)
3589#define LAPACK_sgesvdx_base LAPACK_GLOBAL(sgesvdx,SGESVDX)
3590void LAPACK_sgesvdx_base(
3591 char const* jobu,
char const* jobvt,
char const* range,
3592 lapack_int
const* m, lapack_int
const* n,
3593 float* A, lapack_int
const* lda,
3595 float const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* ns,
3597 float* U, lapack_int
const* ldu,
3598 float* VT, lapack_int
const* ldvt,
3599 float* work, lapack_int
const* lwork,
3602#ifdef LAPACK_FORTRAN_STRLEN_END
3603 ,
size_t,
size_t,
size_t
3606#ifdef LAPACK_FORTRAN_STRLEN_END
3607 #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__, 1, 1, 1)
3609 #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__)
3612#define LAPACK_zgesvdx_base LAPACK_GLOBAL(zgesvdx,ZGESVDX)
3613void LAPACK_zgesvdx_base(
3614 char const* jobu,
char const* jobvt,
char const* range,
3615 lapack_int
const* m, lapack_int
const* n,
3616 lapack_complex_double* A, lapack_int
const* lda,
3618 double const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* ns,
3620 lapack_complex_double* U, lapack_int
const* ldu,
3621 lapack_complex_double* VT, lapack_int
const* ldvt,
3622 lapack_complex_double* work, lapack_int
const* lwork,
3626#ifdef LAPACK_FORTRAN_STRLEN_END
3627 ,
size_t,
size_t,
size_t
3630#ifdef LAPACK_FORTRAN_STRLEN_END
3631 #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__, 1, 1, 1)
3633 #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__)
3636#define LAPACK_cgesvj_base LAPACK_GLOBAL(cgesvj,CGESVJ)
3637void LAPACK_cgesvj_base(
3638 char const* joba,
char const* jobu,
char const* jobv,
3639 lapack_int
const* m, lapack_int
const* n,
3640 lapack_complex_float* A, lapack_int
const* lda,
3641 float* SVA, lapack_int
const* mv,
3642 lapack_complex_float* V, lapack_int
const* ldv,
3643 lapack_complex_float* cwork, lapack_int
const* lwork,
3644 float* rwork, lapack_int
const* lrwork,
3646#ifdef LAPACK_FORTRAN_STRLEN_END
3647 ,
size_t,
size_t,
size_t
3650#ifdef LAPACK_FORTRAN_STRLEN_END
3651 #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__, 1, 1, 1)
3653 #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__)
3656#define LAPACK_dgesvj_base LAPACK_GLOBAL(dgesvj,DGESVJ)
3657void LAPACK_dgesvj_base(
3658 char const* joba,
char const* jobu,
char const* jobv,
3659 lapack_int
const* m, lapack_int
const* n,
3660 double* A, lapack_int
const* lda,
3661 double* SVA, lapack_int
const* mv,
3662 double* V, lapack_int
const* ldv,
3663 double* work, lapack_int
const* lwork,
3665#ifdef LAPACK_FORTRAN_STRLEN_END
3666 ,
size_t,
size_t,
size_t
3669#ifdef LAPACK_FORTRAN_STRLEN_END
3670 #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__, 1, 1, 1)
3672 #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__)
3675#define LAPACK_sgesvj_base LAPACK_GLOBAL(sgesvj,SGESVJ)
3676void LAPACK_sgesvj_base(
3677 char const* joba,
char const* jobu,
char const* jobv,
3678 lapack_int
const* m, lapack_int
const* n,
3679 float* A, lapack_int
const* lda,
3680 float* SVA, lapack_int
const* mv,
3681 float* V, lapack_int
const* ldv,
3682 float* work, lapack_int
const* lwork,
3684#ifdef LAPACK_FORTRAN_STRLEN_END
3685 ,
size_t,
size_t,
size_t
3688#ifdef LAPACK_FORTRAN_STRLEN_END
3689 #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__, 1, 1, 1)
3691 #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__)
3694#define LAPACK_zgesvj_base LAPACK_GLOBAL(zgesvj,ZGESVJ)
3695void LAPACK_zgesvj_base(
3696 char const* joba,
char const* jobu,
char const* jobv,
3697 lapack_int
const* m, lapack_int
const* n,
3698 lapack_complex_double* A, lapack_int
const* lda,
3699 double* SVA, lapack_int
const* mv,
3700 lapack_complex_double* V, lapack_int
const* ldv,
3701 lapack_complex_double* cwork, lapack_int
const* lwork,
3702 double* rwork, lapack_int
const* lrwork,
3704#ifdef LAPACK_FORTRAN_STRLEN_END
3705 ,
size_t,
size_t,
size_t
3708#ifdef LAPACK_FORTRAN_STRLEN_END
3709 #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__, 1, 1, 1)
3711 #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__)
3714#define LAPACK_cgesvx_base LAPACK_GLOBAL(cgesvx,CGESVX)
3715void LAPACK_cgesvx_base(
3716 char const* fact,
char const* trans,
3717 lapack_int
const* n, lapack_int
const* nrhs,
3718 lapack_complex_float* A, lapack_int
const* lda,
3719 lapack_complex_float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
3722 lapack_complex_float* B,
3723 lapack_int
const* ldb,
3724 lapack_complex_float* X, lapack_int
const* ldx,
3728 lapack_complex_float* work,
3731#ifdef LAPACK_FORTRAN_STRLEN_END
3732 ,
size_t,
size_t,
size_t
3735#ifdef LAPACK_FORTRAN_STRLEN_END
3736 #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__, 1, 1, 1)
3738 #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__)
3741#define LAPACK_dgesvx_base LAPACK_GLOBAL(dgesvx,DGESVX)
3742void LAPACK_dgesvx_base(
3743 char const* fact,
char const* trans,
3744 lapack_int
const* n, lapack_int
const* nrhs,
3745 double* A, lapack_int
const* lda,
3746 double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
3750 lapack_int
const* ldb,
3751 double* X, lapack_int
const* ldx,
3758#ifdef LAPACK_FORTRAN_STRLEN_END
3759 ,
size_t,
size_t,
size_t
3762#ifdef LAPACK_FORTRAN_STRLEN_END
3763 #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__, 1, 1, 1)
3765 #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__)
3768#define LAPACK_sgesvx_base LAPACK_GLOBAL(sgesvx,SGESVX)
3769void LAPACK_sgesvx_base(
3770 char const* fact,
char const* trans,
3771 lapack_int
const* n, lapack_int
const* nrhs,
3772 float* A, lapack_int
const* lda,
3773 float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
3777 lapack_int
const* ldb,
3778 float* X, lapack_int
const* ldx,
3785#ifdef LAPACK_FORTRAN_STRLEN_END
3786 ,
size_t,
size_t,
size_t
3789#ifdef LAPACK_FORTRAN_STRLEN_END
3790 #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__, 1, 1, 1)
3792 #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__)
3795#define LAPACK_zgesvx_base LAPACK_GLOBAL(zgesvx,ZGESVX)
3796void LAPACK_zgesvx_base(
3797 char const* fact,
char const* trans,
3798 lapack_int
const* n, lapack_int
const* nrhs,
3799 lapack_complex_double* A, lapack_int
const* lda,
3800 lapack_complex_double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
3803 lapack_complex_double* B,
3804 lapack_int
const* ldb,
3805 lapack_complex_double* X, lapack_int
const* ldx,
3809 lapack_complex_double* work,
3812#ifdef LAPACK_FORTRAN_STRLEN_END
3813 ,
size_t,
size_t,
size_t
3816#ifdef LAPACK_FORTRAN_STRLEN_END
3817 #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__, 1, 1, 1)
3819 #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__)
3822#define LAPACK_cgesvxx_base LAPACK_GLOBAL(cgesvxx,CGESVXX)
3823void LAPACK_cgesvxx_base(
3824 char const* fact,
char const* trans,
3825 lapack_int
const* n, lapack_int
const* nrhs,
3826 lapack_complex_float* A, lapack_int
const* lda,
3827 lapack_complex_float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
3830 lapack_complex_float* B,
3831 lapack_int
const* ldb,
3832 lapack_complex_float* X, lapack_int
const* ldx,
3835 float* berr, lapack_int
const* n_err_bnds,
3836 float* err_bnds_norm,
3837 float* err_bnds_comp, lapack_int
const* nparams,
3839 lapack_complex_float* work,
3842#ifdef LAPACK_FORTRAN_STRLEN_END
3843 ,
size_t,
size_t,
size_t
3846#ifdef LAPACK_FORTRAN_STRLEN_END
3847 #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__, 1, 1, 1)
3849 #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__)
3852#define LAPACK_dgesvxx_base LAPACK_GLOBAL(dgesvxx,DGESVXX)
3853void LAPACK_dgesvxx_base(
3854 char const* fact,
char const* trans,
3855 lapack_int
const* n, lapack_int
const* nrhs,
3856 double* A, lapack_int
const* lda,
3857 double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
3861 lapack_int
const* ldb,
3862 double* X, lapack_int
const* ldx,
3865 double* berr, lapack_int
const* n_err_bnds,
3866 double* err_bnds_norm,
3867 double* err_bnds_comp, lapack_int
const* nparams,
3872#ifdef LAPACK_FORTRAN_STRLEN_END
3873 ,
size_t,
size_t,
size_t
3876#ifdef LAPACK_FORTRAN_STRLEN_END
3877 #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__, 1, 1, 1)
3879 #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__)
3882#define LAPACK_sgesvxx_base LAPACK_GLOBAL(sgesvxx,SGESVXX)
3883void LAPACK_sgesvxx_base(
3884 char const* fact,
char const* trans,
3885 lapack_int
const* n, lapack_int
const* nrhs,
3886 float* A, lapack_int
const* lda,
3887 float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
3891 lapack_int
const* ldb,
3892 float* X, lapack_int
const* ldx,
3895 float* berr, lapack_int
const* n_err_bnds,
3896 float* err_bnds_norm,
3897 float* err_bnds_comp, lapack_int
const* nparams,
3902#ifdef LAPACK_FORTRAN_STRLEN_END
3903 ,
size_t,
size_t,
size_t
3906#ifdef LAPACK_FORTRAN_STRLEN_END
3907 #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__, 1, 1, 1)
3909 #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__)
3912#define LAPACK_zgesvxx_base LAPACK_GLOBAL(zgesvxx,ZGESVXX)
3913void LAPACK_zgesvxx_base(
3914 char const* fact,
char const* trans,
3915 lapack_int
const* n, lapack_int
const* nrhs,
3916 lapack_complex_double* A, lapack_int
const* lda,
3917 lapack_complex_double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
3920 lapack_complex_double* B,
3921 lapack_int
const* ldb,
3922 lapack_complex_double* X, lapack_int
const* ldx,
3925 double* berr, lapack_int
const* n_err_bnds,
3926 double* err_bnds_norm,
3927 double* err_bnds_comp, lapack_int
const* nparams,
3929 lapack_complex_double* work,
3932#ifdef LAPACK_FORTRAN_STRLEN_END
3933 ,
size_t,
size_t,
size_t
3936#ifdef LAPACK_FORTRAN_STRLEN_END
3937 #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__, 1, 1, 1)
3939 #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__)
3942#define LAPACK_cgetf2 LAPACK_GLOBAL(cgetf2,CGETF2)
3944 lapack_int
const* m, lapack_int
const* n,
3945 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
3948#define LAPACK_dgetf2 LAPACK_GLOBAL(dgetf2,DGETF2)
3950 lapack_int
const* m, lapack_int
const* n,
3951 double* A, lapack_int
const* lda, lapack_int* ipiv,
3954#define LAPACK_sgetf2 LAPACK_GLOBAL(sgetf2,SGETF2)
3956 lapack_int
const* m, lapack_int
const* n,
3957 float* A, lapack_int
const* lda, lapack_int* ipiv,
3960#define LAPACK_zgetf2 LAPACK_GLOBAL(zgetf2,ZGETF2)
3962 lapack_int
const* m, lapack_int
const* n,
3963 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
3966#define LAPACK_cgetrf LAPACK_GLOBAL(cgetrf,CGETRF)
3968 lapack_int
const* m, lapack_int
const* n,
3969 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
3972#define LAPACK_dgetrf LAPACK_GLOBAL(dgetrf,DGETRF)
3974 lapack_int
const* m, lapack_int
const* n,
3975 double* A, lapack_int
const* lda, lapack_int* ipiv,
3978#define LAPACK_sgetrf LAPACK_GLOBAL(sgetrf,SGETRF)
3980 lapack_int
const* m, lapack_int
const* n,
3981 float* A, lapack_int
const* lda, lapack_int* ipiv,
3984#define LAPACK_zgetrf LAPACK_GLOBAL(zgetrf,ZGETRF)
3986 lapack_int
const* m, lapack_int
const* n,
3987 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
3990#define LAPACK_cgetrf2 LAPACK_GLOBAL(cgetrf2,CGETRF2)
3992 lapack_int
const* m, lapack_int
const* n,
3993 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
3996#define LAPACK_dgetrf2 LAPACK_GLOBAL(dgetrf2,DGETRF2)
3998 lapack_int
const* m, lapack_int
const* n,
3999 double* A, lapack_int
const* lda, lapack_int* ipiv,
4002#define LAPACK_sgetrf2 LAPACK_GLOBAL(sgetrf2,SGETRF2)
4004 lapack_int
const* m, lapack_int
const* n,
4005 float* A, lapack_int
const* lda, lapack_int* ipiv,
4008#define LAPACK_zgetrf2 LAPACK_GLOBAL(zgetrf2,ZGETRF2)
4010 lapack_int
const* m, lapack_int
const* n,
4011 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
4014#define LAPACK_cgetri LAPACK_GLOBAL(cgetri,CGETRI)
4016 lapack_int
const* n,
4017 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
4018 lapack_complex_float* work, lapack_int
const* lwork,
4021#define LAPACK_dgetri LAPACK_GLOBAL(dgetri,DGETRI)
4023 lapack_int
const* n,
4024 double* A, lapack_int
const* lda, lapack_int
const* ipiv,
4025 double* work, lapack_int
const* lwork,
4028#define LAPACK_sgetri LAPACK_GLOBAL(sgetri,SGETRI)
4030 lapack_int
const* n,
4031 float* A, lapack_int
const* lda, lapack_int
const* ipiv,
4032 float* work, lapack_int
const* lwork,
4035#define LAPACK_zgetri LAPACK_GLOBAL(zgetri,ZGETRI)
4037 lapack_int
const* n,
4038 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
4039 lapack_complex_double* work, lapack_int
const* lwork,
4042#define LAPACK_cgetrs_base LAPACK_GLOBAL(cgetrs,CGETRS)
4043void LAPACK_cgetrs_base(
4045 lapack_int
const* n, lapack_int
const* nrhs,
4046 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
4047 lapack_complex_float* B, lapack_int
const* ldb,
4049#ifdef LAPACK_FORTRAN_STRLEN_END
4053#ifdef LAPACK_FORTRAN_STRLEN_END
4054 #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__, 1)
4056 #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__)
4059#define LAPACK_dgetrs_base LAPACK_GLOBAL(dgetrs,DGETRS)
4060void LAPACK_dgetrs_base(
4062 lapack_int
const* n, lapack_int
const* nrhs,
4063 double const* A, lapack_int
const* lda, lapack_int
const* ipiv,
4064 double* B, lapack_int
const* ldb,
4066#ifdef LAPACK_FORTRAN_STRLEN_END
4070#ifdef LAPACK_FORTRAN_STRLEN_END
4071 #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__, 1)
4073 #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__)
4076#define LAPACK_sgetrs_base LAPACK_GLOBAL(sgetrs,SGETRS)
4077void LAPACK_sgetrs_base(
4079 lapack_int
const* n, lapack_int
const* nrhs,
4080 float const* A, lapack_int
const* lda, lapack_int
const* ipiv,
4081 float* B, lapack_int
const* ldb,
4083#ifdef LAPACK_FORTRAN_STRLEN_END
4087#ifdef LAPACK_FORTRAN_STRLEN_END
4088 #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__, 1)
4090 #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__)
4093#define LAPACK_zgetrs_base LAPACK_GLOBAL(zgetrs,ZGETRS)
4094void LAPACK_zgetrs_base(
4096 lapack_int
const* n, lapack_int
const* nrhs,
4097 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
4098 lapack_complex_double* B, lapack_int
const* ldb,
4100#ifdef LAPACK_FORTRAN_STRLEN_END
4104#ifdef LAPACK_FORTRAN_STRLEN_END
4105 #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__, 1)
4107 #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__)
4110#define LAPACK_cgetsls_base LAPACK_GLOBAL(cgetsls,CGETSLS)
4111void LAPACK_cgetsls_base(
4113 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
4114 lapack_complex_float* A, lapack_int
const* lda,
4115 lapack_complex_float* B, lapack_int
const* ldb,
4116 lapack_complex_float* work, lapack_int
const* lwork,
4118#ifdef LAPACK_FORTRAN_STRLEN_END
4122#ifdef LAPACK_FORTRAN_STRLEN_END
4123 #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__, 1)
4125 #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__)
4128#define LAPACK_dgetsls_base LAPACK_GLOBAL(dgetsls,DGETSLS)
4129void LAPACK_dgetsls_base(
4131 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
4132 double* A, lapack_int
const* lda,
4133 double* B, lapack_int
const* ldb,
4134 double* work, lapack_int
const* lwork,
4136#ifdef LAPACK_FORTRAN_STRLEN_END
4140#ifdef LAPACK_FORTRAN_STRLEN_END
4141 #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__, 1)
4143 #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__)
4146#define LAPACK_sgetsls_base LAPACK_GLOBAL(sgetsls,SGETSLS)
4147void LAPACK_sgetsls_base(
4149 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
4150 float* A, lapack_int
const* lda,
4151 float* B, lapack_int
const* ldb,
4152 float* work, lapack_int
const* lwork,
4154#ifdef LAPACK_FORTRAN_STRLEN_END
4158#ifdef LAPACK_FORTRAN_STRLEN_END
4159 #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__, 1)
4161 #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__)
4164#define LAPACK_zgetsls_base LAPACK_GLOBAL(zgetsls,ZGETSLS)
4165void LAPACK_zgetsls_base(
4167 lapack_int
const* m, lapack_int
const* n, lapack_int
const* nrhs,
4168 lapack_complex_double* A, lapack_int
const* lda,
4169 lapack_complex_double* B, lapack_int
const* ldb,
4170 lapack_complex_double* work, lapack_int
const* lwork,
4172#ifdef LAPACK_FORTRAN_STRLEN_END
4176#ifdef LAPACK_FORTRAN_STRLEN_END
4177 #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__, 1)
4179 #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__)
4182#define LAPACK_cgetsqrhrt LAPACK_GLOBAL(cgetsqrhrt,CGETSQRHRT)
4183void LAPACK_cgetsqrhrt(
4184 lapack_int
const* m, lapack_int
const* n,
4185 lapack_int
const* mb1, lapack_int
const* nb1, lapack_int
const* nb2,
4186 lapack_complex_float* A, lapack_int
const* lda,
4187 lapack_complex_float* T, lapack_int
const* ldt,
4188 lapack_complex_float* work, lapack_int
const* lwork,
4191#define LAPACK_dgetsqrhrt LAPACK_GLOBAL(dgetsqrhrt,DGETSQRHRT)
4192void LAPACK_dgetsqrhrt(
4193 lapack_int
const* m, lapack_int
const* n,
4194 lapack_int
const* mb1, lapack_int
const* nb1, lapack_int
const* nb2,
4195 double* A, lapack_int
const* lda,
4196 double* T, lapack_int
const* ldt,
4197 double* work, lapack_int
const* lwork,
4200#define LAPACK_sgetsqrhrt LAPACK_GLOBAL(sgetsqrhrt,SGETSQRHRT)
4201void LAPACK_sgetsqrhrt(
4202 lapack_int
const* m, lapack_int
const* n,
4203 lapack_int
const* mb1, lapack_int
const* nb1, lapack_int
const* nb2,
4204 float* A, lapack_int
const* lda,
4205 float* T, lapack_int
const* ldt,
4206 float* work, lapack_int
const* lwork,
4209#define LAPACK_zgetsqrhrt LAPACK_GLOBAL(zgetsqrhrt,ZGETSQRHRT)
4210void LAPACK_zgetsqrhrt(
4211 lapack_int
const* m, lapack_int
const* n,
4212 lapack_int
const* mb1, lapack_int
const* nb1, lapack_int
const* nb2,
4213 lapack_complex_double* A, lapack_int
const* lda,
4214 lapack_complex_double* T, lapack_int
const* ldt,
4215 lapack_complex_double* work, lapack_int
const* lwork,
4218#define LAPACK_cggbak_base LAPACK_GLOBAL(cggbak,CGGBAK)
4219void LAPACK_cggbak_base(
4220 char const* job,
char const* side,
4221 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
4222 float const* lscale,
4223 float const* rscale, lapack_int
const* m,
4224 lapack_complex_float* V, lapack_int
const* ldv,
4226#ifdef LAPACK_FORTRAN_STRLEN_END
4230#ifdef LAPACK_FORTRAN_STRLEN_END
4231 #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__, 1, 1)
4233 #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__)
4236#define LAPACK_dggbak_base LAPACK_GLOBAL(dggbak,DGGBAK)
4237void LAPACK_dggbak_base(
4238 char const* job,
char const* side,
4239 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
4240 double const* lscale,
4241 double const* rscale, lapack_int
const* m,
4242 double* V, lapack_int
const* ldv,
4244#ifdef LAPACK_FORTRAN_STRLEN_END
4248#ifdef LAPACK_FORTRAN_STRLEN_END
4249 #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__, 1, 1)
4251 #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__)
4254#define LAPACK_sggbak_base LAPACK_GLOBAL(sggbak,SGGBAK)
4255void LAPACK_sggbak_base(
4256 char const* job,
char const* side,
4257 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
4258 float const* lscale,
4259 float const* rscale, lapack_int
const* m,
4260 float* V, lapack_int
const* ldv,
4262#ifdef LAPACK_FORTRAN_STRLEN_END
4266#ifdef LAPACK_FORTRAN_STRLEN_END
4267 #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__, 1, 1)
4269 #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__)
4272#define LAPACK_zggbak_base LAPACK_GLOBAL(zggbak,ZGGBAK)
4273void LAPACK_zggbak_base(
4274 char const* job,
char const* side,
4275 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
4276 double const* lscale,
4277 double const* rscale, lapack_int
const* m,
4278 lapack_complex_double* V, lapack_int
const* ldv,
4280#ifdef LAPACK_FORTRAN_STRLEN_END
4284#ifdef LAPACK_FORTRAN_STRLEN_END
4285 #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__, 1, 1)
4287 #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__)
4290#define LAPACK_cggbal_base LAPACK_GLOBAL(cggbal,CGGBAL)
4291void LAPACK_cggbal_base(
4293 lapack_int
const* n,
4294 lapack_complex_float* A, lapack_int
const* lda,
4295 lapack_complex_float* B, lapack_int
const* ldb, lapack_int* ilo, lapack_int* ihi,
4300#ifdef LAPACK_FORTRAN_STRLEN_END
4304#ifdef LAPACK_FORTRAN_STRLEN_END
4305 #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__, 1)
4307 #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__)
4310#define LAPACK_dggbal_base LAPACK_GLOBAL(dggbal,DGGBAL)
4311void LAPACK_dggbal_base(
4313 lapack_int
const* n,
4314 double* A, lapack_int
const* lda,
4315 double* B, lapack_int
const* ldb, lapack_int* ilo, lapack_int* ihi,
4320#ifdef LAPACK_FORTRAN_STRLEN_END
4324#ifdef LAPACK_FORTRAN_STRLEN_END
4325 #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__, 1)
4327 #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__)
4330#define LAPACK_sggbal_base LAPACK_GLOBAL(sggbal,SGGBAL)
4331void LAPACK_sggbal_base(
4333 lapack_int
const* n,
4334 float* A, lapack_int
const* lda,
4335 float* B, lapack_int
const* ldb, lapack_int* ilo, lapack_int* ihi,
4340#ifdef LAPACK_FORTRAN_STRLEN_END
4344#ifdef LAPACK_FORTRAN_STRLEN_END
4345 #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__, 1)
4347 #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__)
4350#define LAPACK_zggbal_base LAPACK_GLOBAL(zggbal,ZGGBAL)
4351void LAPACK_zggbal_base(
4353 lapack_int
const* n,
4354 lapack_complex_double* A, lapack_int
const* lda,
4355 lapack_complex_double* B, lapack_int
const* ldb, lapack_int* ilo, lapack_int* ihi,
4360#ifdef LAPACK_FORTRAN_STRLEN_END
4364#ifdef LAPACK_FORTRAN_STRLEN_END
4365 #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__, 1)
4367 #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__)
4370#define LAPACK_cgges_base LAPACK_GLOBAL(cgges,CGGES)
4371void LAPACK_cgges_base(
4372 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_C_SELECT2 selctg,
4373 lapack_int
const* n,
4374 lapack_complex_float* A, lapack_int
const* lda,
4375 lapack_complex_float* B, lapack_int
const* ldb, lapack_int* sdim,
4376 lapack_complex_float* alpha,
4377 lapack_complex_float* beta,
4378 lapack_complex_float* VSL, lapack_int
const* ldvsl,
4379 lapack_complex_float* VSR, lapack_int
const* ldvsr,
4380 lapack_complex_float* work, lapack_int
const* lwork,
4381 float* rwork, lapack_logical* BWORK,
4383#ifdef LAPACK_FORTRAN_STRLEN_END
4384 ,
size_t,
size_t,
size_t
4387#ifdef LAPACK_FORTRAN_STRLEN_END
4388 #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__, 1, 1, 1)
4390 #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__)
4393#define LAPACK_dgges_base LAPACK_GLOBAL(dgges,DGGES)
4394void LAPACK_dgges_base(
4395 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_D_SELECT3 selctg,
4396 lapack_int
const* n,
4397 double* A, lapack_int
const* lda,
4398 double* B, lapack_int
const* ldb, lapack_int* sdim,
4402 double* VSL, lapack_int
const* ldvsl,
4403 double* VSR, lapack_int
const* ldvsr,
4404 double* work, lapack_int
const* lwork, lapack_logical* BWORK,
4406#ifdef LAPACK_FORTRAN_STRLEN_END
4407 ,
size_t,
size_t,
size_t
4410#ifdef LAPACK_FORTRAN_STRLEN_END
4411 #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__, 1, 1, 1)
4413 #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__)
4416#define LAPACK_sgges_base LAPACK_GLOBAL(sgges,SGGES)
4417void LAPACK_sgges_base(
4418 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_S_SELECT3 selctg,
4419 lapack_int
const* n,
4420 float* A, lapack_int
const* lda,
4421 float* B, lapack_int
const* ldb, lapack_int* sdim,
4425 float* VSL, lapack_int
const* ldvsl,
4426 float* VSR, lapack_int
const* ldvsr,
4427 float* work, lapack_int
const* lwork, lapack_logical* BWORK,
4429#ifdef LAPACK_FORTRAN_STRLEN_END
4430 ,
size_t,
size_t,
size_t
4433#ifdef LAPACK_FORTRAN_STRLEN_END
4434 #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__, 1, 1, 1)
4436 #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__)
4439#define LAPACK_zgges_base LAPACK_GLOBAL(zgges,ZGGES)
4440void LAPACK_zgges_base(
4441 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_Z_SELECT2 selctg,
4442 lapack_int
const* n,
4443 lapack_complex_double* A, lapack_int
const* lda,
4444 lapack_complex_double* B, lapack_int
const* ldb, lapack_int* sdim,
4445 lapack_complex_double* alpha,
4446 lapack_complex_double* beta,
4447 lapack_complex_double* VSL, lapack_int
const* ldvsl,
4448 lapack_complex_double* VSR, lapack_int
const* ldvsr,
4449 lapack_complex_double* work, lapack_int
const* lwork,
4450 double* rwork, lapack_logical* BWORK,
4452#ifdef LAPACK_FORTRAN_STRLEN_END
4453 ,
size_t,
size_t,
size_t
4456#ifdef LAPACK_FORTRAN_STRLEN_END
4457 #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__, 1, 1, 1)
4459 #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__)
4462#define LAPACK_cgges3_base LAPACK_GLOBAL(cgges3,CGGES3)
4463void LAPACK_cgges3_base(
4464 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_C_SELECT2 selctg,
4465 lapack_int
const* n,
4466 lapack_complex_float* A, lapack_int
const* lda,
4467 lapack_complex_float* B, lapack_int
const* ldb, lapack_int* sdim,
4468 lapack_complex_float* alpha,
4469 lapack_complex_float* beta,
4470 lapack_complex_float* VSL, lapack_int
const* ldvsl,
4471 lapack_complex_float* VSR, lapack_int
const* ldvsr,
4472 lapack_complex_float* work, lapack_int
const* lwork,
4473 float* rwork, lapack_logical* BWORK,
4475#ifdef LAPACK_FORTRAN_STRLEN_END
4476 ,
size_t,
size_t,
size_t
4479#ifdef LAPACK_FORTRAN_STRLEN_END
4480 #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__, 1, 1, 1)
4482 #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__)
4485#define LAPACK_dgges3_base LAPACK_GLOBAL(dgges3,DGGES3)
4486void LAPACK_dgges3_base(
4487 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_D_SELECT3 selctg,
4488 lapack_int
const* n,
4489 double* A, lapack_int
const* lda,
4490 double* B, lapack_int
const* ldb, lapack_int* sdim,
4494 double* VSL, lapack_int
const* ldvsl,
4495 double* VSR, lapack_int
const* ldvsr,
4496 double* work, lapack_int
const* lwork, lapack_logical* BWORK,
4498#ifdef LAPACK_FORTRAN_STRLEN_END
4499 ,
size_t,
size_t,
size_t
4502#ifdef LAPACK_FORTRAN_STRLEN_END
4503 #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__, 1, 1, 1)
4505 #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__)
4508#define LAPACK_sgges3_base LAPACK_GLOBAL(sgges3,SGGES3)
4509void LAPACK_sgges3_base(
4510 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_S_SELECT3 selctg,
4511 lapack_int
const* n,
4512 float* A, lapack_int
const* lda,
4513 float* B, lapack_int
const* ldb, lapack_int* sdim,
4517 float* VSL, lapack_int
const* ldvsl,
4518 float* VSR, lapack_int
const* ldvsr,
4519 float* work, lapack_int
const* lwork, lapack_logical* BWORK,
4521#ifdef LAPACK_FORTRAN_STRLEN_END
4522 ,
size_t,
size_t,
size_t
4525#ifdef LAPACK_FORTRAN_STRLEN_END
4526 #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__, 1, 1, 1)
4528 #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__)
4531#define LAPACK_zgges3_base LAPACK_GLOBAL(zgges3,ZGGES3)
4532void LAPACK_zgges3_base(
4533 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_Z_SELECT2 selctg,
4534 lapack_int
const* n,
4535 lapack_complex_double* A, lapack_int
const* lda,
4536 lapack_complex_double* B, lapack_int
const* ldb, lapack_int* sdim,
4537 lapack_complex_double* alpha,
4538 lapack_complex_double* beta,
4539 lapack_complex_double* VSL, lapack_int
const* ldvsl,
4540 lapack_complex_double* VSR, lapack_int
const* ldvsr,
4541 lapack_complex_double* work, lapack_int
const* lwork,
4542 double* rwork, lapack_logical* BWORK,
4544#ifdef LAPACK_FORTRAN_STRLEN_END
4545 ,
size_t,
size_t,
size_t
4548#ifdef LAPACK_FORTRAN_STRLEN_END
4549 #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__, 1, 1, 1)
4551 #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__)
4554#define LAPACK_cggesx_base LAPACK_GLOBAL(cggesx,CGGESX)
4555void LAPACK_cggesx_base(
4556 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_C_SELECT2 selctg,
char const* sense,
4557 lapack_int
const* n,
4558 lapack_complex_float* A, lapack_int
const* lda,
4559 lapack_complex_float* B, lapack_int
const* ldb, lapack_int* sdim,
4560 lapack_complex_float* alpha,
4561 lapack_complex_float* beta,
4562 lapack_complex_float* VSL, lapack_int
const* ldvsl,
4563 lapack_complex_float* VSR, lapack_int
const* ldvsr,
4566 lapack_complex_float* work, lapack_int
const* lwork,
4568 lapack_int* iwork, lapack_int
const* liwork, lapack_logical* BWORK,
4570#ifdef LAPACK_FORTRAN_STRLEN_END
4571 ,
size_t,
size_t,
size_t,
size_t
4574#ifdef LAPACK_FORTRAN_STRLEN_END
4575 #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4577 #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__)
4580#define LAPACK_dggesx_base LAPACK_GLOBAL(dggesx,DGGESX)
4581void LAPACK_dggesx_base(
4582 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_D_SELECT3 selctg,
char const* sense,
4583 lapack_int
const* n,
4584 double* A, lapack_int
const* lda,
4585 double* B, lapack_int
const* ldb, lapack_int* sdim,
4589 double* VSL, lapack_int
const* ldvsl,
4590 double* VSR, lapack_int
const* ldvsr,
4593 double* work, lapack_int
const* lwork,
4594 lapack_int* iwork, lapack_int
const* liwork, lapack_logical* BWORK,
4596#ifdef LAPACK_FORTRAN_STRLEN_END
4597 ,
size_t,
size_t,
size_t,
size_t
4600#ifdef LAPACK_FORTRAN_STRLEN_END
4601 #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4603 #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__)
4606#define LAPACK_sggesx_base LAPACK_GLOBAL(sggesx,SGGESX)
4607void LAPACK_sggesx_base(
4608 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_S_SELECT3 selctg,
char const* sense,
4609 lapack_int
const* n,
4610 float* A, lapack_int
const* lda,
4611 float* B, lapack_int
const* ldb, lapack_int* sdim,
4615 float* VSL, lapack_int
const* ldvsl,
4616 float* VSR, lapack_int
const* ldvsr,
4619 float* work, lapack_int
const* lwork,
4620 lapack_int* iwork, lapack_int
const* liwork, lapack_logical* BWORK,
4622#ifdef LAPACK_FORTRAN_STRLEN_END
4623 ,
size_t,
size_t,
size_t,
size_t
4626#ifdef LAPACK_FORTRAN_STRLEN_END
4627 #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4629 #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__)
4632#define LAPACK_zggesx_base LAPACK_GLOBAL(zggesx,ZGGESX)
4633void LAPACK_zggesx_base(
4634 char const* jobvsl,
char const* jobvsr,
char const* sort, LAPACK_Z_SELECT2 selctg,
char const* sense,
4635 lapack_int
const* n,
4636 lapack_complex_double* A, lapack_int
const* lda,
4637 lapack_complex_double* B, lapack_int
const* ldb, lapack_int* sdim,
4638 lapack_complex_double* alpha,
4639 lapack_complex_double* beta,
4640 lapack_complex_double* VSL, lapack_int
const* ldvsl,
4641 lapack_complex_double* VSR, lapack_int
const* ldvsr,
4644 lapack_complex_double* work, lapack_int
const* lwork,
4646 lapack_int* iwork, lapack_int
const* liwork, lapack_logical* BWORK,
4648#ifdef LAPACK_FORTRAN_STRLEN_END
4649 ,
size_t,
size_t,
size_t,
size_t
4652#ifdef LAPACK_FORTRAN_STRLEN_END
4653 #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4655 #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__)
4658#define LAPACK_cggev_base LAPACK_GLOBAL(cggev,CGGEV)
4659void LAPACK_cggev_base(
4660 char const* jobvl,
char const* jobvr,
4661 lapack_int
const* n,
4662 lapack_complex_float* A, lapack_int
const* lda,
4663 lapack_complex_float* B, lapack_int
const* ldb,
4664 lapack_complex_float* alpha,
4665 lapack_complex_float* beta,
4666 lapack_complex_float* VL, lapack_int
const* ldvl,
4667 lapack_complex_float* VR, lapack_int
const* ldvr,
4668 lapack_complex_float* work, lapack_int
const* lwork,
4671#ifdef LAPACK_FORTRAN_STRLEN_END
4675#ifdef LAPACK_FORTRAN_STRLEN_END
4676 #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__, 1, 1)
4678 #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__)
4681#define LAPACK_dggev_base LAPACK_GLOBAL(dggev,DGGEV)
4682void LAPACK_dggev_base(
4683 char const* jobvl,
char const* jobvr,
4684 lapack_int
const* n,
4685 double* A, lapack_int
const* lda,
4686 double* B, lapack_int
const* ldb,
4690 double* VL, lapack_int
const* ldvl,
4691 double* VR, lapack_int
const* ldvr,
4692 double* work, lapack_int
const* lwork,
4694#ifdef LAPACK_FORTRAN_STRLEN_END
4698#ifdef LAPACK_FORTRAN_STRLEN_END
4699 #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__, 1, 1)
4701 #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__)
4704#define LAPACK_sggev_base LAPACK_GLOBAL(sggev,SGGEV)
4705void LAPACK_sggev_base(
4706 char const* jobvl,
char const* jobvr,
4707 lapack_int
const* n,
4708 float* A, lapack_int
const* lda,
4709 float* B, lapack_int
const* ldb,
4713 float* VL, lapack_int
const* ldvl,
4714 float* VR, lapack_int
const* ldvr,
4715 float* work, lapack_int
const* lwork,
4717#ifdef LAPACK_FORTRAN_STRLEN_END
4721#ifdef LAPACK_FORTRAN_STRLEN_END
4722 #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__, 1, 1)
4724 #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__)
4727#define LAPACK_zggev_base LAPACK_GLOBAL(zggev,ZGGEV)
4728void LAPACK_zggev_base(
4729 char const* jobvl,
char const* jobvr,
4730 lapack_int
const* n,
4731 lapack_complex_double* A, lapack_int
const* lda,
4732 lapack_complex_double* B, lapack_int
const* ldb,
4733 lapack_complex_double* alpha,
4734 lapack_complex_double* beta,
4735 lapack_complex_double* VL, lapack_int
const* ldvl,
4736 lapack_complex_double* VR, lapack_int
const* ldvr,
4737 lapack_complex_double* work, lapack_int
const* lwork,
4740#ifdef LAPACK_FORTRAN_STRLEN_END
4744#ifdef LAPACK_FORTRAN_STRLEN_END
4745 #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__, 1, 1)
4747 #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__)
4750#define LAPACK_cggev3_base LAPACK_GLOBAL(cggev3,CGGEV3)
4751void LAPACK_cggev3_base(
4752 char const* jobvl,
char const* jobvr,
4753 lapack_int
const* n,
4754 lapack_complex_float* A, lapack_int
const* lda,
4755 lapack_complex_float* B, lapack_int
const* ldb,
4756 lapack_complex_float* alpha,
4757 lapack_complex_float* beta,
4758 lapack_complex_float* VL, lapack_int
const* ldvl,
4759 lapack_complex_float* VR, lapack_int
const* ldvr,
4760 lapack_complex_float* work, lapack_int
const* lwork,
4763#ifdef LAPACK_FORTRAN_STRLEN_END
4767#ifdef LAPACK_FORTRAN_STRLEN_END
4768 #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__, 1, 1)
4770 #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__)
4773#define LAPACK_dggev3_base LAPACK_GLOBAL(dggev3,DGGEV3)
4774void LAPACK_dggev3_base(
4775 char const* jobvl,
char const* jobvr,
4776 lapack_int
const* n,
4777 double* A, lapack_int
const* lda,
4778 double* B, lapack_int
const* ldb,
4782 double* VL, lapack_int
const* ldvl,
4783 double* VR, lapack_int
const* ldvr,
4784 double* work, lapack_int
const* lwork,
4786#ifdef LAPACK_FORTRAN_STRLEN_END
4790#ifdef LAPACK_FORTRAN_STRLEN_END
4791 #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__, 1, 1)
4793 #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__)
4796#define LAPACK_sggev3_base LAPACK_GLOBAL(sggev3,SGGEV3)
4797void LAPACK_sggev3_base(
4798 char const* jobvl,
char const* jobvr,
4799 lapack_int
const* n,
4800 float* A, lapack_int
const* lda,
4801 float* B, lapack_int
const* ldb,
4805 float* VL, lapack_int
const* ldvl,
4806 float* VR, lapack_int
const* ldvr,
4807 float* work, lapack_int
const* lwork,
4809#ifdef LAPACK_FORTRAN_STRLEN_END
4813#ifdef LAPACK_FORTRAN_STRLEN_END
4814 #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__, 1, 1)
4816 #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__)
4819#define LAPACK_zggev3_base LAPACK_GLOBAL(zggev3,ZGGEV3)
4820void LAPACK_zggev3_base(
4821 char const* jobvl,
char const* jobvr,
4822 lapack_int
const* n,
4823 lapack_complex_double* A, lapack_int
const* lda,
4824 lapack_complex_double* B, lapack_int
const* ldb,
4825 lapack_complex_double* alpha,
4826 lapack_complex_double* beta,
4827 lapack_complex_double* VL, lapack_int
const* ldvl,
4828 lapack_complex_double* VR, lapack_int
const* ldvr,
4829 lapack_complex_double* work, lapack_int
const* lwork,
4832#ifdef LAPACK_FORTRAN_STRLEN_END
4836#ifdef LAPACK_FORTRAN_STRLEN_END
4837 #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__, 1, 1)
4839 #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__)
4842#define LAPACK_cggevx_base LAPACK_GLOBAL(cggevx,CGGEVX)
4843void LAPACK_cggevx_base(
4844 char const* balanc,
char const* jobvl,
char const* jobvr,
char const* sense,
4845 lapack_int
const* n,
4846 lapack_complex_float* A, lapack_int
const* lda,
4847 lapack_complex_float* B, lapack_int
const* ldb,
4848 lapack_complex_float* alpha,
4849 lapack_complex_float* beta,
4850 lapack_complex_float* VL, lapack_int
const* ldvl,
4851 lapack_complex_float* VR, lapack_int
const* ldvr, lapack_int* ilo, lapack_int* ihi,
4858 lapack_complex_float* work, lapack_int
const* lwork,
4860 lapack_int* iwork, lapack_logical* BWORK,
4862#ifdef LAPACK_FORTRAN_STRLEN_END
4863 ,
size_t,
size_t,
size_t,
size_t
4866#ifdef LAPACK_FORTRAN_STRLEN_END
4867 #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4869 #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__)
4872#define LAPACK_dggevx_base LAPACK_GLOBAL(dggevx,DGGEVX)
4873void LAPACK_dggevx_base(
4874 char const* balanc,
char const* jobvl,
char const* jobvr,
char const* sense,
4875 lapack_int
const* n,
4876 double* A, lapack_int
const* lda,
4877 double* B, lapack_int
const* ldb,
4881 double* VL, lapack_int
const* ldvl,
4882 double* VR, lapack_int
const* ldvr, lapack_int* ilo, lapack_int* ihi,
4889 double* work, lapack_int
const* lwork,
4890 lapack_int* iwork, lapack_logical* BWORK,
4892#ifdef LAPACK_FORTRAN_STRLEN_END
4893 ,
size_t,
size_t,
size_t,
size_t
4896#ifdef LAPACK_FORTRAN_STRLEN_END
4897 #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4899 #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__)
4902#define LAPACK_sggevx_base LAPACK_GLOBAL(sggevx,SGGEVX)
4903void LAPACK_sggevx_base(
4904 char const* balanc,
char const* jobvl,
char const* jobvr,
char const* sense,
4905 lapack_int
const* n,
4906 float* A, lapack_int
const* lda,
4907 float* B, lapack_int
const* ldb,
4911 float* VL, lapack_int
const* ldvl,
4912 float* VR, lapack_int
const* ldvr, lapack_int* ilo, lapack_int* ihi,
4919 float* work, lapack_int
const* lwork,
4920 lapack_int* iwork, lapack_logical* BWORK,
4922#ifdef LAPACK_FORTRAN_STRLEN_END
4923 ,
size_t,
size_t,
size_t,
size_t
4926#ifdef LAPACK_FORTRAN_STRLEN_END
4927 #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4929 #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__)
4932#define LAPACK_zggevx_base LAPACK_GLOBAL(zggevx,ZGGEVX)
4933void LAPACK_zggevx_base(
4934 char const* balanc,
char const* jobvl,
char const* jobvr,
char const* sense,
4935 lapack_int
const* n,
4936 lapack_complex_double* A, lapack_int
const* lda,
4937 lapack_complex_double* B, lapack_int
const* ldb,
4938 lapack_complex_double* alpha,
4939 lapack_complex_double* beta,
4940 lapack_complex_double* VL, lapack_int
const* ldvl,
4941 lapack_complex_double* VR, lapack_int
const* ldvr, lapack_int* ilo, lapack_int* ihi,
4948 lapack_complex_double* work, lapack_int
const* lwork,
4950 lapack_int* iwork, lapack_logical* BWORK,
4952#ifdef LAPACK_FORTRAN_STRLEN_END
4953 ,
size_t,
size_t,
size_t,
size_t
4956#ifdef LAPACK_FORTRAN_STRLEN_END
4957 #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4959 #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__)
4962#define LAPACK_cggglm LAPACK_GLOBAL(cggglm,CGGGLM)
4964 lapack_int
const* n, lapack_int
const* m, lapack_int
const* p,
4965 lapack_complex_float* A, lapack_int
const* lda,
4966 lapack_complex_float* B, lapack_int
const* ldb,
4967 lapack_complex_float* D,
4968 lapack_complex_float* X,
4969 lapack_complex_float* Y,
4970 lapack_complex_float* work, lapack_int
const* lwork,
4973#define LAPACK_dggglm LAPACK_GLOBAL(dggglm,DGGGLM)
4975 lapack_int
const* n, lapack_int
const* m, lapack_int
const* p,
4976 double* A, lapack_int
const* lda,
4977 double* B, lapack_int
const* ldb,
4981 double* work, lapack_int
const* lwork,
4984#define LAPACK_sggglm LAPACK_GLOBAL(sggglm,SGGGLM)
4986 lapack_int
const* n, lapack_int
const* m, lapack_int
const* p,
4987 float* A, lapack_int
const* lda,
4988 float* B, lapack_int
const* ldb,
4992 float* work, lapack_int
const* lwork,
4995#define LAPACK_zggglm LAPACK_GLOBAL(zggglm,ZGGGLM)
4997 lapack_int
const* n, lapack_int
const* m, lapack_int
const* p,
4998 lapack_complex_double* A, lapack_int
const* lda,
4999 lapack_complex_double* B, lapack_int
const* ldb,
5000 lapack_complex_double* D,
5001 lapack_complex_double* X,
5002 lapack_complex_double* Y,
5003 lapack_complex_double* work, lapack_int
const* lwork,
5006#define LAPACK_cgghd3_base LAPACK_GLOBAL(cgghd3,CGGHD3)
5007void LAPACK_cgghd3_base(
5008 char const* compq,
char const* compz,
5009 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
5010 lapack_complex_float* A, lapack_int
const* lda,
5011 lapack_complex_float* B, lapack_int
const* ldb,
5012 lapack_complex_float* Q, lapack_int
const* ldq,
5013 lapack_complex_float* Z, lapack_int
const* ldz,
5014 lapack_complex_float* work, lapack_int
const* lwork,
5016#ifdef LAPACK_FORTRAN_STRLEN_END
5020#ifdef LAPACK_FORTRAN_STRLEN_END
5021 #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__, 1, 1)
5023 #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__)
5026#define LAPACK_dgghd3_base LAPACK_GLOBAL(dgghd3,DGGHD3)
5027void LAPACK_dgghd3_base(
5028 char const* compq,
char const* compz,
5029 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
5030 double* A, lapack_int
const* lda,
5031 double* B, lapack_int
const* ldb,
5032 double* Q, lapack_int
const* ldq,
5033 double* Z, lapack_int
const* ldz,
5034 double* work, lapack_int
const* lwork,
5036#ifdef LAPACK_FORTRAN_STRLEN_END
5040#ifdef LAPACK_FORTRAN_STRLEN_END
5041 #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__, 1, 1)
5043 #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__)
5046#define LAPACK_sgghd3_base LAPACK_GLOBAL(sgghd3,SGGHD3)
5047void LAPACK_sgghd3_base(
5048 char const* compq,
char const* compz,
5049 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
5050 float* A, lapack_int
const* lda,
5051 float* B, lapack_int
const* ldb,
5052 float* Q, lapack_int
const* ldq,
5053 float* Z, lapack_int
const* ldz,
5054 float* work, lapack_int
const* lwork,
5056#ifdef LAPACK_FORTRAN_STRLEN_END
5060#ifdef LAPACK_FORTRAN_STRLEN_END
5061 #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__, 1, 1)
5063 #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__)
5066#define LAPACK_zgghd3_base LAPACK_GLOBAL(zgghd3,ZGGHD3)
5067void LAPACK_zgghd3_base(
5068 char const* compq,
char const* compz,
5069 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
5070 lapack_complex_double* A, lapack_int
const* lda,
5071 lapack_complex_double* B, lapack_int
const* ldb,
5072 lapack_complex_double* Q, lapack_int
const* ldq,
5073 lapack_complex_double* Z, lapack_int
const* ldz,
5074 lapack_complex_double* work, lapack_int
const* lwork,
5076#ifdef LAPACK_FORTRAN_STRLEN_END
5080#ifdef LAPACK_FORTRAN_STRLEN_END
5081 #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__, 1, 1)
5083 #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__)
5086#define LAPACK_cgghrd_base LAPACK_GLOBAL(cgghrd,CGGHRD)
5087void LAPACK_cgghrd_base(
5088 char const* compq,
char const* compz,
5089 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
5090 lapack_complex_float* A, lapack_int
const* lda,
5091 lapack_complex_float* B, lapack_int
const* ldb,
5092 lapack_complex_float* Q, lapack_int
const* ldq,
5093 lapack_complex_float* Z, lapack_int
const* ldz,
5095#ifdef LAPACK_FORTRAN_STRLEN_END
5099#ifdef LAPACK_FORTRAN_STRLEN_END
5100 #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__, 1, 1)
5102 #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__)
5105#define LAPACK_dgghrd_base LAPACK_GLOBAL(dgghrd,DGGHRD)
5106void LAPACK_dgghrd_base(
5107 char const* compq,
char const* compz,
5108 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
5109 double* A, lapack_int
const* lda,
5110 double* B, lapack_int
const* ldb,
5111 double* Q, lapack_int
const* ldq,
5112 double* Z, lapack_int
const* ldz,
5114#ifdef LAPACK_FORTRAN_STRLEN_END
5118#ifdef LAPACK_FORTRAN_STRLEN_END
5119 #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__, 1, 1)
5121 #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__)
5124#define LAPACK_sgghrd_base LAPACK_GLOBAL(sgghrd,SGGHRD)
5125void LAPACK_sgghrd_base(
5126 char const* compq,
char const* compz,
5127 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
5128 float* A, lapack_int
const* lda,
5129 float* B, lapack_int
const* ldb,
5130 float* Q, lapack_int
const* ldq,
5131 float* Z, lapack_int
const* ldz,
5133#ifdef LAPACK_FORTRAN_STRLEN_END
5137#ifdef LAPACK_FORTRAN_STRLEN_END
5138 #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__, 1, 1)
5140 #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__)
5143#define LAPACK_zgghrd_base LAPACK_GLOBAL(zgghrd,ZGGHRD)
5144void LAPACK_zgghrd_base(
5145 char const* compq,
char const* compz,
5146 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
5147 lapack_complex_double* A, lapack_int
const* lda,
5148 lapack_complex_double* B, lapack_int
const* ldb,
5149 lapack_complex_double* Q, lapack_int
const* ldq,
5150 lapack_complex_double* Z, lapack_int
const* ldz,
5152#ifdef LAPACK_FORTRAN_STRLEN_END
5156#ifdef LAPACK_FORTRAN_STRLEN_END
5157 #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__, 1, 1)
5159 #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__)
5162#define LAPACK_cgglse LAPACK_GLOBAL(cgglse,CGGLSE)
5164 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p,
5165 lapack_complex_float* A, lapack_int
const* lda,
5166 lapack_complex_float* B, lapack_int
const* ldb,
5167 lapack_complex_float* C,
5168 lapack_complex_float* D,
5169 lapack_complex_float* X,
5170 lapack_complex_float* work, lapack_int
const* lwork,
5173#define LAPACK_dgglse LAPACK_GLOBAL(dgglse,DGGLSE)
5175 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p,
5176 double* A, lapack_int
const* lda,
5177 double* B, lapack_int
const* ldb,
5181 double* work, lapack_int
const* lwork,
5184#define LAPACK_sgglse LAPACK_GLOBAL(sgglse,SGGLSE)
5186 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p,
5187 float* A, lapack_int
const* lda,
5188 float* B, lapack_int
const* ldb,
5192 float* work, lapack_int
const* lwork,
5195#define LAPACK_zgglse LAPACK_GLOBAL(zgglse,ZGGLSE)
5197 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p,
5198 lapack_complex_double* A, lapack_int
const* lda,
5199 lapack_complex_double* B, lapack_int
const* ldb,
5200 lapack_complex_double* C,
5201 lapack_complex_double* D,
5202 lapack_complex_double* X,
5203 lapack_complex_double* work, lapack_int
const* lwork,
5206#define LAPACK_cggqrf LAPACK_GLOBAL(cggqrf,CGGQRF)
5208 lapack_int
const* n, lapack_int
const* m, lapack_int
const* p,
5209 lapack_complex_float* A, lapack_int
const* lda,
5210 lapack_complex_float* taua,
5211 lapack_complex_float* B, lapack_int
const* ldb,
5212 lapack_complex_float* taub,
5213 lapack_complex_float* work, lapack_int
const* lwork,
5216#define LAPACK_dggqrf LAPACK_GLOBAL(dggqrf,DGGQRF)
5218 lapack_int
const* n, lapack_int
const* m, lapack_int
const* p,
5219 double* A, lapack_int
const* lda,
5221 double* B, lapack_int
const* ldb,
5223 double* work, lapack_int
const* lwork,
5226#define LAPACK_sggqrf LAPACK_GLOBAL(sggqrf,SGGQRF)
5228 lapack_int
const* n, lapack_int
const* m, lapack_int
const* p,
5229 float* A, lapack_int
const* lda,
5231 float* B, lapack_int
const* ldb,
5233 float* work, lapack_int
const* lwork,
5236#define LAPACK_zggqrf LAPACK_GLOBAL(zggqrf,ZGGQRF)
5238 lapack_int
const* n, lapack_int
const* m, lapack_int
const* p,
5239 lapack_complex_double* A, lapack_int
const* lda,
5240 lapack_complex_double* taua,
5241 lapack_complex_double* B, lapack_int
const* ldb,
5242 lapack_complex_double* taub,
5243 lapack_complex_double* work, lapack_int
const* lwork,
5246#define LAPACK_cggrqf LAPACK_GLOBAL(cggrqf,CGGRQF)
5248 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5249 lapack_complex_float* A, lapack_int
const* lda,
5250 lapack_complex_float* taua,
5251 lapack_complex_float* B, lapack_int
const* ldb,
5252 lapack_complex_float* taub,
5253 lapack_complex_float* work, lapack_int
const* lwork,
5256#define LAPACK_dggrqf LAPACK_GLOBAL(dggrqf,DGGRQF)
5258 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5259 double* A, lapack_int
const* lda,
5261 double* B, lapack_int
const* ldb,
5263 double* work, lapack_int
const* lwork,
5266#define LAPACK_sggrqf LAPACK_GLOBAL(sggrqf,SGGRQF)
5268 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5269 float* A, lapack_int
const* lda,
5271 float* B, lapack_int
const* ldb,
5273 float* work, lapack_int
const* lwork,
5276#define LAPACK_zggrqf LAPACK_GLOBAL(zggrqf,ZGGRQF)
5278 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5279 lapack_complex_double* A, lapack_int
const* lda,
5280 lapack_complex_double* taua,
5281 lapack_complex_double* B, lapack_int
const* ldb,
5282 lapack_complex_double* taub,
5283 lapack_complex_double* work, lapack_int
const* lwork,
5286#define LAPACK_cggsvd_base LAPACK_GLOBAL(cggsvd,CGGSVD)
5287lapack_int LAPACK_cggsvd_base(
5288 char const* jobu,
char const* jobv,
char const* jobq,
5289 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p,
5290 lapack_int* k, lapack_int* l,
5291 lapack_complex_float* a, lapack_int
const* lda,
5292 lapack_complex_float* b, lapack_int
const* ldb,
5293 float* alpha,
float* beta,
5294 lapack_complex_float* u, lapack_int
const* ldu,
5295 lapack_complex_float* v, lapack_int
const* ldv,
5296 lapack_complex_float* q, lapack_int
const* ldq,
5297 lapack_complex_float* work,
float* rwork,
5298 lapack_int* iwork, lapack_int* info
5299#ifdef LAPACK_FORTRAN_STRLEN_END
5300 ,
size_t,
size_t,
size_t
5303#ifdef LAPACK_FORTRAN_STRLEN_END
5304 #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__, 1, 1, 1)
5306 #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__)
5309#define LAPACK_sggsvd_base LAPACK_GLOBAL(sggsvd,SGGSVD)
5310lapack_int LAPACK_sggsvd_base(
5311 char const* jobu,
char const* jobv,
char const* jobq,
5312 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p,
5313 lapack_int* k, lapack_int* l,
5314 float* a, lapack_int
const* lda,
5315 float* b, lapack_int
const* ldb,
5316 float* alpha,
float* beta,
5317 float* u, lapack_int
const* ldu,
5318 float* v, lapack_int
const* ldv,
5319 float* q, lapack_int
const* ldq,
5320 float* work, lapack_int* iwork, lapack_int* info
5321#ifdef LAPACK_FORTRAN_STRLEN_END
5322 ,
size_t,
size_t,
size_t
5325#ifdef LAPACK_FORTRAN_STRLEN_END
5326 #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__, 1, 1, 1)
5328 #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__)
5331#define LAPACK_dggsvd_base LAPACK_GLOBAL(dggsvd,DGGSVD)
5332lapack_int LAPACK_dggsvd_base(
5333 char const* jobu,
char const* jobv,
char const* jobq,
5334 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p,
5335 lapack_int* k, lapack_int* l,
5336 double* a, lapack_int
const* lda,
5337 double* b, lapack_int
const* ldb,
5338 double* alpha,
double* beta,
5339 double* u, lapack_int
const* ldu,
5340 double* v, lapack_int
const* ldv,
5341 double* q, lapack_int
const* ldq,
5342 double* work, lapack_int* iwork, lapack_int* info
5343#ifdef LAPACK_FORTRAN_STRLEN_END
5344 ,
size_t,
size_t,
size_t
5347#ifdef LAPACK_FORTRAN_STRLEN_END
5348 #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__, 1, 1, 1)
5350 #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__)
5353#define LAPACK_zggsvd_base LAPACK_GLOBAL(zggsvd,ZGGSVD)
5354lapack_int LAPACK_zggsvd_base(
5355 char const* jobu,
char const* jobv,
char const* jobq,
5356 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p,
5357 lapack_int* k, lapack_int* l,
5358 lapack_complex_double* a, lapack_int
const* lda,
5359 lapack_complex_double* b, lapack_int
const* ldb,
5360 double* alpha,
double* beta,
5361 lapack_complex_double* u, lapack_int
const* ldu,
5362 lapack_complex_double* v, lapack_int
const* ldv,
5363 lapack_complex_double* q, lapack_int
const* ldq,
5364 lapack_complex_double* work,
double* rwork,
5365 lapack_int* iwork, lapack_int* info
5366#ifdef LAPACK_FORTRAN_STRLEN_END
5367 ,
size_t,
size_t,
size_t
5370#ifdef LAPACK_FORTRAN_STRLEN_END
5371 #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__, 1, 1, 1)
5373 #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__)
5376#define LAPACK_cggsvd3_base LAPACK_GLOBAL(cggsvd3,CGGSVD3)
5377void LAPACK_cggsvd3_base(
5378 char const* jobu,
char const* jobv,
char const* jobq,
5379 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p, lapack_int* k, lapack_int* l,
5380 lapack_complex_float* A, lapack_int
const* lda,
5381 lapack_complex_float* B, lapack_int
const* ldb,
5384 lapack_complex_float* U, lapack_int
const* ldu,
5385 lapack_complex_float* V, lapack_int
const* ldv,
5386 lapack_complex_float* Q, lapack_int
const* ldq,
5387 lapack_complex_float* work, lapack_int
const* lwork,
5391#ifdef LAPACK_FORTRAN_STRLEN_END
5392 ,
size_t,
size_t,
size_t
5395#ifdef LAPACK_FORTRAN_STRLEN_END
5396 #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__, 1, 1, 1)
5398 #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__)
5401#define LAPACK_dggsvd3_base LAPACK_GLOBAL(dggsvd3,DGGSVD3)
5402void LAPACK_dggsvd3_base(
5403 char const* jobu,
char const* jobv,
char const* jobq,
5404 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p, lapack_int* k, lapack_int* l,
5405 double* A, lapack_int
const* lda,
5406 double* B, lapack_int
const* ldb,
5409 double* U, lapack_int
const* ldu,
5410 double* V, lapack_int
const* ldv,
5411 double* Q, lapack_int
const* ldq,
5412 double* work, lapack_int
const* lwork,
5415#ifdef LAPACK_FORTRAN_STRLEN_END
5416 ,
size_t,
size_t,
size_t
5419#ifdef LAPACK_FORTRAN_STRLEN_END
5420 #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__, 1, 1, 1)
5422 #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__)
5425#define LAPACK_sggsvd3_base LAPACK_GLOBAL(sggsvd3,SGGSVD3)
5426void LAPACK_sggsvd3_base(
5427 char const* jobu,
char const* jobv,
char const* jobq,
5428 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p, lapack_int* k, lapack_int* l,
5429 float* A, lapack_int
const* lda,
5430 float* B, lapack_int
const* ldb,
5433 float* U, lapack_int
const* ldu,
5434 float* V, lapack_int
const* ldv,
5435 float* Q, lapack_int
const* ldq,
5436 float* work, lapack_int
const* lwork,
5439#ifdef LAPACK_FORTRAN_STRLEN_END
5440 ,
size_t,
size_t,
size_t
5443#ifdef LAPACK_FORTRAN_STRLEN_END
5444 #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__, 1, 1, 1)
5446 #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__)
5449#define LAPACK_zggsvd3_base LAPACK_GLOBAL(zggsvd3,ZGGSVD3)
5450void LAPACK_zggsvd3_base(
5451 char const* jobu,
char const* jobv,
char const* jobq,
5452 lapack_int
const* m, lapack_int
const* n, lapack_int
const* p, lapack_int* k, lapack_int* l,
5453 lapack_complex_double* A, lapack_int
const* lda,
5454 lapack_complex_double* B, lapack_int
const* ldb,
5457 lapack_complex_double* U, lapack_int
const* ldu,
5458 lapack_complex_double* V, lapack_int
const* ldv,
5459 lapack_complex_double* Q, lapack_int
const* ldq,
5460 lapack_complex_double* work, lapack_int
const* lwork,
5464#ifdef LAPACK_FORTRAN_STRLEN_END
5465 ,
size_t,
size_t,
size_t
5468#ifdef LAPACK_FORTRAN_STRLEN_END
5469 #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__, 1, 1, 1)
5471 #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__)
5474#define LAPACK_sggsvp_base LAPACK_GLOBAL(sggsvp,SGGSVP)
5475lapack_int LAPACK_sggsvp_base(
5476 char const* jobu,
char const* jobv,
char const* jobq,
5477 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5478 float* a, lapack_int
const* lda,
5479 float* b, lapack_int
const* ldb,
5480 float* tola,
float* tolb,
5481 lapack_int* k, lapack_int* l,
5482 float* u, lapack_int
const* ldu,
5483 float* v, lapack_int
const* ldv,
5484 float* q, lapack_int
const* ldq,
5485 lapack_int* iwork,
float* tau,
5486 float* work, lapack_int* info
5487#ifdef LAPACK_FORTRAN_STRLEN_END
5488 ,
size_t,
size_t,
size_t
5491#ifdef LAPACK_FORTRAN_STRLEN_END
5492 #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__, 1, 1, 1)
5494 #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__)
5497#define LAPACK_dggsvp_base LAPACK_GLOBAL(dggsvp,DGGSVP)
5498lapack_int LAPACK_dggsvp_base(
5499 char const* jobu,
char const* jobv,
char const* jobq,
5500 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5501 double* a, lapack_int
const* lda,
5502 double* b, lapack_int
const* ldb,
5503 double* tola,
double* tolb,
5504 lapack_int* k, lapack_int* l,
5505 double* u, lapack_int
const* ldu,
5506 double* v, lapack_int
const* ldv,
5507 double* q, lapack_int
const* ldq,
5508 lapack_int* iwork,
double* tau,
5509 double* work, lapack_int* info
5510#ifdef LAPACK_FORTRAN_STRLEN_END
5511 ,
size_t,
size_t,
size_t
5514#ifdef LAPACK_FORTRAN_STRLEN_END
5515 #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__, 1, 1, 1)
5517 #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__)
5520#define LAPACK_cggsvp_base LAPACK_GLOBAL(cggsvp,CGGSVP)
5521lapack_int LAPACK_cggsvp_base(
5522 char const* jobu,
char const* jobv,
char const* jobq,
5523 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5524 lapack_complex_float* a, lapack_int
const* lda,
5525 lapack_complex_float* b, lapack_int
const* ldb,
5526 float* tola,
float* tolb, lapack_int* k, lapack_int* l,
5527 lapack_complex_float* u, lapack_int
const* ldu,
5528 lapack_complex_float* v, lapack_int
const* ldv,
5529 lapack_complex_float* q, lapack_int
const* ldq,
5530 lapack_int* iwork,
float* rwork, lapack_complex_float* tau,
5531 lapack_complex_float* work, lapack_int* info
5532#ifdef LAPACK_FORTRAN_STRLEN_END
5533 ,
size_t,
size_t,
size_t
5536#ifdef LAPACK_FORTRAN_STRLEN_END
5537 #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__, 1, 1, 1)
5539 #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__)
5542#define LAPACK_zggsvp_base LAPACK_GLOBAL(zggsvp,ZGGSVP)
5543lapack_int LAPACK_zggsvp_base(
5544 char const* jobu,
char const* jobv,
char const* jobq,
5545 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5546 lapack_complex_double* a, lapack_int
const* lda,
5547 lapack_complex_double* b, lapack_int
const* ldb,
5548 double* tola,
double* tolb, lapack_int* k, lapack_int* l,
5549 lapack_complex_double* u, lapack_int
const* ldu,
5550 lapack_complex_double* v, lapack_int
const* ldv,
5551 lapack_complex_double* q, lapack_int
const* ldq,
5552 lapack_int* iwork,
double* rwork, lapack_complex_double* tau,
5553 lapack_complex_double* work, lapack_int* info
5554#ifdef LAPACK_FORTRAN_STRLEN_END
5555 ,
size_t,
size_t,
size_t
5558#ifdef LAPACK_FORTRAN_STRLEN_END
5559 #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__, 1, 1, 1)
5561 #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__)
5564#define LAPACK_cggsvp3_base LAPACK_GLOBAL(cggsvp3,CGGSVP3)
5565void LAPACK_cggsvp3_base(
5566 char const* jobu,
char const* jobv,
char const* jobq,
5567 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5568 lapack_complex_float* A, lapack_int
const* lda,
5569 lapack_complex_float* B, lapack_int
const* ldb,
5571 float const* tolb, lapack_int* k, lapack_int* l,
5572 lapack_complex_float* U, lapack_int
const* ldu,
5573 lapack_complex_float* V, lapack_int
const* ldv,
5574 lapack_complex_float* Q, lapack_int
const* ldq,
5577 lapack_complex_float* tau,
5578 lapack_complex_float* work, lapack_int
const* lwork,
5580#ifdef LAPACK_FORTRAN_STRLEN_END
5581 ,
size_t,
size_t,
size_t
5584#ifdef LAPACK_FORTRAN_STRLEN_END
5585 #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__, 1, 1, 1)
5587 #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__)
5590#define LAPACK_dggsvp3_base LAPACK_GLOBAL(dggsvp3,DGGSVP3)
5591void LAPACK_dggsvp3_base(
5592 char const* jobu,
char const* jobv,
char const* jobq,
5593 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5594 double* A, lapack_int
const* lda,
5595 double* B, lapack_int
const* ldb,
5597 double const* tolb, lapack_int* k, lapack_int* l,
5598 double* U, lapack_int
const* ldu,
5599 double* V, lapack_int
const* ldv,
5600 double* Q, lapack_int
const* ldq,
5603 double* work, lapack_int
const* lwork,
5605#ifdef LAPACK_FORTRAN_STRLEN_END
5606 ,
size_t,
size_t,
size_t
5609#ifdef LAPACK_FORTRAN_STRLEN_END
5610 #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__, 1, 1, 1)
5612 #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__)
5615#define LAPACK_sggsvp3_base LAPACK_GLOBAL(sggsvp3,SGGSVP3)
5616void LAPACK_sggsvp3_base(
5617 char const* jobu,
char const* jobv,
char const* jobq,
5618 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5619 float* A, lapack_int
const* lda,
5620 float* B, lapack_int
const* ldb,
5622 float const* tolb, lapack_int* k, lapack_int* l,
5623 float* U, lapack_int
const* ldu,
5624 float* V, lapack_int
const* ldv,
5625 float* Q, lapack_int
const* ldq,
5628 float* work, lapack_int
const* lwork,
5630#ifdef LAPACK_FORTRAN_STRLEN_END
5631 ,
size_t,
size_t,
size_t
5634#ifdef LAPACK_FORTRAN_STRLEN_END
5635 #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__, 1, 1, 1)
5637 #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__)
5640#define LAPACK_zggsvp3_base LAPACK_GLOBAL(zggsvp3,ZGGSVP3)
5641void LAPACK_zggsvp3_base(
5642 char const* jobu,
char const* jobv,
char const* jobq,
5643 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n,
5644 lapack_complex_double* A, lapack_int
const* lda,
5645 lapack_complex_double* B, lapack_int
const* ldb,
5647 double const* tolb, lapack_int* k, lapack_int* l,
5648 lapack_complex_double* U, lapack_int
const* ldu,
5649 lapack_complex_double* V, lapack_int
const* ldv,
5650 lapack_complex_double* Q, lapack_int
const* ldq,
5653 lapack_complex_double* tau,
5654 lapack_complex_double* work, lapack_int
const* lwork,
5656#ifdef LAPACK_FORTRAN_STRLEN_END
5657 ,
size_t,
size_t,
size_t
5660#ifdef LAPACK_FORTRAN_STRLEN_END
5661 #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__, 1, 1, 1)
5663 #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__)
5666#define LAPACK_cgtcon_base LAPACK_GLOBAL(cgtcon,CGTCON)
5667void LAPACK_cgtcon_base(
5669 lapack_int
const* n,
5670 lapack_complex_float
const* DL,
5671 lapack_complex_float
const* D,
5672 lapack_complex_float
const* DU,
5673 lapack_complex_float
const* DU2, lapack_int
const* ipiv,
5676 lapack_complex_float* work,
5678#ifdef LAPACK_FORTRAN_STRLEN_END
5682#ifdef LAPACK_FORTRAN_STRLEN_END
5683 #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__, 1)
5685 #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__)
5688#define LAPACK_dgtcon_base LAPACK_GLOBAL(dgtcon,DGTCON)
5689void LAPACK_dgtcon_base(
5691 lapack_int
const* n,
5695 double const* DU2, lapack_int
const* ipiv,
5696 double const* anorm,
5701#ifdef LAPACK_FORTRAN_STRLEN_END
5705#ifdef LAPACK_FORTRAN_STRLEN_END
5706 #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__, 1)
5708 #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__)
5711#define LAPACK_sgtcon_base LAPACK_GLOBAL(sgtcon,SGTCON)
5712void LAPACK_sgtcon_base(
5714 lapack_int
const* n,
5718 float const* DU2, lapack_int
const* ipiv,
5724#ifdef LAPACK_FORTRAN_STRLEN_END
5728#ifdef LAPACK_FORTRAN_STRLEN_END
5729 #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__, 1)
5731 #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__)
5734#define LAPACK_zgtcon_base LAPACK_GLOBAL(zgtcon,ZGTCON)
5735void LAPACK_zgtcon_base(
5737 lapack_int
const* n,
5738 lapack_complex_double
const* DL,
5739 lapack_complex_double
const* D,
5740 lapack_complex_double
const* DU,
5741 lapack_complex_double
const* DU2, lapack_int
const* ipiv,
5742 double const* anorm,
5744 lapack_complex_double* work,
5746#ifdef LAPACK_FORTRAN_STRLEN_END
5750#ifdef LAPACK_FORTRAN_STRLEN_END
5751 #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__, 1)
5753 #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__)
5756#define LAPACK_cgtrfs_base LAPACK_GLOBAL(cgtrfs,CGTRFS)
5757void LAPACK_cgtrfs_base(
5759 lapack_int
const* n, lapack_int
const* nrhs,
5760 lapack_complex_float
const* DL,
5761 lapack_complex_float
const* D,
5762 lapack_complex_float
const* DU,
5763 lapack_complex_float
const* DLF,
5764 lapack_complex_float
const* DF,
5765 lapack_complex_float
const* DUF,
5766 lapack_complex_float
const* DU2, lapack_int
const* ipiv,
5767 lapack_complex_float
const* B, lapack_int
const* ldb,
5768 lapack_complex_float* X, lapack_int
const* ldx,
5771 lapack_complex_float* work,
5774#ifdef LAPACK_FORTRAN_STRLEN_END
5778#ifdef LAPACK_FORTRAN_STRLEN_END
5779 #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__, 1)
5781 #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__)
5784#define LAPACK_dgtrfs_base LAPACK_GLOBAL(dgtrfs,DGTRFS)
5785void LAPACK_dgtrfs_base(
5787 lapack_int
const* n, lapack_int
const* nrhs,
5794 double const* DU2, lapack_int
const* ipiv,
5795 double const* B, lapack_int
const* ldb,
5796 double* X, lapack_int
const* ldx,
5802#ifdef LAPACK_FORTRAN_STRLEN_END
5806#ifdef LAPACK_FORTRAN_STRLEN_END
5807 #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__, 1)
5809 #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__)
5812#define LAPACK_sgtrfs_base LAPACK_GLOBAL(sgtrfs,SGTRFS)
5813void LAPACK_sgtrfs_base(
5815 lapack_int
const* n, lapack_int
const* nrhs,
5822 float const* DU2, lapack_int
const* ipiv,
5823 float const* B, lapack_int
const* ldb,
5824 float* X, lapack_int
const* ldx,
5830#ifdef LAPACK_FORTRAN_STRLEN_END
5834#ifdef LAPACK_FORTRAN_STRLEN_END
5835 #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__, 1)
5837 #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__)
5840#define LAPACK_zgtrfs_base LAPACK_GLOBAL(zgtrfs,ZGTRFS)
5841void LAPACK_zgtrfs_base(
5843 lapack_int
const* n, lapack_int
const* nrhs,
5844 lapack_complex_double
const* DL,
5845 lapack_complex_double
const* D,
5846 lapack_complex_double
const* DU,
5847 lapack_complex_double
const* DLF,
5848 lapack_complex_double
const* DF,
5849 lapack_complex_double
const* DUF,
5850 lapack_complex_double
const* DU2, lapack_int
const* ipiv,
5851 lapack_complex_double
const* B, lapack_int
const* ldb,
5852 lapack_complex_double* X, lapack_int
const* ldx,
5855 lapack_complex_double* work,
5858#ifdef LAPACK_FORTRAN_STRLEN_END
5862#ifdef LAPACK_FORTRAN_STRLEN_END
5863 #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__, 1)
5865 #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__)
5868#define LAPACK_cgtsv LAPACK_GLOBAL(cgtsv,CGTSV)
5870 lapack_int
const* n, lapack_int
const* nrhs,
5871 lapack_complex_float* DL,
5872 lapack_complex_float* D,
5873 lapack_complex_float* DU,
5874 lapack_complex_float* B, lapack_int
const* ldb,
5877#define LAPACK_dgtsv LAPACK_GLOBAL(dgtsv,DGTSV)
5879 lapack_int
const* n, lapack_int
const* nrhs,
5883 double* B, lapack_int
const* ldb,
5886#define LAPACK_sgtsv LAPACK_GLOBAL(sgtsv,SGTSV)
5888 lapack_int
const* n, lapack_int
const* nrhs,
5892 float* B, lapack_int
const* ldb,
5895#define LAPACK_zgtsv LAPACK_GLOBAL(zgtsv,ZGTSV)
5897 lapack_int
const* n, lapack_int
const* nrhs,
5898 lapack_complex_double* DL,
5899 lapack_complex_double* D,
5900 lapack_complex_double* DU,
5901 lapack_complex_double* B, lapack_int
const* ldb,
5904#define LAPACK_cgtsvx_base LAPACK_GLOBAL(cgtsvx,CGTSVX)
5905void LAPACK_cgtsvx_base(
5906 char const* fact,
char const* trans,
5907 lapack_int
const* n, lapack_int
const* nrhs,
5908 lapack_complex_float
const* DL,
5909 lapack_complex_float
const* D,
5910 lapack_complex_float
const* DU,
5911 lapack_complex_float* DLF,
5912 lapack_complex_float* DF,
5913 lapack_complex_float* DUF,
5914 lapack_complex_float* DU2, lapack_int* ipiv,
5915 lapack_complex_float
const* B, lapack_int
const* ldb,
5916 lapack_complex_float* X, lapack_int
const* ldx,
5920 lapack_complex_float* work,
5923#ifdef LAPACK_FORTRAN_STRLEN_END
5927#ifdef LAPACK_FORTRAN_STRLEN_END
5928 #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__, 1, 1)
5930 #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__)
5933#define LAPACK_dgtsvx_base LAPACK_GLOBAL(dgtsvx,DGTSVX)
5934void LAPACK_dgtsvx_base(
5935 char const* fact,
char const* trans,
5936 lapack_int
const* n, lapack_int
const* nrhs,
5943 double* DU2, lapack_int* ipiv,
5944 double const* B, lapack_int
const* ldb,
5945 double* X, lapack_int
const* ldx,
5952#ifdef LAPACK_FORTRAN_STRLEN_END
5956#ifdef LAPACK_FORTRAN_STRLEN_END
5957 #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__, 1, 1)
5959 #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__)
5962#define LAPACK_sgtsvx_base LAPACK_GLOBAL(sgtsvx,SGTSVX)
5963void LAPACK_sgtsvx_base(
5964 char const* fact,
char const* trans,
5965 lapack_int
const* n, lapack_int
const* nrhs,
5972 float* DU2, lapack_int* ipiv,
5973 float const* B, lapack_int
const* ldb,
5974 float* X, lapack_int
const* ldx,
5981#ifdef LAPACK_FORTRAN_STRLEN_END
5985#ifdef LAPACK_FORTRAN_STRLEN_END
5986 #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__, 1, 1)
5988 #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__)
5991#define LAPACK_zgtsvx_base LAPACK_GLOBAL(zgtsvx,ZGTSVX)
5992void LAPACK_zgtsvx_base(
5993 char const* fact,
char const* trans,
5994 lapack_int
const* n, lapack_int
const* nrhs,
5995 lapack_complex_double
const* DL,
5996 lapack_complex_double
const* D,
5997 lapack_complex_double
const* DU,
5998 lapack_complex_double* DLF,
5999 lapack_complex_double* DF,
6000 lapack_complex_double* DUF,
6001 lapack_complex_double* DU2, lapack_int* ipiv,
6002 lapack_complex_double
const* B, lapack_int
const* ldb,
6003 lapack_complex_double* X, lapack_int
const* ldx,
6007 lapack_complex_double* work,
6010#ifdef LAPACK_FORTRAN_STRLEN_END
6014#ifdef LAPACK_FORTRAN_STRLEN_END
6015 #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__, 1, 1)
6017 #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__)
6020#define LAPACK_cgttrf LAPACK_GLOBAL(cgttrf,CGTTRF)
6022 lapack_int
const* n,
6023 lapack_complex_float* DL,
6024 lapack_complex_float* D,
6025 lapack_complex_float* DU,
6026 lapack_complex_float* DU2, lapack_int* ipiv,
6029#define LAPACK_dgttrf LAPACK_GLOBAL(dgttrf,DGTTRF)
6031 lapack_int
const* n,
6035 double* DU2, lapack_int* ipiv,
6038#define LAPACK_sgttrf LAPACK_GLOBAL(sgttrf,SGTTRF)
6040 lapack_int
const* n,
6044 float* DU2, lapack_int* ipiv,
6047#define LAPACK_zgttrf LAPACK_GLOBAL(zgttrf,ZGTTRF)
6049 lapack_int
const* n,
6050 lapack_complex_double* DL,
6051 lapack_complex_double* D,
6052 lapack_complex_double* DU,
6053 lapack_complex_double* DU2, lapack_int* ipiv,
6056#define LAPACK_cgttrs_base LAPACK_GLOBAL(cgttrs,CGTTRS)
6057void LAPACK_cgttrs_base(
6059 lapack_int
const* n, lapack_int
const* nrhs,
6060 lapack_complex_float
const* DL,
6061 lapack_complex_float
const* D,
6062 lapack_complex_float
const* DU,
6063 lapack_complex_float
const* DU2, lapack_int
const* ipiv,
6064 lapack_complex_float* B, lapack_int
const* ldb,
6066#ifdef LAPACK_FORTRAN_STRLEN_END
6070#ifdef LAPACK_FORTRAN_STRLEN_END
6071 #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__, 1)
6073 #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__)
6076#define LAPACK_dgttrs_base LAPACK_GLOBAL(dgttrs,DGTTRS)
6077void LAPACK_dgttrs_base(
6079 lapack_int
const* n, lapack_int
const* nrhs,
6083 double const* DU2, lapack_int
const* ipiv,
6084 double* B, lapack_int
const* ldb,
6086#ifdef LAPACK_FORTRAN_STRLEN_END
6090#ifdef LAPACK_FORTRAN_STRLEN_END
6091 #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__, 1)
6093 #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__)
6096#define LAPACK_sgttrs_base LAPACK_GLOBAL(sgttrs,SGTTRS)
6097void LAPACK_sgttrs_base(
6099 lapack_int
const* n, lapack_int
const* nrhs,
6103 float const* DU2, lapack_int
const* ipiv,
6104 float* B, lapack_int
const* ldb,
6106#ifdef LAPACK_FORTRAN_STRLEN_END
6110#ifdef LAPACK_FORTRAN_STRLEN_END
6111 #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__, 1)
6113 #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__)
6116#define LAPACK_zgttrs_base LAPACK_GLOBAL(zgttrs,ZGTTRS)
6117void LAPACK_zgttrs_base(
6119 lapack_int
const* n, lapack_int
const* nrhs,
6120 lapack_complex_double
const* DL,
6121 lapack_complex_double
const* D,
6122 lapack_complex_double
const* DU,
6123 lapack_complex_double
const* DU2, lapack_int
const* ipiv,
6124 lapack_complex_double* B, lapack_int
const* ldb,
6126#ifdef LAPACK_FORTRAN_STRLEN_END
6130#ifdef LAPACK_FORTRAN_STRLEN_END
6131 #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__, 1)
6133 #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__)
6136#define LAPACK_chbev_base LAPACK_GLOBAL(chbev,CHBEV)
6137void LAPACK_chbev_base(
6138 char const* jobz,
char const* uplo,
6139 lapack_int
const* n, lapack_int
const* kd,
6140 lapack_complex_float* AB, lapack_int
const* ldab,
6142 lapack_complex_float* Z, lapack_int
const* ldz,
6143 lapack_complex_float* work,
6146#ifdef LAPACK_FORTRAN_STRLEN_END
6150#ifdef LAPACK_FORTRAN_STRLEN_END
6151 #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__, 1, 1)
6153 #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__)
6156#define LAPACK_zhbev_base LAPACK_GLOBAL(zhbev,ZHBEV)
6157void LAPACK_zhbev_base(
6158 char const* jobz,
char const* uplo,
6159 lapack_int
const* n, lapack_int
const* kd,
6160 lapack_complex_double* AB, lapack_int
const* ldab,
6162 lapack_complex_double* Z, lapack_int
const* ldz,
6163 lapack_complex_double* work,
6166#ifdef LAPACK_FORTRAN_STRLEN_END
6170#ifdef LAPACK_FORTRAN_STRLEN_END
6171 #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__, 1, 1)
6173 #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__)
6176#define LAPACK_chbev_2stage_base LAPACK_GLOBAL(chbev_2stage,CHBEV_2STAGE)
6177void LAPACK_chbev_2stage_base(
6178 char const* jobz,
char const* uplo,
6179 lapack_int
const* n, lapack_int
const* kd,
6180 lapack_complex_float* AB, lapack_int
const* ldab,
6182 lapack_complex_float* Z, lapack_int
const* ldz,
6183 lapack_complex_float* work, lapack_int
const* lwork,
6186#ifdef LAPACK_FORTRAN_STRLEN_END
6190#ifdef LAPACK_FORTRAN_STRLEN_END
6191 #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__, 1, 1)
6193 #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__)
6196#define LAPACK_zhbev_2stage_base LAPACK_GLOBAL(zhbev_2stage,ZHBEV_2STAGE)
6197void LAPACK_zhbev_2stage_base(
6198 char const* jobz,
char const* uplo,
6199 lapack_int
const* n, lapack_int
const* kd,
6200 lapack_complex_double* AB, lapack_int
const* ldab,
6202 lapack_complex_double* Z, lapack_int
const* ldz,
6203 lapack_complex_double* work, lapack_int
const* lwork,
6206#ifdef LAPACK_FORTRAN_STRLEN_END
6210#ifdef LAPACK_FORTRAN_STRLEN_END
6211 #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__, 1, 1)
6213 #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__)
6216#define LAPACK_chbevd_base LAPACK_GLOBAL(chbevd,CHBEVD)
6217void LAPACK_chbevd_base(
6218 char const* jobz,
char const* uplo,
6219 lapack_int
const* n, lapack_int
const* kd,
6220 lapack_complex_float* AB, lapack_int
const* ldab,
6222 lapack_complex_float* Z, lapack_int
const* ldz,
6223 lapack_complex_float* work, lapack_int
const* lwork,
6224 float* rwork, lapack_int
const* lrwork,
6225 lapack_int* iwork, lapack_int
const* liwork,
6227#ifdef LAPACK_FORTRAN_STRLEN_END
6231#ifdef LAPACK_FORTRAN_STRLEN_END
6232 #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__, 1, 1)
6234 #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__)
6237#define LAPACK_zhbevd_base LAPACK_GLOBAL(zhbevd,ZHBEVD)
6238void LAPACK_zhbevd_base(
6239 char const* jobz,
char const* uplo,
6240 lapack_int
const* n, lapack_int
const* kd,
6241 lapack_complex_double* AB, lapack_int
const* ldab,
6243 lapack_complex_double* Z, lapack_int
const* ldz,
6244 lapack_complex_double* work, lapack_int
const* lwork,
6245 double* rwork, lapack_int
const* lrwork,
6246 lapack_int* iwork, lapack_int
const* liwork,
6248#ifdef LAPACK_FORTRAN_STRLEN_END
6252#ifdef LAPACK_FORTRAN_STRLEN_END
6253 #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__, 1, 1)
6255 #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__)
6258#define LAPACK_chbevd_2stage_base LAPACK_GLOBAL(chbevd_2stage,CHBEVD_2STAGE)
6259void LAPACK_chbevd_2stage_base(
6260 char const* jobz,
char const* uplo,
6261 lapack_int
const* n, lapack_int
const* kd,
6262 lapack_complex_float* AB, lapack_int
const* ldab,
6264 lapack_complex_float* Z, lapack_int
const* ldz,
6265 lapack_complex_float* work, lapack_int
const* lwork,
6266 float* rwork, lapack_int
const* lrwork,
6267 lapack_int* iwork, lapack_int
const* liwork,
6269#ifdef LAPACK_FORTRAN_STRLEN_END
6273#ifdef LAPACK_FORTRAN_STRLEN_END
6274 #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__, 1, 1)
6276 #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__)
6279#define LAPACK_zhbevd_2stage_base LAPACK_GLOBAL(zhbevd_2stage,ZHBEVD_2STAGE)
6280void LAPACK_zhbevd_2stage_base(
6281 char const* jobz,
char const* uplo,
6282 lapack_int
const* n, lapack_int
const* kd,
6283 lapack_complex_double* AB, lapack_int
const* ldab,
6285 lapack_complex_double* Z, lapack_int
const* ldz,
6286 lapack_complex_double* work, lapack_int
const* lwork,
6287 double* rwork, lapack_int
const* lrwork,
6288 lapack_int* iwork, lapack_int
const* liwork,
6290#ifdef LAPACK_FORTRAN_STRLEN_END
6294#ifdef LAPACK_FORTRAN_STRLEN_END
6295 #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__, 1, 1)
6297 #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__)
6300#define LAPACK_chbevx_base LAPACK_GLOBAL(chbevx,CHBEVX)
6301void LAPACK_chbevx_base(
6302 char const* jobz,
char const* range,
char const* uplo,
6303 lapack_int
const* n, lapack_int
const* kd,
6304 lapack_complex_float* AB, lapack_int
const* ldab,
6305 lapack_complex_float* Q, lapack_int
const* ldq,
6307 float const* vu, lapack_int
const* il, lapack_int
const* iu,
6308 float const* abstol, lapack_int* m,
6310 lapack_complex_float* Z, lapack_int
const* ldz,
6311 lapack_complex_float* work,
6313 lapack_int* iwork, lapack_int* IFAIL,
6315#ifdef LAPACK_FORTRAN_STRLEN_END
6316 ,
size_t,
size_t,
size_t
6319#ifdef LAPACK_FORTRAN_STRLEN_END
6320 #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__, 1, 1, 1)
6322 #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__)
6325#define LAPACK_zhbevx_base LAPACK_GLOBAL(zhbevx,ZHBEVX)
6326void LAPACK_zhbevx_base(
6327 char const* jobz,
char const* range,
char const* uplo,
6328 lapack_int
const* n, lapack_int
const* kd,
6329 lapack_complex_double* AB, lapack_int
const* ldab,
6330 lapack_complex_double* Q, lapack_int
const* ldq,
6332 double const* vu, lapack_int
const* il, lapack_int
const* iu,
6333 double const* abstol, lapack_int* m,
6335 lapack_complex_double* Z, lapack_int
const* ldz,
6336 lapack_complex_double* work,
6338 lapack_int* iwork, lapack_int* IFAIL,
6340#ifdef LAPACK_FORTRAN_STRLEN_END
6341 ,
size_t,
size_t,
size_t
6344#ifdef LAPACK_FORTRAN_STRLEN_END
6345 #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__, 1, 1, 1)
6347 #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__)
6350#define LAPACK_chbevx_2stage_base LAPACK_GLOBAL(chbevx_2stage,CHBEVX_2STAGE)
6351void LAPACK_chbevx_2stage_base(
6352 char const* jobz,
char const* range,
char const* uplo,
6353 lapack_int
const* n, lapack_int
const* kd,
6354 lapack_complex_float* AB, lapack_int
const* ldab,
6355 lapack_complex_float* Q, lapack_int
const* ldq,
6357 float const* vu, lapack_int
const* il, lapack_int
const* iu,
6358 float const* abstol, lapack_int* m,
6360 lapack_complex_float* Z, lapack_int
const* ldz,
6361 lapack_complex_float* work, lapack_int
const* lwork,
6363 lapack_int* iwork, lapack_int* IFAIL,
6365#ifdef LAPACK_FORTRAN_STRLEN_END
6366 ,
size_t,
size_t,
size_t
6369#ifdef LAPACK_FORTRAN_STRLEN_END
6370 #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
6372 #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__)
6375#define LAPACK_zhbevx_2stage_base LAPACK_GLOBAL(zhbevx_2stage,ZHBEVX_2STAGE)
6376void LAPACK_zhbevx_2stage_base(
6377 char const* jobz,
char const* range,
char const* uplo,
6378 lapack_int
const* n, lapack_int
const* kd,
6379 lapack_complex_double* AB, lapack_int
const* ldab,
6380 lapack_complex_double* Q, lapack_int
const* ldq,
6382 double const* vu, lapack_int
const* il, lapack_int
const* iu,
6383 double const* abstol, lapack_int* m,
6385 lapack_complex_double* Z, lapack_int
const* ldz,
6386 lapack_complex_double* work, lapack_int
const* lwork,
6388 lapack_int* iwork, lapack_int* IFAIL,
6390#ifdef LAPACK_FORTRAN_STRLEN_END
6391 ,
size_t,
size_t,
size_t
6394#ifdef LAPACK_FORTRAN_STRLEN_END
6395 #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
6397 #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__)
6400#define LAPACK_chbgst_base LAPACK_GLOBAL(chbgst,CHBGST)
6401void LAPACK_chbgst_base(
6402 char const* vect,
char const* uplo,
6403 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
6404 lapack_complex_float* AB, lapack_int
const* ldab,
6405 lapack_complex_float
const* BB, lapack_int
const* ldbb,
6406 lapack_complex_float* X, lapack_int
const* ldx,
6407 lapack_complex_float* work,
6410#ifdef LAPACK_FORTRAN_STRLEN_END
6414#ifdef LAPACK_FORTRAN_STRLEN_END
6415 #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__, 1, 1)
6417 #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__)
6420#define LAPACK_zhbgst_base LAPACK_GLOBAL(zhbgst,ZHBGST)
6421void LAPACK_zhbgst_base(
6422 char const* vect,
char const* uplo,
6423 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
6424 lapack_complex_double* AB, lapack_int
const* ldab,
6425 lapack_complex_double
const* BB, lapack_int
const* ldbb,
6426 lapack_complex_double* X, lapack_int
const* ldx,
6427 lapack_complex_double* work,
6430#ifdef LAPACK_FORTRAN_STRLEN_END
6434#ifdef LAPACK_FORTRAN_STRLEN_END
6435 #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__, 1, 1)
6437 #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__)
6440#define LAPACK_chbgv_base LAPACK_GLOBAL(chbgv,CHBGV)
6441void LAPACK_chbgv_base(
6442 char const* jobz,
char const* uplo,
6443 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
6444 lapack_complex_float* AB, lapack_int
const* ldab,
6445 lapack_complex_float* BB, lapack_int
const* ldbb,
6447 lapack_complex_float* Z, lapack_int
const* ldz,
6448 lapack_complex_float* work,
6451#ifdef LAPACK_FORTRAN_STRLEN_END
6455#ifdef LAPACK_FORTRAN_STRLEN_END
6456 #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__, 1, 1)
6458 #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__)
6461#define LAPACK_zhbgv_base LAPACK_GLOBAL(zhbgv,ZHBGV)
6462void LAPACK_zhbgv_base(
6463 char const* jobz,
char const* uplo,
6464 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
6465 lapack_complex_double* AB, lapack_int
const* ldab,
6466 lapack_complex_double* BB, lapack_int
const* ldbb,
6468 lapack_complex_double* Z, lapack_int
const* ldz,
6469 lapack_complex_double* work,
6472#ifdef LAPACK_FORTRAN_STRLEN_END
6476#ifdef LAPACK_FORTRAN_STRLEN_END
6477 #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__, 1, 1)
6479 #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__)
6482#define LAPACK_chbgvd_base LAPACK_GLOBAL(chbgvd,CHBGVD)
6483void LAPACK_chbgvd_base(
6484 char const* jobz,
char const* uplo,
6485 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
6486 lapack_complex_float* AB, lapack_int
const* ldab,
6487 lapack_complex_float* BB, lapack_int
const* ldbb,
6489 lapack_complex_float* Z, lapack_int
const* ldz,
6490 lapack_complex_float* work, lapack_int
const* lwork,
6491 float* rwork, lapack_int
const* lrwork,
6492 lapack_int* iwork, lapack_int
const* liwork,
6494#ifdef LAPACK_FORTRAN_STRLEN_END
6498#ifdef LAPACK_FORTRAN_STRLEN_END
6499 #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__, 1, 1)
6501 #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__)
6504#define LAPACK_zhbgvd_base LAPACK_GLOBAL(zhbgvd,ZHBGVD)
6505void LAPACK_zhbgvd_base(
6506 char const* jobz,
char const* uplo,
6507 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
6508 lapack_complex_double* AB, lapack_int
const* ldab,
6509 lapack_complex_double* BB, lapack_int
const* ldbb,
6511 lapack_complex_double* Z, lapack_int
const* ldz,
6512 lapack_complex_double* work, lapack_int
const* lwork,
6513 double* rwork, lapack_int
const* lrwork,
6514 lapack_int* iwork, lapack_int
const* liwork,
6516#ifdef LAPACK_FORTRAN_STRLEN_END
6520#ifdef LAPACK_FORTRAN_STRLEN_END
6521 #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__, 1, 1)
6523 #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__)
6526#define LAPACK_chbgvx_base LAPACK_GLOBAL(chbgvx,CHBGVX)
6527void LAPACK_chbgvx_base(
6528 char const* jobz,
char const* range,
char const* uplo,
6529 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
6530 lapack_complex_float* AB, lapack_int
const* ldab,
6531 lapack_complex_float* BB, lapack_int
const* ldbb,
6532 lapack_complex_float* Q, lapack_int
const* ldq,
6534 float const* vu, lapack_int
const* il, lapack_int
const* iu,
6535 float const* abstol, lapack_int* m,
6537 lapack_complex_float* Z, lapack_int
const* ldz,
6538 lapack_complex_float* work,
6540 lapack_int* iwork, lapack_int* IFAIL,
6542#ifdef LAPACK_FORTRAN_STRLEN_END
6543 ,
size_t,
size_t,
size_t
6546#ifdef LAPACK_FORTRAN_STRLEN_END
6547 #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__, 1, 1, 1)
6549 #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__)
6552#define LAPACK_zhbgvx_base LAPACK_GLOBAL(zhbgvx,ZHBGVX)
6553void LAPACK_zhbgvx_base(
6554 char const* jobz,
char const* range,
char const* uplo,
6555 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
6556 lapack_complex_double* AB, lapack_int
const* ldab,
6557 lapack_complex_double* BB, lapack_int
const* ldbb,
6558 lapack_complex_double* Q, lapack_int
const* ldq,
6560 double const* vu, lapack_int
const* il, lapack_int
const* iu,
6561 double const* abstol, lapack_int* m,
6563 lapack_complex_double* Z, lapack_int
const* ldz,
6564 lapack_complex_double* work,
6566 lapack_int* iwork, lapack_int* IFAIL,
6568#ifdef LAPACK_FORTRAN_STRLEN_END
6569 ,
size_t,
size_t,
size_t
6572#ifdef LAPACK_FORTRAN_STRLEN_END
6573 #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__, 1, 1, 1)
6575 #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__)
6578#define LAPACK_chbtrd_base LAPACK_GLOBAL(chbtrd,CHBTRD)
6579void LAPACK_chbtrd_base(
6580 char const* vect,
char const* uplo,
6581 lapack_int
const* n, lapack_int
const* kd,
6582 lapack_complex_float* AB, lapack_int
const* ldab,
6585 lapack_complex_float* Q, lapack_int
const* ldq,
6586 lapack_complex_float* work,
6588#ifdef LAPACK_FORTRAN_STRLEN_END
6592#ifdef LAPACK_FORTRAN_STRLEN_END
6593 #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__, 1, 1)
6595 #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__)
6598#define LAPACK_zhbtrd_base LAPACK_GLOBAL(zhbtrd,ZHBTRD)
6599void LAPACK_zhbtrd_base(
6600 char const* vect,
char const* uplo,
6601 lapack_int
const* n, lapack_int
const* kd,
6602 lapack_complex_double* AB, lapack_int
const* ldab,
6605 lapack_complex_double* Q, lapack_int
const* ldq,
6606 lapack_complex_double* work,
6608#ifdef LAPACK_FORTRAN_STRLEN_END
6612#ifdef LAPACK_FORTRAN_STRLEN_END
6613 #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__, 1, 1)
6615 #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__)
6618#define LAPACK_checon_base LAPACK_GLOBAL(checon,CHECON)
6619void LAPACK_checon_base(
6621 lapack_int
const* n,
6622 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
6625 lapack_complex_float* work,
6627#ifdef LAPACK_FORTRAN_STRLEN_END
6631#ifdef LAPACK_FORTRAN_STRLEN_END
6632 #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__, 1)
6634 #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__)
6637#define LAPACK_zhecon_base LAPACK_GLOBAL(zhecon,ZHECON)
6638void LAPACK_zhecon_base(
6640 lapack_int
const* n,
6641 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
6642 double const* anorm,
6644 lapack_complex_double* work,
6646#ifdef LAPACK_FORTRAN_STRLEN_END
6650#ifdef LAPACK_FORTRAN_STRLEN_END
6651 #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__, 1)
6653 #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__)
6656#define LAPACK_checon_3_base LAPACK_GLOBAL(checon_3,CHECON_3)
6657void LAPACK_checon_3_base(
6659 lapack_int
const* n,
6660 lapack_complex_float
const* A, lapack_int
const* lda,
6661 lapack_complex_float
const* E, lapack_int
const* ipiv,
6664 lapack_complex_float* work,
6666#ifdef LAPACK_FORTRAN_STRLEN_END
6670#ifdef LAPACK_FORTRAN_STRLEN_END
6671 #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__, 1)
6673 #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__)
6676#define LAPACK_zhecon_3_base LAPACK_GLOBAL(zhecon_3,ZHECON_3)
6677void LAPACK_zhecon_3_base(
6679 lapack_int
const* n,
6680 lapack_complex_double
const* A, lapack_int
const* lda,
6681 lapack_complex_double
const* E, lapack_int
const* ipiv,
6682 double const* anorm,
6684 lapack_complex_double* work,
6686#ifdef LAPACK_FORTRAN_STRLEN_END
6690#ifdef LAPACK_FORTRAN_STRLEN_END
6691 #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__, 1)
6693 #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__)
6696#define LAPACK_cheequb_base LAPACK_GLOBAL(cheequb,CHEEQUB)
6697void LAPACK_cheequb_base(
6699 lapack_int
const* n,
6700 lapack_complex_float
const* A, lapack_int
const* lda,
6704 lapack_complex_float* work,
6706#ifdef LAPACK_FORTRAN_STRLEN_END
6710#ifdef LAPACK_FORTRAN_STRLEN_END
6711 #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__, 1)
6713 #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__)
6716#define LAPACK_zheequb_base LAPACK_GLOBAL(zheequb,ZHEEQUB)
6717void LAPACK_zheequb_base(
6719 lapack_int
const* n,
6720 lapack_complex_double
const* A, lapack_int
const* lda,
6724 lapack_complex_double* work,
6726#ifdef LAPACK_FORTRAN_STRLEN_END
6730#ifdef LAPACK_FORTRAN_STRLEN_END
6731 #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__, 1)
6733 #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__)
6736#define LAPACK_cheev_base LAPACK_GLOBAL(cheev,CHEEV)
6737void LAPACK_cheev_base(
6738 char const* jobz,
char const* uplo,
6739 lapack_int
const* n,
6740 lapack_complex_float* A, lapack_int
const* lda,
6742 lapack_complex_float* work, lapack_int
const* lwork,
6745#ifdef LAPACK_FORTRAN_STRLEN_END
6749#ifdef LAPACK_FORTRAN_STRLEN_END
6750 #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__, 1, 1)
6752 #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__)
6755#define LAPACK_zheev_base LAPACK_GLOBAL(zheev,ZHEEV)
6756void LAPACK_zheev_base(
6757 char const* jobz,
char const* uplo,
6758 lapack_int
const* n,
6759 lapack_complex_double* A, lapack_int
const* lda,
6761 lapack_complex_double* work, lapack_int
const* lwork,
6764#ifdef LAPACK_FORTRAN_STRLEN_END
6768#ifdef LAPACK_FORTRAN_STRLEN_END
6769 #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__, 1, 1)
6771 #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__)
6774#define LAPACK_cheev_2stage_base LAPACK_GLOBAL(cheev_2stage,CHEEV_2STAGE)
6775void LAPACK_cheev_2stage_base(
6776 char const* jobz,
char const* uplo,
6777 lapack_int
const* n,
6778 lapack_complex_float* A, lapack_int
const* lda,
6780 lapack_complex_float* work, lapack_int
const* lwork,
6783#ifdef LAPACK_FORTRAN_STRLEN_END
6787#ifdef LAPACK_FORTRAN_STRLEN_END
6788 #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__, 1, 1)
6790 #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__)
6793#define LAPACK_zheev_2stage_base LAPACK_GLOBAL(zheev_2stage,ZHEEV_2STAGE)
6794void LAPACK_zheev_2stage_base(
6795 char const* jobz,
char const* uplo,
6796 lapack_int
const* n,
6797 lapack_complex_double* A, lapack_int
const* lda,
6799 lapack_complex_double* work, lapack_int
const* lwork,
6802#ifdef LAPACK_FORTRAN_STRLEN_END
6806#ifdef LAPACK_FORTRAN_STRLEN_END
6807 #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__, 1, 1)
6809 #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__)
6812#define LAPACK_cheevd_base LAPACK_GLOBAL(cheevd,CHEEVD)
6813void LAPACK_cheevd_base(
6814 char const* jobz,
char const* uplo,
6815 lapack_int
const* n,
6816 lapack_complex_float* A, lapack_int
const* lda,
6818 lapack_complex_float* work, lapack_int
const* lwork,
6819 float* rwork, lapack_int
const* lrwork,
6820 lapack_int* iwork, lapack_int
const* liwork,
6822#ifdef LAPACK_FORTRAN_STRLEN_END
6826#ifdef LAPACK_FORTRAN_STRLEN_END
6827 #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__, 1, 1)
6829 #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__)
6832#define LAPACK_zheevd_base LAPACK_GLOBAL(zheevd,ZHEEVD)
6833void LAPACK_zheevd_base(
6834 char const* jobz,
char const* uplo,
6835 lapack_int
const* n,
6836 lapack_complex_double* A, lapack_int
const* lda,
6838 lapack_complex_double* work, lapack_int
const* lwork,
6839 double* rwork, lapack_int
const* lrwork,
6840 lapack_int* iwork, lapack_int
const* liwork,
6842#ifdef LAPACK_FORTRAN_STRLEN_END
6846#ifdef LAPACK_FORTRAN_STRLEN_END
6847 #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__, 1, 1)
6849 #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__)
6852#define LAPACK_cheevd_2stage_base LAPACK_GLOBAL(cheevd_2stage,CHEEVD_2STAGE)
6853void LAPACK_cheevd_2stage_base(
6854 char const* jobz,
char const* uplo,
6855 lapack_int
const* n,
6856 lapack_complex_float* A, lapack_int
const* lda,
6858 lapack_complex_float* work, lapack_int
const* lwork,
6859 float* rwork, lapack_int
const* lrwork,
6860 lapack_int* iwork, lapack_int
const* liwork,
6862#ifdef LAPACK_FORTRAN_STRLEN_END
6866#ifdef LAPACK_FORTRAN_STRLEN_END
6867 #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__, 1, 1)
6869 #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__)
6872#define LAPACK_zheevd_2stage_base LAPACK_GLOBAL(zheevd_2stage,ZHEEVD_2STAGE)
6873void LAPACK_zheevd_2stage_base(
6874 char const* jobz,
char const* uplo,
6875 lapack_int
const* n,
6876 lapack_complex_double* A, lapack_int
const* lda,
6878 lapack_complex_double* work, lapack_int
const* lwork,
6879 double* rwork, lapack_int
const* lrwork,
6880 lapack_int* iwork, lapack_int
const* liwork,
6882#ifdef LAPACK_FORTRAN_STRLEN_END
6886#ifdef LAPACK_FORTRAN_STRLEN_END
6887 #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__, 1, 1)
6889 #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__)
6892#define LAPACK_cheevr_base LAPACK_GLOBAL(cheevr,CHEEVR)
6893void LAPACK_cheevr_base(
6894 char const* jobz,
char const* range,
char const* uplo,
6895 lapack_int
const* n,
6896 lapack_complex_float* A, lapack_int
const* lda,
6898 float const* vu, lapack_int
const* il, lapack_int
const* iu,
6899 float const* abstol, lapack_int* m,
6901 lapack_complex_float* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
6902 lapack_complex_float* work, lapack_int
const* lwork,
6903 float* rwork, lapack_int
const* lrwork,
6904 lapack_int* iwork, lapack_int
const* liwork,
6906#ifdef LAPACK_FORTRAN_STRLEN_END
6907 ,
size_t,
size_t,
size_t
6910#ifdef LAPACK_FORTRAN_STRLEN_END
6911 #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__, 1, 1, 1)
6913 #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__)
6916#define LAPACK_zheevr_base LAPACK_GLOBAL(zheevr,ZHEEVR)
6917void LAPACK_zheevr_base(
6918 char const* jobz,
char const* range,
char const* uplo,
6919 lapack_int
const* n,
6920 lapack_complex_double* A, lapack_int
const* lda,
6922 double const* vu, lapack_int
const* il, lapack_int
const* iu,
6923 double const* abstol, lapack_int* m,
6925 lapack_complex_double* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
6926 lapack_complex_double* work, lapack_int
const* lwork,
6927 double* rwork, lapack_int
const* lrwork,
6928 lapack_int* iwork, lapack_int
const* liwork,
6930#ifdef LAPACK_FORTRAN_STRLEN_END
6931 ,
size_t,
size_t,
size_t
6934#ifdef LAPACK_FORTRAN_STRLEN_END
6935 #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__, 1, 1, 1)
6937 #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__)
6940#define LAPACK_cheevr_2stage_base LAPACK_GLOBAL(cheevr_2stage,CHEEVR_2STAGE)
6941void LAPACK_cheevr_2stage_base(
6942 char const* jobz,
char const* range,
char const* uplo,
6943 lapack_int
const* n,
6944 lapack_complex_float* A, lapack_int
const* lda,
6946 float const* vu, lapack_int
const* il, lapack_int
const* iu,
6947 float const* abstol, lapack_int* m,
6949 lapack_complex_float* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
6950 lapack_complex_float* work, lapack_int
const* lwork,
6951 float* rwork, lapack_int
const* lrwork,
6952 lapack_int* iwork, lapack_int
const* liwork,
6954#ifdef LAPACK_FORTRAN_STRLEN_END
6955 ,
size_t,
size_t,
size_t
6958#ifdef LAPACK_FORTRAN_STRLEN_END
6959 #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__, 1, 1, 1)
6961 #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__)
6964#define LAPACK_zheevr_2stage_base LAPACK_GLOBAL(zheevr_2stage,ZHEEVR_2STAGE)
6965void LAPACK_zheevr_2stage_base(
6966 char const* jobz,
char const* range,
char const* uplo,
6967 lapack_int
const* n,
6968 lapack_complex_double* A, lapack_int
const* lda,
6970 double const* vu, lapack_int
const* il, lapack_int
const* iu,
6971 double const* abstol, lapack_int* m,
6973 lapack_complex_double* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
6974 lapack_complex_double* work, lapack_int
const* lwork,
6975 double* rwork, lapack_int
const* lrwork,
6976 lapack_int* iwork, lapack_int
const* liwork,
6978#ifdef LAPACK_FORTRAN_STRLEN_END
6979 ,
size_t,
size_t,
size_t
6982#ifdef LAPACK_FORTRAN_STRLEN_END
6983 #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__, 1, 1, 1)
6985 #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__)
6988#define LAPACK_cheevx_base LAPACK_GLOBAL(cheevx,CHEEVX)
6989void LAPACK_cheevx_base(
6990 char const* jobz,
char const* range,
char const* uplo,
6991 lapack_int
const* n,
6992 lapack_complex_float* A, lapack_int
const* lda,
6994 float const* vu, lapack_int
const* il, lapack_int
const* iu,
6995 float const* abstol, lapack_int* m,
6997 lapack_complex_float* Z, lapack_int
const* ldz,
6998 lapack_complex_float* work, lapack_int
const* lwork,
7000 lapack_int* iwork, lapack_int* IFAIL,
7002#ifdef LAPACK_FORTRAN_STRLEN_END
7003 ,
size_t,
size_t,
size_t
7006#ifdef LAPACK_FORTRAN_STRLEN_END
7007 #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__, 1, 1, 1)
7009 #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__)
7012#define LAPACK_zheevx_base LAPACK_GLOBAL(zheevx,ZHEEVX)
7013void LAPACK_zheevx_base(
7014 char const* jobz,
char const* range,
char const* uplo,
7015 lapack_int
const* n,
7016 lapack_complex_double* A, lapack_int
const* lda,
7018 double const* vu, lapack_int
const* il, lapack_int
const* iu,
7019 double const* abstol, lapack_int* m,
7021 lapack_complex_double* Z, lapack_int
const* ldz,
7022 lapack_complex_double* work, lapack_int
const* lwork,
7024 lapack_int* iwork, lapack_int* IFAIL,
7026#ifdef LAPACK_FORTRAN_STRLEN_END
7027 ,
size_t,
size_t,
size_t
7030#ifdef LAPACK_FORTRAN_STRLEN_END
7031 #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__, 1, 1, 1)
7033 #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__)
7036#define LAPACK_cheevx_2stage_base LAPACK_GLOBAL(cheevx_2stage,CHEEVX_2STAGE)
7037void LAPACK_cheevx_2stage_base(
7038 char const* jobz,
char const* range,
char const* uplo,
7039 lapack_int
const* n,
7040 lapack_complex_float* A, lapack_int
const* lda,
7042 float const* vu, lapack_int
const* il, lapack_int
const* iu,
7043 float const* abstol, lapack_int* m,
7045 lapack_complex_float* Z, lapack_int
const* ldz,
7046 lapack_complex_float* work, lapack_int
const* lwork,
7048 lapack_int* iwork, lapack_int* IFAIL,
7050#ifdef LAPACK_FORTRAN_STRLEN_END
7051 ,
size_t,
size_t,
size_t
7054#ifdef LAPACK_FORTRAN_STRLEN_END
7055 #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__, 1, 1, 1)
7057 #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__)
7060#define LAPACK_zheevx_2stage_base LAPACK_GLOBAL(zheevx_2stage,ZHEEVX_2STAGE)
7061void LAPACK_zheevx_2stage_base(
7062 char const* jobz,
char const* range,
char const* uplo,
7063 lapack_int
const* n,
7064 lapack_complex_double* A, lapack_int
const* lda,
7066 double const* vu, lapack_int
const* il, lapack_int
const* iu,
7067 double const* abstol, lapack_int* m,
7069 lapack_complex_double* Z, lapack_int
const* ldz,
7070 lapack_complex_double* work, lapack_int
const* lwork,
7072 lapack_int* iwork, lapack_int* IFAIL,
7074#ifdef LAPACK_FORTRAN_STRLEN_END
7075 ,
size_t,
size_t,
size_t
7078#ifdef LAPACK_FORTRAN_STRLEN_END
7079 #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__, 1, 1, 1)
7081 #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__)
7084#define LAPACK_chegst_base LAPACK_GLOBAL(chegst,CHEGST)
7085void LAPACK_chegst_base(
7086 lapack_int
const* itype,
char const* uplo,
7087 lapack_int
const* n,
7088 lapack_complex_float* A, lapack_int
const* lda,
7089 const lapack_complex_float* B, lapack_int
const* ldb,
7091#ifdef LAPACK_FORTRAN_STRLEN_END
7095#ifdef LAPACK_FORTRAN_STRLEN_END
7096 #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__, 1)
7098 #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__)
7101#define LAPACK_zhegst_base LAPACK_GLOBAL(zhegst,ZHEGST)
7102void LAPACK_zhegst_base(
7103 lapack_int
const* itype,
char const* uplo,
7104 lapack_int
const* n,
7105 lapack_complex_double* A, lapack_int
const* lda,
7106 const lapack_complex_double* B, lapack_int
const* ldb,
7108#ifdef LAPACK_FORTRAN_STRLEN_END
7112#ifdef LAPACK_FORTRAN_STRLEN_END
7113 #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__, 1)
7115 #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__)
7118#define LAPACK_chegv_base LAPACK_GLOBAL(chegv,CHEGV)
7119void LAPACK_chegv_base(
7120 lapack_int
const* itype,
char const* jobz,
char const* uplo,
7121 lapack_int
const* n,
7122 lapack_complex_float* A, lapack_int
const* lda,
7123 lapack_complex_float* B, lapack_int
const* ldb,
7125 lapack_complex_float* work, lapack_int
const* lwork,
7128#ifdef LAPACK_FORTRAN_STRLEN_END
7132#ifdef LAPACK_FORTRAN_STRLEN_END
7133 #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__, 1, 1)
7135 #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__)
7138#define LAPACK_zhegv_base LAPACK_GLOBAL(zhegv,ZHEGV)
7139void LAPACK_zhegv_base(
7140 lapack_int
const* itype,
char const* jobz,
char const* uplo,
7141 lapack_int
const* n,
7142 lapack_complex_double* A, lapack_int
const* lda,
7143 lapack_complex_double* B, lapack_int
const* ldb,
7145 lapack_complex_double* work, lapack_int
const* lwork,
7148#ifdef LAPACK_FORTRAN_STRLEN_END
7152#ifdef LAPACK_FORTRAN_STRLEN_END
7153 #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__, 1, 1)
7155 #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__)
7158#define LAPACK_chegv_2stage_base LAPACK_GLOBAL(chegv_2stage,CHEGV_2STAGE)
7159void LAPACK_chegv_2stage_base(
7160 lapack_int
const* itype,
char const* jobz,
char const* uplo,
7161 lapack_int
const* n,
7162 lapack_complex_float* A, lapack_int
const* lda,
7163 lapack_complex_float* B, lapack_int
const* ldb,
7165 lapack_complex_float* work, lapack_int
const* lwork,
7168#ifdef LAPACK_FORTRAN_STRLEN_END
7172#ifdef LAPACK_FORTRAN_STRLEN_END
7173 #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__, 1, 1)
7175 #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__)
7178#define LAPACK_zhegv_2stage_base LAPACK_GLOBAL(zhegv_2stage,ZHEGV_2STAGE)
7179void LAPACK_zhegv_2stage_base(
7180 lapack_int
const* itype,
char const* jobz,
char const* uplo,
7181 lapack_int
const* n,
7182 lapack_complex_double* A, lapack_int
const* lda,
7183 lapack_complex_double* B, lapack_int
const* ldb,
7185 lapack_complex_double* work, lapack_int
const* lwork,
7188#ifdef LAPACK_FORTRAN_STRLEN_END
7192#ifdef LAPACK_FORTRAN_STRLEN_END
7193 #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__, 1, 1)
7195 #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__)
7198#define LAPACK_chegvd_base LAPACK_GLOBAL(chegvd,CHEGVD)
7199void LAPACK_chegvd_base(
7200 lapack_int
const* itype,
char const* jobz,
char const* uplo,
7201 lapack_int
const* n,
7202 lapack_complex_float* A, lapack_int
const* lda,
7203 lapack_complex_float* B, lapack_int
const* ldb,
7205 lapack_complex_float* work, lapack_int
const* lwork,
7206 float* rwork, lapack_int
const* lrwork,
7207 lapack_int* iwork, lapack_int
const* liwork,
7209#ifdef LAPACK_FORTRAN_STRLEN_END
7213#ifdef LAPACK_FORTRAN_STRLEN_END
7214 #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__, 1, 1)
7216 #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__)
7219#define LAPACK_zhegvd_base LAPACK_GLOBAL(zhegvd,ZHEGVD)
7220void LAPACK_zhegvd_base(
7221 lapack_int
const* itype,
char const* jobz,
char const* uplo,
7222 lapack_int
const* n,
7223 lapack_complex_double* A, lapack_int
const* lda,
7224 lapack_complex_double* B, lapack_int
const* ldb,
7226 lapack_complex_double* work, lapack_int
const* lwork,
7227 double* rwork, lapack_int
const* lrwork,
7228 lapack_int* iwork, lapack_int
const* liwork,
7230#ifdef LAPACK_FORTRAN_STRLEN_END
7234#ifdef LAPACK_FORTRAN_STRLEN_END
7235 #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__, 1, 1)
7237 #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__)
7240#define LAPACK_chegvx_base LAPACK_GLOBAL(chegvx,CHEGVX)
7241void LAPACK_chegvx_base(
7242 lapack_int
const* itype,
char const* jobz,
char const* range,
char const* uplo,
7243 lapack_int
const* n,
7244 lapack_complex_float* A, lapack_int
const* lda,
7245 lapack_complex_float* B, lapack_int
const* ldb,
7247 float const* vu, lapack_int
const* il, lapack_int
const* iu,
7248 float const* abstol, lapack_int* m,
7250 lapack_complex_float* Z, lapack_int
const* ldz,
7251 lapack_complex_float* work, lapack_int
const* lwork,
7253 lapack_int* iwork, lapack_int* IFAIL,
7255#ifdef LAPACK_FORTRAN_STRLEN_END
7256 ,
size_t,
size_t,
size_t
7259#ifdef LAPACK_FORTRAN_STRLEN_END
7260 #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__, 1, 1, 1)
7262 #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__)
7265#define LAPACK_zhegvx_base LAPACK_GLOBAL(zhegvx,ZHEGVX)
7266void LAPACK_zhegvx_base(
7267 lapack_int
const* itype,
char const* jobz,
char const* range,
char const* uplo,
7268 lapack_int
const* n,
7269 lapack_complex_double* A, lapack_int
const* lda,
7270 lapack_complex_double* B, lapack_int
const* ldb,
7272 double const* vu, lapack_int
const* il, lapack_int
const* iu,
7273 double const* abstol, lapack_int* m,
7275 lapack_complex_double* Z, lapack_int
const* ldz,
7276 lapack_complex_double* work, lapack_int
const* lwork,
7278 lapack_int* iwork, lapack_int* IFAIL,
7280#ifdef LAPACK_FORTRAN_STRLEN_END
7281 ,
size_t,
size_t,
size_t
7284#ifdef LAPACK_FORTRAN_STRLEN_END
7285 #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__, 1, 1, 1)
7287 #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__)
7290#define LAPACK_cherfs_base LAPACK_GLOBAL(cherfs,CHERFS)
7291void LAPACK_cherfs_base(
7293 lapack_int
const* n, lapack_int
const* nrhs,
7294 lapack_complex_float
const* A, lapack_int
const* lda,
7295 lapack_complex_float
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
7296 lapack_complex_float
const* B, lapack_int
const* ldb,
7297 lapack_complex_float* X, lapack_int
const* ldx,
7300 lapack_complex_float* work,
7303#ifdef LAPACK_FORTRAN_STRLEN_END
7307#ifdef LAPACK_FORTRAN_STRLEN_END
7308 #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__, 1)
7310 #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__)
7313#define LAPACK_zherfs_base LAPACK_GLOBAL(zherfs,ZHERFS)
7314void LAPACK_zherfs_base(
7316 lapack_int
const* n, lapack_int
const* nrhs,
7317 lapack_complex_double
const* A, lapack_int
const* lda,
7318 lapack_complex_double
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
7319 lapack_complex_double
const* B, lapack_int
const* ldb,
7320 lapack_complex_double* X, lapack_int
const* ldx,
7323 lapack_complex_double* work,
7326#ifdef LAPACK_FORTRAN_STRLEN_END
7330#ifdef LAPACK_FORTRAN_STRLEN_END
7331 #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__, 1)
7333 #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__)
7336#define LAPACK_cherfsx_base LAPACK_GLOBAL(cherfsx,CHERFSX)
7337void LAPACK_cherfsx_base(
7338 char const* uplo,
char const* equed,
7339 lapack_int
const* n, lapack_int
const* nrhs,
7340 lapack_complex_float
const* A, lapack_int
const* lda,
7341 lapack_complex_float
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
7343 lapack_complex_float
const* B, lapack_int
const* ldb,
7344 lapack_complex_float* X, lapack_int
const* ldx,
7346 float* berr, lapack_int
const* n_err_bnds,
7347 float* err_bnds_norm,
7348 float* err_bnds_comp, lapack_int
const* nparams,
7350 lapack_complex_float* work,
7353#ifdef LAPACK_FORTRAN_STRLEN_END
7357#ifdef LAPACK_FORTRAN_STRLEN_END
7358 #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__, 1, 1)
7360 #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__)
7363#define LAPACK_zherfsx_base LAPACK_GLOBAL(zherfsx,ZHERFSX)
7364void LAPACK_zherfsx_base(
7365 char const* uplo,
char const* equed,
7366 lapack_int
const* n, lapack_int
const* nrhs,
7367 lapack_complex_double
const* A, lapack_int
const* lda,
7368 lapack_complex_double
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
7370 lapack_complex_double
const* B, lapack_int
const* ldb,
7371 lapack_complex_double* X, lapack_int
const* ldx,
7373 double* berr, lapack_int
const* n_err_bnds,
7374 double* err_bnds_norm,
7375 double* err_bnds_comp, lapack_int
const* nparams,
7377 lapack_complex_double* work,
7380#ifdef LAPACK_FORTRAN_STRLEN_END
7384#ifdef LAPACK_FORTRAN_STRLEN_END
7385 #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__, 1, 1)
7387 #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__)
7390#define LAPACK_chesv_base LAPACK_GLOBAL(chesv,CHESV)
7391void LAPACK_chesv_base(
7393 lapack_int
const* n, lapack_int
const* nrhs,
7394 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
7395 lapack_complex_float* B, lapack_int
const* ldb,
7396 lapack_complex_float* work, lapack_int
const* lwork,
7398#ifdef LAPACK_FORTRAN_STRLEN_END
7402#ifdef LAPACK_FORTRAN_STRLEN_END
7403 #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__, 1)
7405 #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__)
7408#define LAPACK_zhesv_base LAPACK_GLOBAL(zhesv,ZHESV)
7409void LAPACK_zhesv_base(
7411 lapack_int
const* n, lapack_int
const* nrhs,
7412 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
7413 lapack_complex_double* B, lapack_int
const* ldb,
7414 lapack_complex_double* work, lapack_int
const* lwork,
7416#ifdef LAPACK_FORTRAN_STRLEN_END
7420#ifdef LAPACK_FORTRAN_STRLEN_END
7421 #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__, 1)
7423 #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__)
7426#define LAPACK_chesv_aa_base LAPACK_GLOBAL(chesv_aa,CHESV_AA)
7427void LAPACK_chesv_aa_base(
7429 lapack_int
const* n, lapack_int
const* nrhs,
7430 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
7431 lapack_complex_float* B, lapack_int
const* ldb,
7432 lapack_complex_float* work, lapack_int
const* lwork,
7434#ifdef LAPACK_FORTRAN_STRLEN_END
7438#ifdef LAPACK_FORTRAN_STRLEN_END
7439 #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__, 1)
7441 #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__)
7444#define LAPACK_zhesv_aa_base LAPACK_GLOBAL(zhesv_aa,ZHESV_AA)
7445void LAPACK_zhesv_aa_base(
7447 lapack_int
const* n, lapack_int
const* nrhs,
7448 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
7449 lapack_complex_double* B, lapack_int
const* ldb,
7450 lapack_complex_double* work, lapack_int
const* lwork,
7452#ifdef LAPACK_FORTRAN_STRLEN_END
7456#ifdef LAPACK_FORTRAN_STRLEN_END
7457 #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__, 1)
7459 #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__)
7462#define LAPACK_chesv_aa_2stage_base LAPACK_GLOBAL(chesv_aa_2stage,CHESV_AA_2STAGE)
7463void LAPACK_chesv_aa_2stage_base(
7465 lapack_int
const* n, lapack_int
const* nrhs,
7466 lapack_complex_float* A, lapack_int
const* lda,
7467 lapack_complex_float* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7468 lapack_complex_float* B, lapack_int
const* ldb,
7469 lapack_complex_float* work, lapack_int
const* lwork,
7471#ifdef LAPACK_FORTRAN_STRLEN_END
7475#ifdef LAPACK_FORTRAN_STRLEN_END
7476 #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__, 1)
7478 #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__)
7481#define LAPACK_zhesv_aa_2stage_base LAPACK_GLOBAL(zhesv_aa_2stage,ZHESV_AA_2STAGE)
7482void LAPACK_zhesv_aa_2stage_base(
7484 lapack_int
const* n, lapack_int
const* nrhs,
7485 lapack_complex_double* A, lapack_int
const* lda,
7486 lapack_complex_double* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7487 lapack_complex_double* B, lapack_int
const* ldb,
7488 lapack_complex_double* work, lapack_int
const* lwork,
7490#ifdef LAPACK_FORTRAN_STRLEN_END
7494#ifdef LAPACK_FORTRAN_STRLEN_END
7495 #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__, 1)
7497 #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__)
7500#define LAPACK_chesv_rk_base LAPACK_GLOBAL(chesv_rk,CHESV_RK)
7501void LAPACK_chesv_rk_base(
7503 lapack_int
const* n, lapack_int
const* nrhs,
7504 lapack_complex_float* A, lapack_int
const* lda,
7505 lapack_complex_float* E, lapack_int* ipiv,
7506 lapack_complex_float* B, lapack_int
const* ldb,
7507 lapack_complex_float* work, lapack_int
const* lwork,
7509#ifdef LAPACK_FORTRAN_STRLEN_END
7513#ifdef LAPACK_FORTRAN_STRLEN_END
7514 #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__, 1)
7516 #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__)
7519#define LAPACK_zhesv_rk_base LAPACK_GLOBAL(zhesv_rk,ZHESV_RK)
7520void LAPACK_zhesv_rk_base(
7522 lapack_int
const* n, lapack_int
const* nrhs,
7523 lapack_complex_double* A, lapack_int
const* lda,
7524 lapack_complex_double* E, lapack_int* ipiv,
7525 lapack_complex_double* B, lapack_int
const* ldb,
7526 lapack_complex_double* work, lapack_int
const* lwork,
7528#ifdef LAPACK_FORTRAN_STRLEN_END
7532#ifdef LAPACK_FORTRAN_STRLEN_END
7533 #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__, 1)
7535 #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__)
7538#define LAPACK_chesv_rook_base LAPACK_GLOBAL(chesv_rook,CHESV_ROOK)
7539void LAPACK_chesv_rook_base(
7541 lapack_int
const* n, lapack_int
const* nrhs,
7542 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
7543 lapack_complex_float* B, lapack_int
const* ldb,
7544 lapack_complex_float* work, lapack_int
const* lwork,
7546#ifdef LAPACK_FORTRAN_STRLEN_END
7550#ifdef LAPACK_FORTRAN_STRLEN_END
7551 #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__, 1)
7553 #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__)
7556#define LAPACK_zhesv_rook_base LAPACK_GLOBAL(zhesv_rook,ZHESV_ROOK)
7557void LAPACK_zhesv_rook_base(
7559 lapack_int
const* n, lapack_int
const* nrhs,
7560 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
7561 lapack_complex_double* B, lapack_int
const* ldb,
7562 lapack_complex_double* work, lapack_int
const* lwork,
7564#ifdef LAPACK_FORTRAN_STRLEN_END
7568#ifdef LAPACK_FORTRAN_STRLEN_END
7569 #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__, 1)
7571 #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__)
7574#define LAPACK_chesvx_base LAPACK_GLOBAL(chesvx,CHESVX)
7575void LAPACK_chesvx_base(
7576 char const* fact,
char const* uplo,
7577 lapack_int
const* n, lapack_int
const* nrhs,
7578 lapack_complex_float
const* A, lapack_int
const* lda,
7579 lapack_complex_float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
7580 lapack_complex_float
const* B, lapack_int
const* ldb,
7581 lapack_complex_float* X, lapack_int
const* ldx,
7585 lapack_complex_float* work, lapack_int
const* lwork,
7588#ifdef LAPACK_FORTRAN_STRLEN_END
7592#ifdef LAPACK_FORTRAN_STRLEN_END
7593 #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__, 1, 1)
7595 #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__)
7598#define LAPACK_zhesvx_base LAPACK_GLOBAL(zhesvx,ZHESVX)
7599void LAPACK_zhesvx_base(
7600 char const* fact,
char const* uplo,
7601 lapack_int
const* n, lapack_int
const* nrhs,
7602 lapack_complex_double
const* A, lapack_int
const* lda,
7603 lapack_complex_double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
7604 lapack_complex_double
const* B, lapack_int
const* ldb,
7605 lapack_complex_double* X, lapack_int
const* ldx,
7609 lapack_complex_double* work, lapack_int
const* lwork,
7612#ifdef LAPACK_FORTRAN_STRLEN_END
7616#ifdef LAPACK_FORTRAN_STRLEN_END
7617 #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__, 1, 1)
7619 #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__)
7622#define LAPACK_chesvxx_base LAPACK_GLOBAL(chesvxx,CHESVXX)
7623void LAPACK_chesvxx_base(
7624 char const* fact,
char const* uplo,
7625 lapack_int
const* n, lapack_int
const* nrhs,
7626 lapack_complex_float* A, lapack_int
const* lda,
7627 lapack_complex_float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
7629 lapack_complex_float* B,
7630 lapack_int
const* ldb,
7631 lapack_complex_float* X, lapack_int
const* ldx,
7634 float* berr, lapack_int
const* n_err_bnds,
7635 float* err_bnds_norm,
7636 float* err_bnds_comp, lapack_int
const* nparams,
7638 lapack_complex_float* work,
7641#ifdef LAPACK_FORTRAN_STRLEN_END
7642 ,
size_t,
size_t,
size_t
7645#ifdef LAPACK_FORTRAN_STRLEN_END
7646 #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__, 1, 1, 1)
7648 #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__)
7651#define LAPACK_zhesvxx_base LAPACK_GLOBAL(zhesvxx,ZHESVXX)
7652void LAPACK_zhesvxx_base(
7653 char const* fact,
char const* uplo,
7654 lapack_int
const* n, lapack_int
const* nrhs,
7655 lapack_complex_double* A, lapack_int
const* lda,
7656 lapack_complex_double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
7658 lapack_complex_double* B,
7659 lapack_int
const* ldb,
7660 lapack_complex_double* X, lapack_int
const* ldx,
7663 double* berr, lapack_int
const* n_err_bnds,
7664 double* err_bnds_norm,
7665 double* err_bnds_comp, lapack_int
const* nparams,
7667 lapack_complex_double* work,
7670#ifdef LAPACK_FORTRAN_STRLEN_END
7671 ,
size_t,
size_t,
size_t
7674#ifdef LAPACK_FORTRAN_STRLEN_END
7675 #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__, 1, 1, 1)
7677 #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__)
7680#define LAPACK_cheswapr_base LAPACK_GLOBAL(cheswapr,CHESWAPR)
7681void LAPACK_cheswapr_base(
7683 lapack_int
const* n,
7684 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* i1, lapack_int
const* i2
7685#ifdef LAPACK_FORTRAN_STRLEN_END
7689#ifdef LAPACK_FORTRAN_STRLEN_END
7690 #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__, 1)
7692 #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__)
7695#define LAPACK_zheswapr_base LAPACK_GLOBAL(zheswapr,ZHESWAPR)
7696void LAPACK_zheswapr_base(
7698 lapack_int
const* n,
7699 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* i1, lapack_int
const* i2
7700#ifdef LAPACK_FORTRAN_STRLEN_END
7704#ifdef LAPACK_FORTRAN_STRLEN_END
7705 #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__, 1)
7707 #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__)
7710#define LAPACK_chetrd_base LAPACK_GLOBAL(chetrd,CHETRD)
7711void LAPACK_chetrd_base(
7713 lapack_int
const* n,
7714 lapack_complex_float* A, lapack_int
const* lda,
7717 lapack_complex_float* tau,
7718 lapack_complex_float* work, lapack_int
const* lwork,
7720#ifdef LAPACK_FORTRAN_STRLEN_END
7724#ifdef LAPACK_FORTRAN_STRLEN_END
7725 #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__, 1)
7727 #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__)
7730#define LAPACK_zhetrd_base LAPACK_GLOBAL(zhetrd,ZHETRD)
7731void LAPACK_zhetrd_base(
7733 lapack_int
const* n,
7734 lapack_complex_double* A, lapack_int
const* lda,
7737 lapack_complex_double* tau,
7738 lapack_complex_double* work, lapack_int
const* lwork,
7740#ifdef LAPACK_FORTRAN_STRLEN_END
7744#ifdef LAPACK_FORTRAN_STRLEN_END
7745 #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__, 1)
7747 #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__)
7750#define LAPACK_chetrd_2stage_base LAPACK_GLOBAL(chetrd_2stage,CHETRD_2STAGE)
7751void LAPACK_chetrd_2stage_base(
7752 char const* vect,
char const* uplo,
7753 lapack_int
const* n,
7754 lapack_complex_float* A, lapack_int
const* lda,
7757 lapack_complex_float* tau,
7758 lapack_complex_float* HOUS2, lapack_int
const* lhous2,
7759 lapack_complex_float* work, lapack_int
const* lwork,
7761#ifdef LAPACK_FORTRAN_STRLEN_END
7765#ifdef LAPACK_FORTRAN_STRLEN_END
7766 #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__, 1, 1)
7768 #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__)
7771#define LAPACK_zhetrd_2stage_base LAPACK_GLOBAL(zhetrd_2stage,ZHETRD_2STAGE)
7772void LAPACK_zhetrd_2stage_base(
7773 char const* vect,
char const* uplo,
7774 lapack_int
const* n,
7775 lapack_complex_double* A, lapack_int
const* lda,
7778 lapack_complex_double* tau,
7779 lapack_complex_double* HOUS2, lapack_int
const* lhous2,
7780 lapack_complex_double* work, lapack_int
const* lwork,
7782#ifdef LAPACK_FORTRAN_STRLEN_END
7786#ifdef LAPACK_FORTRAN_STRLEN_END
7787 #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__, 1, 1)
7789 #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__)
7792#define LAPACK_chetrf_base LAPACK_GLOBAL(chetrf,CHETRF)
7793void LAPACK_chetrf_base(
7795 lapack_int
const* n,
7796 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
7797 lapack_complex_float* work, lapack_int
const* lwork,
7799#ifdef LAPACK_FORTRAN_STRLEN_END
7803#ifdef LAPACK_FORTRAN_STRLEN_END
7804 #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__, 1)
7806 #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__)
7809#define LAPACK_zhetrf_base LAPACK_GLOBAL(zhetrf,ZHETRF)
7810void LAPACK_zhetrf_base(
7812 lapack_int
const* n,
7813 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
7814 lapack_complex_double* work, lapack_int
const* lwork,
7816#ifdef LAPACK_FORTRAN_STRLEN_END
7820#ifdef LAPACK_FORTRAN_STRLEN_END
7821 #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__, 1)
7823 #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__)
7826#define LAPACK_chetrf_aa_base LAPACK_GLOBAL(chetrf_aa,CHETRF_AA)
7827void LAPACK_chetrf_aa_base(
7829 lapack_int
const* n,
7830 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
7831 lapack_complex_float* work, lapack_int
const* lwork,
7833#ifdef LAPACK_FORTRAN_STRLEN_END
7837#ifdef LAPACK_FORTRAN_STRLEN_END
7838 #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__, 1)
7840 #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__)
7843#define LAPACK_zhetrf_aa_base LAPACK_GLOBAL(zhetrf_aa,ZHETRF_AA)
7844void LAPACK_zhetrf_aa_base(
7846 lapack_int
const* n,
7847 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
7848 lapack_complex_double* work, lapack_int
const* lwork,
7850#ifdef LAPACK_FORTRAN_STRLEN_END
7854#ifdef LAPACK_FORTRAN_STRLEN_END
7855 #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__, 1)
7857 #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__)
7860#define LAPACK_chetrf_aa_2stage_base LAPACK_GLOBAL(chetrf_aa_2stage,CHETRF_AA_2STAGE)
7861void LAPACK_chetrf_aa_2stage_base(
7863 lapack_int
const* n,
7864 lapack_complex_float* A, lapack_int
const* lda,
7865 lapack_complex_float* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7866 lapack_complex_float* work, lapack_int
const* lwork,
7868#ifdef LAPACK_FORTRAN_STRLEN_END
7872#ifdef LAPACK_FORTRAN_STRLEN_END
7873 #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__, 1)
7875 #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__)
7878#define LAPACK_zhetrf_aa_2stage_base LAPACK_GLOBAL(zhetrf_aa_2stage,ZHETRF_AA_2STAGE)
7879void LAPACK_zhetrf_aa_2stage_base(
7881 lapack_int
const* n,
7882 lapack_complex_double* A, lapack_int
const* lda,
7883 lapack_complex_double* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7884 lapack_complex_double* work, lapack_int
const* lwork,
7886#ifdef LAPACK_FORTRAN_STRLEN_END
7890#ifdef LAPACK_FORTRAN_STRLEN_END
7891 #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__, 1)
7893 #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__)
7896#define LAPACK_chetrf_rk_base LAPACK_GLOBAL(chetrf_rk,CHETRF_RK)
7897void LAPACK_chetrf_rk_base(
7899 lapack_int
const* n,
7900 lapack_complex_float* A, lapack_int
const* lda,
7901 lapack_complex_float* E, lapack_int* ipiv,
7902 lapack_complex_float* work, lapack_int
const* lwork,
7904#ifdef LAPACK_FORTRAN_STRLEN_END
7908#ifdef LAPACK_FORTRAN_STRLEN_END
7909 #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__, 1)
7911 #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__)
7914#define LAPACK_zhetrf_rk_base LAPACK_GLOBAL(zhetrf_rk,ZHETRF_RK)
7915void LAPACK_zhetrf_rk_base(
7917 lapack_int
const* n,
7918 lapack_complex_double* A, lapack_int
const* lda,
7919 lapack_complex_double* E, lapack_int* ipiv,
7920 lapack_complex_double* work, lapack_int
const* lwork,
7922#ifdef LAPACK_FORTRAN_STRLEN_END
7926#ifdef LAPACK_FORTRAN_STRLEN_END
7927 #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__, 1)
7929 #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__)
7932#define LAPACK_chetrf_rook_base LAPACK_GLOBAL(chetrf_rook,CHETRF_ROOK)
7933void LAPACK_chetrf_rook_base(
7935 lapack_int
const* n,
7936 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
7937 lapack_complex_float* work, lapack_int
const* lwork,
7939#ifdef LAPACK_FORTRAN_STRLEN_END
7943#ifdef LAPACK_FORTRAN_STRLEN_END
7944 #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__, 1)
7946 #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__)
7949#define LAPACK_zhetrf_rook_base LAPACK_GLOBAL(zhetrf_rook,ZHETRF_ROOK)
7950void LAPACK_zhetrf_rook_base(
7952 lapack_int
const* n,
7953 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
7954 lapack_complex_double* work, lapack_int
const* lwork,
7956#ifdef LAPACK_FORTRAN_STRLEN_END
7960#ifdef LAPACK_FORTRAN_STRLEN_END
7961 #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__, 1)
7963 #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__)
7966#define LAPACK_chetri_base LAPACK_GLOBAL(chetri,CHETRI)
7967void LAPACK_chetri_base(
7969 lapack_int
const* n,
7970 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
7971 lapack_complex_float* work,
7973#ifdef LAPACK_FORTRAN_STRLEN_END
7977#ifdef LAPACK_FORTRAN_STRLEN_END
7978 #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__, 1)
7980 #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__)
7983#define LAPACK_zhetri_base LAPACK_GLOBAL(zhetri,ZHETRI)
7984void LAPACK_zhetri_base(
7986 lapack_int
const* n,
7987 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
7988 lapack_complex_double* work,
7990#ifdef LAPACK_FORTRAN_STRLEN_END
7994#ifdef LAPACK_FORTRAN_STRLEN_END
7995 #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__, 1)
7997 #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__)
8000#define LAPACK_chetri2_base LAPACK_GLOBAL(chetri2,CHETRI2)
8001void LAPACK_chetri2_base(
8003 lapack_int
const* n,
8004 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
8005 lapack_complex_float* work, lapack_int
const* lwork,
8007#ifdef LAPACK_FORTRAN_STRLEN_END
8011#ifdef LAPACK_FORTRAN_STRLEN_END
8012 #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__, 1)
8014 #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__)
8017#define LAPACK_zhetri2_base LAPACK_GLOBAL(zhetri2,ZHETRI2)
8018void LAPACK_zhetri2_base(
8020 lapack_int
const* n,
8021 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
8022 lapack_complex_double* work, lapack_int
const* lwork,
8024#ifdef LAPACK_FORTRAN_STRLEN_END
8028#ifdef LAPACK_FORTRAN_STRLEN_END
8029 #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__, 1)
8031 #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__)
8034#define LAPACK_chetri2x_base LAPACK_GLOBAL(chetri2x,CHETRI2X)
8035void LAPACK_chetri2x_base(
8037 lapack_int
const* n,
8038 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
8039 lapack_complex_float* work, lapack_int
const* nb,
8041#ifdef LAPACK_FORTRAN_STRLEN_END
8045#ifdef LAPACK_FORTRAN_STRLEN_END
8046 #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__, 1)
8048 #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__)
8051#define LAPACK_zhetri2x_base LAPACK_GLOBAL(zhetri2x,ZHETRI2X)
8052void LAPACK_zhetri2x_base(
8054 lapack_int
const* n,
8055 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
8056 lapack_complex_double* work, lapack_int
const* nb,
8058#ifdef LAPACK_FORTRAN_STRLEN_END
8062#ifdef LAPACK_FORTRAN_STRLEN_END
8063 #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__, 1)
8065 #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__)
8068#define LAPACK_chetri_3_base LAPACK_GLOBAL(chetri_3,CHETRI_3)
8069void LAPACK_chetri_3_base(
8071 lapack_int
const* n,
8072 lapack_complex_float* A, lapack_int
const* lda,
8073 lapack_complex_float
const* E, lapack_int
const* ipiv,
8074 lapack_complex_float* work, lapack_int
const* lwork,
8076#ifdef LAPACK_FORTRAN_STRLEN_END
8080#ifdef LAPACK_FORTRAN_STRLEN_END
8081 #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__, 1)
8083 #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__)
8086#define LAPACK_zhetri_3_base LAPACK_GLOBAL(zhetri_3,ZHETRI_3)
8087void LAPACK_zhetri_3_base(
8089 lapack_int
const* n,
8090 lapack_complex_double* A, lapack_int
const* lda,
8091 lapack_complex_double
const* E, lapack_int
const* ipiv,
8092 lapack_complex_double* work, lapack_int
const* lwork,
8094#ifdef LAPACK_FORTRAN_STRLEN_END
8098#ifdef LAPACK_FORTRAN_STRLEN_END
8099 #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__, 1)
8101 #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__)
8104#define LAPACK_chetrs_base LAPACK_GLOBAL(chetrs,CHETRS)
8105void LAPACK_chetrs_base(
8107 lapack_int
const* n, lapack_int
const* nrhs,
8108 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
8109 lapack_complex_float* B, lapack_int
const* ldb,
8111#ifdef LAPACK_FORTRAN_STRLEN_END
8115#ifdef LAPACK_FORTRAN_STRLEN_END
8116 #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__, 1)
8118 #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__)
8121#define LAPACK_zhetrs_base LAPACK_GLOBAL(zhetrs,ZHETRS)
8122void LAPACK_zhetrs_base(
8124 lapack_int
const* n, lapack_int
const* nrhs,
8125 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
8126 lapack_complex_double* B, lapack_int
const* ldb,
8128#ifdef LAPACK_FORTRAN_STRLEN_END
8132#ifdef LAPACK_FORTRAN_STRLEN_END
8133 #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__, 1)
8135 #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__)
8138#define LAPACK_chetrs2_base LAPACK_GLOBAL(chetrs2,CHETRS2)
8139void LAPACK_chetrs2_base(
8141 lapack_int
const* n, lapack_int
const* nrhs,
8142 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
8143 lapack_complex_float* B, lapack_int
const* ldb,
8144 lapack_complex_float* work,
8146#ifdef LAPACK_FORTRAN_STRLEN_END
8150#ifdef LAPACK_FORTRAN_STRLEN_END
8151 #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__, 1)
8153 #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__)
8156#define LAPACK_zhetrs2_base LAPACK_GLOBAL(zhetrs2,ZHETRS2)
8157void LAPACK_zhetrs2_base(
8159 lapack_int
const* n, lapack_int
const* nrhs,
8160 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
8161 lapack_complex_double* B, lapack_int
const* ldb,
8162 lapack_complex_double* work,
8164#ifdef LAPACK_FORTRAN_STRLEN_END
8168#ifdef LAPACK_FORTRAN_STRLEN_END
8169 #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__, 1)
8171 #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__)
8174#define LAPACK_chetrs_3_base LAPACK_GLOBAL(chetrs_3,CHETRS_3)
8175void LAPACK_chetrs_3_base(
8177 lapack_int
const* n, lapack_int
const* nrhs,
8178 lapack_complex_float
const* A, lapack_int
const* lda,
8179 lapack_complex_float
const* E, lapack_int
const* ipiv,
8180 lapack_complex_float* B, lapack_int
const* ldb,
8182#ifdef LAPACK_FORTRAN_STRLEN_END
8186#ifdef LAPACK_FORTRAN_STRLEN_END
8187 #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__, 1)
8189 #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__)
8192#define LAPACK_zhetrs_3_base LAPACK_GLOBAL(zhetrs_3,ZHETRS_3)
8193void LAPACK_zhetrs_3_base(
8195 lapack_int
const* n, lapack_int
const* nrhs,
8196 lapack_complex_double
const* A, lapack_int
const* lda,
8197 lapack_complex_double
const* E, lapack_int
const* ipiv,
8198 lapack_complex_double* B, lapack_int
const* ldb,
8200#ifdef LAPACK_FORTRAN_STRLEN_END
8204#ifdef LAPACK_FORTRAN_STRLEN_END
8205 #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__, 1)
8207 #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__)
8210#define LAPACK_chetrs_aa_base LAPACK_GLOBAL(chetrs_aa,CHETRS_AA)
8211void LAPACK_chetrs_aa_base(
8213 lapack_int
const* n, lapack_int
const* nrhs,
8214 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
8215 lapack_complex_float* B, lapack_int
const* ldb,
8216 lapack_complex_float* work, lapack_int
const* lwork,
8218#ifdef LAPACK_FORTRAN_STRLEN_END
8222#ifdef LAPACK_FORTRAN_STRLEN_END
8223 #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__, 1)
8225 #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__)
8228#define LAPACK_zhetrs_aa_base LAPACK_GLOBAL(zhetrs_aa,ZHETRS_AA)
8229void LAPACK_zhetrs_aa_base(
8231 lapack_int
const* n, lapack_int
const* nrhs,
8232 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
8233 lapack_complex_double* B, lapack_int
const* ldb,
8234 lapack_complex_double* work, lapack_int
const* lwork,
8236#ifdef LAPACK_FORTRAN_STRLEN_END
8240#ifdef LAPACK_FORTRAN_STRLEN_END
8241 #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__, 1)
8243 #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__)
8246#define LAPACK_chetrs_aa_2stage_base LAPACK_GLOBAL(chetrs_aa_2stage,CHETRS_AA_2STAGE)
8247void LAPACK_chetrs_aa_2stage_base(
8249 lapack_int
const* n, lapack_int
const* nrhs,
8250 lapack_complex_float
const* A, lapack_int
const* lda,
8251 lapack_complex_float* TB, lapack_int
const* ltb, lapack_int
const* ipiv, lapack_int
const* ipiv2,
8252 lapack_complex_float* B, lapack_int
const* ldb,
8254#ifdef LAPACK_FORTRAN_STRLEN_END
8258#ifdef LAPACK_FORTRAN_STRLEN_END
8259 #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__, 1)
8261 #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__)
8264#define LAPACK_zhetrs_aa_2stage_base LAPACK_GLOBAL(zhetrs_aa_2stage,ZHETRS_AA_2STAGE)
8265void LAPACK_zhetrs_aa_2stage_base(
8267 lapack_int
const* n, lapack_int
const* nrhs,
8268 lapack_complex_double
const* A, lapack_int
const* lda,
8269 lapack_complex_double* TB, lapack_int
const* ltb, lapack_int
const* ipiv, lapack_int
const* ipiv2,
8270 lapack_complex_double* B, lapack_int
const* ldb,
8272#ifdef LAPACK_FORTRAN_STRLEN_END
8276#ifdef LAPACK_FORTRAN_STRLEN_END
8277 #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__, 1)
8279 #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__)
8282#define LAPACK_chetrs_rook_base LAPACK_GLOBAL(chetrs_rook,CHETRS_ROOK)
8283void LAPACK_chetrs_rook_base(
8285 lapack_int
const* n, lapack_int
const* nrhs,
8286 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
8287 lapack_complex_float* B, lapack_int
const* ldb,
8289#ifdef LAPACK_FORTRAN_STRLEN_END
8293#ifdef LAPACK_FORTRAN_STRLEN_END
8294 #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__, 1)
8296 #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__)
8299#define LAPACK_zhetrs_rook_base LAPACK_GLOBAL(zhetrs_rook,ZHETRS_ROOK)
8300void LAPACK_zhetrs_rook_base(
8302 lapack_int
const* n, lapack_int
const* nrhs,
8303 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
8304 lapack_complex_double* B, lapack_int
const* ldb,
8306#ifdef LAPACK_FORTRAN_STRLEN_END
8310#ifdef LAPACK_FORTRAN_STRLEN_END
8311 #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__, 1)
8313 #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__)
8316#define LAPACK_chfrk_base LAPACK_GLOBAL(chfrk,CHFRK)
8317void LAPACK_chfrk_base(
8318 char const* transr,
char const* uplo,
char const* trans,
8319 lapack_int
const* n, lapack_int
const* k,
8321 lapack_complex_float
const* A, lapack_int
const* lda,
8323 lapack_complex_float* C
8324#ifdef LAPACK_FORTRAN_STRLEN_END
8325 ,
size_t,
size_t,
size_t
8328#ifdef LAPACK_FORTRAN_STRLEN_END
8329 #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__, 1, 1, 1)
8331 #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__)
8334#define LAPACK_zhfrk_base LAPACK_GLOBAL(zhfrk,ZHFRK)
8335void LAPACK_zhfrk_base(
8336 char const* transr,
char const* uplo,
char const* trans,
8337 lapack_int
const* n, lapack_int
const* k,
8338 double const* alpha,
8339 lapack_complex_double
const* A, lapack_int
const* lda,
8341 lapack_complex_double* C
8342#ifdef LAPACK_FORTRAN_STRLEN_END
8343 ,
size_t,
size_t,
size_t
8346#ifdef LAPACK_FORTRAN_STRLEN_END
8347 #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__, 1, 1, 1)
8349 #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__)
8352#define LAPACK_chgeqz_base LAPACK_GLOBAL(chgeqz,CHGEQZ)
8353void LAPACK_chgeqz_base(
8354 char const* job,
char const* compq,
char const* compz,
8355 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
8356 lapack_complex_float* H, lapack_int
const* ldh,
8357 lapack_complex_float* T, lapack_int
const* ldt,
8358 lapack_complex_float* alpha,
8359 lapack_complex_float* beta,
8360 lapack_complex_float* Q, lapack_int
const* ldq,
8361 lapack_complex_float* Z, lapack_int
const* ldz,
8362 lapack_complex_float* work, lapack_int
const* lwork,
8365#ifdef LAPACK_FORTRAN_STRLEN_END
8366 ,
size_t,
size_t,
size_t
8369#ifdef LAPACK_FORTRAN_STRLEN_END
8370 #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__, 1, 1, 1)
8372 #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__)
8375#define LAPACK_dhgeqz_base LAPACK_GLOBAL(dhgeqz,DHGEQZ)
8376void LAPACK_dhgeqz_base(
8377 char const* job,
char const* compq,
char const* compz,
8378 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
8379 double* H, lapack_int
const* ldh,
8380 double* T, lapack_int
const* ldt,
8384 double* Q, lapack_int
const* ldq,
8385 double* Z, lapack_int
const* ldz,
8386 double* work, lapack_int
const* lwork,
8388#ifdef LAPACK_FORTRAN_STRLEN_END
8389 ,
size_t,
size_t,
size_t
8392#ifdef LAPACK_FORTRAN_STRLEN_END
8393 #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__, 1, 1, 1)
8395 #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__)
8398#define LAPACK_shgeqz_base LAPACK_GLOBAL(shgeqz,SHGEQZ)
8399void LAPACK_shgeqz_base(
8400 char const* job,
char const* compq,
char const* compz,
8401 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
8402 float* H, lapack_int
const* ldh,
8403 float* T, lapack_int
const* ldt,
8407 float* Q, lapack_int
const* ldq,
8408 float* Z, lapack_int
const* ldz,
8409 float* work, lapack_int
const* lwork,
8411#ifdef LAPACK_FORTRAN_STRLEN_END
8412 ,
size_t,
size_t,
size_t
8415#ifdef LAPACK_FORTRAN_STRLEN_END
8416 #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__, 1, 1, 1)
8418 #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__)
8421#define LAPACK_zhgeqz_base LAPACK_GLOBAL(zhgeqz,ZHGEQZ)
8422void LAPACK_zhgeqz_base(
8423 char const* job,
char const* compq,
char const* compz,
8424 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
8425 lapack_complex_double* H, lapack_int
const* ldh,
8426 lapack_complex_double* T, lapack_int
const* ldt,
8427 lapack_complex_double* alpha,
8428 lapack_complex_double* beta,
8429 lapack_complex_double* Q, lapack_int
const* ldq,
8430 lapack_complex_double* Z, lapack_int
const* ldz,
8431 lapack_complex_double* work, lapack_int
const* lwork,
8434#ifdef LAPACK_FORTRAN_STRLEN_END
8435 ,
size_t,
size_t,
size_t
8438#ifdef LAPACK_FORTRAN_STRLEN_END
8439 #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__, 1, 1, 1)
8441 #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__)
8444#define LAPACK_chpcon_base LAPACK_GLOBAL(chpcon,CHPCON)
8445void LAPACK_chpcon_base(
8447 lapack_int
const* n,
8448 lapack_complex_float
const* AP, lapack_int
const* ipiv,
8451 lapack_complex_float* work,
8453#ifdef LAPACK_FORTRAN_STRLEN_END
8457#ifdef LAPACK_FORTRAN_STRLEN_END
8458 #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__, 1)
8460 #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__)
8463#define LAPACK_zhpcon_base LAPACK_GLOBAL(zhpcon,ZHPCON)
8464void LAPACK_zhpcon_base(
8466 lapack_int
const* n,
8467 lapack_complex_double
const* AP, lapack_int
const* ipiv,
8468 double const* anorm,
8470 lapack_complex_double* work,
8472#ifdef LAPACK_FORTRAN_STRLEN_END
8476#ifdef LAPACK_FORTRAN_STRLEN_END
8477 #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__, 1)
8479 #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__)
8482#define LAPACK_chpev_base LAPACK_GLOBAL(chpev,CHPEV)
8483void LAPACK_chpev_base(
8484 char const* jobz,
char const* uplo,
8485 lapack_int
const* n,
8486 lapack_complex_float* AP,
8488 lapack_complex_float* Z, lapack_int
const* ldz,
8489 lapack_complex_float* work,
8492#ifdef LAPACK_FORTRAN_STRLEN_END
8496#ifdef LAPACK_FORTRAN_STRLEN_END
8497 #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__, 1, 1)
8499 #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__)
8502#define LAPACK_zhpev_base LAPACK_GLOBAL(zhpev,ZHPEV)
8503void LAPACK_zhpev_base(
8504 char const* jobz,
char const* uplo,
8505 lapack_int
const* n,
8506 lapack_complex_double* AP,
8508 lapack_complex_double* Z, lapack_int
const* ldz,
8509 lapack_complex_double* work,
8512#ifdef LAPACK_FORTRAN_STRLEN_END
8516#ifdef LAPACK_FORTRAN_STRLEN_END
8517 #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__, 1, 1)
8519 #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__)
8522#define LAPACK_chpevd_base LAPACK_GLOBAL(chpevd,CHPEVD)
8523void LAPACK_chpevd_base(
8524 char const* jobz,
char const* uplo,
8525 lapack_int
const* n,
8526 lapack_complex_float* AP,
8528 lapack_complex_float* Z, lapack_int
const* ldz,
8529 lapack_complex_float* work, lapack_int
const* lwork,
8530 float* rwork, lapack_int
const* lrwork,
8531 lapack_int* iwork, lapack_int
const* liwork,
8533#ifdef LAPACK_FORTRAN_STRLEN_END
8537#ifdef LAPACK_FORTRAN_STRLEN_END
8538 #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__, 1, 1)
8540 #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__)
8543#define LAPACK_zhpevd_base LAPACK_GLOBAL(zhpevd,ZHPEVD)
8544void LAPACK_zhpevd_base(
8545 char const* jobz,
char const* uplo,
8546 lapack_int
const* n,
8547 lapack_complex_double* AP,
8549 lapack_complex_double* Z, lapack_int
const* ldz,
8550 lapack_complex_double* work, lapack_int
const* lwork,
8551 double* rwork, lapack_int
const* lrwork,
8552 lapack_int* iwork, lapack_int
const* liwork,
8554#ifdef LAPACK_FORTRAN_STRLEN_END
8558#ifdef LAPACK_FORTRAN_STRLEN_END
8559 #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__, 1, 1)
8561 #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__)
8564#define LAPACK_chpevx_base LAPACK_GLOBAL(chpevx,CHPEVX)
8565void LAPACK_chpevx_base(
8566 char const* jobz,
char const* range,
char const* uplo,
8567 lapack_int
const* n,
8568 lapack_complex_float* AP,
8570 float const* vu, lapack_int
const* il, lapack_int
const* iu,
8571 float const* abstol, lapack_int* m,
8573 lapack_complex_float* Z, lapack_int
const* ldz,
8574 lapack_complex_float* work,
8576 lapack_int* iwork, lapack_int* IFAIL,
8578#ifdef LAPACK_FORTRAN_STRLEN_END
8579 ,
size_t,
size_t,
size_t
8582#ifdef LAPACK_FORTRAN_STRLEN_END
8583 #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__, 1, 1, 1)
8585 #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__)
8588#define LAPACK_zhpevx_base LAPACK_GLOBAL(zhpevx,ZHPEVX)
8589void LAPACK_zhpevx_base(
8590 char const* jobz,
char const* range,
char const* uplo,
8591 lapack_int
const* n,
8592 lapack_complex_double* AP,
8594 double const* vu, lapack_int
const* il, lapack_int
const* iu,
8595 double const* abstol, lapack_int* m,
8597 lapack_complex_double* Z, lapack_int
const* ldz,
8598 lapack_complex_double* work,
8600 lapack_int* iwork, lapack_int* IFAIL,
8602#ifdef LAPACK_FORTRAN_STRLEN_END
8603 ,
size_t,
size_t,
size_t
8606#ifdef LAPACK_FORTRAN_STRLEN_END
8607 #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__, 1, 1, 1)
8609 #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__)
8612#define LAPACK_chpgst_base LAPACK_GLOBAL(chpgst,CHPGST)
8613void LAPACK_chpgst_base(
8614 lapack_int
const* itype,
char const* uplo,
8615 lapack_int
const* n,
8616 lapack_complex_float* AP,
8617 lapack_complex_float
const* BP,
8619#ifdef LAPACK_FORTRAN_STRLEN_END
8623#ifdef LAPACK_FORTRAN_STRLEN_END
8624 #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__, 1)
8626 #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__)
8629#define LAPACK_zhpgst_base LAPACK_GLOBAL(zhpgst,ZHPGST)
8630void LAPACK_zhpgst_base(
8631 lapack_int
const* itype,
char const* uplo,
8632 lapack_int
const* n,
8633 lapack_complex_double* AP,
8634 lapack_complex_double
const* BP,
8636#ifdef LAPACK_FORTRAN_STRLEN_END
8640#ifdef LAPACK_FORTRAN_STRLEN_END
8641 #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__, 1)
8643 #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__)
8646#define LAPACK_chpgv_base LAPACK_GLOBAL(chpgv,CHPGV)
8647void LAPACK_chpgv_base(
8648 lapack_int
const* itype,
char const* jobz,
char const* uplo,
8649 lapack_int
const* n,
8650 lapack_complex_float* AP,
8651 lapack_complex_float* BP,
8653 lapack_complex_float* Z, lapack_int
const* ldz,
8654 lapack_complex_float* work,
8657#ifdef LAPACK_FORTRAN_STRLEN_END
8661#ifdef LAPACK_FORTRAN_STRLEN_END
8662 #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__, 1, 1)
8664 #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__)
8667#define LAPACK_zhpgv_base LAPACK_GLOBAL(zhpgv,ZHPGV)
8668void LAPACK_zhpgv_base(
8669 lapack_int
const* itype,
char const* jobz,
char const* uplo,
8670 lapack_int
const* n,
8671 lapack_complex_double* AP,
8672 lapack_complex_double* BP,
8674 lapack_complex_double* Z, lapack_int
const* ldz,
8675 lapack_complex_double* work,
8678#ifdef LAPACK_FORTRAN_STRLEN_END
8682#ifdef LAPACK_FORTRAN_STRLEN_END
8683 #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__, 1, 1)
8685 #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__)
8688#define LAPACK_chpgvd_base LAPACK_GLOBAL(chpgvd,CHPGVD)
8689void LAPACK_chpgvd_base(
8690 lapack_int
const* itype,
char const* jobz,
char const* uplo,
8691 lapack_int
const* n,
8692 lapack_complex_float* AP,
8693 lapack_complex_float* BP,
8695 lapack_complex_float* Z, lapack_int
const* ldz,
8696 lapack_complex_float* work, lapack_int
const* lwork,
8697 float* rwork, lapack_int
const* lrwork,
8698 lapack_int* iwork, lapack_int
const* liwork,
8700#ifdef LAPACK_FORTRAN_STRLEN_END
8704#ifdef LAPACK_FORTRAN_STRLEN_END
8705 #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__, 1, 1)
8707 #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__)
8710#define LAPACK_zhpgvd_base LAPACK_GLOBAL(zhpgvd,ZHPGVD)
8711void LAPACK_zhpgvd_base(
8712 lapack_int
const* itype,
char const* jobz,
char const* uplo,
8713 lapack_int
const* n,
8714 lapack_complex_double* AP,
8715 lapack_complex_double* BP,
8717 lapack_complex_double* Z, lapack_int
const* ldz,
8718 lapack_complex_double* work, lapack_int
const* lwork,
8719 double* rwork, lapack_int
const* lrwork,
8720 lapack_int* iwork, lapack_int
const* liwork,
8722#ifdef LAPACK_FORTRAN_STRLEN_END
8726#ifdef LAPACK_FORTRAN_STRLEN_END
8727 #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__, 1, 1)
8729 #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__)
8732#define LAPACK_chpgvx_base LAPACK_GLOBAL(chpgvx,CHPGVX)
8733void LAPACK_chpgvx_base(
8734 lapack_int
const* itype,
char const* jobz,
char const* range,
char const* uplo,
8735 lapack_int
const* n,
8736 lapack_complex_float* AP,
8737 lapack_complex_float* BP,
8739 float const* vu, lapack_int
const* il, lapack_int
const* iu,
8740 float const* abstol, lapack_int* m,
8742 lapack_complex_float* Z, lapack_int
const* ldz,
8743 lapack_complex_float* work,
8745 lapack_int* iwork, lapack_int* IFAIL,
8747#ifdef LAPACK_FORTRAN_STRLEN_END
8748 ,
size_t,
size_t,
size_t
8751#ifdef LAPACK_FORTRAN_STRLEN_END
8752 #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__, 1, 1, 1)
8754 #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__)
8757#define LAPACK_zhpgvx_base LAPACK_GLOBAL(zhpgvx,ZHPGVX)
8758void LAPACK_zhpgvx_base(
8759 lapack_int
const* itype,
char const* jobz,
char const* range,
char const* uplo,
8760 lapack_int
const* n,
8761 lapack_complex_double* AP,
8762 lapack_complex_double* BP,
8764 double const* vu, lapack_int
const* il, lapack_int
const* iu,
8765 double const* abstol, lapack_int* m,
8767 lapack_complex_double* Z, lapack_int
const* ldz,
8768 lapack_complex_double* work,
8770 lapack_int* iwork, lapack_int* IFAIL,
8772#ifdef LAPACK_FORTRAN_STRLEN_END
8773 ,
size_t,
size_t,
size_t
8776#ifdef LAPACK_FORTRAN_STRLEN_END
8777 #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__, 1, 1, 1)
8779 #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__)
8782#define LAPACK_chprfs_base LAPACK_GLOBAL(chprfs,CHPRFS)
8783void LAPACK_chprfs_base(
8785 lapack_int
const* n, lapack_int
const* nrhs,
8786 lapack_complex_float
const* AP,
8787 lapack_complex_float
const* AFP, lapack_int
const* ipiv,
8788 lapack_complex_float
const* B, lapack_int
const* ldb,
8789 lapack_complex_float* X, lapack_int
const* ldx,
8792 lapack_complex_float* work,
8795#ifdef LAPACK_FORTRAN_STRLEN_END
8799#ifdef LAPACK_FORTRAN_STRLEN_END
8800 #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__, 1)
8802 #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__)
8805#define LAPACK_zhprfs_base LAPACK_GLOBAL(zhprfs,ZHPRFS)
8806void LAPACK_zhprfs_base(
8808 lapack_int
const* n, lapack_int
const* nrhs,
8809 lapack_complex_double
const* AP,
8810 lapack_complex_double
const* AFP, lapack_int
const* ipiv,
8811 lapack_complex_double
const* B, lapack_int
const* ldb,
8812 lapack_complex_double* X, lapack_int
const* ldx,
8815 lapack_complex_double* work,
8818#ifdef LAPACK_FORTRAN_STRLEN_END
8822#ifdef LAPACK_FORTRAN_STRLEN_END
8823 #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__, 1)
8825 #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__)
8828#define LAPACK_chpsv_base LAPACK_GLOBAL(chpsv,CHPSV)
8829void LAPACK_chpsv_base(
8831 lapack_int
const* n, lapack_int
const* nrhs,
8832 lapack_complex_float* AP, lapack_int* ipiv,
8833 lapack_complex_float* B, lapack_int
const* ldb,
8835#ifdef LAPACK_FORTRAN_STRLEN_END
8839#ifdef LAPACK_FORTRAN_STRLEN_END
8840 #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__, 1)
8842 #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__)
8845#define LAPACK_zhpsv_base LAPACK_GLOBAL(zhpsv,ZHPSV)
8846void LAPACK_zhpsv_base(
8848 lapack_int
const* n, lapack_int
const* nrhs,
8849 lapack_complex_double* AP, lapack_int* ipiv,
8850 lapack_complex_double* B, lapack_int
const* ldb,
8852#ifdef LAPACK_FORTRAN_STRLEN_END
8856#ifdef LAPACK_FORTRAN_STRLEN_END
8857 #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__, 1)
8859 #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__)
8862#define LAPACK_chpsvx_base LAPACK_GLOBAL(chpsvx,CHPSVX)
8863void LAPACK_chpsvx_base(
8864 char const* fact,
char const* uplo,
8865 lapack_int
const* n, lapack_int
const* nrhs,
8866 lapack_complex_float
const* AP,
8867 lapack_complex_float* AFP, lapack_int* ipiv,
8868 lapack_complex_float
const* B, lapack_int
const* ldb,
8869 lapack_complex_float* X, lapack_int
const* ldx,
8873 lapack_complex_float* work,
8876#ifdef LAPACK_FORTRAN_STRLEN_END
8880#ifdef LAPACK_FORTRAN_STRLEN_END
8881 #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__, 1, 1)
8883 #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__)
8886#define LAPACK_zhpsvx_base LAPACK_GLOBAL(zhpsvx,ZHPSVX)
8887void LAPACK_zhpsvx_base(
8888 char const* fact,
char const* uplo,
8889 lapack_int
const* n, lapack_int
const* nrhs,
8890 lapack_complex_double
const* AP,
8891 lapack_complex_double* AFP, lapack_int* ipiv,
8892 lapack_complex_double
const* B, lapack_int
const* ldb,
8893 lapack_complex_double* X, lapack_int
const* ldx,
8897 lapack_complex_double* work,
8900#ifdef LAPACK_FORTRAN_STRLEN_END
8904#ifdef LAPACK_FORTRAN_STRLEN_END
8905 #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__, 1, 1)
8907 #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__)
8910#define LAPACK_chptrd_base LAPACK_GLOBAL(chptrd,CHPTRD)
8911void LAPACK_chptrd_base(
8913 lapack_int
const* n,
8914 lapack_complex_float* AP,
8917 lapack_complex_float* tau,
8919#ifdef LAPACK_FORTRAN_STRLEN_END
8923#ifdef LAPACK_FORTRAN_STRLEN_END
8924 #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__, 1)
8926 #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__)
8929#define LAPACK_zhptrd_base LAPACK_GLOBAL(zhptrd,ZHPTRD)
8930void LAPACK_zhptrd_base(
8932 lapack_int
const* n,
8933 lapack_complex_double* AP,
8936 lapack_complex_double* tau,
8938#ifdef LAPACK_FORTRAN_STRLEN_END
8942#ifdef LAPACK_FORTRAN_STRLEN_END
8943 #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__, 1)
8945 #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__)
8948#define LAPACK_chptrf_base LAPACK_GLOBAL(chptrf,CHPTRF)
8949void LAPACK_chptrf_base(
8951 lapack_int
const* n,
8952 lapack_complex_float* AP, lapack_int* ipiv,
8954#ifdef LAPACK_FORTRAN_STRLEN_END
8958#ifdef LAPACK_FORTRAN_STRLEN_END
8959 #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__, 1)
8961 #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__)
8964#define LAPACK_zhptrf_base LAPACK_GLOBAL(zhptrf,ZHPTRF)
8965void LAPACK_zhptrf_base(
8967 lapack_int
const* n,
8968 lapack_complex_double* AP, lapack_int* ipiv,
8970#ifdef LAPACK_FORTRAN_STRLEN_END
8974#ifdef LAPACK_FORTRAN_STRLEN_END
8975 #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__, 1)
8977 #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__)
8980#define LAPACK_chptri_base LAPACK_GLOBAL(chptri,CHPTRI)
8981void LAPACK_chptri_base(
8983 lapack_int
const* n,
8984 lapack_complex_float* AP, lapack_int
const* ipiv,
8985 lapack_complex_float* work,
8987#ifdef LAPACK_FORTRAN_STRLEN_END
8991#ifdef LAPACK_FORTRAN_STRLEN_END
8992 #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__, 1)
8994 #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__)
8997#define LAPACK_zhptri_base LAPACK_GLOBAL(zhptri,ZHPTRI)
8998void LAPACK_zhptri_base(
9000 lapack_int
const* n,
9001 lapack_complex_double* AP, lapack_int
const* ipiv,
9002 lapack_complex_double* work,
9004#ifdef LAPACK_FORTRAN_STRLEN_END
9008#ifdef LAPACK_FORTRAN_STRLEN_END
9009 #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__, 1)
9011 #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__)
9014#define LAPACK_chptrs_base LAPACK_GLOBAL(chptrs,CHPTRS)
9015void LAPACK_chptrs_base(
9017 lapack_int
const* n, lapack_int
const* nrhs,
9018 lapack_complex_float
const* AP, lapack_int
const* ipiv,
9019 lapack_complex_float* B, lapack_int
const* ldb,
9021#ifdef LAPACK_FORTRAN_STRLEN_END
9025#ifdef LAPACK_FORTRAN_STRLEN_END
9026 #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__, 1)
9028 #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__)
9031#define LAPACK_zhptrs_base LAPACK_GLOBAL(zhptrs,ZHPTRS)
9032void LAPACK_zhptrs_base(
9034 lapack_int
const* n, lapack_int
const* nrhs,
9035 lapack_complex_double
const* AP, lapack_int
const* ipiv,
9036 lapack_complex_double* B, lapack_int
const* ldb,
9038#ifdef LAPACK_FORTRAN_STRLEN_END
9042#ifdef LAPACK_FORTRAN_STRLEN_END
9043 #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__, 1)
9045 #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__)
9048#define LAPACK_chsein_base LAPACK_GLOBAL(chsein,CHSEIN)
9049void LAPACK_chsein_base(
9050 char const* side,
char const* eigsrc,
char const* initv,
9051 lapack_logical
const* select,
9052 lapack_int
const* n,
9053 lapack_complex_float
const* H, lapack_int
const* ldh,
9054 lapack_complex_float* W,
9055 lapack_complex_float* VL, lapack_int
const* ldvl,
9056 lapack_complex_float* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
9057 lapack_complex_float* work,
9058 float* rwork, lapack_int* IFAILL, lapack_int* IFAILR,
9060#ifdef LAPACK_FORTRAN_STRLEN_END
9061 ,
size_t,
size_t,
size_t
9064#ifdef LAPACK_FORTRAN_STRLEN_END
9065 #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__, 1, 1, 1)
9067 #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__)
9070#define LAPACK_dhsein_base LAPACK_GLOBAL(dhsein,DHSEIN)
9071void LAPACK_dhsein_base(
9072 char const* side,
char const* eigsrc,
char const* initv,
9073 lapack_logical* select,
9074 lapack_int
const* n,
9075 double const* H, lapack_int
const* ldh,
9078 double* VL, lapack_int
const* ldvl,
9079 double* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
9080 double* work, lapack_int* IFAILL, lapack_int* IFAILR,
9082#ifdef LAPACK_FORTRAN_STRLEN_END
9083 ,
size_t,
size_t,
size_t
9086#ifdef LAPACK_FORTRAN_STRLEN_END
9087 #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__, 1, 1, 1)
9089 #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__)
9092#define LAPACK_shsein_base LAPACK_GLOBAL(shsein,SHSEIN)
9093void LAPACK_shsein_base(
9094 char const* side,
char const* eigsrc,
char const* initv,
9095 lapack_logical* select,
9096 lapack_int
const* n,
9097 float const* H, lapack_int
const* ldh,
9100 float* VL, lapack_int
const* ldvl,
9101 float* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
9102 float* work, lapack_int* IFAILL, lapack_int* IFAILR,
9104#ifdef LAPACK_FORTRAN_STRLEN_END
9105 ,
size_t,
size_t,
size_t
9108#ifdef LAPACK_FORTRAN_STRLEN_END
9109 #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__, 1, 1, 1)
9111 #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__)
9114#define LAPACK_zhsein_base LAPACK_GLOBAL(zhsein,ZHSEIN)
9115void LAPACK_zhsein_base(
9116 char const* side,
char const* eigsrc,
char const* initv,
9117 lapack_logical
const* select,
9118 lapack_int
const* n,
9119 lapack_complex_double
const* H, lapack_int
const* ldh,
9120 lapack_complex_double* W,
9121 lapack_complex_double* VL, lapack_int
const* ldvl,
9122 lapack_complex_double* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
9123 lapack_complex_double* work,
9124 double* rwork, lapack_int* IFAILL, lapack_int* IFAILR,
9126#ifdef LAPACK_FORTRAN_STRLEN_END
9127 ,
size_t,
size_t,
size_t
9130#ifdef LAPACK_FORTRAN_STRLEN_END
9131 #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__, 1, 1, 1)
9133 #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__)
9136#define LAPACK_chseqr_base LAPACK_GLOBAL(chseqr,CHSEQR)
9137void LAPACK_chseqr_base(
9138 char const* job,
char const* compz,
9139 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
9140 lapack_complex_float* H, lapack_int
const* ldh,
9141 lapack_complex_float* W,
9142 lapack_complex_float* Z, lapack_int
const* ldz,
9143 lapack_complex_float* work, lapack_int
const* lwork,
9145#ifdef LAPACK_FORTRAN_STRLEN_END
9149#ifdef LAPACK_FORTRAN_STRLEN_END
9150 #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__, 1, 1)
9152 #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__)
9155#define LAPACK_dhseqr_base LAPACK_GLOBAL(dhseqr,DHSEQR)
9156void LAPACK_dhseqr_base(
9157 char const* job,
char const* compz,
9158 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
9159 double* H, lapack_int
const* ldh,
9162 double* Z, lapack_int
const* ldz,
9163 double* work, lapack_int
const* lwork,
9165#ifdef LAPACK_FORTRAN_STRLEN_END
9169#ifdef LAPACK_FORTRAN_STRLEN_END
9170 #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__, 1, 1)
9172 #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__)
9175#define LAPACK_shseqr_base LAPACK_GLOBAL(shseqr,SHSEQR)
9176void LAPACK_shseqr_base(
9177 char const* job,
char const* compz,
9178 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
9179 float* H, lapack_int
const* ldh,
9182 float* Z, lapack_int
const* ldz,
9183 float* work, lapack_int
const* lwork,
9185#ifdef LAPACK_FORTRAN_STRLEN_END
9189#ifdef LAPACK_FORTRAN_STRLEN_END
9190 #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__, 1, 1)
9192 #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__)
9195#define LAPACK_zhseqr_base LAPACK_GLOBAL(zhseqr,ZHSEQR)
9196void LAPACK_zhseqr_base(
9197 char const* job,
char const* compz,
9198 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
9199 lapack_complex_double* H, lapack_int
const* ldh,
9200 lapack_complex_double* W,
9201 lapack_complex_double* Z, lapack_int
const* ldz,
9202 lapack_complex_double* work, lapack_int
const* lwork,
9204#ifdef LAPACK_FORTRAN_STRLEN_END
9208#ifdef LAPACK_FORTRAN_STRLEN_END
9209 #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__, 1, 1)
9211 #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__)
9214#define LAPACK_clacgv LAPACK_GLOBAL(clacgv,CLACGV)
9216 lapack_int
const* n,
9217 lapack_complex_float* X, lapack_int
const* incx );
9219#define LAPACK_zlacgv LAPACK_GLOBAL(zlacgv,ZLACGV)
9221 lapack_int
const* n,
9222 lapack_complex_double* X, lapack_int
const* incx );
9224#define LAPACK_clacn2 LAPACK_GLOBAL(clacn2,CLACN2)
9226 lapack_int
const* n,
9227 lapack_complex_float* V,
9228 lapack_complex_float* X,
9229 float* est, lapack_int* kase, lapack_int* ISAVE );
9231#define LAPACK_dlacn2 LAPACK_GLOBAL(dlacn2,DLACN2)
9233 lapack_int
const* n,
9235 double* X, lapack_int* ISGN,
9236 double* est, lapack_int* kase, lapack_int* ISAVE );
9238#define LAPACK_slacn2 LAPACK_GLOBAL(slacn2,SLACN2)
9240 lapack_int
const* n,
9242 float* X, lapack_int* ISGN,
9243 float* est, lapack_int* kase, lapack_int* ISAVE );
9245#define LAPACK_zlacn2 LAPACK_GLOBAL(zlacn2,ZLACN2)
9247 lapack_int
const* n,
9248 lapack_complex_double* V,
9249 lapack_complex_double* X,
9250 double* est, lapack_int* kase, lapack_int* ISAVE );
9252#define LAPACK_clacp2_base LAPACK_GLOBAL(clacp2,CLACP2)
9253void LAPACK_clacp2_base(
9255 lapack_int
const* m, lapack_int
const* n,
9256 float const* A, lapack_int
const* lda,
9257 lapack_complex_float* B, lapack_int
const* ldb
9258#ifdef LAPACK_FORTRAN_STRLEN_END
9262#ifdef LAPACK_FORTRAN_STRLEN_END
9263 #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__, 1)
9265 #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__)
9268#define LAPACK_zlacp2_base LAPACK_GLOBAL(zlacp2,ZLACP2)
9269void LAPACK_zlacp2_base(
9271 lapack_int
const* m, lapack_int
const* n,
9272 double const* A, lapack_int
const* lda,
9273 lapack_complex_double* B, lapack_int
const* ldb
9274#ifdef LAPACK_FORTRAN_STRLEN_END
9278#ifdef LAPACK_FORTRAN_STRLEN_END
9279 #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__, 1)
9281 #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__)
9284#define LAPACK_clacpy_base LAPACK_GLOBAL(clacpy,CLACPY)
9285void LAPACK_clacpy_base(
9287 lapack_int
const* m, lapack_int
const* n,
9288 lapack_complex_float
const* A, lapack_int
const* lda,
9289 lapack_complex_float* B, lapack_int
const* ldb
9290#ifdef LAPACK_FORTRAN_STRLEN_END
9294#ifdef LAPACK_FORTRAN_STRLEN_END
9295 #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__, 1)
9297 #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__)
9300#define LAPACK_dlacpy_base LAPACK_GLOBAL(dlacpy,DLACPY)
9301void LAPACK_dlacpy_base(
9303 lapack_int
const* m, lapack_int
const* n,
9304 double const* A, lapack_int
const* lda,
9305 double* B, lapack_int
const* ldb
9306#ifdef LAPACK_FORTRAN_STRLEN_END
9310#ifdef LAPACK_FORTRAN_STRLEN_END
9311 #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__, 1)
9313 #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__)
9316#define LAPACK_slacpy_base LAPACK_GLOBAL(slacpy,SLACPY)
9317void LAPACK_slacpy_base(
9319 lapack_int
const* m, lapack_int
const* n,
9320 float const* A, lapack_int
const* lda,
9321 float* B, lapack_int
const* ldb
9322#ifdef LAPACK_FORTRAN_STRLEN_END
9326#ifdef LAPACK_FORTRAN_STRLEN_END
9327 #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__, 1)
9329 #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__)
9332#define LAPACK_zlacpy_base LAPACK_GLOBAL(zlacpy,ZLACPY)
9333void LAPACK_zlacpy_base(
9335 lapack_int
const* m, lapack_int
const* n,
9336 lapack_complex_double
const* A, lapack_int
const* lda,
9337 lapack_complex_double* B, lapack_int
const* ldb
9338#ifdef LAPACK_FORTRAN_STRLEN_END
9342#ifdef LAPACK_FORTRAN_STRLEN_END
9343 #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__, 1)
9345 #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__)
9348#define LAPACK_clacrm LAPACK_GLOBAL(clacrm,CLACRM)
9350 lapack_int
const* m, lapack_int
const* n,
9351 lapack_complex_float
const* A, lapack_int
const* lda,
9352 float const* B, lapack_int
const* ldb,
9353 lapack_complex_float* C, lapack_int
const* ldc,
9356#define LAPACK_zlacrm LAPACK_GLOBAL(zlacrm,ZLACRM)
9358 lapack_int
const* m, lapack_int
const* n,
9359 lapack_complex_double
const* A, lapack_int
const* lda,
9360 double const* B, lapack_int
const* ldb,
9361 lapack_complex_double* C, lapack_int
const* ldc,
9364#define LAPACK_zlag2c LAPACK_GLOBAL(zlag2c,ZLAG2C)
9366 lapack_int
const* m, lapack_int
const* n,
9367 lapack_complex_double
const* A, lapack_int
const* lda,
9368 lapack_complex_float* SA, lapack_int
const* ldsa,
9371#define LAPACK_slag2d LAPACK_GLOBAL(slag2d,SLAG2D)
9373 lapack_int
const* m, lapack_int
const* n,
9374 float const* SA, lapack_int
const* ldsa,
9375 double* A, lapack_int
const* lda,
9378#define LAPACK_dlag2s LAPACK_GLOBAL(dlag2s,DLAG2S)
9380 lapack_int
const* m, lapack_int
const* n,
9381 double const* A, lapack_int
const* lda,
9382 float* SA, lapack_int
const* ldsa,
9385#define LAPACK_clag2z LAPACK_GLOBAL(clag2z,CLAG2Z)
9387 lapack_int
const* m, lapack_int
const* n,
9388 lapack_complex_float
const* SA, lapack_int
const* ldsa,
9389 lapack_complex_double* A, lapack_int
const* lda,
9392#define LAPACK_clagge LAPACK_GLOBAL(clagge,CLAGGE)
9394 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
9396 lapack_complex_float* A, lapack_int
const* lda, lapack_int* iseed,
9397 lapack_complex_float* work,
9400#define LAPACK_dlagge LAPACK_GLOBAL(dlagge,DLAGGE)
9402 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
9404 double* A, lapack_int
const* lda, lapack_int* iseed,
9408#define LAPACK_slagge LAPACK_GLOBAL(slagge,SLAGGE)
9410 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
9412 float* A, lapack_int
const* lda, lapack_int* iseed,
9416#define LAPACK_zlagge LAPACK_GLOBAL(zlagge,ZLAGGE)
9418 lapack_int
const* m, lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
9420 lapack_complex_double* A, lapack_int
const* lda, lapack_int* iseed,
9421 lapack_complex_double* work,
9424#define LAPACK_claghe LAPACK_GLOBAL(claghe,CLAGHE)
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_zlaghe LAPACK_GLOBAL(zlaghe,ZLAGHE)
9434 lapack_int
const* n, lapack_int
const* k,
9436 lapack_complex_double* A, lapack_int
const* lda, lapack_int* iseed,
9437 lapack_complex_double* work,
9440#define LAPACK_clagsy LAPACK_GLOBAL(clagsy,CLAGSY)
9442 lapack_int
const* n, lapack_int
const* k,
9444 lapack_complex_float* A, lapack_int
const* lda, lapack_int* iseed,
9445 lapack_complex_float* work,
9448#define LAPACK_dlagsy LAPACK_GLOBAL(dlagsy,DLAGSY)
9450 lapack_int
const* n, lapack_int
const* k,
9452 double* A, lapack_int
const* lda, lapack_int* iseed,
9456#define LAPACK_slagsy LAPACK_GLOBAL(slagsy,SLAGSY)
9458 lapack_int
const* n, lapack_int
const* k,
9460 float* A, lapack_int
const* lda, lapack_int* iseed,
9464#define LAPACK_zlagsy LAPACK_GLOBAL(zlagsy,ZLAGSY)
9466 lapack_int
const* n, lapack_int
const* k,
9468 lapack_complex_double* A, lapack_int
const* lda, lapack_int* iseed,
9469 lapack_complex_double* work,
9472#define LAPACK_dlamch_base LAPACK_GLOBAL(dlamch,DLAMCH)
9473double LAPACK_dlamch_base(
9475#ifdef LAPACK_FORTRAN_STRLEN_END
9479#ifdef LAPACK_FORTRAN_STRLEN_END
9480 #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__, 1)
9482 #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__)
9485#define LAPACK_slamch_base LAPACK_GLOBAL(slamch,SLAMCH)
9486lapack_float_return LAPACK_slamch_base(
9488#ifdef LAPACK_FORTRAN_STRLEN_END
9492#ifdef LAPACK_FORTRAN_STRLEN_END
9493 #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__, 1)
9495 #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__)
9498#define LAPACK_clangb_base LAPACK_GLOBAL(clangb,CLANGB)
9499lapack_float_return LAPACK_clangb_base(
9501 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
9502 lapack_complex_float
const* AB, lapack_int
const* ldab,
9504#ifdef LAPACK_FORTRAN_STRLEN_END
9508#ifdef LAPACK_FORTRAN_STRLEN_END
9509 #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__, 1)
9511 #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__)
9514#define LAPACK_dlangb_base LAPACK_GLOBAL(dlangb,DLANGB)
9515double LAPACK_dlangb_base(
9517 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
9518 double const* AB, lapack_int
const* ldab,
9520#ifdef LAPACK_FORTRAN_STRLEN_END
9524#ifdef LAPACK_FORTRAN_STRLEN_END
9525 #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__, 1)
9527 #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__)
9530#define LAPACK_slangb_base LAPACK_GLOBAL(slangb,SLANGB)
9531lapack_float_return LAPACK_slangb_base(
9533 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
9534 float const* AB, lapack_int
const* ldab,
9536#ifdef LAPACK_FORTRAN_STRLEN_END
9540#ifdef LAPACK_FORTRAN_STRLEN_END
9541 #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__, 1)
9543 #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__)
9546#define LAPACK_zlangb_base LAPACK_GLOBAL(zlangb,ZLANGB)
9547double LAPACK_zlangb_base(
9549 lapack_int
const* n, lapack_int
const* kl, lapack_int
const* ku,
9550 lapack_complex_double
const* AB, lapack_int
const* ldab,
9552#ifdef LAPACK_FORTRAN_STRLEN_END
9556#ifdef LAPACK_FORTRAN_STRLEN_END
9557 #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__, 1)
9559 #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__)
9562#define LAPACK_clange_base LAPACK_GLOBAL(clange,CLANGE)
9563lapack_float_return LAPACK_clange_base(
9565 lapack_int
const* m, lapack_int
const* n,
9566 lapack_complex_float
const* A, lapack_int
const* lda,
9568#ifdef LAPACK_FORTRAN_STRLEN_END
9572#ifdef LAPACK_FORTRAN_STRLEN_END
9573 #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__, 1)
9575 #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__)
9578#define LAPACK_dlange_base LAPACK_GLOBAL(dlange,DLANGE)
9579double LAPACK_dlange_base(
9581 lapack_int
const* m, lapack_int
const* n,
9582 double const* A, lapack_int
const* lda,
9584#ifdef LAPACK_FORTRAN_STRLEN_END
9588#ifdef LAPACK_FORTRAN_STRLEN_END
9589 #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__, 1)
9591 #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__)
9594#define LAPACK_slange_base LAPACK_GLOBAL(slange,SLANGE)
9595lapack_float_return LAPACK_slange_base(
9597 lapack_int
const* m, lapack_int
const* n,
9598 float const* A, lapack_int
const* lda,
9600#ifdef LAPACK_FORTRAN_STRLEN_END
9604#ifdef LAPACK_FORTRAN_STRLEN_END
9605 #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__, 1)
9607 #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__)
9610#define LAPACK_zlange_base LAPACK_GLOBAL(zlange,ZLANGE)
9611double LAPACK_zlange_base(
9613 lapack_int
const* m, lapack_int
const* n,
9614 lapack_complex_double
const* A, lapack_int
const* lda,
9616#ifdef LAPACK_FORTRAN_STRLEN_END
9620#ifdef LAPACK_FORTRAN_STRLEN_END
9621 #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__, 1)
9623 #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__)
9626#define LAPACK_clangt_base LAPACK_GLOBAL(clangt,CLANGT)
9627lapack_float_return LAPACK_clangt_base(
9629 lapack_int
const* n,
9630 lapack_complex_float
const* DL,
9631 lapack_complex_float
const* D,
9632 lapack_complex_float
const* DU
9633#ifdef LAPACK_FORTRAN_STRLEN_END
9637#ifdef LAPACK_FORTRAN_STRLEN_END
9638 #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__, 1)
9640 #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__)
9643#define LAPACK_dlangt_base LAPACK_GLOBAL(dlangt,DLANGT)
9644double LAPACK_dlangt_base(
9646 lapack_int
const* n,
9650#ifdef LAPACK_FORTRAN_STRLEN_END
9654#ifdef LAPACK_FORTRAN_STRLEN_END
9655 #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__, 1)
9657 #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__)
9660#define LAPACK_slangt_base LAPACK_GLOBAL(slangt,SLANGT)
9661lapack_float_return LAPACK_slangt_base(
9663 lapack_int
const* n,
9667#ifdef LAPACK_FORTRAN_STRLEN_END
9671#ifdef LAPACK_FORTRAN_STRLEN_END
9672 #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__, 1)
9674 #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__)
9677#define LAPACK_zlangt_base LAPACK_GLOBAL(zlangt,ZLANGT)
9678double LAPACK_zlangt_base(
9680 lapack_int
const* n,
9681 lapack_complex_double
const* DL,
9682 lapack_complex_double
const* D,
9683 lapack_complex_double
const* DU
9684#ifdef LAPACK_FORTRAN_STRLEN_END
9688#ifdef LAPACK_FORTRAN_STRLEN_END
9689 #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__, 1)
9691 #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__)
9694#define LAPACK_clanhb_base LAPACK_GLOBAL(clanhb,CLANHB)
9695lapack_float_return LAPACK_clanhb_base(
9696 char const* norm,
char const* uplo,
9697 lapack_int
const* n, lapack_int
const* k,
9698 lapack_complex_float
const* AB, lapack_int
const* ldab,
9700#ifdef LAPACK_FORTRAN_STRLEN_END
9704#ifdef LAPACK_FORTRAN_STRLEN_END
9705 #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__, 1, 1)
9707 #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__)
9710#define LAPACK_zlanhb_base LAPACK_GLOBAL(zlanhb,ZLANHB)
9711double LAPACK_zlanhb_base(
9712 char const* norm,
char const* uplo,
9713 lapack_int
const* n, lapack_int
const* k,
9714 lapack_complex_double
const* AB, lapack_int
const* ldab,
9716#ifdef LAPACK_FORTRAN_STRLEN_END
9720#ifdef LAPACK_FORTRAN_STRLEN_END
9721 #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__, 1, 1)
9723 #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__)
9726#define LAPACK_clanhe_base LAPACK_GLOBAL(clanhe,CLANHE)
9727lapack_float_return LAPACK_clanhe_base(
9728 char const* norm,
char const* uplo,
9729 lapack_int
const* n,
9730 lapack_complex_float
const* A, lapack_int
const* lda,
9732#ifdef LAPACK_FORTRAN_STRLEN_END
9736#ifdef LAPACK_FORTRAN_STRLEN_END
9737 #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__, 1, 1)
9739 #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__)
9742#define LAPACK_zlanhe_base LAPACK_GLOBAL(zlanhe,ZLANHE)
9743double LAPACK_zlanhe_base(
9744 char const* norm,
char const* uplo,
9745 lapack_int
const* n,
9746 lapack_complex_double
const* A, lapack_int
const* lda,
9748#ifdef LAPACK_FORTRAN_STRLEN_END
9752#ifdef LAPACK_FORTRAN_STRLEN_END
9753 #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__, 1, 1)
9755 #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__)
9758#define LAPACK_clanhp_base LAPACK_GLOBAL(clanhp,CLANHP)
9759lapack_float_return LAPACK_clanhp_base(
9760 char const* norm,
char const* uplo,
9761 lapack_int
const* n,
9762 lapack_complex_float
const* AP,
9764#ifdef LAPACK_FORTRAN_STRLEN_END
9768#ifdef LAPACK_FORTRAN_STRLEN_END
9769 #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__, 1, 1)
9771 #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__)
9774#define LAPACK_zlanhp_base LAPACK_GLOBAL(zlanhp,ZLANHP)
9775double LAPACK_zlanhp_base(
9776 char const* norm,
char const* uplo,
9777 lapack_int
const* n,
9778 lapack_complex_double
const* AP,
9780#ifdef LAPACK_FORTRAN_STRLEN_END
9784#ifdef LAPACK_FORTRAN_STRLEN_END
9785 #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__, 1, 1)
9787 #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__)
9790#define LAPACK_clanhs_base LAPACK_GLOBAL(clanhs,CLANHS)
9791lapack_float_return LAPACK_clanhs_base(
9793 lapack_int
const* n,
9794 lapack_complex_float
const* A, lapack_int
const* lda,
9796#ifdef LAPACK_FORTRAN_STRLEN_END
9800#ifdef LAPACK_FORTRAN_STRLEN_END
9801 #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__, 1)
9803 #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__)
9806#define LAPACK_dlanhs_base LAPACK_GLOBAL(dlanhs,DLANHS)
9807double LAPACK_dlanhs_base(
9809 lapack_int
const* n,
9810 double const* A, lapack_int
const* lda,
9812#ifdef LAPACK_FORTRAN_STRLEN_END
9816#ifdef LAPACK_FORTRAN_STRLEN_END
9817 #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__, 1)
9819 #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__)
9822#define LAPACK_slanhs_base LAPACK_GLOBAL(slanhs,SLANHS)
9823lapack_float_return LAPACK_slanhs_base(
9825 lapack_int
const* n,
9826 float const* A, lapack_int
const* lda,
9828#ifdef LAPACK_FORTRAN_STRLEN_END
9832#ifdef LAPACK_FORTRAN_STRLEN_END
9833 #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__, 1)
9835 #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__)
9838#define LAPACK_zlanhs_base LAPACK_GLOBAL(zlanhs,ZLANHS)
9839double LAPACK_zlanhs_base(
9841 lapack_int
const* n,
9842 lapack_complex_double
const* A, lapack_int
const* lda,
9844#ifdef LAPACK_FORTRAN_STRLEN_END
9848#ifdef LAPACK_FORTRAN_STRLEN_END
9849 #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__, 1)
9851 #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__)
9854#define LAPACK_clanht_base LAPACK_GLOBAL(clanht,CLANHT)
9855lapack_float_return LAPACK_clanht_base(
9857 lapack_int
const* n,
9859 lapack_complex_float
const* E
9860#ifdef LAPACK_FORTRAN_STRLEN_END
9864#ifdef LAPACK_FORTRAN_STRLEN_END
9865 #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__, 1)
9867 #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__)
9870#define LAPACK_zlanht_base LAPACK_GLOBAL(zlanht,ZLANHT)
9871double LAPACK_zlanht_base(
9873 lapack_int
const* n,
9875 lapack_complex_double
const* E
9876#ifdef LAPACK_FORTRAN_STRLEN_END
9880#ifdef LAPACK_FORTRAN_STRLEN_END
9881 #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__, 1)
9883 #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__)
9886#define LAPACK_clansb_base LAPACK_GLOBAL(clansb,CLANSB)
9887lapack_float_return LAPACK_clansb_base(
9888 char const* norm,
char const* uplo,
9889 lapack_int
const* n, lapack_int
const* k,
9890 lapack_complex_float
const* AB, lapack_int
const* ldab,
9892#ifdef LAPACK_FORTRAN_STRLEN_END
9896#ifdef LAPACK_FORTRAN_STRLEN_END
9897 #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__, 1, 1)
9899 #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__)
9902#define LAPACK_dlansb_base LAPACK_GLOBAL(dlansb,DLANSB)
9903double LAPACK_dlansb_base(
9904 char const* norm,
char const* uplo,
9905 lapack_int
const* n, lapack_int
const* k,
9906 double const* AB, lapack_int
const* ldab,
9908#ifdef LAPACK_FORTRAN_STRLEN_END
9912#ifdef LAPACK_FORTRAN_STRLEN_END
9913 #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__, 1, 1)
9915 #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__)
9918#define LAPACK_slansb_base LAPACK_GLOBAL(slansb,SLANSB)
9919lapack_float_return LAPACK_slansb_base(
9920 char const* norm,
char const* uplo,
9921 lapack_int
const* n, lapack_int
const* k,
9922 float const* AB, lapack_int
const* ldab,
9924#ifdef LAPACK_FORTRAN_STRLEN_END
9928#ifdef LAPACK_FORTRAN_STRLEN_END
9929 #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__, 1, 1)
9931 #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__)
9934#define LAPACK_zlansb_base LAPACK_GLOBAL(zlansb,ZLANSB)
9935double LAPACK_zlansb_base(
9936 char const* norm,
char const* uplo,
9937 lapack_int
const* n, lapack_int
const* k,
9938 lapack_complex_double
const* AB, lapack_int
const* ldab,
9940#ifdef LAPACK_FORTRAN_STRLEN_END
9944#ifdef LAPACK_FORTRAN_STRLEN_END
9945 #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__, 1, 1)
9947 #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__)
9950#define LAPACK_clansp_base LAPACK_GLOBAL(clansp,CLANSP)
9951lapack_float_return LAPACK_clansp_base(
9952 char const* norm,
char const* uplo,
9953 lapack_int
const* n,
9954 lapack_complex_float
const* AP,
9956#ifdef LAPACK_FORTRAN_STRLEN_END
9960#ifdef LAPACK_FORTRAN_STRLEN_END
9961 #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__, 1, 1)
9963 #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__)
9966#define LAPACK_dlansp_base LAPACK_GLOBAL(dlansp,DLANSP)
9967double LAPACK_dlansp_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_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__, 1, 1)
9979 #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__)
9982#define LAPACK_slansp_base LAPACK_GLOBAL(slansp,SLANSP)
9983lapack_float_return LAPACK_slansp_base(
9984 char const* norm,
char const* uplo,
9985 lapack_int
const* n,
9988#ifdef LAPACK_FORTRAN_STRLEN_END
9992#ifdef LAPACK_FORTRAN_STRLEN_END
9993 #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__, 1, 1)
9995 #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__)
9998#define LAPACK_zlansp_base LAPACK_GLOBAL(zlansp,ZLANSP)
9999double LAPACK_zlansp_base(
10000 char const* norm,
char const* uplo,
10001 lapack_int
const* n,
10002 lapack_complex_double
const* AP,
10004#ifdef LAPACK_FORTRAN_STRLEN_END
10008#ifdef LAPACK_FORTRAN_STRLEN_END
10009 #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__, 1, 1)
10011 #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__)
10014#define LAPACK_dlanst_base LAPACK_GLOBAL(dlanst,DLANST)
10015double LAPACK_dlanst_base(
10017 lapack_int
const* n,
10020#ifdef LAPACK_FORTRAN_STRLEN_END
10024#ifdef LAPACK_FORTRAN_STRLEN_END
10025 #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__, 1)
10027 #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__)
10030#define LAPACK_slanst_base LAPACK_GLOBAL(slanst,SLANST)
10031lapack_float_return LAPACK_slanst_base(
10033 lapack_int
const* n,
10036#ifdef LAPACK_FORTRAN_STRLEN_END
10040#ifdef LAPACK_FORTRAN_STRLEN_END
10041 #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__, 1)
10043 #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__)
10046#define LAPACK_clansy_base LAPACK_GLOBAL(clansy,CLANSY)
10047lapack_float_return LAPACK_clansy_base(
10048 char const* norm,
char const* uplo,
10049 lapack_int
const* n,
10050 lapack_complex_float
const* A, lapack_int
const* lda,
10052#ifdef LAPACK_FORTRAN_STRLEN_END
10056#ifdef LAPACK_FORTRAN_STRLEN_END
10057 #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__, 1, 1)
10059 #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__)
10062#define LAPACK_dlansy_base LAPACK_GLOBAL(dlansy,DLANSY)
10063double LAPACK_dlansy_base(
10064 char const* norm,
char const* uplo,
10065 lapack_int
const* n,
10066 double const* A, lapack_int
const* lda,
10068#ifdef LAPACK_FORTRAN_STRLEN_END
10072#ifdef LAPACK_FORTRAN_STRLEN_END
10073 #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__, 1, 1)
10075 #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__)
10078#define LAPACK_slansy_base LAPACK_GLOBAL(slansy,SLANSY)
10079lapack_float_return LAPACK_slansy_base(
10080 char const* norm,
char const* uplo,
10081 lapack_int
const* n,
10082 float const* A, lapack_int
const* lda,
10084#ifdef LAPACK_FORTRAN_STRLEN_END
10088#ifdef LAPACK_FORTRAN_STRLEN_END
10089 #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__, 1, 1)
10091 #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__)
10094#define LAPACK_zlansy_base LAPACK_GLOBAL(zlansy,ZLANSY)
10095double LAPACK_zlansy_base(
10096 char const* norm,
char const* uplo,
10097 lapack_int
const* n,
10098 lapack_complex_double
const* A, lapack_int
const* lda,
10100#ifdef LAPACK_FORTRAN_STRLEN_END
10104#ifdef LAPACK_FORTRAN_STRLEN_END
10105 #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__, 1, 1)
10107 #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__)
10110#define LAPACK_clantb_base LAPACK_GLOBAL(clantb,CLANTB)
10111lapack_float_return LAPACK_clantb_base(
10112 char const* norm,
char const* uplo,
char const* diag,
10113 lapack_int
const* n, lapack_int
const* k,
10114 lapack_complex_float
const* AB, lapack_int
const* ldab,
10116#ifdef LAPACK_FORTRAN_STRLEN_END
10117 ,
size_t,
size_t,
size_t
10120#ifdef LAPACK_FORTRAN_STRLEN_END
10121 #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__, 1, 1, 1)
10123 #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__)
10126#define LAPACK_dlantb_base LAPACK_GLOBAL(dlantb,DLANTB)
10127double LAPACK_dlantb_base(
10128 char const* norm,
char const* uplo,
char const* diag,
10129 lapack_int
const* n, lapack_int
const* k,
10130 double const* AB, lapack_int
const* ldab,
10132#ifdef LAPACK_FORTRAN_STRLEN_END
10133 ,
size_t,
size_t,
size_t
10136#ifdef LAPACK_FORTRAN_STRLEN_END
10137 #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__, 1, 1, 1)
10139 #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__)
10142#define LAPACK_slantb_base LAPACK_GLOBAL(slantb,SLANTB)
10143lapack_float_return LAPACK_slantb_base(
10144 char const* norm,
char const* uplo,
char const* diag,
10145 lapack_int
const* n, lapack_int
const* k,
10146 float const* AB, lapack_int
const* ldab,
10148#ifdef LAPACK_FORTRAN_STRLEN_END
10149 ,
size_t,
size_t,
size_t
10152#ifdef LAPACK_FORTRAN_STRLEN_END
10153 #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__, 1, 1, 1)
10155 #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__)
10158#define LAPACK_zlantb_base LAPACK_GLOBAL(zlantb,ZLANTB)
10159double LAPACK_zlantb_base(
10160 char const* norm,
char const* uplo,
char const* diag,
10161 lapack_int
const* n, lapack_int
const* k,
10162 lapack_complex_double
const* AB, lapack_int
const* ldab,
10164#ifdef LAPACK_FORTRAN_STRLEN_END
10165 ,
size_t,
size_t,
size_t
10168#ifdef LAPACK_FORTRAN_STRLEN_END
10169 #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__, 1, 1, 1)
10171 #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__)
10174#define LAPACK_clantp_base LAPACK_GLOBAL(clantp,CLANTP)
10175lapack_float_return LAPACK_clantp_base(
10176 char const* norm,
char const* uplo,
char const* diag,
10177 lapack_int
const* n,
10178 lapack_complex_float
const* AP,
10180#ifdef LAPACK_FORTRAN_STRLEN_END
10181 ,
size_t,
size_t,
size_t
10184#ifdef LAPACK_FORTRAN_STRLEN_END
10185 #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__, 1, 1, 1)
10187 #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__)
10190#define LAPACK_dlantp_base LAPACK_GLOBAL(dlantp,DLANTP)
10191double LAPACK_dlantp_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_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__, 1, 1, 1)
10203 #define LAPACK_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__)
10206#define LAPACK_slantp_base LAPACK_GLOBAL(slantp,SLANTP)
10207lapack_float_return LAPACK_slantp_base(
10208 char const* norm,
char const* uplo,
char const* diag,
10209 lapack_int
const* n,
10212#ifdef LAPACK_FORTRAN_STRLEN_END
10213 ,
size_t,
size_t,
size_t
10216#ifdef LAPACK_FORTRAN_STRLEN_END
10217 #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__, 1, 1, 1)
10219 #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__)
10222#define LAPACK_zlantp_base LAPACK_GLOBAL(zlantp,ZLANTP)
10223double LAPACK_zlantp_base(
10224 char const* norm,
char const* uplo,
char const* diag,
10225 lapack_int
const* n,
10226 lapack_complex_double
const* AP,
10228#ifdef LAPACK_FORTRAN_STRLEN_END
10229 ,
size_t,
size_t,
size_t
10232#ifdef LAPACK_FORTRAN_STRLEN_END
10233 #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__, 1, 1, 1)
10235 #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__)
10238#define LAPACK_clantr_base LAPACK_GLOBAL(clantr,CLANTR)
10239lapack_float_return LAPACK_clantr_base(
10240 char const* norm,
char const* uplo,
char const* diag,
10241 lapack_int
const* m, lapack_int
const* n,
10242 lapack_complex_float
const* A, lapack_int
const* lda,
10244#ifdef LAPACK_FORTRAN_STRLEN_END
10245 ,
size_t,
size_t,
size_t
10248#ifdef LAPACK_FORTRAN_STRLEN_END
10249 #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__, 1, 1, 1)
10251 #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__)
10254#define LAPACK_dlantr_base LAPACK_GLOBAL(dlantr,DLANTR)
10255double LAPACK_dlantr_base(
10256 char const* norm,
char const* uplo,
char const* diag,
10257 lapack_int
const* m, lapack_int
const* n,
10258 double const* A, lapack_int
const* lda,
10260#ifdef LAPACK_FORTRAN_STRLEN_END
10261 ,
size_t,
size_t,
size_t
10264#ifdef LAPACK_FORTRAN_STRLEN_END
10265 #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__, 1, 1, 1)
10267 #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__)
10270#define LAPACK_slantr_base LAPACK_GLOBAL(slantr,SLANTR)
10271lapack_float_return LAPACK_slantr_base(
10272 char const* norm,
char const* uplo,
char const* diag,
10273 lapack_int
const* m, lapack_int
const* n,
10274 float const* A, lapack_int
const* lda,
10276#ifdef LAPACK_FORTRAN_STRLEN_END
10277 ,
size_t,
size_t,
size_t
10280#ifdef LAPACK_FORTRAN_STRLEN_END
10281 #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__, 1, 1, 1)
10283 #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__)
10286#define LAPACK_zlantr_base LAPACK_GLOBAL(zlantr,ZLANTR)
10287double LAPACK_zlantr_base(
10288 char const* norm,
char const* uplo,
char const* diag,
10289 lapack_int
const* m, lapack_int
const* n,
10290 lapack_complex_double
const* A, lapack_int
const* lda,
10292#ifdef LAPACK_FORTRAN_STRLEN_END
10293 ,
size_t,
size_t,
size_t
10296#ifdef LAPACK_FORTRAN_STRLEN_END
10297 #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__, 1, 1, 1)
10299 #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__)
10302#define LAPACK_clapmr LAPACK_GLOBAL(clapmr,CLAPMR)
10304 lapack_logical
const* forwrd, lapack_int
const* m, lapack_int
const* n,
10305 lapack_complex_float* X, lapack_int
const* ldx, lapack_int* K );
10307#define LAPACK_dlapmr LAPACK_GLOBAL(dlapmr,DLAPMR)
10309 lapack_logical
const* forwrd, lapack_int
const* m, lapack_int
const* n,
10310 double* X, lapack_int
const* ldx, lapack_int* K );
10312#define LAPACK_slapmr LAPACK_GLOBAL(slapmr,SLAPMR)
10314 lapack_logical
const* forwrd, lapack_int
const* m, lapack_int
const* n,
10315 float* X, lapack_int
const* ldx, lapack_int* K );
10317#define LAPACK_zlapmr LAPACK_GLOBAL(zlapmr,ZLAPMR)
10319 lapack_logical
const* forwrd, lapack_int
const* m, lapack_int
const* n,
10320 lapack_complex_double* X, lapack_int
const* ldx, lapack_int* K );
10322#define LAPACK_clapmt LAPACK_GLOBAL(clapmt,CLAPMT)
10324 lapack_logical
const* forwrd, lapack_int
const* m, lapack_int
const* n,
10325 lapack_complex_float* X, lapack_int
const* ldx, lapack_int* K );
10327#define LAPACK_dlapmt LAPACK_GLOBAL(dlapmt,DLAPMT)
10329 lapack_logical
const* forwrd, lapack_int
const* m, lapack_int
const* n,
10330 double* X, lapack_int
const* ldx, lapack_int* K );
10332#define LAPACK_slapmt LAPACK_GLOBAL(slapmt,SLAPMT)
10334 lapack_logical
const* forwrd, lapack_int
const* m, lapack_int
const* n,
10335 float* X, lapack_int
const* ldx, lapack_int* K );
10337#define LAPACK_zlapmt LAPACK_GLOBAL(zlapmt,ZLAPMT)
10339 lapack_logical
const* forwrd, lapack_int
const* m, lapack_int
const* n,
10340 lapack_complex_double* X, lapack_int
const* ldx, lapack_int* K );
10342#define LAPACK_dlapy2 LAPACK_GLOBAL(dlapy2,DLAPY2)
10343double LAPACK_dlapy2(
10347#define LAPACK_slapy2 LAPACK_GLOBAL(slapy2,SLAPY2)
10348lapack_float_return LAPACK_slapy2(
10352#define LAPACK_dlapy3 LAPACK_GLOBAL(dlapy3,DLAPY3)
10353double LAPACK_dlapy3(
10358#define LAPACK_slapy3 LAPACK_GLOBAL(slapy3,SLAPY3)
10359lapack_float_return LAPACK_slapy3(
10364#define LAPACK_clarcm LAPACK_GLOBAL(clarcm,CLARCM)
10366 lapack_int
const* m, lapack_int
const* n,
10367 float const* A, lapack_int
const* lda,
10368 lapack_complex_float
const* B, lapack_int
const* ldb,
10369 lapack_complex_float* C, lapack_int
const* ldc,
10372#define LAPACK_zlarcm LAPACK_GLOBAL(zlarcm,ZLARCM)
10374 lapack_int
const* m, lapack_int
const* n,
10375 double const* A, lapack_int
const* lda,
10376 lapack_complex_double
const* B, lapack_int
const* ldb,
10377 lapack_complex_double* C, lapack_int
const* ldc,
10380#define LAPACK_clarf_base LAPACK_GLOBAL(clarf,CLARF)
10381void LAPACK_clarf_base(
10383 lapack_int
const* m, lapack_int
const* n,
10384 lapack_complex_float
const* V, lapack_int
const* incv,
10385 lapack_complex_float
const* tau,
10386 lapack_complex_float* C, lapack_int
const* ldc,
10387 lapack_complex_float* work
10388#ifdef LAPACK_FORTRAN_STRLEN_END
10392#ifdef LAPACK_FORTRAN_STRLEN_END
10393 #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__, 1)
10395 #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__)
10398#define LAPACK_dlarf_base LAPACK_GLOBAL(dlarf,DLARF)
10399void LAPACK_dlarf_base(
10401 lapack_int
const* m, lapack_int
const* n,
10402 double const* V, lapack_int
const* incv,
10404 double* C, lapack_int
const* ldc,
10406#ifdef LAPACK_FORTRAN_STRLEN_END
10410#ifdef LAPACK_FORTRAN_STRLEN_END
10411 #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__, 1)
10413 #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__)
10416#define LAPACK_slarf_base LAPACK_GLOBAL(slarf,SLARF)
10417void LAPACK_slarf_base(
10419 lapack_int
const* m, lapack_int
const* n,
10420 float const* V, lapack_int
const* incv,
10422 float* C, lapack_int
const* ldc,
10424#ifdef LAPACK_FORTRAN_STRLEN_END
10428#ifdef LAPACK_FORTRAN_STRLEN_END
10429 #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__, 1)
10431 #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__)
10434#define LAPACK_zlarf_base LAPACK_GLOBAL(zlarf,ZLARF)
10435void LAPACK_zlarf_base(
10437 lapack_int
const* m, lapack_int
const* n,
10438 lapack_complex_double
const* V, lapack_int
const* incv,
10439 lapack_complex_double
const* tau,
10440 lapack_complex_double* C, lapack_int
const* ldc,
10441 lapack_complex_double* work
10442#ifdef LAPACK_FORTRAN_STRLEN_END
10446#ifdef LAPACK_FORTRAN_STRLEN_END
10447 #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__, 1)
10449 #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__)
10452#define LAPACK_clarfb_base LAPACK_GLOBAL(clarfb,CLARFB)
10453void LAPACK_clarfb_base(
10454 char const* side,
char const* trans,
char const* direct,
char const* storev,
10455 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
10456 lapack_complex_float
const* V, lapack_int
const* ldv,
10457 lapack_complex_float
const* T, lapack_int
const* ldt,
10458 lapack_complex_float* C, lapack_int
const* ldc,
10459 lapack_complex_float* work, lapack_int
const* ldwork
10460#ifdef LAPACK_FORTRAN_STRLEN_END
10461 ,
size_t,
size_t,
size_t,
size_t
10464#ifdef LAPACK_FORTRAN_STRLEN_END
10465 #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10467 #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__)
10470#define LAPACK_dlarfb_base LAPACK_GLOBAL(dlarfb,DLARFB)
10471void LAPACK_dlarfb_base(
10472 char const* side,
char const* trans,
char const* direct,
char const* storev,
10473 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
10474 double const* V, lapack_int
const* ldv,
10475 double const* T, lapack_int
const* ldt,
10476 double* C, lapack_int
const* ldc,
10477 double* work, lapack_int
const* ldwork
10478#ifdef LAPACK_FORTRAN_STRLEN_END
10479 ,
size_t,
size_t,
size_t,
size_t
10482#ifdef LAPACK_FORTRAN_STRLEN_END
10483 #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10485 #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__)
10488#define LAPACK_slarfb_base LAPACK_GLOBAL(slarfb,SLARFB)
10489void LAPACK_slarfb_base(
10490 char const* side,
char const* trans,
char const* direct,
char const* storev,
10491 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
10492 float const* V, lapack_int
const* ldv,
10493 float const* T, lapack_int
const* ldt,
10494 float* C, lapack_int
const* ldc,
10495 float* work, lapack_int
const* ldwork
10496#ifdef LAPACK_FORTRAN_STRLEN_END
10497 ,
size_t,
size_t,
size_t,
size_t
10500#ifdef LAPACK_FORTRAN_STRLEN_END
10501 #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10503 #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__)
10506#define LAPACK_zlarfb_base LAPACK_GLOBAL(zlarfb,ZLARFB)
10507void LAPACK_zlarfb_base(
10508 char const* side,
char const* trans,
char const* direct,
char const* storev,
10509 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
10510 lapack_complex_double
const* V, lapack_int
const* ldv,
10511 lapack_complex_double
const* T, lapack_int
const* ldt,
10512 lapack_complex_double* C, lapack_int
const* ldc,
10513 lapack_complex_double* work, lapack_int
const* ldwork
10514#ifdef LAPACK_FORTRAN_STRLEN_END
10515 ,
size_t,
size_t,
size_t,
size_t
10518#ifdef LAPACK_FORTRAN_STRLEN_END
10519 #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10521 #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__)
10524#define LAPACK_clarfg LAPACK_GLOBAL(clarfg,CLARFG)
10526 lapack_int
const* n,
10527 lapack_complex_float* alpha,
10528 lapack_complex_float* X, lapack_int
const* incx,
10529 lapack_complex_float* tau );
10531#define LAPACK_dlarfg LAPACK_GLOBAL(dlarfg,DLARFG)
10533 lapack_int
const* n,
10535 double* X, lapack_int
const* incx,
10538#define LAPACK_slarfg LAPACK_GLOBAL(slarfg,SLARFG)
10540 lapack_int
const* n,
10542 float* X, lapack_int
const* incx,
10545#define LAPACK_zlarfg LAPACK_GLOBAL(zlarfg,ZLARFG)
10547 lapack_int
const* n,
10548 lapack_complex_double* alpha,
10549 lapack_complex_double* X, lapack_int
const* incx,
10550 lapack_complex_double* tau );
10552#define LAPACK_clarft_base LAPACK_GLOBAL(clarft,CLARFT)
10553void LAPACK_clarft_base(
10554 char const* direct,
char const* storev,
10555 lapack_int
const* n, lapack_int
const* k,
10556 lapack_complex_float
const* V, lapack_int
const* ldv,
10557 lapack_complex_float
const* tau,
10558 lapack_complex_float* T, lapack_int
const* ldt
10559#ifdef LAPACK_FORTRAN_STRLEN_END
10563#ifdef LAPACK_FORTRAN_STRLEN_END
10564 #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__, 1, 1)
10566 #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__)
10569#define LAPACK_dlarft_base LAPACK_GLOBAL(dlarft,DLARFT)
10570void LAPACK_dlarft_base(
10571 char const* direct,
char const* storev,
10572 lapack_int
const* n, lapack_int
const* k,
10573 double const* V, lapack_int
const* ldv,
10575 double* T, lapack_int
const* ldt
10576#ifdef LAPACK_FORTRAN_STRLEN_END
10580#ifdef LAPACK_FORTRAN_STRLEN_END
10581 #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__, 1, 1)
10583 #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__)
10586#define LAPACK_slarft_base LAPACK_GLOBAL(slarft,SLARFT)
10587void LAPACK_slarft_base(
10588 char const* direct,
char const* storev,
10589 lapack_int
const* n, lapack_int
const* k,
10590 float const* V, lapack_int
const* ldv,
10592 float* T, lapack_int
const* ldt
10593#ifdef LAPACK_FORTRAN_STRLEN_END
10597#ifdef LAPACK_FORTRAN_STRLEN_END
10598 #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__, 1, 1)
10600 #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__)
10603#define LAPACK_zlarft_base LAPACK_GLOBAL(zlarft,ZLARFT)
10604void LAPACK_zlarft_base(
10605 char const* direct,
char const* storev,
10606 lapack_int
const* n, lapack_int
const* k,
10607 lapack_complex_double
const* V, lapack_int
const* ldv,
10608 lapack_complex_double
const* tau,
10609 lapack_complex_double* T, lapack_int
const* ldt
10610#ifdef LAPACK_FORTRAN_STRLEN_END
10614#ifdef LAPACK_FORTRAN_STRLEN_END
10615 #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__, 1, 1)
10617 #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__)
10620#define LAPACK_clarfx_base LAPACK_GLOBAL(clarfx,CLARFX)
10621void LAPACK_clarfx_base(
10623 lapack_int
const* m, lapack_int
const* n,
10624 lapack_complex_float
const* V,
10625 lapack_complex_float
const* tau,
10626 lapack_complex_float* C, lapack_int
const* ldc,
10627 lapack_complex_float* work
10628#ifdef LAPACK_FORTRAN_STRLEN_END
10632#ifdef LAPACK_FORTRAN_STRLEN_END
10633 #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__, 1)
10635 #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__)
10638#define LAPACK_dlarfx_base LAPACK_GLOBAL(dlarfx,DLARFX)
10639void LAPACK_dlarfx_base(
10641 lapack_int
const* m, lapack_int
const* n,
10644 double* C, lapack_int
const* ldc,
10646#ifdef LAPACK_FORTRAN_STRLEN_END
10650#ifdef LAPACK_FORTRAN_STRLEN_END
10651 #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__, 1)
10653 #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__)
10656#define LAPACK_slarfx_base LAPACK_GLOBAL(slarfx,SLARFX)
10657void LAPACK_slarfx_base(
10659 lapack_int
const* m, lapack_int
const* n,
10662 float* C, lapack_int
const* ldc,
10664#ifdef LAPACK_FORTRAN_STRLEN_END
10668#ifdef LAPACK_FORTRAN_STRLEN_END
10669 #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__, 1)
10671 #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__)
10674#define LAPACK_zlarfx_base LAPACK_GLOBAL(zlarfx,ZLARFX)
10675void LAPACK_zlarfx_base(
10677 lapack_int
const* m, lapack_int
const* n,
10678 lapack_complex_double
const* V,
10679 lapack_complex_double
const* tau,
10680 lapack_complex_double* C, lapack_int
const* ldc,
10681 lapack_complex_double* work
10682#ifdef LAPACK_FORTRAN_STRLEN_END
10686#ifdef LAPACK_FORTRAN_STRLEN_END
10687 #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__, 1)
10689 #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__)
10692#define LAPACK_clarnv LAPACK_GLOBAL(clarnv,CLARNV)
10694 lapack_int
const* idist, lapack_int* iseed, lapack_int
const* n,
10695 lapack_complex_float* X );
10697#define LAPACK_dlarnv LAPACK_GLOBAL(dlarnv,DLARNV)
10699 lapack_int
const* idist, lapack_int* iseed, lapack_int
const* n,
10702#define LAPACK_slarnv LAPACK_GLOBAL(slarnv,SLARNV)
10704 lapack_int
const* idist, lapack_int* iseed, lapack_int
const* n,
10707#define LAPACK_zlarnv LAPACK_GLOBAL(zlarnv,ZLARNV)
10709 lapack_int
const* idist, lapack_int* iseed, lapack_int
const* n,
10710 lapack_complex_double* X );
10712#define LAPACK_dlartgp LAPACK_GLOBAL(dlartgp,DLARTGP)
10713void LAPACK_dlartgp(
10720#define LAPACK_slartgp LAPACK_GLOBAL(slartgp,SLARTGP)
10721void LAPACK_slartgp(
10728#define LAPACK_dlartgs LAPACK_GLOBAL(dlartgs,DLARTGS)
10729void LAPACK_dlartgs(
10732 double const* sigma,
10736#define LAPACK_slartgs LAPACK_GLOBAL(slartgs,SLARTGS)
10737void LAPACK_slartgs(
10740 float const* sigma,
10744#define LAPACK_clascl_base LAPACK_GLOBAL(clascl,CLASCL)
10745void LAPACK_clascl_base(
10747 lapack_int
const* kl, lapack_int
const* ku,
10748 float const* cfrom,
10749 float const* cto, lapack_int
const* m, lapack_int
const* n,
10750 lapack_complex_float* A, lapack_int
const* lda,
10752#ifdef LAPACK_FORTRAN_STRLEN_END
10756#ifdef LAPACK_FORTRAN_STRLEN_END
10757 #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__, 1)
10759 #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__)
10762#define LAPACK_dlascl_base LAPACK_GLOBAL(dlascl,DLASCL)
10763void LAPACK_dlascl_base(
10765 lapack_int
const* kl, lapack_int
const* ku,
10766 double const* cfrom,
10767 double const* cto, lapack_int
const* m, lapack_int
const* n,
10768 double* A, lapack_int
const* lda,
10770#ifdef LAPACK_FORTRAN_STRLEN_END
10774#ifdef LAPACK_FORTRAN_STRLEN_END
10775 #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__, 1)
10777 #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__)
10780#define LAPACK_slascl_base LAPACK_GLOBAL(slascl,SLASCL)
10781void LAPACK_slascl_base(
10783 lapack_int
const* kl, lapack_int
const* ku,
10784 float const* cfrom,
10785 float const* cto, lapack_int
const* m, lapack_int
const* n,
10786 float* A, lapack_int
const* lda,
10788#ifdef LAPACK_FORTRAN_STRLEN_END
10792#ifdef LAPACK_FORTRAN_STRLEN_END
10793 #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__, 1)
10795 #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__)
10798#define LAPACK_zlascl_base LAPACK_GLOBAL(zlascl,ZLASCL)
10799void LAPACK_zlascl_base(
10801 lapack_int
const* kl, lapack_int
const* ku,
10802 double const* cfrom,
10803 double const* cto, lapack_int
const* m, lapack_int
const* n,
10804 lapack_complex_double* A, lapack_int
const* lda,
10806#ifdef LAPACK_FORTRAN_STRLEN_END
10810#ifdef LAPACK_FORTRAN_STRLEN_END
10811 #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__, 1)
10813 #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__)
10816#define LAPACK_claset_base LAPACK_GLOBAL(claset,CLASET)
10817void LAPACK_claset_base(
10819 lapack_int
const* m, lapack_int
const* n,
10820 lapack_complex_float
const* alpha,
10821 lapack_complex_float
const* beta,
10822 lapack_complex_float* A, lapack_int
const* lda
10823#ifdef LAPACK_FORTRAN_STRLEN_END
10827#ifdef LAPACK_FORTRAN_STRLEN_END
10828 #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__, 1)
10830 #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__)
10833#define LAPACK_dlaset_base LAPACK_GLOBAL(dlaset,DLASET)
10834void LAPACK_dlaset_base(
10836 lapack_int
const* m, lapack_int
const* n,
10837 double const* alpha,
10838 double const* beta,
10839 double* A, lapack_int
const* lda
10840#ifdef LAPACK_FORTRAN_STRLEN_END
10844#ifdef LAPACK_FORTRAN_STRLEN_END
10845 #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__, 1)
10847 #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__)
10850#define LAPACK_slaset_base LAPACK_GLOBAL(slaset,SLASET)
10851void LAPACK_slaset_base(
10853 lapack_int
const* m, lapack_int
const* n,
10854 float const* alpha,
10856 float* A, lapack_int
const* lda
10857#ifdef LAPACK_FORTRAN_STRLEN_END
10861#ifdef LAPACK_FORTRAN_STRLEN_END
10862 #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__, 1)
10864 #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__)
10867#define LAPACK_zlaset_base LAPACK_GLOBAL(zlaset,ZLASET)
10868void LAPACK_zlaset_base(
10870 lapack_int
const* m, lapack_int
const* n,
10871 lapack_complex_double
const* alpha,
10872 lapack_complex_double
const* beta,
10873 lapack_complex_double* A, lapack_int
const* lda
10874#ifdef LAPACK_FORTRAN_STRLEN_END
10878#ifdef LAPACK_FORTRAN_STRLEN_END
10879 #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__, 1)
10881 #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__)
10884#define LAPACK_dlasrt_base LAPACK_GLOBAL(dlasrt,DLASRT)
10885void LAPACK_dlasrt_base(
10887 lapack_int
const* n,
10890#ifdef LAPACK_FORTRAN_STRLEN_END
10894#ifdef LAPACK_FORTRAN_STRLEN_END
10895 #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__, 1)
10897 #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__)
10900#define LAPACK_slasrt_base LAPACK_GLOBAL(slasrt,SLASRT)
10901void LAPACK_slasrt_base(
10903 lapack_int
const* n,
10906#ifdef LAPACK_FORTRAN_STRLEN_END
10910#ifdef LAPACK_FORTRAN_STRLEN_END
10911 #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__, 1)
10913 #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__)
10916#define LAPACK_classq LAPACK_GLOBAL(classq,CLASSQ)
10918 lapack_int
const* n,
10919 lapack_complex_float
const* X, lapack_int
const* incx,
10923#define LAPACK_dlassq LAPACK_GLOBAL(dlassq,DLASSQ)
10925 lapack_int
const* n,
10926 double const* X, lapack_int
const* incx,
10930#define LAPACK_slassq LAPACK_GLOBAL(slassq,SLASSQ)
10932 lapack_int
const* n,
10933 float const* X, lapack_int
const* incx,
10937#define LAPACK_zlassq LAPACK_GLOBAL(zlassq,ZLASSQ)
10939 lapack_int
const* n,
10940 lapack_complex_double
const* X, lapack_int
const* incx,
10944#define LAPACK_claswp LAPACK_GLOBAL(claswp,CLASWP)
10946 lapack_int
const* n,
10947 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* k1, lapack_int
const* k2, lapack_int
const* ipiv, lapack_int
const* incx );
10949#define LAPACK_dlaswp LAPACK_GLOBAL(dlaswp,DLASWP)
10951 lapack_int
const* n,
10952 double* A, lapack_int
const* lda, lapack_int
const* k1, lapack_int
const* k2, lapack_int
const* ipiv, lapack_int
const* incx );
10954#define LAPACK_slaswp LAPACK_GLOBAL(slaswp,SLASWP)
10956 lapack_int
const* n,
10957 float* A, lapack_int
const* lda, lapack_int
const* k1, lapack_int
const* k2, lapack_int
const* ipiv, lapack_int
const* incx );
10959#define LAPACK_zlaswp LAPACK_GLOBAL(zlaswp,ZLASWP)
10961 lapack_int
const* n,
10962 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* k1, lapack_int
const* k2, lapack_int
const* ipiv, lapack_int
const* incx );
10964#define LAPACK_clatms_base LAPACK_GLOBAL(clatms,CLATMS)
10965void LAPACK_clatms_base(
10966 lapack_int
const* m, lapack_int
const* n,
char const* dist,
10967 lapack_int* iseed,
char const* sym,
10969 lapack_int
const* mode,
10971 float const* dmax, lapack_int
const* kl, lapack_int
const* ku,
char const* pack,
10972 lapack_complex_float* A,
10973 lapack_int
const* lda,
10974 lapack_complex_float* work,
10976#ifdef LAPACK_FORTRAN_STRLEN_END
10977 ,
size_t,
size_t,
size_t
10980#ifdef LAPACK_FORTRAN_STRLEN_END
10981 #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__, 1, 1, 1)
10983 #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__)
10986#define LAPACK_dlatms_base LAPACK_GLOBAL(dlatms,DLATMS)
10987void LAPACK_dlatms_base(
10988 lapack_int
const* m, lapack_int
const* n,
char const* dist,
10989 lapack_int* iseed,
char const* sym,
10991 lapack_int
const* mode,
10992 double const* cond,
10993 double const* dmax, lapack_int
const* kl, lapack_int
const* ku,
char const* pack,
10995 lapack_int
const* lda,
10998#ifdef LAPACK_FORTRAN_STRLEN_END
10999 ,
size_t,
size_t,
size_t
11002#ifdef LAPACK_FORTRAN_STRLEN_END
11003 #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__, 1, 1, 1)
11005 #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__)
11008#define LAPACK_slatms_base LAPACK_GLOBAL(slatms,SLATMS)
11009void LAPACK_slatms_base(
11010 lapack_int
const* m, lapack_int
const* n,
char const* dist,
11011 lapack_int* iseed,
char const* sym,
11013 lapack_int
const* mode,
11015 float const* dmax, lapack_int
const* kl, lapack_int
const* ku,
char const* pack,
11017 lapack_int
const* lda,
11020#ifdef LAPACK_FORTRAN_STRLEN_END
11021 ,
size_t,
size_t,
size_t
11024#ifdef LAPACK_FORTRAN_STRLEN_END
11025 #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__, 1, 1, 1)
11027 #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__)
11030#define LAPACK_zlatms_base LAPACK_GLOBAL(zlatms,ZLATMS)
11031void LAPACK_zlatms_base(
11032 lapack_int
const* m, lapack_int
const* n,
char const* dist,
11033 lapack_int* iseed,
char const* sym,
11035 lapack_int
const* mode,
11036 double const* cond,
11037 double const* dmax, lapack_int
const* kl, lapack_int
const* ku,
char const* pack,
11038 lapack_complex_double* A,
11039 lapack_int
const* lda,
11040 lapack_complex_double* work,
11042#ifdef LAPACK_FORTRAN_STRLEN_END
11043 ,
size_t,
size_t,
size_t
11046#ifdef LAPACK_FORTRAN_STRLEN_END
11047 #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__, 1, 1, 1)
11049 #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__)
11052#define LAPACK_clauum_base LAPACK_GLOBAL(clauum,CLAUUM)
11053void LAPACK_clauum_base(
11055 lapack_int
const* n,
11056 lapack_complex_float* A, lapack_int
const* lda,
11058#ifdef LAPACK_FORTRAN_STRLEN_END
11062#ifdef LAPACK_FORTRAN_STRLEN_END
11063 #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__, 1)
11065 #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__)
11068#define LAPACK_dlauum_base LAPACK_GLOBAL(dlauum,DLAUUM)
11069void LAPACK_dlauum_base(
11071 lapack_int
const* n,
11072 double* A, lapack_int
const* lda,
11074#ifdef LAPACK_FORTRAN_STRLEN_END
11078#ifdef LAPACK_FORTRAN_STRLEN_END
11079 #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__, 1)
11081 #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__)
11084#define LAPACK_slauum_base LAPACK_GLOBAL(slauum,SLAUUM)
11085void LAPACK_slauum_base(
11087 lapack_int
const* n,
11088 float* A, lapack_int
const* lda,
11090#ifdef LAPACK_FORTRAN_STRLEN_END
11094#ifdef LAPACK_FORTRAN_STRLEN_END
11095 #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__, 1)
11097 #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__)
11100#define LAPACK_zlauum_base LAPACK_GLOBAL(zlauum,ZLAUUM)
11101void LAPACK_zlauum_base(
11103 lapack_int
const* n,
11104 lapack_complex_double* A, lapack_int
const* lda,
11106#ifdef LAPACK_FORTRAN_STRLEN_END
11110#ifdef LAPACK_FORTRAN_STRLEN_END
11111 #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__, 1)
11113 #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__)
11116#define LAPACK_ilaver LAPACK_GLOBAL(ilaver,ILAVER)
11118 lapack_int* vers_major, lapack_int* vers_minor, lapack_int* vers_patch );
11120#define LAPACK_dopgtr_base LAPACK_GLOBAL(dopgtr,DOPGTR)
11121void LAPACK_dopgtr_base(
11123 lapack_int
const* n,
11126 double* Q, lapack_int
const* ldq,
11129#ifdef LAPACK_FORTRAN_STRLEN_END
11133#ifdef LAPACK_FORTRAN_STRLEN_END
11134 #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__, 1)
11136 #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__)
11139#define LAPACK_sopgtr_base LAPACK_GLOBAL(sopgtr,SOPGTR)
11140void LAPACK_sopgtr_base(
11142 lapack_int
const* n,
11145 float* Q, lapack_int
const* ldq,
11148#ifdef LAPACK_FORTRAN_STRLEN_END
11152#ifdef LAPACK_FORTRAN_STRLEN_END
11153 #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__, 1)
11155 #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__)
11158#define LAPACK_dopmtr_base LAPACK_GLOBAL(dopmtr,DOPMTR)
11159void LAPACK_dopmtr_base(
11160 char const* side,
char const* uplo,
char const* trans,
11161 lapack_int
const* m, lapack_int
const* n,
11164 double* C, lapack_int
const* ldc,
11167#ifdef LAPACK_FORTRAN_STRLEN_END
11168 ,
size_t,
size_t,
size_t
11171#ifdef LAPACK_FORTRAN_STRLEN_END
11172 #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__, 1, 1, 1)
11174 #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__)
11177#define LAPACK_sopmtr_base LAPACK_GLOBAL(sopmtr,SOPMTR)
11178void LAPACK_sopmtr_base(
11179 char const* side,
char const* uplo,
char const* trans,
11180 lapack_int
const* m, lapack_int
const* n,
11183 float* C, lapack_int
const* ldc,
11186#ifdef LAPACK_FORTRAN_STRLEN_END
11187 ,
size_t,
size_t,
size_t
11190#ifdef LAPACK_FORTRAN_STRLEN_END
11191 #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__, 1, 1, 1)
11193 #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__)
11196#define LAPACK_dorbdb_base LAPACK_GLOBAL(dorbdb,DORBDB)
11197void LAPACK_dorbdb_base(
11198 char const* trans,
char const* signs,
11199 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
11200 double* X11, lapack_int
const* ldx11,
11201 double* X12, lapack_int
const* ldx12,
11202 double* X21, lapack_int
const* ldx21,
11203 double* X22, lapack_int
const* ldx22,
11210 double* work, lapack_int
const* lwork,
11212#ifdef LAPACK_FORTRAN_STRLEN_END
11216#ifdef LAPACK_FORTRAN_STRLEN_END
11217 #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__, 1, 1)
11219 #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__)
11222#define LAPACK_sorbdb_base LAPACK_GLOBAL(sorbdb,SORBDB)
11223void LAPACK_sorbdb_base(
11224 char const* trans,
char const* signs,
11225 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
11226 float* X11, lapack_int
const* ldx11,
11227 float* X12, lapack_int
const* ldx12,
11228 float* X21, lapack_int
const* ldx21,
11229 float* X22, lapack_int
const* ldx22,
11236 float* work, lapack_int
const* lwork,
11238#ifdef LAPACK_FORTRAN_STRLEN_END
11242#ifdef LAPACK_FORTRAN_STRLEN_END
11243 #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__, 1, 1)
11245 #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__)
11248#define LAPACK_dorcsd_base LAPACK_GLOBAL(dorcsd,DORCSD)
11249void LAPACK_dorcsd_base(
11250 char const* jobu1,
char const* jobu2,
char const* jobv1t,
char const* jobv2t,
char const* trans,
char const* signs,
11251 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
11252 double* X11, lapack_int
const* ldx11,
11253 double* X12, lapack_int
const* ldx12,
11254 double* X21, lapack_int
const* ldx21,
11255 double* X22, lapack_int
const* ldx22,
11257 double* U1, lapack_int
const* ldu1,
11258 double* U2, lapack_int
const* ldu2,
11259 double* V1T, lapack_int
const* ldv1t,
11260 double* V2T, lapack_int
const* ldv2t,
11261 double* work, lapack_int
const* lwork,
11264#ifdef LAPACK_FORTRAN_STRLEN_END
11265 ,
size_t,
size_t,
size_t,
size_t,
size_t,
size_t
11268#ifdef LAPACK_FORTRAN_STRLEN_END
11269 #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
11271 #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__)
11274#define LAPACK_sorcsd_base LAPACK_GLOBAL(sorcsd,SORCSD)
11275void LAPACK_sorcsd_base(
11276 char const* jobu1,
char const* jobu2,
char const* jobv1t,
char const* jobv2t,
char const* trans,
char const* signs,
11277 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
11278 float* X11, lapack_int
const* ldx11,
11279 float* X12, lapack_int
const* ldx12,
11280 float* X21, lapack_int
const* ldx21,
11281 float* X22, lapack_int
const* ldx22,
11283 float* U1, lapack_int
const* ldu1,
11284 float* U2, lapack_int
const* ldu2,
11285 float* V1T, lapack_int
const* ldv1t,
11286 float* V2T, lapack_int
const* ldv2t,
11287 float* work, lapack_int
const* lwork,
11290#ifdef LAPACK_FORTRAN_STRLEN_END
11291 ,
size_t,
size_t,
size_t,
size_t,
size_t,
size_t
11294#ifdef LAPACK_FORTRAN_STRLEN_END
11295 #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
11297 #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__)
11300#define LAPACK_dorcsd2by1_base LAPACK_GLOBAL(dorcsd2by1,DORCSD2BY1)
11301void LAPACK_dorcsd2by1_base(
11302 char const* jobu1,
char const* jobu2,
char const* jobv1t,
11303 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
11304 double* X11, lapack_int
const* ldx11,
11305 double* X21, lapack_int
const* ldx21,
11307 double* U1, lapack_int
const* ldu1,
11308 double* U2, lapack_int
const* ldu2,
11309 double* V1T, lapack_int
const* ldv1t,
11310 double* work, lapack_int
const* lwork,
11313#ifdef LAPACK_FORTRAN_STRLEN_END
11314 ,
size_t,
size_t,
size_t
11317#ifdef LAPACK_FORTRAN_STRLEN_END
11318 #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__, 1, 1, 1)
11320 #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__)
11323#define LAPACK_sorcsd2by1_base LAPACK_GLOBAL(sorcsd2by1,SORCSD2BY1)
11324void LAPACK_sorcsd2by1_base(
11325 char const* jobu1,
char const* jobu2,
char const* jobv1t,
11326 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
11327 float* X11, lapack_int
const* ldx11,
11328 float* X21, lapack_int
const* ldx21,
11330 float* U1, lapack_int
const* ldu1,
11331 float* U2, lapack_int
const* ldu2,
11332 float* V1T, lapack_int
const* ldv1t,
11333 float* work, lapack_int
const* lwork,
11336#ifdef LAPACK_FORTRAN_STRLEN_END
11337 ,
size_t,
size_t,
size_t
11340#ifdef LAPACK_FORTRAN_STRLEN_END
11341 #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__, 1, 1, 1)
11343 #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__)
11346#define LAPACK_dorgbr_base LAPACK_GLOBAL(dorgbr,DORGBR)
11347void LAPACK_dorgbr_base(
11349 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11350 double* A, lapack_int
const* lda,
11352 double* work, lapack_int
const* lwork,
11354#ifdef LAPACK_FORTRAN_STRLEN_END
11358#ifdef LAPACK_FORTRAN_STRLEN_END
11359 #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__, 1)
11361 #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__)
11364#define LAPACK_sorgbr_base LAPACK_GLOBAL(sorgbr,SORGBR)
11365void LAPACK_sorgbr_base(
11367 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11368 float* A, lapack_int
const* lda,
11370 float* work, lapack_int
const* lwork,
11372#ifdef LAPACK_FORTRAN_STRLEN_END
11376#ifdef LAPACK_FORTRAN_STRLEN_END
11377 #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__, 1)
11379 #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__)
11382#define LAPACK_dorghr LAPACK_GLOBAL(dorghr,DORGHR)
11384 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
11385 double* A, lapack_int
const* lda,
11387 double* work, lapack_int
const* lwork,
11388 lapack_int* info );
11390#define LAPACK_sorghr LAPACK_GLOBAL(sorghr,SORGHR)
11392 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
11393 float* A, lapack_int
const* lda,
11395 float* work, lapack_int
const* lwork,
11396 lapack_int* info );
11398#define LAPACK_dorglq LAPACK_GLOBAL(dorglq,DORGLQ)
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_sorglq LAPACK_GLOBAL(sorglq,SORGLQ)
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_dorgql LAPACK_GLOBAL(dorgql,DORGQL)
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_sorgql LAPACK_GLOBAL(sorgql,SORGQL)
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_dorgqr LAPACK_GLOBAL(dorgqr,DORGQR)
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_sorgqr LAPACK_GLOBAL(sorgqr,SORGQR)
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_dorgrq LAPACK_GLOBAL(dorgrq,DORGRQ)
11448 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11449 double* A, lapack_int
const* lda,
11451 double* work, lapack_int
const* lwork,
11452 lapack_int* info );
11454#define LAPACK_sorgrq LAPACK_GLOBAL(sorgrq,SORGRQ)
11456 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11457 float* A, lapack_int
const* lda,
11459 float* work, lapack_int
const* lwork,
11460 lapack_int* info );
11462#define LAPACK_dorgtr_base LAPACK_GLOBAL(dorgtr,DORGTR)
11463void LAPACK_dorgtr_base(
11465 lapack_int
const* n,
11466 double* A, lapack_int
const* lda,
11468 double* work, lapack_int
const* lwork,
11470#ifdef LAPACK_FORTRAN_STRLEN_END
11474#ifdef LAPACK_FORTRAN_STRLEN_END
11475 #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__, 1)
11477 #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__)
11480#define LAPACK_sorgtr_base LAPACK_GLOBAL(sorgtr,SORGTR)
11481void LAPACK_sorgtr_base(
11483 lapack_int
const* n,
11484 float* A, lapack_int
const* lda,
11486 float* work, lapack_int
const* lwork,
11488#ifdef LAPACK_FORTRAN_STRLEN_END
11492#ifdef LAPACK_FORTRAN_STRLEN_END
11493 #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__, 1)
11495 #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__)
11498#define LAPACK_dorgtsqr_row LAPACK_GLOBAL(dorgtsqr_row,DORGTSQR_ROW)
11499void LAPACK_dorgtsqr_row(
11500 lapack_int
const* m, lapack_int
const* n,
11501 lapack_int
const* mb, lapack_int
const* nb,
11502 double* A, lapack_int
const* lda,
11503 double const* T, lapack_int
const* ldt,
11504 double* work, lapack_int
const* lwork,
11505 lapack_int* info );
11507#define LAPACK_sorgtsqr_row LAPACK_GLOBAL(sorgtsqr_row,SORGTSQR_ROW)
11508void LAPACK_sorgtsqr_row(
11509 lapack_int
const* m, lapack_int
const* n,
11510 lapack_int
const* mb, lapack_int
const* nb,
11511 float* A, lapack_int
const* lda,
11512 float const* T, lapack_int
const* ldt,
11513 float* work, lapack_int
const* lwork,
11514 lapack_int* info );
11516#define LAPACK_dormbr_base LAPACK_GLOBAL(dormbr,DORMBR)
11517void LAPACK_dormbr_base(
11518 char const* vect,
char const* side,
char const* trans,
11519 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11520 double const* A, lapack_int
const* lda,
11522 double* C, lapack_int
const* ldc,
11523 double* work, lapack_int
const* lwork,
11525#ifdef LAPACK_FORTRAN_STRLEN_END
11526 ,
size_t,
size_t,
size_t
11529#ifdef LAPACK_FORTRAN_STRLEN_END
11530 #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__, 1, 1, 1)
11532 #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__)
11535#define LAPACK_sormbr_base LAPACK_GLOBAL(sormbr,SORMBR)
11536void LAPACK_sormbr_base(
11537 char const* vect,
char const* side,
char const* trans,
11538 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11539 float const* A, lapack_int
const* lda,
11541 float* C, lapack_int
const* ldc,
11542 float* work, lapack_int
const* lwork,
11544#ifdef LAPACK_FORTRAN_STRLEN_END
11545 ,
size_t,
size_t,
size_t
11548#ifdef LAPACK_FORTRAN_STRLEN_END
11549 #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__, 1, 1, 1)
11551 #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__)
11554#define LAPACK_dormhr_base LAPACK_GLOBAL(dormhr,DORMHR)
11555void LAPACK_dormhr_base(
11556 char const* side,
char const* trans,
11557 lapack_int
const* m, lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
11558 double const* A, lapack_int
const* lda,
11560 double* C, lapack_int
const* ldc,
11561 double* work, lapack_int
const* lwork,
11563#ifdef LAPACK_FORTRAN_STRLEN_END
11567#ifdef LAPACK_FORTRAN_STRLEN_END
11568 #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__, 1, 1)
11570 #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__)
11573#define LAPACK_sormhr_base LAPACK_GLOBAL(sormhr,SORMHR)
11574void LAPACK_sormhr_base(
11575 char const* side,
char const* trans,
11576 lapack_int
const* m, lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
11577 float const* A, lapack_int
const* lda,
11579 float* C, lapack_int
const* ldc,
11580 float* work, lapack_int
const* lwork,
11582#ifdef LAPACK_FORTRAN_STRLEN_END
11586#ifdef LAPACK_FORTRAN_STRLEN_END
11587 #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__, 1, 1)
11589 #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__)
11592#define LAPACK_dormlq_base LAPACK_GLOBAL(dormlq,DORMLQ)
11593void LAPACK_dormlq_base(
11594 char const* side,
char const* trans,
11595 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11596 double const* A, lapack_int
const* lda,
11598 double* C, lapack_int
const* ldc,
11599 double* work, lapack_int
const* lwork,
11601#ifdef LAPACK_FORTRAN_STRLEN_END
11605#ifdef LAPACK_FORTRAN_STRLEN_END
11606 #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__, 1, 1)
11608 #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__)
11611#define LAPACK_sormlq_base LAPACK_GLOBAL(sormlq,SORMLQ)
11612void LAPACK_sormlq_base(
11613 char const* side,
char const* trans,
11614 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11615 float const* A, lapack_int
const* lda,
11617 float* C, lapack_int
const* ldc,
11618 float* work, lapack_int
const* lwork,
11620#ifdef LAPACK_FORTRAN_STRLEN_END
11624#ifdef LAPACK_FORTRAN_STRLEN_END
11625 #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__, 1, 1)
11627 #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__)
11630#define LAPACK_dormql_base LAPACK_GLOBAL(dormql,DORMQL)
11631void LAPACK_dormql_base(
11632 char const* side,
char const* trans,
11633 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11634 double const* A, lapack_int
const* lda,
11636 double* C, lapack_int
const* ldc,
11637 double* work, lapack_int
const* lwork,
11639#ifdef LAPACK_FORTRAN_STRLEN_END
11643#ifdef LAPACK_FORTRAN_STRLEN_END
11644 #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__, 1, 1)
11646 #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__)
11649#define LAPACK_sormql_base LAPACK_GLOBAL(sormql,SORMQL)
11650void LAPACK_sormql_base(
11651 char const* side,
char const* trans,
11652 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11653 float const* A, lapack_int
const* lda,
11655 float* C, lapack_int
const* ldc,
11656 float* work, lapack_int
const* lwork,
11658#ifdef LAPACK_FORTRAN_STRLEN_END
11662#ifdef LAPACK_FORTRAN_STRLEN_END
11663 #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__, 1, 1)
11665 #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__)
11668#define LAPACK_dormqr_base LAPACK_GLOBAL(dormqr,DORMQR)
11669void LAPACK_dormqr_base(
11670 char const* side,
char const* trans,
11671 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11672 double const* A, lapack_int
const* lda,
11674 double* C, lapack_int
const* ldc,
11675 double* work, lapack_int
const* lwork,
11677#ifdef LAPACK_FORTRAN_STRLEN_END
11681#ifdef LAPACK_FORTRAN_STRLEN_END
11682 #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__, 1, 1)
11684 #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__)
11687#define LAPACK_sormqr_base LAPACK_GLOBAL(sormqr,SORMQR)
11688void LAPACK_sormqr_base(
11689 char const* side,
char const* trans,
11690 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11691 float const* A, lapack_int
const* lda,
11693 float* C, lapack_int
const* ldc,
11694 float* work, lapack_int
const* lwork,
11696#ifdef LAPACK_FORTRAN_STRLEN_END
11700#ifdef LAPACK_FORTRAN_STRLEN_END
11701 #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__, 1, 1)
11703 #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__)
11706#define LAPACK_dormrq_base LAPACK_GLOBAL(dormrq,DORMRQ)
11707void LAPACK_dormrq_base(
11708 char const* side,
char const* trans,
11709 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11710 double const* A, lapack_int
const* lda,
11712 double* C, lapack_int
const* ldc,
11713 double* work, lapack_int
const* lwork,
11715#ifdef LAPACK_FORTRAN_STRLEN_END
11719#ifdef LAPACK_FORTRAN_STRLEN_END
11720 #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__, 1, 1)
11722 #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__)
11725#define LAPACK_sormrq_base LAPACK_GLOBAL(sormrq,SORMRQ)
11726void LAPACK_sormrq_base(
11727 char const* side,
char const* trans,
11728 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
11729 float const* A, lapack_int
const* lda,
11731 float* C, lapack_int
const* ldc,
11732 float* work, lapack_int
const* lwork,
11734#ifdef LAPACK_FORTRAN_STRLEN_END
11738#ifdef LAPACK_FORTRAN_STRLEN_END
11739 #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__, 1, 1)
11741 #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__)
11744#define LAPACK_dormrz_base LAPACK_GLOBAL(dormrz,DORMRZ)
11745void LAPACK_dormrz_base(
11746 char const* side,
char const* trans,
11747 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
11748 double const* A, lapack_int
const* lda,
11750 double* C, lapack_int
const* ldc,
11751 double* work, lapack_int
const* lwork,
11753#ifdef LAPACK_FORTRAN_STRLEN_END
11757#ifdef LAPACK_FORTRAN_STRLEN_END
11758 #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__, 1, 1)
11760 #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__)
11763#define LAPACK_sormrz_base LAPACK_GLOBAL(sormrz,SORMRZ)
11764void LAPACK_sormrz_base(
11765 char const* side,
char const* trans,
11766 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
11767 float const* A, lapack_int
const* lda,
11769 float* C, lapack_int
const* ldc,
11770 float* work, lapack_int
const* lwork,
11772#ifdef LAPACK_FORTRAN_STRLEN_END
11776#ifdef LAPACK_FORTRAN_STRLEN_END
11777 #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__, 1, 1)
11779 #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__)
11782#define LAPACK_dormtr_base LAPACK_GLOBAL(dormtr,DORMTR)
11783void LAPACK_dormtr_base(
11784 char const* side,
char const* uplo,
char const* trans,
11785 lapack_int
const* m, lapack_int
const* n,
11786 double const* A, lapack_int
const* lda,
11788 double* C, lapack_int
const* ldc,
11789 double* work, lapack_int
const* lwork,
11791#ifdef LAPACK_FORTRAN_STRLEN_END
11792 ,
size_t,
size_t,
size_t
11795#ifdef LAPACK_FORTRAN_STRLEN_END
11796 #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__, 1, 1, 1)
11798 #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__)
11801#define LAPACK_sormtr_base LAPACK_GLOBAL(sormtr,SORMTR)
11802void LAPACK_sormtr_base(
11803 char const* side,
char const* uplo,
char const* trans,
11804 lapack_int
const* m, lapack_int
const* n,
11805 float const* A, lapack_int
const* lda,
11807 float* C, lapack_int
const* ldc,
11808 float* work, lapack_int
const* lwork,
11810#ifdef LAPACK_FORTRAN_STRLEN_END
11811 ,
size_t,
size_t,
size_t
11814#ifdef LAPACK_FORTRAN_STRLEN_END
11815 #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__, 1, 1, 1)
11817 #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__)
11820#define LAPACK_cpbcon_base LAPACK_GLOBAL(cpbcon,CPBCON)
11821void LAPACK_cpbcon_base(
11823 lapack_int
const* n, lapack_int
const* kd,
11824 lapack_complex_float
const* AB, lapack_int
const* ldab,
11825 float const* anorm,
11827 lapack_complex_float* work,
11830#ifdef LAPACK_FORTRAN_STRLEN_END
11834#ifdef LAPACK_FORTRAN_STRLEN_END
11835 #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__, 1)
11837 #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__)
11840#define LAPACK_dpbcon_base LAPACK_GLOBAL(dpbcon,DPBCON)
11841void LAPACK_dpbcon_base(
11843 lapack_int
const* n, lapack_int
const* kd,
11844 double const* AB, lapack_int
const* ldab,
11845 double const* anorm,
11850#ifdef LAPACK_FORTRAN_STRLEN_END
11854#ifdef LAPACK_FORTRAN_STRLEN_END
11855 #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__, 1)
11857 #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__)
11860#define LAPACK_spbcon_base LAPACK_GLOBAL(spbcon,SPBCON)
11861void LAPACK_spbcon_base(
11863 lapack_int
const* n, lapack_int
const* kd,
11864 float const* AB, lapack_int
const* ldab,
11865 float const* anorm,
11870#ifdef LAPACK_FORTRAN_STRLEN_END
11874#ifdef LAPACK_FORTRAN_STRLEN_END
11875 #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__, 1)
11877 #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__)
11880#define LAPACK_zpbcon_base LAPACK_GLOBAL(zpbcon,ZPBCON)
11881void LAPACK_zpbcon_base(
11883 lapack_int
const* n, lapack_int
const* kd,
11884 lapack_complex_double
const* AB, lapack_int
const* ldab,
11885 double const* anorm,
11887 lapack_complex_double* work,
11890#ifdef LAPACK_FORTRAN_STRLEN_END
11894#ifdef LAPACK_FORTRAN_STRLEN_END
11895 #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__, 1)
11897 #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__)
11900#define LAPACK_cpbequ_base LAPACK_GLOBAL(cpbequ,CPBEQU)
11901void LAPACK_cpbequ_base(
11903 lapack_int
const* n, lapack_int
const* kd,
11904 lapack_complex_float
const* AB, lapack_int
const* ldab,
11909#ifdef LAPACK_FORTRAN_STRLEN_END
11913#ifdef LAPACK_FORTRAN_STRLEN_END
11914 #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__, 1)
11916 #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__)
11919#define LAPACK_dpbequ_base LAPACK_GLOBAL(dpbequ,DPBEQU)
11920void LAPACK_dpbequ_base(
11922 lapack_int
const* n, lapack_int
const* kd,
11923 double const* AB, lapack_int
const* ldab,
11928#ifdef LAPACK_FORTRAN_STRLEN_END
11932#ifdef LAPACK_FORTRAN_STRLEN_END
11933 #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__, 1)
11935 #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__)
11938#define LAPACK_spbequ_base LAPACK_GLOBAL(spbequ,SPBEQU)
11939void LAPACK_spbequ_base(
11941 lapack_int
const* n, lapack_int
const* kd,
11942 float const* AB, lapack_int
const* ldab,
11947#ifdef LAPACK_FORTRAN_STRLEN_END
11951#ifdef LAPACK_FORTRAN_STRLEN_END
11952 #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__, 1)
11954 #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__)
11957#define LAPACK_zpbequ_base LAPACK_GLOBAL(zpbequ,ZPBEQU)
11958void LAPACK_zpbequ_base(
11960 lapack_int
const* n, lapack_int
const* kd,
11961 lapack_complex_double
const* AB, lapack_int
const* ldab,
11966#ifdef LAPACK_FORTRAN_STRLEN_END
11970#ifdef LAPACK_FORTRAN_STRLEN_END
11971 #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__, 1)
11973 #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__)
11976#define LAPACK_cpbrfs_base LAPACK_GLOBAL(cpbrfs,CPBRFS)
11977void LAPACK_cpbrfs_base(
11979 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
11980 lapack_complex_float
const* AB, lapack_int
const* ldab,
11981 lapack_complex_float
const* AFB, lapack_int
const* ldafb,
11982 lapack_complex_float
const* B, lapack_int
const* ldb,
11983 lapack_complex_float* X, lapack_int
const* ldx,
11986 lapack_complex_float* work,
11989#ifdef LAPACK_FORTRAN_STRLEN_END
11993#ifdef LAPACK_FORTRAN_STRLEN_END
11994 #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__, 1)
11996 #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__)
11999#define LAPACK_dpbrfs_base LAPACK_GLOBAL(dpbrfs,DPBRFS)
12000void LAPACK_dpbrfs_base(
12002 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12003 double const* AB, lapack_int
const* ldab,
12004 double const* AFB, lapack_int
const* ldafb,
12005 double const* B, lapack_int
const* ldb,
12006 double* X, lapack_int
const* ldx,
12012#ifdef LAPACK_FORTRAN_STRLEN_END
12016#ifdef LAPACK_FORTRAN_STRLEN_END
12017 #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__, 1)
12019 #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__)
12022#define LAPACK_spbrfs_base LAPACK_GLOBAL(spbrfs,SPBRFS)
12023void LAPACK_spbrfs_base(
12025 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12026 float const* AB, lapack_int
const* ldab,
12027 float const* AFB, lapack_int
const* ldafb,
12028 float const* B, lapack_int
const* ldb,
12029 float* X, lapack_int
const* ldx,
12035#ifdef LAPACK_FORTRAN_STRLEN_END
12039#ifdef LAPACK_FORTRAN_STRLEN_END
12040 #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__, 1)
12042 #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__)
12045#define LAPACK_zpbrfs_base LAPACK_GLOBAL(zpbrfs,ZPBRFS)
12046void LAPACK_zpbrfs_base(
12048 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12049 lapack_complex_double
const* AB, lapack_int
const* ldab,
12050 lapack_complex_double
const* AFB, lapack_int
const* ldafb,
12051 lapack_complex_double
const* B, lapack_int
const* ldb,
12052 lapack_complex_double* X, lapack_int
const* ldx,
12055 lapack_complex_double* work,
12058#ifdef LAPACK_FORTRAN_STRLEN_END
12062#ifdef LAPACK_FORTRAN_STRLEN_END
12063 #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__, 1)
12065 #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__)
12068#define LAPACK_cpbstf_base LAPACK_GLOBAL(cpbstf,CPBSTF)
12069void LAPACK_cpbstf_base(
12071 lapack_int
const* n, lapack_int
const* kd,
12072 lapack_complex_float* AB, lapack_int
const* ldab,
12074#ifdef LAPACK_FORTRAN_STRLEN_END
12078#ifdef LAPACK_FORTRAN_STRLEN_END
12079 #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__, 1)
12081 #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__)
12084#define LAPACK_dpbstf_base LAPACK_GLOBAL(dpbstf,DPBSTF)
12085void LAPACK_dpbstf_base(
12087 lapack_int
const* n, lapack_int
const* kd,
12088 double* AB, lapack_int
const* ldab,
12090#ifdef LAPACK_FORTRAN_STRLEN_END
12094#ifdef LAPACK_FORTRAN_STRLEN_END
12095 #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__, 1)
12097 #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__)
12100#define LAPACK_spbstf_base LAPACK_GLOBAL(spbstf,SPBSTF)
12101void LAPACK_spbstf_base(
12103 lapack_int
const* n, lapack_int
const* kd,
12104 float* AB, lapack_int
const* ldab,
12106#ifdef LAPACK_FORTRAN_STRLEN_END
12110#ifdef LAPACK_FORTRAN_STRLEN_END
12111 #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__, 1)
12113 #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__)
12116#define LAPACK_zpbstf_base LAPACK_GLOBAL(zpbstf,ZPBSTF)
12117void LAPACK_zpbstf_base(
12119 lapack_int
const* n, lapack_int
const* kd,
12120 lapack_complex_double* AB, lapack_int
const* ldab,
12122#ifdef LAPACK_FORTRAN_STRLEN_END
12126#ifdef LAPACK_FORTRAN_STRLEN_END
12127 #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__, 1)
12129 #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__)
12132#define LAPACK_cpbsv_base LAPACK_GLOBAL(cpbsv,CPBSV)
12133void LAPACK_cpbsv_base(
12135 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12136 lapack_complex_float* AB, lapack_int
const* ldab,
12137 lapack_complex_float* B, lapack_int
const* ldb,
12139#ifdef LAPACK_FORTRAN_STRLEN_END
12143#ifdef LAPACK_FORTRAN_STRLEN_END
12144 #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__, 1)
12146 #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__)
12149#define LAPACK_dpbsv_base LAPACK_GLOBAL(dpbsv,DPBSV)
12150void LAPACK_dpbsv_base(
12152 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12153 double* AB, lapack_int
const* ldab,
12154 double* B, lapack_int
const* ldb,
12156#ifdef LAPACK_FORTRAN_STRLEN_END
12160#ifdef LAPACK_FORTRAN_STRLEN_END
12161 #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__, 1)
12163 #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__)
12166#define LAPACK_spbsv_base LAPACK_GLOBAL(spbsv,SPBSV)
12167void LAPACK_spbsv_base(
12169 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12170 float* AB, lapack_int
const* ldab,
12171 float* B, lapack_int
const* ldb,
12173#ifdef LAPACK_FORTRAN_STRLEN_END
12177#ifdef LAPACK_FORTRAN_STRLEN_END
12178 #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__, 1)
12180 #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__)
12183#define LAPACK_zpbsv_base LAPACK_GLOBAL(zpbsv,ZPBSV)
12184void LAPACK_zpbsv_base(
12186 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12187 lapack_complex_double* AB, lapack_int
const* ldab,
12188 lapack_complex_double* B, lapack_int
const* ldb,
12190#ifdef LAPACK_FORTRAN_STRLEN_END
12194#ifdef LAPACK_FORTRAN_STRLEN_END
12195 #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__, 1)
12197 #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__)
12200#define LAPACK_cpbsvx_base LAPACK_GLOBAL(cpbsvx,CPBSVX)
12201void LAPACK_cpbsvx_base(
12202 char const* fact,
char const* uplo,
12203 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12204 lapack_complex_float* AB, lapack_int
const* ldab,
12205 lapack_complex_float* AFB, lapack_int
const* ldafb,
char* equed,
12207 lapack_complex_float* B,
12208 lapack_int
const* ldb,
12209 lapack_complex_float* X, lapack_int
const* ldx,
12213 lapack_complex_float* work,
12216#ifdef LAPACK_FORTRAN_STRLEN_END
12217 ,
size_t,
size_t,
size_t
12220#ifdef LAPACK_FORTRAN_STRLEN_END
12221 #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__, 1, 1, 1)
12223 #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__)
12226#define LAPACK_dpbsvx_base LAPACK_GLOBAL(dpbsvx,DPBSVX)
12227void LAPACK_dpbsvx_base(
12228 char const* fact,
char const* uplo,
12229 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12230 double* AB, lapack_int
const* ldab,
12231 double* AFB, lapack_int
const* ldafb,
char* equed,
12234 lapack_int
const* ldb,
12235 double* X, lapack_int
const* ldx,
12242#ifdef LAPACK_FORTRAN_STRLEN_END
12243 ,
size_t,
size_t,
size_t
12246#ifdef LAPACK_FORTRAN_STRLEN_END
12247 #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__, 1, 1, 1)
12249 #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__)
12252#define LAPACK_spbsvx_base LAPACK_GLOBAL(spbsvx,SPBSVX)
12253void LAPACK_spbsvx_base(
12254 char const* fact,
char const* uplo,
12255 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12256 float* AB, lapack_int
const* ldab,
12257 float* AFB, lapack_int
const* ldafb,
char* equed,
12260 lapack_int
const* ldb,
12261 float* X, lapack_int
const* ldx,
12268#ifdef LAPACK_FORTRAN_STRLEN_END
12269 ,
size_t,
size_t,
size_t
12272#ifdef LAPACK_FORTRAN_STRLEN_END
12273 #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__, 1, 1, 1)
12275 #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__)
12278#define LAPACK_zpbsvx_base LAPACK_GLOBAL(zpbsvx,ZPBSVX)
12279void LAPACK_zpbsvx_base(
12280 char const* fact,
char const* uplo,
12281 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12282 lapack_complex_double* AB, lapack_int
const* ldab,
12283 lapack_complex_double* AFB, lapack_int
const* ldafb,
char* equed,
12285 lapack_complex_double* B,
12286 lapack_int
const* ldb,
12287 lapack_complex_double* X, lapack_int
const* ldx,
12291 lapack_complex_double* work,
12294#ifdef LAPACK_FORTRAN_STRLEN_END
12295 ,
size_t,
size_t,
size_t
12298#ifdef LAPACK_FORTRAN_STRLEN_END
12299 #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__, 1, 1, 1)
12301 #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__)
12304#define LAPACK_cpbtrf_base LAPACK_GLOBAL(cpbtrf,CPBTRF)
12305void LAPACK_cpbtrf_base(
12307 lapack_int
const* n, lapack_int
const* kd,
12308 lapack_complex_float* AB, lapack_int
const* ldab,
12310#ifdef LAPACK_FORTRAN_STRLEN_END
12314#ifdef LAPACK_FORTRAN_STRLEN_END
12315 #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__, 1)
12317 #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__)
12320#define LAPACK_dpbtrf_base LAPACK_GLOBAL(dpbtrf,DPBTRF)
12321void LAPACK_dpbtrf_base(
12323 lapack_int
const* n, lapack_int
const* kd,
12324 double* AB, lapack_int
const* ldab,
12326#ifdef LAPACK_FORTRAN_STRLEN_END
12330#ifdef LAPACK_FORTRAN_STRLEN_END
12331 #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__, 1)
12333 #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__)
12336#define LAPACK_spbtrf_base LAPACK_GLOBAL(spbtrf,SPBTRF)
12337void LAPACK_spbtrf_base(
12339 lapack_int
const* n, lapack_int
const* kd,
12340 float* AB, lapack_int
const* ldab,
12342#ifdef LAPACK_FORTRAN_STRLEN_END
12346#ifdef LAPACK_FORTRAN_STRLEN_END
12347 #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__, 1)
12349 #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__)
12352#define LAPACK_zpbtrf_base LAPACK_GLOBAL(zpbtrf,ZPBTRF)
12353void LAPACK_zpbtrf_base(
12355 lapack_int
const* n, lapack_int
const* kd,
12356 lapack_complex_double* AB, lapack_int
const* ldab,
12358#ifdef LAPACK_FORTRAN_STRLEN_END
12362#ifdef LAPACK_FORTRAN_STRLEN_END
12363 #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__, 1)
12365 #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__)
12368#define LAPACK_cpbtrs_base LAPACK_GLOBAL(cpbtrs,CPBTRS)
12369void LAPACK_cpbtrs_base(
12371 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12372 lapack_complex_float
const* AB, lapack_int
const* ldab,
12373 lapack_complex_float* B, lapack_int
const* ldb,
12375#ifdef LAPACK_FORTRAN_STRLEN_END
12379#ifdef LAPACK_FORTRAN_STRLEN_END
12380 #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__, 1)
12382 #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__)
12385#define LAPACK_dpbtrs_base LAPACK_GLOBAL(dpbtrs,DPBTRS)
12386void LAPACK_dpbtrs_base(
12388 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12389 double const* AB, lapack_int
const* ldab,
12390 double* B, lapack_int
const* ldb,
12392#ifdef LAPACK_FORTRAN_STRLEN_END
12396#ifdef LAPACK_FORTRAN_STRLEN_END
12397 #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__, 1)
12399 #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__)
12402#define LAPACK_spbtrs_base LAPACK_GLOBAL(spbtrs,SPBTRS)
12403void LAPACK_spbtrs_base(
12405 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12406 float const* AB, lapack_int
const* ldab,
12407 float* B, lapack_int
const* ldb,
12409#ifdef LAPACK_FORTRAN_STRLEN_END
12413#ifdef LAPACK_FORTRAN_STRLEN_END
12414 #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__, 1)
12416 #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__)
12419#define LAPACK_zpbtrs_base LAPACK_GLOBAL(zpbtrs,ZPBTRS)
12420void LAPACK_zpbtrs_base(
12422 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
12423 lapack_complex_double
const* AB, lapack_int
const* ldab,
12424 lapack_complex_double* B, lapack_int
const* ldb,
12426#ifdef LAPACK_FORTRAN_STRLEN_END
12430#ifdef LAPACK_FORTRAN_STRLEN_END
12431 #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__, 1)
12433 #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__)
12436#define LAPACK_cpftrf_base LAPACK_GLOBAL(cpftrf,CPFTRF)
12437void LAPACK_cpftrf_base(
12438 char const* transr,
char const* uplo,
12439 lapack_int
const* n,
12440 lapack_complex_float* A,
12442#ifdef LAPACK_FORTRAN_STRLEN_END
12446#ifdef LAPACK_FORTRAN_STRLEN_END
12447 #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__, 1, 1)
12449 #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__)
12452#define LAPACK_dpftrf_base LAPACK_GLOBAL(dpftrf,DPFTRF)
12453void LAPACK_dpftrf_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_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__, 1, 1)
12465 #define LAPACK_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__)
12468#define LAPACK_spftrf_base LAPACK_GLOBAL(spftrf,SPFTRF)
12469void LAPACK_spftrf_base(
12470 char const* transr,
char const* uplo,
12471 lapack_int
const* n,
12474#ifdef LAPACK_FORTRAN_STRLEN_END
12478#ifdef LAPACK_FORTRAN_STRLEN_END
12479 #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__, 1, 1)
12481 #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__)
12484#define LAPACK_zpftrf_base LAPACK_GLOBAL(zpftrf,ZPFTRF)
12485void LAPACK_zpftrf_base(
12486 char const* transr,
char const* uplo,
12487 lapack_int
const* n,
12488 lapack_complex_double* A,
12490#ifdef LAPACK_FORTRAN_STRLEN_END
12494#ifdef LAPACK_FORTRAN_STRLEN_END
12495 #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__, 1, 1)
12497 #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__)
12500#define LAPACK_cpftri_base LAPACK_GLOBAL(cpftri,CPFTRI)
12501void LAPACK_cpftri_base(
12502 char const* transr,
char const* uplo,
12503 lapack_int
const* n,
12504 lapack_complex_float* A,
12506#ifdef LAPACK_FORTRAN_STRLEN_END
12510#ifdef LAPACK_FORTRAN_STRLEN_END
12511 #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__, 1, 1)
12513 #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__)
12516#define LAPACK_dpftri_base LAPACK_GLOBAL(dpftri,DPFTRI)
12517void LAPACK_dpftri_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_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__, 1, 1)
12529 #define LAPACK_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__)
12532#define LAPACK_spftri_base LAPACK_GLOBAL(spftri,SPFTRI)
12533void LAPACK_spftri_base(
12534 char const* transr,
char const* uplo,
12535 lapack_int
const* n,
12538#ifdef LAPACK_FORTRAN_STRLEN_END
12542#ifdef LAPACK_FORTRAN_STRLEN_END
12543 #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__, 1, 1)
12545 #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__)
12548#define LAPACK_zpftri_base LAPACK_GLOBAL(zpftri,ZPFTRI)
12549void LAPACK_zpftri_base(
12550 char const* transr,
char const* uplo,
12551 lapack_int
const* n,
12552 lapack_complex_double* A,
12554#ifdef LAPACK_FORTRAN_STRLEN_END
12558#ifdef LAPACK_FORTRAN_STRLEN_END
12559 #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__, 1, 1)
12561 #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__)
12564#define LAPACK_cpftrs_base LAPACK_GLOBAL(cpftrs,CPFTRS)
12565void LAPACK_cpftrs_base(
12566 char const* transr,
char const* uplo,
12567 lapack_int
const* n, lapack_int
const* nrhs,
12568 lapack_complex_float
const* A,
12569 lapack_complex_float* B, lapack_int
const* ldb,
12571#ifdef LAPACK_FORTRAN_STRLEN_END
12575#ifdef LAPACK_FORTRAN_STRLEN_END
12576 #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__, 1, 1)
12578 #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__)
12581#define LAPACK_dpftrs_base LAPACK_GLOBAL(dpftrs,DPFTRS)
12582void LAPACK_dpftrs_base(
12583 char const* transr,
char const* uplo,
12584 lapack_int
const* n, lapack_int
const* nrhs,
12586 double* B, lapack_int
const* ldb,
12588#ifdef LAPACK_FORTRAN_STRLEN_END
12592#ifdef LAPACK_FORTRAN_STRLEN_END
12593 #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__, 1, 1)
12595 #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__)
12598#define LAPACK_spftrs_base LAPACK_GLOBAL(spftrs,SPFTRS)
12599void LAPACK_spftrs_base(
12600 char const* transr,
char const* uplo,
12601 lapack_int
const* n, lapack_int
const* nrhs,
12603 float* B, lapack_int
const* ldb,
12605#ifdef LAPACK_FORTRAN_STRLEN_END
12609#ifdef LAPACK_FORTRAN_STRLEN_END
12610 #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__, 1, 1)
12612 #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__)
12615#define LAPACK_zpftrs_base LAPACK_GLOBAL(zpftrs,ZPFTRS)
12616void LAPACK_zpftrs_base(
12617 char const* transr,
char const* uplo,
12618 lapack_int
const* n, lapack_int
const* nrhs,
12619 lapack_complex_double
const* A,
12620 lapack_complex_double* B, lapack_int
const* ldb,
12622#ifdef LAPACK_FORTRAN_STRLEN_END
12626#ifdef LAPACK_FORTRAN_STRLEN_END
12627 #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__, 1, 1)
12629 #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__)
12632#define LAPACK_cpocon_base LAPACK_GLOBAL(cpocon,CPOCON)
12633void LAPACK_cpocon_base(
12635 lapack_int
const* n,
12636 lapack_complex_float
const* A, lapack_int
const* lda,
12637 float const* anorm,
12639 lapack_complex_float* work,
12642#ifdef LAPACK_FORTRAN_STRLEN_END
12646#ifdef LAPACK_FORTRAN_STRLEN_END
12647 #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__, 1)
12649 #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__)
12652#define LAPACK_dpocon_base LAPACK_GLOBAL(dpocon,DPOCON)
12653void LAPACK_dpocon_base(
12655 lapack_int
const* n,
12656 double const* A, lapack_int
const* lda,
12657 double const* anorm,
12662#ifdef LAPACK_FORTRAN_STRLEN_END
12666#ifdef LAPACK_FORTRAN_STRLEN_END
12667 #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__, 1)
12669 #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__)
12672#define LAPACK_spocon_base LAPACK_GLOBAL(spocon,SPOCON)
12673void LAPACK_spocon_base(
12675 lapack_int
const* n,
12676 float const* A, lapack_int
const* lda,
12677 float const* anorm,
12682#ifdef LAPACK_FORTRAN_STRLEN_END
12686#ifdef LAPACK_FORTRAN_STRLEN_END
12687 #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__, 1)
12689 #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__)
12692#define LAPACK_zpocon_base LAPACK_GLOBAL(zpocon,ZPOCON)
12693void LAPACK_zpocon_base(
12695 lapack_int
const* n,
12696 lapack_complex_double
const* A, lapack_int
const* lda,
12697 double const* anorm,
12699 lapack_complex_double* work,
12702#ifdef LAPACK_FORTRAN_STRLEN_END
12706#ifdef LAPACK_FORTRAN_STRLEN_END
12707 #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__, 1)
12709 #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__)
12712#define LAPACK_cpoequ LAPACK_GLOBAL(cpoequ,CPOEQU)
12714 lapack_int
const* n,
12715 lapack_complex_float
const* A, lapack_int
const* lda,
12719 lapack_int* info );
12721#define LAPACK_dpoequ LAPACK_GLOBAL(dpoequ,DPOEQU)
12723 lapack_int
const* n,
12724 double const* A, lapack_int
const* lda,
12728 lapack_int* info );
12730#define LAPACK_spoequ LAPACK_GLOBAL(spoequ,SPOEQU)
12732 lapack_int
const* n,
12733 float const* A, lapack_int
const* lda,
12737 lapack_int* info );
12739#define LAPACK_zpoequ LAPACK_GLOBAL(zpoequ,ZPOEQU)
12741 lapack_int
const* n,
12742 lapack_complex_double
const* A, lapack_int
const* lda,
12746 lapack_int* info );
12748#define LAPACK_cpoequb LAPACK_GLOBAL(cpoequb,CPOEQUB)
12749void LAPACK_cpoequb(
12750 lapack_int
const* n,
12751 lapack_complex_float
const* A, lapack_int
const* lda,
12755 lapack_int* info );
12757#define LAPACK_dpoequb LAPACK_GLOBAL(dpoequb,DPOEQUB)
12758void LAPACK_dpoequb(
12759 lapack_int
const* n,
12760 double const* A, lapack_int
const* lda,
12764 lapack_int* info );
12766#define LAPACK_spoequb LAPACK_GLOBAL(spoequb,SPOEQUB)
12767void LAPACK_spoequb(
12768 lapack_int
const* n,
12769 float const* A, lapack_int
const* lda,
12773 lapack_int* info );
12775#define LAPACK_zpoequb LAPACK_GLOBAL(zpoequb,ZPOEQUB)
12776void LAPACK_zpoequb(
12777 lapack_int
const* n,
12778 lapack_complex_double
const* A, lapack_int
const* lda,
12782 lapack_int* info );
12784#define LAPACK_cporfs_base LAPACK_GLOBAL(cporfs,CPORFS)
12785void LAPACK_cporfs_base(
12787 lapack_int
const* n, lapack_int
const* nrhs,
12788 lapack_complex_float
const* A, lapack_int
const* lda,
12789 lapack_complex_float
const* AF, lapack_int
const* ldaf,
12790 lapack_complex_float
const* B, lapack_int
const* ldb,
12791 lapack_complex_float* X, lapack_int
const* ldx,
12794 lapack_complex_float* work,
12797#ifdef LAPACK_FORTRAN_STRLEN_END
12801#ifdef LAPACK_FORTRAN_STRLEN_END
12802 #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__, 1)
12804 #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__)
12807#define LAPACK_dporfs_base LAPACK_GLOBAL(dporfs,DPORFS)
12808void LAPACK_dporfs_base(
12810 lapack_int
const* n, lapack_int
const* nrhs,
12811 double const* A, lapack_int
const* lda,
12812 double const* AF, lapack_int
const* ldaf,
12813 double const* B, lapack_int
const* ldb,
12814 double* X, lapack_int
const* ldx,
12820#ifdef LAPACK_FORTRAN_STRLEN_END
12824#ifdef LAPACK_FORTRAN_STRLEN_END
12825 #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__, 1)
12827 #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__)
12830#define LAPACK_sporfs_base LAPACK_GLOBAL(sporfs,SPORFS)
12831void LAPACK_sporfs_base(
12833 lapack_int
const* n, lapack_int
const* nrhs,
12834 float const* A, lapack_int
const* lda,
12835 float const* AF, lapack_int
const* ldaf,
12836 float const* B, lapack_int
const* ldb,
12837 float* X, lapack_int
const* ldx,
12843#ifdef LAPACK_FORTRAN_STRLEN_END
12847#ifdef LAPACK_FORTRAN_STRLEN_END
12848 #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__, 1)
12850 #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__)
12853#define LAPACK_zporfs_base LAPACK_GLOBAL(zporfs,ZPORFS)
12854void LAPACK_zporfs_base(
12856 lapack_int
const* n, lapack_int
const* nrhs,
12857 lapack_complex_double
const* A, lapack_int
const* lda,
12858 lapack_complex_double
const* AF, lapack_int
const* ldaf,
12859 lapack_complex_double
const* B, lapack_int
const* ldb,
12860 lapack_complex_double* X, lapack_int
const* ldx,
12863 lapack_complex_double* work,
12866#ifdef LAPACK_FORTRAN_STRLEN_END
12870#ifdef LAPACK_FORTRAN_STRLEN_END
12871 #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__, 1)
12873 #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__)
12876#define LAPACK_cporfsx_base LAPACK_GLOBAL(cporfsx,CPORFSX)
12877void LAPACK_cporfsx_base(
12878 char const* uplo,
char const* equed,
12879 lapack_int
const* n, lapack_int
const* nrhs,
12880 lapack_complex_float
const* A, lapack_int
const* lda,
12881 lapack_complex_float
const* AF, lapack_int
const* ldaf,
12883 lapack_complex_float
const* B, lapack_int
const* ldb,
12884 lapack_complex_float* X, lapack_int
const* ldx,
12886 float* berr, lapack_int
const* n_err_bnds,
12887 float* err_bnds_norm,
12888 float* err_bnds_comp, lapack_int
const* nparams,
12890 lapack_complex_float* work,
12893#ifdef LAPACK_FORTRAN_STRLEN_END
12897#ifdef LAPACK_FORTRAN_STRLEN_END
12898 #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__, 1, 1)
12900 #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__)
12903#define LAPACK_dporfsx_base LAPACK_GLOBAL(dporfsx,DPORFSX)
12904void LAPACK_dporfsx_base(
12905 char const* uplo,
char const* equed,
12906 lapack_int
const* n, lapack_int
const* nrhs,
12907 double const* A, lapack_int
const* lda,
12908 double const* AF, lapack_int
const* ldaf,
12910 double const* B, lapack_int
const* ldb,
12911 double* X, lapack_int
const* ldx,
12913 double* berr, lapack_int
const* n_err_bnds,
12914 double* err_bnds_norm,
12915 double* err_bnds_comp, lapack_int
const* nparams,
12920#ifdef LAPACK_FORTRAN_STRLEN_END
12924#ifdef LAPACK_FORTRAN_STRLEN_END
12925 #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__, 1, 1)
12927 #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__)
12930#define LAPACK_sporfsx_base LAPACK_GLOBAL(sporfsx,SPORFSX)
12931void LAPACK_sporfsx_base(
12932 char const* uplo,
char const* equed,
12933 lapack_int
const* n, lapack_int
const* nrhs,
12934 float const* A, lapack_int
const* lda,
12935 float const* AF, lapack_int
const* ldaf,
12937 float const* B, lapack_int
const* ldb,
12938 float* X, lapack_int
const* ldx,
12940 float* berr, lapack_int
const* n_err_bnds,
12941 float* err_bnds_norm,
12942 float* err_bnds_comp, lapack_int
const* nparams,
12947#ifdef LAPACK_FORTRAN_STRLEN_END
12951#ifdef LAPACK_FORTRAN_STRLEN_END
12952 #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__, 1, 1)
12954 #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__)
12957#define LAPACK_zporfsx_base LAPACK_GLOBAL(zporfsx,ZPORFSX)
12958void LAPACK_zporfsx_base(
12959 char const* uplo,
char const* equed,
12960 lapack_int
const* n, lapack_int
const* nrhs,
12961 lapack_complex_double
const* A, lapack_int
const* lda,
12962 lapack_complex_double
const* AF, lapack_int
const* ldaf,
12964 lapack_complex_double
const* B, lapack_int
const* ldb,
12965 lapack_complex_double* X, lapack_int
const* ldx,
12967 double* berr, lapack_int
const* n_err_bnds,
12968 double* err_bnds_norm,
12969 double* err_bnds_comp, lapack_int
const* nparams,
12971 lapack_complex_double* work,
12974#ifdef LAPACK_FORTRAN_STRLEN_END
12978#ifdef LAPACK_FORTRAN_STRLEN_END
12979 #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__, 1, 1)
12981 #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__)
12984#define LAPACK_cposv_base LAPACK_GLOBAL(cposv,CPOSV)
12985void LAPACK_cposv_base(
12987 lapack_int
const* n, lapack_int
const* nrhs,
12988 lapack_complex_float* A, lapack_int
const* lda,
12989 lapack_complex_float* B, lapack_int
const* ldb,
12991#ifdef LAPACK_FORTRAN_STRLEN_END
12995#ifdef LAPACK_FORTRAN_STRLEN_END
12996 #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__, 1)
12998 #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__)
13001#define LAPACK_dposv_base LAPACK_GLOBAL(dposv,DPOSV)
13002void LAPACK_dposv_base(
13004 lapack_int
const* n, lapack_int
const* nrhs,
13005 double* A, lapack_int
const* lda,
13006 double* B, lapack_int
const* ldb,
13008#ifdef LAPACK_FORTRAN_STRLEN_END
13012#ifdef LAPACK_FORTRAN_STRLEN_END
13013 #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__, 1)
13015 #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__)
13018#define LAPACK_sposv_base LAPACK_GLOBAL(sposv,SPOSV)
13019void LAPACK_sposv_base(
13021 lapack_int
const* n, lapack_int
const* nrhs,
13022 float* A, lapack_int
const* lda,
13023 float* B, lapack_int
const* ldb,
13025#ifdef LAPACK_FORTRAN_STRLEN_END
13029#ifdef LAPACK_FORTRAN_STRLEN_END
13030 #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__, 1)
13032 #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__)
13035#define LAPACK_zposv_base LAPACK_GLOBAL(zposv,ZPOSV)
13036void LAPACK_zposv_base(
13038 lapack_int
const* n, lapack_int
const* nrhs,
13039 lapack_complex_double* A, lapack_int
const* lda,
13040 lapack_complex_double* B, lapack_int
const* ldb,
13042#ifdef LAPACK_FORTRAN_STRLEN_END
13046#ifdef LAPACK_FORTRAN_STRLEN_END
13047 #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__, 1)
13049 #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__)
13052#define LAPACK_dsposv_base LAPACK_GLOBAL(dsposv,DSPOSV)
13053void LAPACK_dsposv_base(
13055 lapack_int
const* n, lapack_int
const* nrhs,
13056 double* A, lapack_int
const* lda,
13057 double const* B, lapack_int
const* ldb,
13058 double* X, lapack_int
const* ldx,
13060 float* swork, lapack_int* iter,
13062#ifdef LAPACK_FORTRAN_STRLEN_END
13066#ifdef LAPACK_FORTRAN_STRLEN_END
13067 #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__, 1)
13069 #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__)
13072#define LAPACK_zcposv_base LAPACK_GLOBAL(zcposv,ZCPOSV)
13073void LAPACK_zcposv_base(
13075 lapack_int
const* n, lapack_int
const* nrhs,
13076 lapack_complex_double* A, lapack_int
const* lda,
13077 lapack_complex_double
const* B, lapack_int
const* ldb,
13078 lapack_complex_double* X, lapack_int
const* ldx,
13079 lapack_complex_double* work,
13080 lapack_complex_float* swork,
13081 double* rwork, lapack_int* iter,
13083#ifdef LAPACK_FORTRAN_STRLEN_END
13087#ifdef LAPACK_FORTRAN_STRLEN_END
13088 #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__, 1)
13090 #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__)
13093#define LAPACK_cposvx_base LAPACK_GLOBAL(cposvx,CPOSVX)
13094void LAPACK_cposvx_base(
13095 char const* fact,
char const* uplo,
13096 lapack_int
const* n, lapack_int
const* nrhs,
13097 lapack_complex_float* A, lapack_int
const* lda,
13098 lapack_complex_float* AF, lapack_int
const* ldaf,
char* equed,
13100 lapack_complex_float* B,
13101 lapack_int
const* ldb,
13102 lapack_complex_float* X, lapack_int
const* ldx,
13106 lapack_complex_float* work,
13109#ifdef LAPACK_FORTRAN_STRLEN_END
13110 ,
size_t,
size_t,
size_t
13113#ifdef LAPACK_FORTRAN_STRLEN_END
13114 #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__, 1, 1, 1)
13116 #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__)
13119#define LAPACK_dposvx_base LAPACK_GLOBAL(dposvx,DPOSVX)
13120void LAPACK_dposvx_base(
13121 char const* fact,
char const* uplo,
13122 lapack_int
const* n, lapack_int
const* nrhs,
13123 double* A, lapack_int
const* lda,
13124 double* AF, lapack_int
const* ldaf,
char* equed,
13127 lapack_int
const* ldb,
13128 double* X, lapack_int
const* ldx,
13135#ifdef LAPACK_FORTRAN_STRLEN_END
13136 ,
size_t,
size_t,
size_t
13139#ifdef LAPACK_FORTRAN_STRLEN_END
13140 #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__, 1, 1, 1)
13142 #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__)
13145#define LAPACK_sposvx_base LAPACK_GLOBAL(sposvx,SPOSVX)
13146void LAPACK_sposvx_base(
13147 char const* fact,
char const* uplo,
13148 lapack_int
const* n, lapack_int
const* nrhs,
13149 float* A, lapack_int
const* lda,
13150 float* AF, lapack_int
const* ldaf,
char* equed,
13153 lapack_int
const* ldb,
13154 float* X, lapack_int
const* ldx,
13161#ifdef LAPACK_FORTRAN_STRLEN_END
13162 ,
size_t,
size_t,
size_t
13165#ifdef LAPACK_FORTRAN_STRLEN_END
13166 #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__, 1, 1, 1)
13168 #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__)
13171#define LAPACK_zposvx_base LAPACK_GLOBAL(zposvx,ZPOSVX)
13172void LAPACK_zposvx_base(
13173 char const* fact,
char const* uplo,
13174 lapack_int
const* n, lapack_int
const* nrhs,
13175 lapack_complex_double* A, lapack_int
const* lda,
13176 lapack_complex_double* AF, lapack_int
const* ldaf,
char* equed,
13178 lapack_complex_double* B,
13179 lapack_int
const* ldb,
13180 lapack_complex_double* X, lapack_int
const* ldx,
13184 lapack_complex_double* work,
13187#ifdef LAPACK_FORTRAN_STRLEN_END
13188 ,
size_t,
size_t,
size_t
13191#ifdef LAPACK_FORTRAN_STRLEN_END
13192 #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__, 1, 1, 1)
13194 #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__)
13197#define LAPACK_cposvxx_base LAPACK_GLOBAL(cposvxx,CPOSVXX)
13198void LAPACK_cposvxx_base(
13199 char const* fact,
char const* uplo,
13200 lapack_int
const* n, lapack_int
const* nrhs,
13201 lapack_complex_float* A, lapack_int
const* lda,
13202 lapack_complex_float* AF, lapack_int
const* ldaf,
char* equed,
13204 lapack_complex_float* B,
13205 lapack_int
const* ldb,
13206 lapack_complex_float* X, lapack_int
const* ldx,
13209 float* berr, lapack_int
const* n_err_bnds,
13210 float* err_bnds_norm,
13211 float* err_bnds_comp, lapack_int
const* nparams,
13213 lapack_complex_float* work,
13216#ifdef LAPACK_FORTRAN_STRLEN_END
13217 ,
size_t,
size_t,
size_t
13220#ifdef LAPACK_FORTRAN_STRLEN_END
13221 #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__, 1, 1, 1)
13223 #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__)
13226#define LAPACK_dposvxx_base LAPACK_GLOBAL(dposvxx,DPOSVXX)
13227void LAPACK_dposvxx_base(
13228 char const* fact,
char const* uplo,
13229 lapack_int
const* n, lapack_int
const* nrhs,
13230 double* A, lapack_int
const* lda,
13231 double* AF, lapack_int
const* ldaf,
char* equed,
13234 lapack_int
const* ldb,
13235 double* X, lapack_int
const* ldx,
13238 double* berr, lapack_int
const* n_err_bnds,
13239 double* err_bnds_norm,
13240 double* err_bnds_comp, lapack_int
const* nparams,
13245#ifdef LAPACK_FORTRAN_STRLEN_END
13246 ,
size_t,
size_t,
size_t
13249#ifdef LAPACK_FORTRAN_STRLEN_END
13250 #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__, 1, 1, 1)
13252 #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__)
13255#define LAPACK_sposvxx_base LAPACK_GLOBAL(sposvxx,SPOSVXX)
13256void LAPACK_sposvxx_base(
13257 char const* fact,
char const* uplo,
13258 lapack_int
const* n, lapack_int
const* nrhs,
13259 float* A, lapack_int
const* lda,
13260 float* AF, lapack_int
const* ldaf,
char* equed,
13263 lapack_int
const* ldb,
13264 float* X, lapack_int
const* ldx,
13267 float* berr, lapack_int
const* n_err_bnds,
13268 float* err_bnds_norm,
13269 float* err_bnds_comp, lapack_int
const* nparams,
13274#ifdef LAPACK_FORTRAN_STRLEN_END
13275 ,
size_t,
size_t,
size_t
13278#ifdef LAPACK_FORTRAN_STRLEN_END
13279 #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__, 1, 1, 1)
13281 #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__)
13284#define LAPACK_zposvxx_base LAPACK_GLOBAL(zposvxx,ZPOSVXX)
13285void LAPACK_zposvxx_base(
13286 char const* fact,
char const* uplo,
13287 lapack_int
const* n, lapack_int
const* nrhs,
13288 lapack_complex_double* A, lapack_int
const* lda,
13289 lapack_complex_double* AF, lapack_int
const* ldaf,
char* equed,
13291 lapack_complex_double* B,
13292 lapack_int
const* ldb,
13293 lapack_complex_double* X, lapack_int
const* ldx,
13296 double* berr, lapack_int
const* n_err_bnds,
13297 double* err_bnds_norm,
13298 double* err_bnds_comp, lapack_int
const* nparams,
13300 lapack_complex_double* work,
13303#ifdef LAPACK_FORTRAN_STRLEN_END
13304 ,
size_t,
size_t,
size_t
13307#ifdef LAPACK_FORTRAN_STRLEN_END
13308 #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__, 1, 1, 1)
13310 #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__)
13313#define LAPACK_cpotf2_base LAPACK_GLOBAL(cpotf2,CPOTF2)
13314void LAPACK_cpotf2_base(
13316 lapack_int
const* n,
13317 lapack_complex_float* A, lapack_int
const* lda,
13319#ifdef LAPACK_FORTRAN_STRLEN_END
13323#ifdef LAPACK_FORTRAN_STRLEN_END
13324 #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__, 1)
13326 #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__)
13329#define LAPACK_dpotf2_base LAPACK_GLOBAL(dpotf2,DPOTF2)
13330void LAPACK_dpotf2_base(
13332 lapack_int
const* n,
13333 double* A, lapack_int
const* lda,
13335#ifdef LAPACK_FORTRAN_STRLEN_END
13339#ifdef LAPACK_FORTRAN_STRLEN_END
13340 #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__, 1)
13342 #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__)
13345#define LAPACK_spotf2_base LAPACK_GLOBAL(spotf2,SPOTF2)
13346void LAPACK_spotf2_base(
13348 lapack_int
const* n,
13349 float* A, lapack_int
const* lda,
13351#ifdef LAPACK_FORTRAN_STRLEN_END
13355#ifdef LAPACK_FORTRAN_STRLEN_END
13356 #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__, 1)
13358 #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__)
13361#define LAPACK_zpotf2_base LAPACK_GLOBAL(zpotf2,ZPOTF2)
13362void LAPACK_zpotf2_base(
13364 lapack_int
const* n,
13365 lapack_complex_double* A, lapack_int
const* lda,
13367#ifdef LAPACK_FORTRAN_STRLEN_END
13371#ifdef LAPACK_FORTRAN_STRLEN_END
13372 #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__, 1)
13374 #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__)
13377#define LAPACK_cpotrf_base LAPACK_GLOBAL(cpotrf,CPOTRF)
13378void LAPACK_cpotrf_base(
13380 lapack_int
const* n,
13381 lapack_complex_float* A, lapack_int
const* lda,
13383#ifdef LAPACK_FORTRAN_STRLEN_END
13387#ifdef LAPACK_FORTRAN_STRLEN_END
13388 #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__, 1)
13390 #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__)
13393#define LAPACK_dpotrf_base LAPACK_GLOBAL(dpotrf,DPOTRF)
13394void LAPACK_dpotrf_base(
13396 lapack_int
const* n,
13397 double* A, lapack_int
const* lda,
13399#ifdef LAPACK_FORTRAN_STRLEN_END
13403#ifdef LAPACK_FORTRAN_STRLEN_END
13404 #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__, 1)
13406 #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__)
13409#define LAPACK_spotrf_base LAPACK_GLOBAL(spotrf,SPOTRF)
13410void LAPACK_spotrf_base(
13412 lapack_int
const* n,
13413 float* A, lapack_int
const* lda,
13415#ifdef LAPACK_FORTRAN_STRLEN_END
13419#ifdef LAPACK_FORTRAN_STRLEN_END
13420 #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__, 1)
13422 #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__)
13425#define LAPACK_zpotrf_base LAPACK_GLOBAL(zpotrf,ZPOTRF)
13426void LAPACK_zpotrf_base(
13428 lapack_int
const* n,
13429 lapack_complex_double* A, lapack_int
const* lda,
13431#ifdef LAPACK_FORTRAN_STRLEN_END
13435#ifdef LAPACK_FORTRAN_STRLEN_END
13436 #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__, 1)
13438 #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__)
13441#define LAPACK_cpotrf2_base LAPACK_GLOBAL(cpotrf2,CPOTRF2)
13442void LAPACK_cpotrf2_base(
13444 lapack_int
const* n,
13445 lapack_complex_float* A, lapack_int
const* lda,
13447#ifdef LAPACK_FORTRAN_STRLEN_END
13451#ifdef LAPACK_FORTRAN_STRLEN_END
13452 #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__, 1)
13454 #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__)
13457#define LAPACK_dpotrf2_base LAPACK_GLOBAL(dpotrf2,DPOTRF2)
13458void LAPACK_dpotrf2_base(
13460 lapack_int
const* n,
13461 double* A, lapack_int
const* lda,
13463#ifdef LAPACK_FORTRAN_STRLEN_END
13467#ifdef LAPACK_FORTRAN_STRLEN_END
13468 #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__, 1)
13470 #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__)
13473#define LAPACK_spotrf2_base LAPACK_GLOBAL(spotrf2,SPOTRF2)
13474void LAPACK_spotrf2_base(
13476 lapack_int
const* n,
13477 float* A, lapack_int
const* lda,
13479#ifdef LAPACK_FORTRAN_STRLEN_END
13483#ifdef LAPACK_FORTRAN_STRLEN_END
13484 #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__, 1)
13486 #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__)
13489#define LAPACK_zpotrf2_base LAPACK_GLOBAL(zpotrf2,ZPOTRF2)
13490void LAPACK_zpotrf2_base(
13492 lapack_int
const* n,
13493 lapack_complex_double* A, lapack_int
const* lda,
13495#ifdef LAPACK_FORTRAN_STRLEN_END
13499#ifdef LAPACK_FORTRAN_STRLEN_END
13500 #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__, 1)
13502 #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__)
13505#define LAPACK_cpotri_base LAPACK_GLOBAL(cpotri,CPOTRI)
13506void LAPACK_cpotri_base(
13508 lapack_int
const* n,
13509 lapack_complex_float* A, lapack_int
const* lda,
13511#ifdef LAPACK_FORTRAN_STRLEN_END
13515#ifdef LAPACK_FORTRAN_STRLEN_END
13516 #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__, 1)
13518 #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__)
13521#define LAPACK_dpotri_base LAPACK_GLOBAL(dpotri,DPOTRI)
13522void LAPACK_dpotri_base(
13524 lapack_int
const* n,
13525 double* A, lapack_int
const* lda,
13527#ifdef LAPACK_FORTRAN_STRLEN_END
13531#ifdef LAPACK_FORTRAN_STRLEN_END
13532 #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__, 1)
13534 #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__)
13537#define LAPACK_spotri_base LAPACK_GLOBAL(spotri,SPOTRI)
13538void LAPACK_spotri_base(
13540 lapack_int
const* n,
13541 float* A, lapack_int
const* lda,
13543#ifdef LAPACK_FORTRAN_STRLEN_END
13547#ifdef LAPACK_FORTRAN_STRLEN_END
13548 #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__, 1)
13550 #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__)
13553#define LAPACK_zpotri_base LAPACK_GLOBAL(zpotri,ZPOTRI)
13554void LAPACK_zpotri_base(
13556 lapack_int
const* n,
13557 lapack_complex_double* A, lapack_int
const* lda,
13559#ifdef LAPACK_FORTRAN_STRLEN_END
13563#ifdef LAPACK_FORTRAN_STRLEN_END
13564 #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__, 1)
13566 #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__)
13569#define LAPACK_cpotrs_base LAPACK_GLOBAL(cpotrs,CPOTRS)
13570void LAPACK_cpotrs_base(
13572 lapack_int
const* n, lapack_int
const* nrhs,
13573 lapack_complex_float
const* A, lapack_int
const* lda,
13574 lapack_complex_float* B, lapack_int
const* ldb,
13576#ifdef LAPACK_FORTRAN_STRLEN_END
13580#ifdef LAPACK_FORTRAN_STRLEN_END
13581 #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__, 1)
13583 #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__)
13586#define LAPACK_dpotrs_base LAPACK_GLOBAL(dpotrs,DPOTRS)
13587void LAPACK_dpotrs_base(
13589 lapack_int
const* n, lapack_int
const* nrhs,
13590 double const* A, lapack_int
const* lda,
13591 double* B, lapack_int
const* ldb,
13593#ifdef LAPACK_FORTRAN_STRLEN_END
13597#ifdef LAPACK_FORTRAN_STRLEN_END
13598 #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__, 1)
13600 #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__)
13603#define LAPACK_spotrs_base LAPACK_GLOBAL(spotrs,SPOTRS)
13604void LAPACK_spotrs_base(
13606 lapack_int
const* n, lapack_int
const* nrhs,
13607 float const* A, lapack_int
const* lda,
13608 float* B, lapack_int
const* ldb,
13610#ifdef LAPACK_FORTRAN_STRLEN_END
13614#ifdef LAPACK_FORTRAN_STRLEN_END
13615 #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__, 1)
13617 #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__)
13620#define LAPACK_zpotrs_base LAPACK_GLOBAL(zpotrs,ZPOTRS)
13621void LAPACK_zpotrs_base(
13623 lapack_int
const* n, lapack_int
const* nrhs,
13624 lapack_complex_double
const* A, lapack_int
const* lda,
13625 lapack_complex_double* B, lapack_int
const* ldb,
13627#ifdef LAPACK_FORTRAN_STRLEN_END
13631#ifdef LAPACK_FORTRAN_STRLEN_END
13632 #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__, 1)
13634 #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__)
13637#define LAPACK_cppcon_base LAPACK_GLOBAL(cppcon,CPPCON)
13638void LAPACK_cppcon_base(
13640 lapack_int
const* n,
13641 lapack_complex_float
const* AP,
13642 float const* anorm,
13644 lapack_complex_float* work,
13647#ifdef LAPACK_FORTRAN_STRLEN_END
13651#ifdef LAPACK_FORTRAN_STRLEN_END
13652 #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__, 1)
13654 #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__)
13657#define LAPACK_dppcon_base LAPACK_GLOBAL(dppcon,DPPCON)
13658void LAPACK_dppcon_base(
13660 lapack_int
const* n,
13662 double const* anorm,
13667#ifdef LAPACK_FORTRAN_STRLEN_END
13671#ifdef LAPACK_FORTRAN_STRLEN_END
13672 #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__, 1)
13674 #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__)
13677#define LAPACK_sppcon_base LAPACK_GLOBAL(sppcon,SPPCON)
13678void LAPACK_sppcon_base(
13680 lapack_int
const* n,
13682 float const* anorm,
13687#ifdef LAPACK_FORTRAN_STRLEN_END
13691#ifdef LAPACK_FORTRAN_STRLEN_END
13692 #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__, 1)
13694 #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__)
13697#define LAPACK_zppcon_base LAPACK_GLOBAL(zppcon,ZPPCON)
13698void LAPACK_zppcon_base(
13700 lapack_int
const* n,
13701 lapack_complex_double
const* AP,
13702 double const* anorm,
13704 lapack_complex_double* work,
13707#ifdef LAPACK_FORTRAN_STRLEN_END
13711#ifdef LAPACK_FORTRAN_STRLEN_END
13712 #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__, 1)
13714 #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__)
13717#define LAPACK_cppequ_base LAPACK_GLOBAL(cppequ,CPPEQU)
13718void LAPACK_cppequ_base(
13720 lapack_int
const* n,
13721 lapack_complex_float
const* AP,
13726#ifdef LAPACK_FORTRAN_STRLEN_END
13730#ifdef LAPACK_FORTRAN_STRLEN_END
13731 #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__, 1)
13733 #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__)
13736#define LAPACK_dppequ_base LAPACK_GLOBAL(dppequ,DPPEQU)
13737void LAPACK_dppequ_base(
13739 lapack_int
const* n,
13745#ifdef LAPACK_FORTRAN_STRLEN_END
13749#ifdef LAPACK_FORTRAN_STRLEN_END
13750 #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__, 1)
13752 #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__)
13755#define LAPACK_sppequ_base LAPACK_GLOBAL(sppequ,SPPEQU)
13756void LAPACK_sppequ_base(
13758 lapack_int
const* n,
13764#ifdef LAPACK_FORTRAN_STRLEN_END
13768#ifdef LAPACK_FORTRAN_STRLEN_END
13769 #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__, 1)
13771 #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__)
13774#define LAPACK_zppequ_base LAPACK_GLOBAL(zppequ,ZPPEQU)
13775void LAPACK_zppequ_base(
13777 lapack_int
const* n,
13778 lapack_complex_double
const* AP,
13783#ifdef LAPACK_FORTRAN_STRLEN_END
13787#ifdef LAPACK_FORTRAN_STRLEN_END
13788 #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__, 1)
13790 #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__)
13793#define LAPACK_cpprfs_base LAPACK_GLOBAL(cpprfs,CPPRFS)
13794void LAPACK_cpprfs_base(
13796 lapack_int
const* n, lapack_int
const* nrhs,
13797 lapack_complex_float
const* AP,
13798 lapack_complex_float
const* AFP,
13799 lapack_complex_float
const* B, lapack_int
const* ldb,
13800 lapack_complex_float* X, lapack_int
const* ldx,
13803 lapack_complex_float* work,
13806#ifdef LAPACK_FORTRAN_STRLEN_END
13810#ifdef LAPACK_FORTRAN_STRLEN_END
13811 #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__, 1)
13813 #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__)
13816#define LAPACK_dpprfs_base LAPACK_GLOBAL(dpprfs,DPPRFS)
13817void LAPACK_dpprfs_base(
13819 lapack_int
const* n, lapack_int
const* nrhs,
13822 double const* B, lapack_int
const* ldb,
13823 double* X, lapack_int
const* ldx,
13829#ifdef LAPACK_FORTRAN_STRLEN_END
13833#ifdef LAPACK_FORTRAN_STRLEN_END
13834 #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__, 1)
13836 #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__)
13839#define LAPACK_spprfs_base LAPACK_GLOBAL(spprfs,SPPRFS)
13840void LAPACK_spprfs_base(
13842 lapack_int
const* n, lapack_int
const* nrhs,
13845 float const* B, lapack_int
const* ldb,
13846 float* X, lapack_int
const* ldx,
13852#ifdef LAPACK_FORTRAN_STRLEN_END
13856#ifdef LAPACK_FORTRAN_STRLEN_END
13857 #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__, 1)
13859 #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__)
13862#define LAPACK_zpprfs_base LAPACK_GLOBAL(zpprfs,ZPPRFS)
13863void LAPACK_zpprfs_base(
13865 lapack_int
const* n, lapack_int
const* nrhs,
13866 lapack_complex_double
const* AP,
13867 lapack_complex_double
const* AFP,
13868 lapack_complex_double
const* B, lapack_int
const* ldb,
13869 lapack_complex_double* X, lapack_int
const* ldx,
13872 lapack_complex_double* work,
13875#ifdef LAPACK_FORTRAN_STRLEN_END
13879#ifdef LAPACK_FORTRAN_STRLEN_END
13880 #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__, 1)
13882 #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__)
13885#define LAPACK_cppsv_base LAPACK_GLOBAL(cppsv,CPPSV)
13886void LAPACK_cppsv_base(
13888 lapack_int
const* n, lapack_int
const* nrhs,
13889 lapack_complex_float* AP,
13890 lapack_complex_float* B, lapack_int
const* ldb,
13892#ifdef LAPACK_FORTRAN_STRLEN_END
13896#ifdef LAPACK_FORTRAN_STRLEN_END
13897 #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__, 1)
13899 #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__)
13902#define LAPACK_dppsv_base LAPACK_GLOBAL(dppsv,DPPSV)
13903void LAPACK_dppsv_base(
13905 lapack_int
const* n, lapack_int
const* nrhs,
13907 double* B, lapack_int
const* ldb,
13909#ifdef LAPACK_FORTRAN_STRLEN_END
13913#ifdef LAPACK_FORTRAN_STRLEN_END
13914 #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__, 1)
13916 #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__)
13919#define LAPACK_sppsv_base LAPACK_GLOBAL(sppsv,SPPSV)
13920void LAPACK_sppsv_base(
13922 lapack_int
const* n, lapack_int
const* nrhs,
13924 float* B, lapack_int
const* ldb,
13926#ifdef LAPACK_FORTRAN_STRLEN_END
13930#ifdef LAPACK_FORTRAN_STRLEN_END
13931 #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__, 1)
13933 #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__)
13936#define LAPACK_zppsv_base LAPACK_GLOBAL(zppsv,ZPPSV)
13937void LAPACK_zppsv_base(
13939 lapack_int
const* n, lapack_int
const* nrhs,
13940 lapack_complex_double* AP,
13941 lapack_complex_double* B, lapack_int
const* ldb,
13943#ifdef LAPACK_FORTRAN_STRLEN_END
13947#ifdef LAPACK_FORTRAN_STRLEN_END
13948 #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__, 1)
13950 #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__)
13953#define LAPACK_cppsvx_base LAPACK_GLOBAL(cppsvx,CPPSVX)
13954void LAPACK_cppsvx_base(
13955 char const* fact,
char const* uplo,
13956 lapack_int
const* n, lapack_int
const* nrhs,
13957 lapack_complex_float* AP,
13958 lapack_complex_float* AFP,
char* equed,
13960 lapack_complex_float* B,
13961 lapack_int
const* ldb,
13962 lapack_complex_float* X, lapack_int
const* ldx,
13966 lapack_complex_float* work,
13969#ifdef LAPACK_FORTRAN_STRLEN_END
13970 ,
size_t,
size_t,
size_t
13973#ifdef LAPACK_FORTRAN_STRLEN_END
13974 #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__, 1, 1, 1)
13976 #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__)
13979#define LAPACK_dppsvx_base LAPACK_GLOBAL(dppsvx,DPPSVX)
13980void LAPACK_dppsvx_base(
13981 char const* fact,
char const* uplo,
13982 lapack_int
const* n, lapack_int
const* nrhs,
13984 double* AFP,
char* equed,
13987 lapack_int
const* ldb,
13988 double* X, lapack_int
const* ldx,
13995#ifdef LAPACK_FORTRAN_STRLEN_END
13996 ,
size_t,
size_t,
size_t
13999#ifdef LAPACK_FORTRAN_STRLEN_END
14000 #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__, 1, 1, 1)
14002 #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__)
14005#define LAPACK_sppsvx_base LAPACK_GLOBAL(sppsvx,SPPSVX)
14006void LAPACK_sppsvx_base(
14007 char const* fact,
char const* uplo,
14008 lapack_int
const* n, lapack_int
const* nrhs,
14010 float* AFP,
char* equed,
14013 lapack_int
const* ldb,
14014 float* X, lapack_int
const* ldx,
14021#ifdef LAPACK_FORTRAN_STRLEN_END
14022 ,
size_t,
size_t,
size_t
14025#ifdef LAPACK_FORTRAN_STRLEN_END
14026 #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__, 1, 1, 1)
14028 #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__)
14031#define LAPACK_zppsvx_base LAPACK_GLOBAL(zppsvx,ZPPSVX)
14032void LAPACK_zppsvx_base(
14033 char const* fact,
char const* uplo,
14034 lapack_int
const* n, lapack_int
const* nrhs,
14035 lapack_complex_double* AP,
14036 lapack_complex_double* AFP,
char* equed,
14038 lapack_complex_double* B,
14039 lapack_int
const* ldb,
14040 lapack_complex_double* X, lapack_int
const* ldx,
14044 lapack_complex_double* work,
14047#ifdef LAPACK_FORTRAN_STRLEN_END
14048 ,
size_t,
size_t,
size_t
14051#ifdef LAPACK_FORTRAN_STRLEN_END
14052 #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__, 1, 1, 1)
14054 #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__)
14057#define LAPACK_cpptrf_base LAPACK_GLOBAL(cpptrf,CPPTRF)
14058void LAPACK_cpptrf_base(
14060 lapack_int
const* n,
14061 lapack_complex_float* AP,
14063#ifdef LAPACK_FORTRAN_STRLEN_END
14067#ifdef LAPACK_FORTRAN_STRLEN_END
14068 #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__, 1)
14070 #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__)
14073#define LAPACK_dpptrf_base LAPACK_GLOBAL(dpptrf,DPPTRF)
14074void LAPACK_dpptrf_base(
14076 lapack_int
const* n,
14079#ifdef LAPACK_FORTRAN_STRLEN_END
14083#ifdef LAPACK_FORTRAN_STRLEN_END
14084 #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__, 1)
14086 #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__)
14089#define LAPACK_spptrf_base LAPACK_GLOBAL(spptrf,SPPTRF)
14090void LAPACK_spptrf_base(
14092 lapack_int
const* n,
14095#ifdef LAPACK_FORTRAN_STRLEN_END
14099#ifdef LAPACK_FORTRAN_STRLEN_END
14100 #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__, 1)
14102 #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__)
14105#define LAPACK_zpptrf_base LAPACK_GLOBAL(zpptrf,ZPPTRF)
14106void LAPACK_zpptrf_base(
14108 lapack_int
const* n,
14109 lapack_complex_double* AP,
14111#ifdef LAPACK_FORTRAN_STRLEN_END
14115#ifdef LAPACK_FORTRAN_STRLEN_END
14116 #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__, 1)
14118 #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__)
14121#define LAPACK_cpptri_base LAPACK_GLOBAL(cpptri,CPPTRI)
14122void LAPACK_cpptri_base(
14124 lapack_int
const* n,
14125 lapack_complex_float* AP,
14127#ifdef LAPACK_FORTRAN_STRLEN_END
14131#ifdef LAPACK_FORTRAN_STRLEN_END
14132 #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__, 1)
14134 #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__)
14137#define LAPACK_dpptri_base LAPACK_GLOBAL(dpptri,DPPTRI)
14138void LAPACK_dpptri_base(
14140 lapack_int
const* n,
14143#ifdef LAPACK_FORTRAN_STRLEN_END
14147#ifdef LAPACK_FORTRAN_STRLEN_END
14148 #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__, 1)
14150 #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__)
14153#define LAPACK_spptri_base LAPACK_GLOBAL(spptri,SPPTRI)
14154void LAPACK_spptri_base(
14156 lapack_int
const* n,
14159#ifdef LAPACK_FORTRAN_STRLEN_END
14163#ifdef LAPACK_FORTRAN_STRLEN_END
14164 #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__, 1)
14166 #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__)
14169#define LAPACK_zpptri_base LAPACK_GLOBAL(zpptri,ZPPTRI)
14170void LAPACK_zpptri_base(
14172 lapack_int
const* n,
14173 lapack_complex_double* AP,
14175#ifdef LAPACK_FORTRAN_STRLEN_END
14179#ifdef LAPACK_FORTRAN_STRLEN_END
14180 #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__, 1)
14182 #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__)
14185#define LAPACK_cpptrs_base LAPACK_GLOBAL(cpptrs,CPPTRS)
14186void LAPACK_cpptrs_base(
14188 lapack_int
const* n, lapack_int
const* nrhs,
14189 lapack_complex_float
const* AP,
14190 lapack_complex_float* B, lapack_int
const* ldb,
14192#ifdef LAPACK_FORTRAN_STRLEN_END
14196#ifdef LAPACK_FORTRAN_STRLEN_END
14197 #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__, 1)
14199 #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__)
14202#define LAPACK_dpptrs_base LAPACK_GLOBAL(dpptrs,DPPTRS)
14203void LAPACK_dpptrs_base(
14205 lapack_int
const* n, lapack_int
const* nrhs,
14207 double* B, lapack_int
const* ldb,
14209#ifdef LAPACK_FORTRAN_STRLEN_END
14213#ifdef LAPACK_FORTRAN_STRLEN_END
14214 #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__, 1)
14216 #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__)
14219#define LAPACK_spptrs_base LAPACK_GLOBAL(spptrs,SPPTRS)
14220void LAPACK_spptrs_base(
14222 lapack_int
const* n, lapack_int
const* nrhs,
14224 float* B, lapack_int
const* ldb,
14226#ifdef LAPACK_FORTRAN_STRLEN_END
14230#ifdef LAPACK_FORTRAN_STRLEN_END
14231 #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__, 1)
14233 #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__)
14236#define LAPACK_zpptrs_base LAPACK_GLOBAL(zpptrs,ZPPTRS)
14237void LAPACK_zpptrs_base(
14239 lapack_int
const* n, lapack_int
const* nrhs,
14240 lapack_complex_double
const* AP,
14241 lapack_complex_double* B, lapack_int
const* ldb,
14243#ifdef LAPACK_FORTRAN_STRLEN_END
14247#ifdef LAPACK_FORTRAN_STRLEN_END
14248 #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__, 1)
14250 #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__)
14253#define LAPACK_cpstrf_base LAPACK_GLOBAL(cpstrf,CPSTRF)
14254void LAPACK_cpstrf_base(
14256 lapack_int
const* n,
14257 lapack_complex_float* A, lapack_int
const* lda, lapack_int* piv, lapack_int* rank,
14261#ifdef LAPACK_FORTRAN_STRLEN_END
14265#ifdef LAPACK_FORTRAN_STRLEN_END
14266 #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__, 1)
14268 #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__)
14271#define LAPACK_dpstrf_base LAPACK_GLOBAL(dpstrf,DPSTRF)
14272void LAPACK_dpstrf_base(
14274 lapack_int
const* n,
14275 double* A, lapack_int
const* lda, lapack_int* piv, lapack_int* rank,
14279#ifdef LAPACK_FORTRAN_STRLEN_END
14283#ifdef LAPACK_FORTRAN_STRLEN_END
14284 #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__, 1)
14286 #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__)
14289#define LAPACK_spstrf_base LAPACK_GLOBAL(spstrf,SPSTRF)
14290void LAPACK_spstrf_base(
14292 lapack_int
const* n,
14293 float* A, lapack_int
const* lda, lapack_int* piv, lapack_int* rank,
14297#ifdef LAPACK_FORTRAN_STRLEN_END
14301#ifdef LAPACK_FORTRAN_STRLEN_END
14302 #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__, 1)
14304 #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__)
14307#define LAPACK_zpstrf_base LAPACK_GLOBAL(zpstrf,ZPSTRF)
14308void LAPACK_zpstrf_base(
14310 lapack_int
const* n,
14311 lapack_complex_double* A, lapack_int
const* lda, lapack_int* piv, lapack_int* rank,
14315#ifdef LAPACK_FORTRAN_STRLEN_END
14319#ifdef LAPACK_FORTRAN_STRLEN_END
14320 #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__, 1)
14322 #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__)
14325#define LAPACK_cptcon LAPACK_GLOBAL(cptcon,CPTCON)
14327 lapack_int
const* n,
14329 lapack_complex_float
const* E,
14330 float const* anorm,
14333 lapack_int* info );
14335#define LAPACK_dptcon LAPACK_GLOBAL(dptcon,DPTCON)
14337 lapack_int
const* n,
14340 double const* anorm,
14343 lapack_int* info );
14345#define LAPACK_sptcon LAPACK_GLOBAL(sptcon,SPTCON)
14347 lapack_int
const* n,
14350 float const* anorm,
14353 lapack_int* info );
14355#define LAPACK_zptcon LAPACK_GLOBAL(zptcon,ZPTCON)
14357 lapack_int
const* n,
14359 lapack_complex_double
const* E,
14360 double const* anorm,
14363 lapack_int* info );
14365#define LAPACK_cpteqr_base LAPACK_GLOBAL(cpteqr,CPTEQR)
14366void LAPACK_cpteqr_base(
14368 lapack_int
const* n,
14371 lapack_complex_float* Z, lapack_int
const* ldz,
14374#ifdef LAPACK_FORTRAN_STRLEN_END
14378#ifdef LAPACK_FORTRAN_STRLEN_END
14379 #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__, 1)
14381 #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__)
14384#define LAPACK_dpteqr_base LAPACK_GLOBAL(dpteqr,DPTEQR)
14385void LAPACK_dpteqr_base(
14387 lapack_int
const* n,
14390 double* Z, lapack_int
const* ldz,
14393#ifdef LAPACK_FORTRAN_STRLEN_END
14397#ifdef LAPACK_FORTRAN_STRLEN_END
14398 #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__, 1)
14400 #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__)
14403#define LAPACK_spteqr_base LAPACK_GLOBAL(spteqr,SPTEQR)
14404void LAPACK_spteqr_base(
14406 lapack_int
const* n,
14409 float* Z, lapack_int
const* ldz,
14412#ifdef LAPACK_FORTRAN_STRLEN_END
14416#ifdef LAPACK_FORTRAN_STRLEN_END
14417 #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__, 1)
14419 #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__)
14422#define LAPACK_zpteqr_base LAPACK_GLOBAL(zpteqr,ZPTEQR)
14423void LAPACK_zpteqr_base(
14425 lapack_int
const* n,
14428 lapack_complex_double* Z, lapack_int
const* ldz,
14431#ifdef LAPACK_FORTRAN_STRLEN_END
14435#ifdef LAPACK_FORTRAN_STRLEN_END
14436 #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__, 1)
14438 #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__)
14441#define LAPACK_cptrfs_base LAPACK_GLOBAL(cptrfs,CPTRFS)
14442void LAPACK_cptrfs_base(
14444 lapack_int
const* n, lapack_int
const* nrhs,
14446 lapack_complex_float
const* E,
14448 lapack_complex_float
const* EF,
14449 lapack_complex_float
const* B, lapack_int
const* ldb,
14450 lapack_complex_float* X, lapack_int
const* ldx,
14453 lapack_complex_float* work,
14456#ifdef LAPACK_FORTRAN_STRLEN_END
14460#ifdef LAPACK_FORTRAN_STRLEN_END
14461 #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__, 1)
14463 #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__)
14466#define LAPACK_dptrfs LAPACK_GLOBAL(dptrfs,DPTRFS)
14468 lapack_int
const* n, lapack_int
const* nrhs,
14473 double const* B, lapack_int
const* ldb,
14474 double* X, lapack_int
const* ldx,
14478 lapack_int* info );
14480#define LAPACK_sptrfs LAPACK_GLOBAL(sptrfs,SPTRFS)
14482 lapack_int
const* n, lapack_int
const* nrhs,
14487 float const* B, lapack_int
const* ldb,
14488 float* X, lapack_int
const* ldx,
14492 lapack_int* info );
14494#define LAPACK_zptrfs_base LAPACK_GLOBAL(zptrfs,ZPTRFS)
14495void LAPACK_zptrfs_base(
14497 lapack_int
const* n, lapack_int
const* nrhs,
14499 lapack_complex_double
const* E,
14501 lapack_complex_double
const* EF,
14502 lapack_complex_double
const* B, lapack_int
const* ldb,
14503 lapack_complex_double* X, lapack_int
const* ldx,
14506 lapack_complex_double* work,
14509#ifdef LAPACK_FORTRAN_STRLEN_END
14513#ifdef LAPACK_FORTRAN_STRLEN_END
14514 #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__, 1)
14516 #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__)
14519#define LAPACK_cptsv LAPACK_GLOBAL(cptsv,CPTSV)
14521 lapack_int
const* n, lapack_int
const* nrhs,
14523 lapack_complex_float* E,
14524 lapack_complex_float* B, lapack_int
const* ldb,
14525 lapack_int* info );
14527#define LAPACK_dptsv LAPACK_GLOBAL(dptsv,DPTSV)
14529 lapack_int
const* n, lapack_int
const* nrhs,
14532 double* B, lapack_int
const* ldb,
14533 lapack_int* info );
14535#define LAPACK_sptsv LAPACK_GLOBAL(sptsv,SPTSV)
14537 lapack_int
const* n, lapack_int
const* nrhs,
14540 float* B, lapack_int
const* ldb,
14541 lapack_int* info );
14543#define LAPACK_zptsv LAPACK_GLOBAL(zptsv,ZPTSV)
14545 lapack_int
const* n, lapack_int
const* nrhs,
14547 lapack_complex_double* E,
14548 lapack_complex_double* B, lapack_int
const* ldb,
14549 lapack_int* info );
14551#define LAPACK_cptsvx_base LAPACK_GLOBAL(cptsvx,CPTSVX)
14552void LAPACK_cptsvx_base(
14554 lapack_int
const* n, lapack_int
const* nrhs,
14556 lapack_complex_float
const* E,
14558 lapack_complex_float* EF,
14559 lapack_complex_float
const* B, lapack_int
const* ldb,
14560 lapack_complex_float* X, lapack_int
const* ldx,
14564 lapack_complex_float* work,
14567#ifdef LAPACK_FORTRAN_STRLEN_END
14571#ifdef LAPACK_FORTRAN_STRLEN_END
14572 #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__, 1)
14574 #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__)
14577#define LAPACK_dptsvx_base LAPACK_GLOBAL(dptsvx,DPTSVX)
14578void LAPACK_dptsvx_base(
14580 lapack_int
const* n, lapack_int
const* nrhs,
14585 double const* B, lapack_int
const* ldb,
14586 double* X, lapack_int
const* ldx,
14592#ifdef LAPACK_FORTRAN_STRLEN_END
14596#ifdef LAPACK_FORTRAN_STRLEN_END
14597 #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__, 1)
14599 #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__)
14602#define LAPACK_sptsvx_base LAPACK_GLOBAL(sptsvx,SPTSVX)
14603void LAPACK_sptsvx_base(
14605 lapack_int
const* n, lapack_int
const* nrhs,
14610 float const* B, lapack_int
const* ldb,
14611 float* X, lapack_int
const* ldx,
14617#ifdef LAPACK_FORTRAN_STRLEN_END
14621#ifdef LAPACK_FORTRAN_STRLEN_END
14622 #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__, 1)
14624 #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__)
14627#define LAPACK_zptsvx_base LAPACK_GLOBAL(zptsvx,ZPTSVX)
14628void LAPACK_zptsvx_base(
14630 lapack_int
const* n, lapack_int
const* nrhs,
14632 lapack_complex_double
const* E,
14634 lapack_complex_double* EF,
14635 lapack_complex_double
const* B, lapack_int
const* ldb,
14636 lapack_complex_double* X, lapack_int
const* ldx,
14640 lapack_complex_double* work,
14643#ifdef LAPACK_FORTRAN_STRLEN_END
14647#ifdef LAPACK_FORTRAN_STRLEN_END
14648 #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__, 1)
14650 #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__)
14653#define LAPACK_cpttrf LAPACK_GLOBAL(cpttrf,CPTTRF)
14655 lapack_int
const* n,
14657 lapack_complex_float* E,
14658 lapack_int* info );
14660#define LAPACK_dpttrf LAPACK_GLOBAL(dpttrf,DPTTRF)
14662 lapack_int
const* n,
14665 lapack_int* info );
14667#define LAPACK_spttrf LAPACK_GLOBAL(spttrf,SPTTRF)
14669 lapack_int
const* n,
14672 lapack_int* info );
14674#define LAPACK_zpttrf LAPACK_GLOBAL(zpttrf,ZPTTRF)
14676 lapack_int
const* n,
14678 lapack_complex_double* E,
14679 lapack_int* info );
14681#define LAPACK_cpttrs_base LAPACK_GLOBAL(cpttrs,CPTTRS)
14682void LAPACK_cpttrs_base(
14684 lapack_int
const* n, lapack_int
const* nrhs,
14686 lapack_complex_float
const* E,
14687 lapack_complex_float* B, lapack_int
const* ldb,
14689#ifdef LAPACK_FORTRAN_STRLEN_END
14693#ifdef LAPACK_FORTRAN_STRLEN_END
14694 #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__, 1)
14696 #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__)
14699#define LAPACK_dpttrs LAPACK_GLOBAL(dpttrs,DPTTRS)
14701 lapack_int
const* n, lapack_int
const* nrhs,
14704 double* B, lapack_int
const* ldb,
14705 lapack_int* info );
14707#define LAPACK_spttrs LAPACK_GLOBAL(spttrs,SPTTRS)
14709 lapack_int
const* n, lapack_int
const* nrhs,
14712 float* B, lapack_int
const* ldb,
14713 lapack_int* info );
14715#define LAPACK_zpttrs_base LAPACK_GLOBAL(zpttrs,ZPTTRS)
14716void LAPACK_zpttrs_base(
14718 lapack_int
const* n, lapack_int
const* nrhs,
14720 lapack_complex_double
const* E,
14721 lapack_complex_double* B, lapack_int
const* ldb,
14723#ifdef LAPACK_FORTRAN_STRLEN_END
14727#ifdef LAPACK_FORTRAN_STRLEN_END
14728 #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__, 1)
14730 #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__)
14733#define LAPACK_dsbev_base LAPACK_GLOBAL(dsbev,DSBEV)
14734void LAPACK_dsbev_base(
14735 char const* jobz,
char const* uplo,
14736 lapack_int
const* n, lapack_int
const* kd,
14737 double* AB, lapack_int
const* ldab,
14739 double* Z, lapack_int
const* ldz,
14742#ifdef LAPACK_FORTRAN_STRLEN_END
14746#ifdef LAPACK_FORTRAN_STRLEN_END
14747 #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__, 1, 1)
14749 #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__)
14752#define LAPACK_ssbev_base LAPACK_GLOBAL(ssbev,SSBEV)
14753void LAPACK_ssbev_base(
14754 char const* jobz,
char const* uplo,
14755 lapack_int
const* n, lapack_int
const* kd,
14756 float* AB, lapack_int
const* ldab,
14758 float* Z, lapack_int
const* ldz,
14761#ifdef LAPACK_FORTRAN_STRLEN_END
14765#ifdef LAPACK_FORTRAN_STRLEN_END
14766 #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__, 1, 1)
14768 #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__)
14771#define LAPACK_dsbev_2stage_base LAPACK_GLOBAL(dsbev_2stage,DSBEV_2STAGE)
14772void LAPACK_dsbev_2stage_base(
14773 char const* jobz,
char const* uplo,
14774 lapack_int
const* n, lapack_int
const* kd,
14775 double* AB, lapack_int
const* ldab,
14777 double* Z, lapack_int
const* ldz,
14778 double* work, lapack_int
const* lwork,
14780#ifdef LAPACK_FORTRAN_STRLEN_END
14784#ifdef LAPACK_FORTRAN_STRLEN_END
14785 #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__, 1, 1)
14787 #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__)
14790#define LAPACK_ssbev_2stage_base LAPACK_GLOBAL(ssbev_2stage,SSBEV_2STAGE)
14791void LAPACK_ssbev_2stage_base(
14792 char const* jobz,
char const* uplo,
14793 lapack_int
const* n, lapack_int
const* kd,
14794 float* AB, lapack_int
const* ldab,
14796 float* Z, lapack_int
const* ldz,
14797 float* work, lapack_int
const* lwork,
14799#ifdef LAPACK_FORTRAN_STRLEN_END
14803#ifdef LAPACK_FORTRAN_STRLEN_END
14804 #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__, 1, 1)
14806 #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__)
14809#define LAPACK_dsbevd_base LAPACK_GLOBAL(dsbevd,DSBEVD)
14810void LAPACK_dsbevd_base(
14811 char const* jobz,
char const* uplo,
14812 lapack_int
const* n, lapack_int
const* kd,
14813 double* AB, lapack_int
const* ldab,
14815 double* Z, lapack_int
const* ldz,
14816 double* work, lapack_int
const* lwork,
14817 lapack_int* iwork, lapack_int
const* liwork,
14819#ifdef LAPACK_FORTRAN_STRLEN_END
14823#ifdef LAPACK_FORTRAN_STRLEN_END
14824 #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__, 1, 1)
14826 #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__)
14829#define LAPACK_ssbevd_base LAPACK_GLOBAL(ssbevd,SSBEVD)
14830void LAPACK_ssbevd_base(
14831 char const* jobz,
char const* uplo,
14832 lapack_int
const* n, lapack_int
const* kd,
14833 float* AB, lapack_int
const* ldab,
14835 float* Z, lapack_int
const* ldz,
14836 float* work, lapack_int
const* lwork,
14837 lapack_int* iwork, lapack_int
const* liwork,
14839#ifdef LAPACK_FORTRAN_STRLEN_END
14843#ifdef LAPACK_FORTRAN_STRLEN_END
14844 #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__, 1, 1)
14846 #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__)
14849#define LAPACK_dsbevd_2stage_base LAPACK_GLOBAL(dsbevd_2stage,DSBEVD_2STAGE)
14850void LAPACK_dsbevd_2stage_base(
14851 char const* jobz,
char const* uplo,
14852 lapack_int
const* n, lapack_int
const* kd,
14853 double* AB, lapack_int
const* ldab,
14855 double* Z, lapack_int
const* ldz,
14856 double* work, lapack_int
const* lwork,
14857 lapack_int* iwork, lapack_int
const* liwork,
14859#ifdef LAPACK_FORTRAN_STRLEN_END
14863#ifdef LAPACK_FORTRAN_STRLEN_END
14864 #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__, 1, 1)
14866 #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__)
14869#define LAPACK_ssbevd_2stage_base LAPACK_GLOBAL(ssbevd_2stage,SSBEVD_2STAGE)
14870void LAPACK_ssbevd_2stage_base(
14871 char const* jobz,
char const* uplo,
14872 lapack_int
const* n, lapack_int
const* kd,
14873 float* AB, lapack_int
const* ldab,
14875 float* Z, lapack_int
const* ldz,
14876 float* work, lapack_int
const* lwork,
14877 lapack_int* iwork, lapack_int
const* liwork,
14879#ifdef LAPACK_FORTRAN_STRLEN_END
14883#ifdef LAPACK_FORTRAN_STRLEN_END
14884 #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__, 1, 1)
14886 #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__)
14889#define LAPACK_dsbevx_base LAPACK_GLOBAL(dsbevx,DSBEVX)
14890void LAPACK_dsbevx_base(
14891 char const* jobz,
char const* range,
char const* uplo,
14892 lapack_int
const* n, lapack_int
const* kd,
14893 double* AB, lapack_int
const* ldab,
14894 double* Q, lapack_int
const* ldq,
14896 double const* vu, lapack_int
const* il, lapack_int
const* iu,
14897 double const* abstol, lapack_int* m,
14899 double* Z, lapack_int
const* ldz,
14901 lapack_int* iwork, lapack_int* IFAIL,
14903#ifdef LAPACK_FORTRAN_STRLEN_END
14904 ,
size_t,
size_t,
size_t
14907#ifdef LAPACK_FORTRAN_STRLEN_END
14908 #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__, 1, 1, 1)
14910 #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__)
14913#define LAPACK_ssbevx_base LAPACK_GLOBAL(ssbevx,SSBEVX)
14914void LAPACK_ssbevx_base(
14915 char const* jobz,
char const* range,
char const* uplo,
14916 lapack_int
const* n, lapack_int
const* kd,
14917 float* AB, lapack_int
const* ldab,
14918 float* Q, lapack_int
const* ldq,
14920 float const* vu, lapack_int
const* il, lapack_int
const* iu,
14921 float const* abstol, lapack_int* m,
14923 float* Z, lapack_int
const* ldz,
14925 lapack_int* iwork, lapack_int* IFAIL,
14927#ifdef LAPACK_FORTRAN_STRLEN_END
14928 ,
size_t,
size_t,
size_t
14931#ifdef LAPACK_FORTRAN_STRLEN_END
14932 #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__, 1, 1, 1)
14934 #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__)
14937#define LAPACK_dsbevx_2stage_base LAPACK_GLOBAL(dsbevx_2stage,DSBEVX_2STAGE)
14938void LAPACK_dsbevx_2stage_base(
14939 char const* jobz,
char const* range,
char const* uplo,
14940 lapack_int
const* n, lapack_int
const* kd,
14941 double* AB, lapack_int
const* ldab,
14942 double* Q, lapack_int
const* ldq,
14944 double const* vu, lapack_int
const* il, lapack_int
const* iu,
14945 double const* abstol, lapack_int* m,
14947 double* Z, lapack_int
const* ldz,
14948 double* work, lapack_int
const* lwork,
14949 lapack_int* iwork, lapack_int* IFAIL,
14951#ifdef LAPACK_FORTRAN_STRLEN_END
14952 ,
size_t,
size_t,
size_t
14955#ifdef LAPACK_FORTRAN_STRLEN_END
14956 #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
14958 #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__)
14961#define LAPACK_ssbevx_2stage_base LAPACK_GLOBAL(ssbevx_2stage,SSBEVX_2STAGE)
14962void LAPACK_ssbevx_2stage_base(
14963 char const* jobz,
char const* range,
char const* uplo,
14964 lapack_int
const* n, lapack_int
const* kd,
14965 float* AB, lapack_int
const* ldab,
14966 float* Q, lapack_int
const* ldq,
14968 float const* vu, lapack_int
const* il, lapack_int
const* iu,
14969 float const* abstol, lapack_int* m,
14971 float* Z, lapack_int
const* ldz,
14972 float* work, lapack_int
const* lwork,
14973 lapack_int* iwork, lapack_int* IFAIL,
14975#ifdef LAPACK_FORTRAN_STRLEN_END
14976 ,
size_t,
size_t,
size_t
14979#ifdef LAPACK_FORTRAN_STRLEN_END
14980 #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
14982 #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__)
14985#define LAPACK_dsbgst_base LAPACK_GLOBAL(dsbgst,DSBGST)
14986void LAPACK_dsbgst_base(
14987 char const* vect,
char const* uplo,
14988 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
14989 double* AB, lapack_int
const* ldab,
14990 double const* BB, lapack_int
const* ldbb,
14991 double* X, lapack_int
const* ldx,
14994#ifdef LAPACK_FORTRAN_STRLEN_END
14998#ifdef LAPACK_FORTRAN_STRLEN_END
14999 #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__, 1, 1)
15001 #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__)
15004#define LAPACK_ssbgst_base LAPACK_GLOBAL(ssbgst,SSBGST)
15005void LAPACK_ssbgst_base(
15006 char const* vect,
char const* uplo,
15007 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
15008 float* AB, lapack_int
const* ldab,
15009 float const* BB, lapack_int
const* ldbb,
15010 float* X, lapack_int
const* ldx,
15013#ifdef LAPACK_FORTRAN_STRLEN_END
15017#ifdef LAPACK_FORTRAN_STRLEN_END
15018 #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__, 1, 1)
15020 #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__)
15023#define LAPACK_dsbgv_base LAPACK_GLOBAL(dsbgv,DSBGV)
15024void LAPACK_dsbgv_base(
15025 char const* jobz,
char const* uplo,
15026 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
15027 double* AB, lapack_int
const* ldab,
15028 double* BB, lapack_int
const* ldbb,
15030 double* Z, lapack_int
const* ldz,
15033#ifdef LAPACK_FORTRAN_STRLEN_END
15037#ifdef LAPACK_FORTRAN_STRLEN_END
15038 #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__, 1, 1)
15040 #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__)
15043#define LAPACK_ssbgv_base LAPACK_GLOBAL(ssbgv,SSBGV)
15044void LAPACK_ssbgv_base(
15045 char const* jobz,
char const* uplo,
15046 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
15047 float* AB, lapack_int
const* ldab,
15048 float* BB, lapack_int
const* ldbb,
15050 float* Z, lapack_int
const* ldz,
15053#ifdef LAPACK_FORTRAN_STRLEN_END
15057#ifdef LAPACK_FORTRAN_STRLEN_END
15058 #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__, 1, 1)
15060 #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__)
15063#define LAPACK_dsbgvd_base LAPACK_GLOBAL(dsbgvd,DSBGVD)
15064void LAPACK_dsbgvd_base(
15065 char const* jobz,
char const* uplo,
15066 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
15067 double* AB, lapack_int
const* ldab,
15068 double* BB, lapack_int
const* ldbb,
15070 double* Z, lapack_int
const* ldz,
15071 double* work, lapack_int
const* lwork,
15072 lapack_int* iwork, lapack_int
const* liwork,
15074#ifdef LAPACK_FORTRAN_STRLEN_END
15078#ifdef LAPACK_FORTRAN_STRLEN_END
15079 #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__, 1, 1)
15081 #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__)
15084#define LAPACK_ssbgvd_base LAPACK_GLOBAL(ssbgvd,SSBGVD)
15085void LAPACK_ssbgvd_base(
15086 char const* jobz,
char const* uplo,
15087 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
15088 float* AB, lapack_int
const* ldab,
15089 float* BB, lapack_int
const* ldbb,
15091 float* Z, lapack_int
const* ldz,
15092 float* work, lapack_int
const* lwork,
15093 lapack_int* iwork, lapack_int
const* liwork,
15095#ifdef LAPACK_FORTRAN_STRLEN_END
15099#ifdef LAPACK_FORTRAN_STRLEN_END
15100 #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__, 1, 1)
15102 #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__)
15105#define LAPACK_dsbgvx_base LAPACK_GLOBAL(dsbgvx,DSBGVX)
15106void LAPACK_dsbgvx_base(
15107 char const* jobz,
char const* range,
char const* uplo,
15108 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
15109 double* AB, lapack_int
const* ldab,
15110 double* BB, lapack_int
const* ldbb,
15111 double* Q, lapack_int
const* ldq,
15113 double const* vu, lapack_int
const* il, lapack_int
const* iu,
15114 double const* abstol, lapack_int* m,
15116 double* Z, lapack_int
const* ldz,
15118 lapack_int* iwork, lapack_int* IFAIL,
15120#ifdef LAPACK_FORTRAN_STRLEN_END
15121 ,
size_t,
size_t,
size_t
15124#ifdef LAPACK_FORTRAN_STRLEN_END
15125 #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__, 1, 1, 1)
15127 #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__)
15130#define LAPACK_ssbgvx_base LAPACK_GLOBAL(ssbgvx,SSBGVX)
15131void LAPACK_ssbgvx_base(
15132 char const* jobz,
char const* range,
char const* uplo,
15133 lapack_int
const* n, lapack_int
const* ka, lapack_int
const* kb,
15134 float* AB, lapack_int
const* ldab,
15135 float* BB, lapack_int
const* ldbb,
15136 float* Q, lapack_int
const* ldq,
15138 float const* vu, lapack_int
const* il, lapack_int
const* iu,
15139 float const* abstol, lapack_int* m,
15141 float* Z, lapack_int
const* ldz,
15143 lapack_int* iwork, lapack_int* IFAIL,
15145#ifdef LAPACK_FORTRAN_STRLEN_END
15146 ,
size_t,
size_t,
size_t
15149#ifdef LAPACK_FORTRAN_STRLEN_END
15150 #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__, 1, 1, 1)
15152 #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__)
15155#define LAPACK_dsbtrd_base LAPACK_GLOBAL(dsbtrd,DSBTRD)
15156void LAPACK_dsbtrd_base(
15157 char const* vect,
char const* uplo,
15158 lapack_int
const* n, lapack_int
const* kd,
15159 double* AB, lapack_int
const* ldab,
15162 double* Q, lapack_int
const* ldq,
15165#ifdef LAPACK_FORTRAN_STRLEN_END
15169#ifdef LAPACK_FORTRAN_STRLEN_END
15170 #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__, 1, 1)
15172 #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__)
15175#define LAPACK_ssbtrd_base LAPACK_GLOBAL(ssbtrd,SSBTRD)
15176void LAPACK_ssbtrd_base(
15177 char const* vect,
char const* uplo,
15178 lapack_int
const* n, lapack_int
const* kd,
15179 float* AB, lapack_int
const* ldab,
15182 float* Q, lapack_int
const* ldq,
15185#ifdef LAPACK_FORTRAN_STRLEN_END
15189#ifdef LAPACK_FORTRAN_STRLEN_END
15190 #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__, 1, 1)
15192 #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__)
15195#define LAPACK_dsfrk_base LAPACK_GLOBAL(dsfrk,DSFRK)
15196void LAPACK_dsfrk_base(
15197 char const* transr,
char const* uplo,
char const* trans,
15198 lapack_int
const* n, lapack_int
const* k,
15199 double const* alpha,
15200 double const* A, lapack_int
const* lda,
15201 double const* beta,
15203#ifdef LAPACK_FORTRAN_STRLEN_END
15204 ,
size_t,
size_t,
size_t
15207#ifdef LAPACK_FORTRAN_STRLEN_END
15208 #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__, 1, 1, 1)
15210 #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__)
15213#define LAPACK_ssfrk_base LAPACK_GLOBAL(ssfrk,SSFRK)
15214void LAPACK_ssfrk_base(
15215 char const* transr,
char const* uplo,
char const* trans,
15216 lapack_int
const* n, lapack_int
const* k,
15217 float const* alpha,
15218 float const* A, lapack_int
const* lda,
15221#ifdef LAPACK_FORTRAN_STRLEN_END
15222 ,
size_t,
size_t,
size_t
15225#ifdef LAPACK_FORTRAN_STRLEN_END
15226 #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__, 1, 1, 1)
15228 #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__)
15231#define LAPACK_cspcon_base LAPACK_GLOBAL(cspcon,CSPCON)
15232void LAPACK_cspcon_base(
15234 lapack_int
const* n,
15235 lapack_complex_float
const* AP, lapack_int
const* ipiv,
15236 float const* anorm,
15238 lapack_complex_float* work,
15240#ifdef LAPACK_FORTRAN_STRLEN_END
15244#ifdef LAPACK_FORTRAN_STRLEN_END
15245 #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__, 1)
15247 #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__)
15250#define LAPACK_dspcon_base LAPACK_GLOBAL(dspcon,DSPCON)
15251void LAPACK_dspcon_base(
15253 lapack_int
const* n,
15254 double const* AP, lapack_int
const* ipiv,
15255 double const* anorm,
15260#ifdef LAPACK_FORTRAN_STRLEN_END
15264#ifdef LAPACK_FORTRAN_STRLEN_END
15265 #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__, 1)
15267 #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__)
15270#define LAPACK_sspcon_base LAPACK_GLOBAL(sspcon,SSPCON)
15271void LAPACK_sspcon_base(
15273 lapack_int
const* n,
15274 float const* AP, lapack_int
const* ipiv,
15275 float const* anorm,
15280#ifdef LAPACK_FORTRAN_STRLEN_END
15284#ifdef LAPACK_FORTRAN_STRLEN_END
15285 #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__, 1)
15287 #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__)
15290#define LAPACK_zspcon_base LAPACK_GLOBAL(zspcon,ZSPCON)
15291void LAPACK_zspcon_base(
15293 lapack_int
const* n,
15294 lapack_complex_double
const* AP, lapack_int
const* ipiv,
15295 double const* anorm,
15297 lapack_complex_double* work,
15299#ifdef LAPACK_FORTRAN_STRLEN_END
15303#ifdef LAPACK_FORTRAN_STRLEN_END
15304 #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__, 1)
15306 #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__)
15309#define LAPACK_dspev_base LAPACK_GLOBAL(dspev,DSPEV)
15310void LAPACK_dspev_base(
15311 char const* jobz,
char const* uplo,
15312 lapack_int
const* n,
15315 double* Z, lapack_int
const* ldz,
15318#ifdef LAPACK_FORTRAN_STRLEN_END
15322#ifdef LAPACK_FORTRAN_STRLEN_END
15323 #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__, 1, 1)
15325 #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__)
15328#define LAPACK_sspev_base LAPACK_GLOBAL(sspev,SSPEV)
15329void LAPACK_sspev_base(
15330 char const* jobz,
char const* uplo,
15331 lapack_int
const* n,
15334 float* Z, lapack_int
const* ldz,
15337#ifdef LAPACK_FORTRAN_STRLEN_END
15341#ifdef LAPACK_FORTRAN_STRLEN_END
15342 #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__, 1, 1)
15344 #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__)
15347#define LAPACK_dspevd_base LAPACK_GLOBAL(dspevd,DSPEVD)
15348void LAPACK_dspevd_base(
15349 char const* jobz,
char const* uplo,
15350 lapack_int
const* n,
15353 double* Z, lapack_int
const* ldz,
15354 double* work, lapack_int
const* lwork,
15355 lapack_int* iwork, lapack_int
const* liwork,
15357#ifdef LAPACK_FORTRAN_STRLEN_END
15361#ifdef LAPACK_FORTRAN_STRLEN_END
15362 #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__, 1, 1)
15364 #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__)
15367#define LAPACK_sspevd_base LAPACK_GLOBAL(sspevd,SSPEVD)
15368void LAPACK_sspevd_base(
15369 char const* jobz,
char const* uplo,
15370 lapack_int
const* n,
15373 float* Z, lapack_int
const* ldz,
15374 float* work, lapack_int
const* lwork,
15375 lapack_int* iwork, lapack_int
const* liwork,
15377#ifdef LAPACK_FORTRAN_STRLEN_END
15381#ifdef LAPACK_FORTRAN_STRLEN_END
15382 #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__, 1, 1)
15384 #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__)
15387#define LAPACK_dspevx_base LAPACK_GLOBAL(dspevx,DSPEVX)
15388void LAPACK_dspevx_base(
15389 char const* jobz,
char const* range,
char const* uplo,
15390 lapack_int
const* n,
15393 double const* vu, lapack_int
const* il, lapack_int
const* iu,
15394 double const* abstol, lapack_int* m,
15396 double* Z, lapack_int
const* ldz,
15398 lapack_int* iwork, lapack_int* IFAIL,
15400#ifdef LAPACK_FORTRAN_STRLEN_END
15401 ,
size_t,
size_t,
size_t
15404#ifdef LAPACK_FORTRAN_STRLEN_END
15405 #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__, 1, 1, 1)
15407 #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__)
15410#define LAPACK_sspevx_base LAPACK_GLOBAL(sspevx,SSPEVX)
15411void LAPACK_sspevx_base(
15412 char const* jobz,
char const* range,
char const* uplo,
15413 lapack_int
const* n,
15416 float const* vu, lapack_int
const* il, lapack_int
const* iu,
15417 float const* abstol, lapack_int* m,
15419 float* Z, lapack_int
const* ldz,
15421 lapack_int* iwork, lapack_int* IFAIL,
15423#ifdef LAPACK_FORTRAN_STRLEN_END
15424 ,
size_t,
size_t,
size_t
15427#ifdef LAPACK_FORTRAN_STRLEN_END
15428 #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__, 1, 1, 1)
15430 #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__)
15433#define LAPACK_dspgst_base LAPACK_GLOBAL(dspgst,DSPGST)
15434void LAPACK_dspgst_base(
15435 lapack_int
const* itype,
char const* uplo,
15436 lapack_int
const* n,
15440#ifdef LAPACK_FORTRAN_STRLEN_END
15444#ifdef LAPACK_FORTRAN_STRLEN_END
15445 #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__, 1)
15447 #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__)
15450#define LAPACK_sspgst_base LAPACK_GLOBAL(sspgst,SSPGST)
15451void LAPACK_sspgst_base(
15452 lapack_int
const* itype,
char const* uplo,
15453 lapack_int
const* n,
15457#ifdef LAPACK_FORTRAN_STRLEN_END
15461#ifdef LAPACK_FORTRAN_STRLEN_END
15462 #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__, 1)
15464 #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__)
15467#define LAPACK_dspgv_base LAPACK_GLOBAL(dspgv,DSPGV)
15468void LAPACK_dspgv_base(
15469 lapack_int
const* itype,
char const* jobz,
char const* uplo,
15470 lapack_int
const* n,
15474 double* Z, lapack_int
const* ldz,
15477#ifdef LAPACK_FORTRAN_STRLEN_END
15481#ifdef LAPACK_FORTRAN_STRLEN_END
15482 #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__, 1, 1)
15484 #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__)
15487#define LAPACK_sspgv_base LAPACK_GLOBAL(sspgv,SSPGV)
15488void LAPACK_sspgv_base(
15489 lapack_int
const* itype,
char const* jobz,
char const* uplo,
15490 lapack_int
const* n,
15494 float* Z, lapack_int
const* ldz,
15497#ifdef LAPACK_FORTRAN_STRLEN_END
15501#ifdef LAPACK_FORTRAN_STRLEN_END
15502 #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__, 1, 1)
15504 #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__)
15507#define LAPACK_dspgvd_base LAPACK_GLOBAL(dspgvd,DSPGVD)
15508void LAPACK_dspgvd_base(
15509 lapack_int
const* itype,
char const* jobz,
char const* uplo,
15510 lapack_int
const* n,
15514 double* Z, lapack_int
const* ldz,
15515 double* work, lapack_int
const* lwork,
15516 lapack_int* iwork, lapack_int
const* liwork,
15518#ifdef LAPACK_FORTRAN_STRLEN_END
15522#ifdef LAPACK_FORTRAN_STRLEN_END
15523 #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__, 1, 1)
15525 #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__)
15528#define LAPACK_sspgvd_base LAPACK_GLOBAL(sspgvd,SSPGVD)
15529void LAPACK_sspgvd_base(
15530 lapack_int
const* itype,
char const* jobz,
char const* uplo,
15531 lapack_int
const* n,
15535 float* Z, lapack_int
const* ldz,
15536 float* work, lapack_int
const* lwork,
15537 lapack_int* iwork, lapack_int
const* liwork,
15539#ifdef LAPACK_FORTRAN_STRLEN_END
15543#ifdef LAPACK_FORTRAN_STRLEN_END
15544 #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__, 1, 1)
15546 #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__)
15549#define LAPACK_dspgvx_base LAPACK_GLOBAL(dspgvx,DSPGVX)
15550void LAPACK_dspgvx_base(
15551 lapack_int
const* itype,
char const* jobz,
char const* range,
char const* uplo,
15552 lapack_int
const* n,
15556 double const* vu, lapack_int
const* il, lapack_int
const* iu,
15557 double const* abstol, lapack_int* m,
15559 double* Z, lapack_int
const* ldz,
15561 lapack_int* iwork, lapack_int* IFAIL,
15563#ifdef LAPACK_FORTRAN_STRLEN_END
15564 ,
size_t,
size_t,
size_t
15567#ifdef LAPACK_FORTRAN_STRLEN_END
15568 #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__, 1, 1, 1)
15570 #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__)
15573#define LAPACK_sspgvx_base LAPACK_GLOBAL(sspgvx,SSPGVX)
15574void LAPACK_sspgvx_base(
15575 lapack_int
const* itype,
char const* jobz,
char const* range,
char const* uplo,
15576 lapack_int
const* n,
15580 float const* vu, lapack_int
const* il, lapack_int
const* iu,
15581 float const* abstol, lapack_int* m,
15583 float* Z, lapack_int
const* ldz,
15585 lapack_int* iwork, lapack_int* IFAIL,
15587#ifdef LAPACK_FORTRAN_STRLEN_END
15588 ,
size_t,
size_t,
size_t
15591#ifdef LAPACK_FORTRAN_STRLEN_END
15592 #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__, 1, 1, 1)
15594 #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__)
15597#define LAPACK_csprfs_base LAPACK_GLOBAL(csprfs,CSPRFS)
15598void LAPACK_csprfs_base(
15600 lapack_int
const* n, lapack_int
const* nrhs,
15601 lapack_complex_float
const* AP,
15602 lapack_complex_float
const* AFP, lapack_int
const* ipiv,
15603 lapack_complex_float
const* B, lapack_int
const* ldb,
15604 lapack_complex_float* X, lapack_int
const* ldx,
15607 lapack_complex_float* work,
15610#ifdef LAPACK_FORTRAN_STRLEN_END
15614#ifdef LAPACK_FORTRAN_STRLEN_END
15615 #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__, 1)
15617 #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__)
15620#define LAPACK_dsprfs_base LAPACK_GLOBAL(dsprfs,DSPRFS)
15621void LAPACK_dsprfs_base(
15623 lapack_int
const* n, lapack_int
const* nrhs,
15625 double const* AFP, lapack_int
const* ipiv,
15626 double const* B, lapack_int
const* ldb,
15627 double* X, lapack_int
const* ldx,
15633#ifdef LAPACK_FORTRAN_STRLEN_END
15637#ifdef LAPACK_FORTRAN_STRLEN_END
15638 #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__, 1)
15640 #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__)
15643#define LAPACK_ssprfs_base LAPACK_GLOBAL(ssprfs,SSPRFS)
15644void LAPACK_ssprfs_base(
15646 lapack_int
const* n, lapack_int
const* nrhs,
15648 float const* AFP, lapack_int
const* ipiv,
15649 float const* B, lapack_int
const* ldb,
15650 float* X, lapack_int
const* ldx,
15656#ifdef LAPACK_FORTRAN_STRLEN_END
15660#ifdef LAPACK_FORTRAN_STRLEN_END
15661 #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__, 1)
15663 #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__)
15666#define LAPACK_zsprfs_base LAPACK_GLOBAL(zsprfs,ZSPRFS)
15667void LAPACK_zsprfs_base(
15669 lapack_int
const* n, lapack_int
const* nrhs,
15670 lapack_complex_double
const* AP,
15671 lapack_complex_double
const* AFP, lapack_int
const* ipiv,
15672 lapack_complex_double
const* B, lapack_int
const* ldb,
15673 lapack_complex_double* X, lapack_int
const* ldx,
15676 lapack_complex_double* work,
15679#ifdef LAPACK_FORTRAN_STRLEN_END
15683#ifdef LAPACK_FORTRAN_STRLEN_END
15684 #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__, 1)
15686 #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__)
15689#define LAPACK_cspsv_base LAPACK_GLOBAL(cspsv,CSPSV)
15690void LAPACK_cspsv_base(
15692 lapack_int
const* n, lapack_int
const* nrhs,
15693 lapack_complex_float* AP, lapack_int* ipiv,
15694 lapack_complex_float* B, lapack_int
const* ldb,
15696#ifdef LAPACK_FORTRAN_STRLEN_END
15700#ifdef LAPACK_FORTRAN_STRLEN_END
15701 #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__, 1)
15703 #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__)
15706#define LAPACK_dspsv_base LAPACK_GLOBAL(dspsv,DSPSV)
15707void LAPACK_dspsv_base(
15709 lapack_int
const* n, lapack_int
const* nrhs,
15710 double* AP, lapack_int* ipiv,
15711 double* B, lapack_int
const* ldb,
15713#ifdef LAPACK_FORTRAN_STRLEN_END
15717#ifdef LAPACK_FORTRAN_STRLEN_END
15718 #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__, 1)
15720 #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__)
15723#define LAPACK_sspsv_base LAPACK_GLOBAL(sspsv,SSPSV)
15724void LAPACK_sspsv_base(
15726 lapack_int
const* n, lapack_int
const* nrhs,
15727 float* AP, lapack_int* ipiv,
15728 float* B, lapack_int
const* ldb,
15730#ifdef LAPACK_FORTRAN_STRLEN_END
15734#ifdef LAPACK_FORTRAN_STRLEN_END
15735 #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__, 1)
15737 #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__)
15740#define LAPACK_zspsv_base LAPACK_GLOBAL(zspsv,ZSPSV)
15741void LAPACK_zspsv_base(
15743 lapack_int
const* n, lapack_int
const* nrhs,
15744 lapack_complex_double* AP, lapack_int* ipiv,
15745 lapack_complex_double* B, lapack_int
const* ldb,
15747#ifdef LAPACK_FORTRAN_STRLEN_END
15751#ifdef LAPACK_FORTRAN_STRLEN_END
15752 #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__, 1)
15754 #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__)
15757#define LAPACK_cspsvx_base LAPACK_GLOBAL(cspsvx,CSPSVX)
15758void LAPACK_cspsvx_base(
15759 char const* fact,
char const* uplo,
15760 lapack_int
const* n, lapack_int
const* nrhs,
15761 lapack_complex_float
const* AP,
15762 lapack_complex_float* AFP, lapack_int* ipiv,
15763 lapack_complex_float
const* B, lapack_int
const* ldb,
15764 lapack_complex_float* X, lapack_int
const* ldx,
15768 lapack_complex_float* work,
15771#ifdef LAPACK_FORTRAN_STRLEN_END
15775#ifdef LAPACK_FORTRAN_STRLEN_END
15776 #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__, 1, 1)
15778 #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__)
15781#define LAPACK_dspsvx_base LAPACK_GLOBAL(dspsvx,DSPSVX)
15782void LAPACK_dspsvx_base(
15783 char const* fact,
char const* uplo,
15784 lapack_int
const* n, lapack_int
const* nrhs,
15786 double* AFP, lapack_int* ipiv,
15787 double const* B, lapack_int
const* ldb,
15788 double* X, lapack_int
const* ldx,
15795#ifdef LAPACK_FORTRAN_STRLEN_END
15799#ifdef LAPACK_FORTRAN_STRLEN_END
15800 #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__, 1, 1)
15802 #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__)
15805#define LAPACK_sspsvx_base LAPACK_GLOBAL(sspsvx,SSPSVX)
15806void LAPACK_sspsvx_base(
15807 char const* fact,
char const* uplo,
15808 lapack_int
const* n, lapack_int
const* nrhs,
15810 float* AFP, lapack_int* ipiv,
15811 float const* B, lapack_int
const* ldb,
15812 float* X, lapack_int
const* ldx,
15819#ifdef LAPACK_FORTRAN_STRLEN_END
15823#ifdef LAPACK_FORTRAN_STRLEN_END
15824 #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__, 1, 1)
15826 #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__)
15829#define LAPACK_zspsvx_base LAPACK_GLOBAL(zspsvx,ZSPSVX)
15830void LAPACK_zspsvx_base(
15831 char const* fact,
char const* uplo,
15832 lapack_int
const* n, lapack_int
const* nrhs,
15833 lapack_complex_double
const* AP,
15834 lapack_complex_double* AFP, lapack_int* ipiv,
15835 lapack_complex_double
const* B, lapack_int
const* ldb,
15836 lapack_complex_double* X, lapack_int
const* ldx,
15840 lapack_complex_double* work,
15843#ifdef LAPACK_FORTRAN_STRLEN_END
15847#ifdef LAPACK_FORTRAN_STRLEN_END
15848 #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__, 1, 1)
15850 #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__)
15853#define LAPACK_dsptrd_base LAPACK_GLOBAL(dsptrd,DSPTRD)
15854void LAPACK_dsptrd_base(
15856 lapack_int
const* n,
15862#ifdef LAPACK_FORTRAN_STRLEN_END
15866#ifdef LAPACK_FORTRAN_STRLEN_END
15867 #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__, 1)
15869 #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__)
15872#define LAPACK_ssptrd_base LAPACK_GLOBAL(ssptrd,SSPTRD)
15873void LAPACK_ssptrd_base(
15875 lapack_int
const* n,
15881#ifdef LAPACK_FORTRAN_STRLEN_END
15885#ifdef LAPACK_FORTRAN_STRLEN_END
15886 #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__, 1)
15888 #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__)
15891#define LAPACK_csptrf_base LAPACK_GLOBAL(csptrf,CSPTRF)
15892void LAPACK_csptrf_base(
15894 lapack_int
const* n,
15895 lapack_complex_float* AP, lapack_int* ipiv,
15897#ifdef LAPACK_FORTRAN_STRLEN_END
15901#ifdef LAPACK_FORTRAN_STRLEN_END
15902 #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__, 1)
15904 #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__)
15907#define LAPACK_dsptrf_base LAPACK_GLOBAL(dsptrf,DSPTRF)
15908void LAPACK_dsptrf_base(
15910 lapack_int
const* n,
15911 double* AP, lapack_int* ipiv,
15913#ifdef LAPACK_FORTRAN_STRLEN_END
15917#ifdef LAPACK_FORTRAN_STRLEN_END
15918 #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__, 1)
15920 #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__)
15923#define LAPACK_ssptrf_base LAPACK_GLOBAL(ssptrf,SSPTRF)
15924void LAPACK_ssptrf_base(
15926 lapack_int
const* n,
15927 float* AP, lapack_int* ipiv,
15929#ifdef LAPACK_FORTRAN_STRLEN_END
15933#ifdef LAPACK_FORTRAN_STRLEN_END
15934 #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__, 1)
15936 #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__)
15939#define LAPACK_zsptrf_base LAPACK_GLOBAL(zsptrf,ZSPTRF)
15940void LAPACK_zsptrf_base(
15942 lapack_int
const* n,
15943 lapack_complex_double* AP, lapack_int* ipiv,
15945#ifdef LAPACK_FORTRAN_STRLEN_END
15949#ifdef LAPACK_FORTRAN_STRLEN_END
15950 #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__, 1)
15952 #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__)
15955#define LAPACK_csptri_base LAPACK_GLOBAL(csptri,CSPTRI)
15956void LAPACK_csptri_base(
15958 lapack_int
const* n,
15959 lapack_complex_float* AP, lapack_int
const* ipiv,
15960 lapack_complex_float* work,
15962#ifdef LAPACK_FORTRAN_STRLEN_END
15966#ifdef LAPACK_FORTRAN_STRLEN_END
15967 #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__, 1)
15969 #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__)
15972#define LAPACK_dsptri_base LAPACK_GLOBAL(dsptri,DSPTRI)
15973void LAPACK_dsptri_base(
15975 lapack_int
const* n,
15976 double* AP, lapack_int
const* ipiv,
15979#ifdef LAPACK_FORTRAN_STRLEN_END
15983#ifdef LAPACK_FORTRAN_STRLEN_END
15984 #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__, 1)
15986 #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__)
15989#define LAPACK_ssptri_base LAPACK_GLOBAL(ssptri,SSPTRI)
15990void LAPACK_ssptri_base(
15992 lapack_int
const* n,
15993 float* AP, lapack_int
const* ipiv,
15996#ifdef LAPACK_FORTRAN_STRLEN_END
16000#ifdef LAPACK_FORTRAN_STRLEN_END
16001 #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__, 1)
16003 #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__)
16006#define LAPACK_zsptri_base LAPACK_GLOBAL(zsptri,ZSPTRI)
16007void LAPACK_zsptri_base(
16009 lapack_int
const* n,
16010 lapack_complex_double* AP, lapack_int
const* ipiv,
16011 lapack_complex_double* work,
16013#ifdef LAPACK_FORTRAN_STRLEN_END
16017#ifdef LAPACK_FORTRAN_STRLEN_END
16018 #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__, 1)
16020 #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__)
16023#define LAPACK_csptrs_base LAPACK_GLOBAL(csptrs,CSPTRS)
16024void LAPACK_csptrs_base(
16026 lapack_int
const* n, lapack_int
const* nrhs,
16027 lapack_complex_float
const* AP, lapack_int
const* ipiv,
16028 lapack_complex_float* B, lapack_int
const* ldb,
16030#ifdef LAPACK_FORTRAN_STRLEN_END
16034#ifdef LAPACK_FORTRAN_STRLEN_END
16035 #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__, 1)
16037 #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__)
16040#define LAPACK_dsptrs_base LAPACK_GLOBAL(dsptrs,DSPTRS)
16041void LAPACK_dsptrs_base(
16043 lapack_int
const* n, lapack_int
const* nrhs,
16044 double const* AP, lapack_int
const* ipiv,
16045 double* B, lapack_int
const* ldb,
16047#ifdef LAPACK_FORTRAN_STRLEN_END
16051#ifdef LAPACK_FORTRAN_STRLEN_END
16052 #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__, 1)
16054 #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__)
16057#define LAPACK_ssptrs_base LAPACK_GLOBAL(ssptrs,SSPTRS)
16058void LAPACK_ssptrs_base(
16060 lapack_int
const* n, lapack_int
const* nrhs,
16061 float const* AP, lapack_int
const* ipiv,
16062 float* B, lapack_int
const* ldb,
16064#ifdef LAPACK_FORTRAN_STRLEN_END
16068#ifdef LAPACK_FORTRAN_STRLEN_END
16069 #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__, 1)
16071 #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__)
16074#define LAPACK_zsptrs_base LAPACK_GLOBAL(zsptrs,ZSPTRS)
16075void LAPACK_zsptrs_base(
16077 lapack_int
const* n, lapack_int
const* nrhs,
16078 lapack_complex_double
const* AP, lapack_int
const* ipiv,
16079 lapack_complex_double* B, lapack_int
const* ldb,
16081#ifdef LAPACK_FORTRAN_STRLEN_END
16085#ifdef LAPACK_FORTRAN_STRLEN_END
16086 #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__, 1)
16088 #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__)
16091#define LAPACK_dstebz_base LAPACK_GLOBAL(dstebz,DSTEBZ)
16092void LAPACK_dstebz_base(
16093 char const* range,
char const* order,
16094 lapack_int
const* n,
16096 double const* vu, lapack_int
const* il, lapack_int
const* iu,
16097 double const* abstol,
16099 double const* E, lapack_int* m, lapack_int* nsplit,
16100 double* W, lapack_int* IBLOCK, lapack_int* ISPLIT,
16104#ifdef LAPACK_FORTRAN_STRLEN_END
16108#ifdef LAPACK_FORTRAN_STRLEN_END
16109 #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__, 1, 1)
16111 #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__)
16114#define LAPACK_sstebz_base LAPACK_GLOBAL(sstebz,SSTEBZ)
16115void LAPACK_sstebz_base(
16116 char const* range,
char const* order,
16117 lapack_int
const* n,
16119 float const* vu, lapack_int
const* il, lapack_int
const* iu,
16120 float const* abstol,
16122 float const* E, lapack_int* m, lapack_int* nsplit,
16123 float* W, lapack_int* IBLOCK, lapack_int* ISPLIT,
16127#ifdef LAPACK_FORTRAN_STRLEN_END
16131#ifdef LAPACK_FORTRAN_STRLEN_END
16132 #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__, 1, 1)
16134 #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__)
16137#define LAPACK_cstedc_base LAPACK_GLOBAL(cstedc,CSTEDC)
16138void LAPACK_cstedc_base(
16140 lapack_int
const* n,
16143 lapack_complex_float* Z, lapack_int
const* ldz,
16144 lapack_complex_float* work, lapack_int
const* lwork,
16145 float* rwork, lapack_int
const* lrwork,
16146 lapack_int* iwork, lapack_int
const* liwork,
16148#ifdef LAPACK_FORTRAN_STRLEN_END
16152#ifdef LAPACK_FORTRAN_STRLEN_END
16153 #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__, 1)
16155 #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__)
16158#define LAPACK_dstedc_base LAPACK_GLOBAL(dstedc,DSTEDC)
16159void LAPACK_dstedc_base(
16161 lapack_int
const* n,
16164 double* Z, lapack_int
const* ldz,
16165 double* work, lapack_int
const* lwork,
16166 lapack_int* iwork, lapack_int
const* liwork,
16168#ifdef LAPACK_FORTRAN_STRLEN_END
16172#ifdef LAPACK_FORTRAN_STRLEN_END
16173 #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__, 1)
16175 #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__)
16178#define LAPACK_sstedc_base LAPACK_GLOBAL(sstedc,SSTEDC)
16179void LAPACK_sstedc_base(
16181 lapack_int
const* n,
16184 float* Z, lapack_int
const* ldz,
16185 float* work, lapack_int
const* lwork,
16186 lapack_int* iwork, lapack_int
const* liwork,
16188#ifdef LAPACK_FORTRAN_STRLEN_END
16192#ifdef LAPACK_FORTRAN_STRLEN_END
16193 #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__, 1)
16195 #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__)
16198#define LAPACK_zstedc_base LAPACK_GLOBAL(zstedc,ZSTEDC)
16199void LAPACK_zstedc_base(
16201 lapack_int
const* n,
16204 lapack_complex_double* Z, lapack_int
const* ldz,
16205 lapack_complex_double* work, lapack_int
const* lwork,
16206 double* rwork, lapack_int
const* lrwork,
16207 lapack_int* iwork, lapack_int
const* liwork,
16209#ifdef LAPACK_FORTRAN_STRLEN_END
16213#ifdef LAPACK_FORTRAN_STRLEN_END
16214 #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__, 1)
16216 #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__)
16219#define LAPACK_cstegr_base LAPACK_GLOBAL(cstegr,CSTEGR)
16220void LAPACK_cstegr_base(
16221 char const* jobz,
char const* range,
16222 lapack_int
const* n,
16226 float const* vu, lapack_int
const* il, lapack_int
const* iu,
16227 float const* abstol, lapack_int* m,
16229 lapack_complex_float* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
16230 float* work, lapack_int
const* lwork,
16231 lapack_int* iwork, lapack_int
const* liwork,
16233#ifdef LAPACK_FORTRAN_STRLEN_END
16237#ifdef LAPACK_FORTRAN_STRLEN_END
16238 #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__, 1, 1)
16240 #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__)
16243#define LAPACK_dstegr_base LAPACK_GLOBAL(dstegr,DSTEGR)
16244void LAPACK_dstegr_base(
16245 char const* jobz,
char const* range,
16246 lapack_int
const* n,
16250 double const* vu, lapack_int
const* il, lapack_int
const* iu,
16251 double const* abstol, lapack_int* m,
16253 double* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
16254 double* work, lapack_int
const* lwork,
16255 lapack_int* iwork, lapack_int
const* liwork,
16257#ifdef LAPACK_FORTRAN_STRLEN_END
16261#ifdef LAPACK_FORTRAN_STRLEN_END
16262 #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__, 1, 1)
16264 #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__)
16267#define LAPACK_sstegr_base LAPACK_GLOBAL(sstegr,SSTEGR)
16268void LAPACK_sstegr_base(
16269 char const* jobz,
char const* range,
16270 lapack_int
const* n,
16274 float const* vu, lapack_int
const* il, lapack_int
const* iu,
16275 float const* abstol, lapack_int* m,
16277 float* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
16278 float* work, lapack_int
const* lwork,
16279 lapack_int* iwork, lapack_int
const* liwork,
16281#ifdef LAPACK_FORTRAN_STRLEN_END
16285#ifdef LAPACK_FORTRAN_STRLEN_END
16286 #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__, 1, 1)
16288 #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__)
16291#define LAPACK_zstegr_base LAPACK_GLOBAL(zstegr,ZSTEGR)
16292void LAPACK_zstegr_base(
16293 char const* jobz,
char const* range,
16294 lapack_int
const* n,
16298 double const* vu, lapack_int
const* il, lapack_int
const* iu,
16299 double const* abstol, lapack_int* m,
16301 lapack_complex_double* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
16302 double* work, lapack_int
const* lwork,
16303 lapack_int* iwork, lapack_int
const* liwork,
16305#ifdef LAPACK_FORTRAN_STRLEN_END
16309#ifdef LAPACK_FORTRAN_STRLEN_END
16310 #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__, 1, 1)
16312 #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__)
16315#define LAPACK_cstein LAPACK_GLOBAL(cstein,CSTEIN)
16317 lapack_int
const* n,
16319 float const* E, lapack_int
const* m,
16320 float const* W, lapack_int
const* IBLOCK, lapack_int
const* ISPLIT,
16321 lapack_complex_float* Z, lapack_int
const* ldz,
16323 lapack_int* iwork, lapack_int* IFAIL,
16324 lapack_int* info );
16326#define LAPACK_dstein LAPACK_GLOBAL(dstein,DSTEIN)
16328 lapack_int
const* n,
16330 double const* E, lapack_int
const* m,
16331 double const* W, lapack_int
const* IBLOCK, lapack_int
const* ISPLIT,
16332 double* Z, lapack_int
const* ldz,
16334 lapack_int* iwork, lapack_int* IFAIL,
16335 lapack_int* info );
16337#define LAPACK_sstein LAPACK_GLOBAL(sstein,SSTEIN)
16339 lapack_int
const* n,
16341 float const* E, lapack_int
const* m,
16342 float const* W, lapack_int
const* IBLOCK, lapack_int
const* ISPLIT,
16343 float* Z, lapack_int
const* ldz,
16345 lapack_int* iwork, lapack_int* IFAIL,
16346 lapack_int* info );
16348#define LAPACK_zstein LAPACK_GLOBAL(zstein,ZSTEIN)
16350 lapack_int
const* n,
16352 double const* E, lapack_int
const* m,
16353 double const* W, lapack_int
const* IBLOCK, lapack_int
const* ISPLIT,
16354 lapack_complex_double* Z, lapack_int
const* ldz,
16356 lapack_int* iwork, lapack_int* IFAIL,
16357 lapack_int* info );
16359#define LAPACK_cstemr_base LAPACK_GLOBAL(cstemr,CSTEMR)
16360void LAPACK_cstemr_base(
16361 char const* jobz,
char const* range,
16362 lapack_int
const* n,
16366 float const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* m,
16368 lapack_complex_float* Z, lapack_int
const* ldz, lapack_int
const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16369 float* work, lapack_int
const* lwork,
16370 lapack_int* iwork, lapack_int
const* liwork,
16372#ifdef LAPACK_FORTRAN_STRLEN_END
16376#ifdef LAPACK_FORTRAN_STRLEN_END
16377 #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__, 1, 1)
16379 #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__)
16382#define LAPACK_dstemr_base LAPACK_GLOBAL(dstemr,DSTEMR)
16383void LAPACK_dstemr_base(
16384 char const* jobz,
char const* range,
16385 lapack_int
const* n,
16389 double const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* m,
16391 double* Z, lapack_int
const* ldz, lapack_int
const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16392 double* work, lapack_int
const* lwork,
16393 lapack_int* iwork, lapack_int
const* liwork,
16395#ifdef LAPACK_FORTRAN_STRLEN_END
16399#ifdef LAPACK_FORTRAN_STRLEN_END
16400 #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__, 1, 1)
16402 #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__)
16405#define LAPACK_sstemr_base LAPACK_GLOBAL(sstemr,SSTEMR)
16406void LAPACK_sstemr_base(
16407 char const* jobz,
char const* range,
16408 lapack_int
const* n,
16412 float const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* m,
16414 float* Z, lapack_int
const* ldz, lapack_int
const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16415 float* work, lapack_int
const* lwork,
16416 lapack_int* iwork, lapack_int
const* liwork,
16418#ifdef LAPACK_FORTRAN_STRLEN_END
16422#ifdef LAPACK_FORTRAN_STRLEN_END
16423 #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__, 1, 1)
16425 #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__)
16428#define LAPACK_zstemr_base LAPACK_GLOBAL(zstemr,ZSTEMR)
16429void LAPACK_zstemr_base(
16430 char const* jobz,
char const* range,
16431 lapack_int
const* n,
16435 double const* vu, lapack_int
const* il, lapack_int
const* iu, lapack_int* m,
16437 lapack_complex_double* Z, lapack_int
const* ldz, lapack_int
const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16438 double* work, lapack_int
const* lwork,
16439 lapack_int* iwork, lapack_int
const* liwork,
16441#ifdef LAPACK_FORTRAN_STRLEN_END
16445#ifdef LAPACK_FORTRAN_STRLEN_END
16446 #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__, 1, 1)
16448 #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__)
16451#define LAPACK_csteqr_base LAPACK_GLOBAL(csteqr,CSTEQR)
16452void LAPACK_csteqr_base(
16454 lapack_int
const* n,
16457 lapack_complex_float* Z, lapack_int
const* ldz,
16460#ifdef LAPACK_FORTRAN_STRLEN_END
16464#ifdef LAPACK_FORTRAN_STRLEN_END
16465 #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__, 1)
16467 #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__)
16470#define LAPACK_dsteqr_base LAPACK_GLOBAL(dsteqr,DSTEQR)
16471void LAPACK_dsteqr_base(
16473 lapack_int
const* n,
16476 double* Z, lapack_int
const* ldz,
16479#ifdef LAPACK_FORTRAN_STRLEN_END
16483#ifdef LAPACK_FORTRAN_STRLEN_END
16484 #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__, 1)
16486 #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__)
16489#define LAPACK_ssteqr_base LAPACK_GLOBAL(ssteqr,SSTEQR)
16490void LAPACK_ssteqr_base(
16492 lapack_int
const* n,
16495 float* Z, lapack_int
const* ldz,
16498#ifdef LAPACK_FORTRAN_STRLEN_END
16502#ifdef LAPACK_FORTRAN_STRLEN_END
16503 #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__, 1)
16505 #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__)
16508#define LAPACK_zsteqr_base LAPACK_GLOBAL(zsteqr,ZSTEQR)
16509void LAPACK_zsteqr_base(
16511 lapack_int
const* n,
16514 lapack_complex_double* Z, lapack_int
const* ldz,
16517#ifdef LAPACK_FORTRAN_STRLEN_END
16521#ifdef LAPACK_FORTRAN_STRLEN_END
16522 #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__, 1)
16524 #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__)
16527#define LAPACK_dsterf LAPACK_GLOBAL(dsterf,DSTERF)
16529 lapack_int
const* n,
16532 lapack_int* info );
16534#define LAPACK_ssterf LAPACK_GLOBAL(ssterf,SSTERF)
16536 lapack_int
const* n,
16539 lapack_int* info );
16541#define LAPACK_dstev_base LAPACK_GLOBAL(dstev,DSTEV)
16542void LAPACK_dstev_base(
16544 lapack_int
const* n,
16547 double* Z, lapack_int
const* ldz,
16550#ifdef LAPACK_FORTRAN_STRLEN_END
16554#ifdef LAPACK_FORTRAN_STRLEN_END
16555 #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__, 1)
16557 #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__)
16560#define LAPACK_sstev_base LAPACK_GLOBAL(sstev,SSTEV)
16561void LAPACK_sstev_base(
16563 lapack_int
const* n,
16566 float* Z, lapack_int
const* ldz,
16569#ifdef LAPACK_FORTRAN_STRLEN_END
16573#ifdef LAPACK_FORTRAN_STRLEN_END
16574 #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__, 1)
16576 #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__)
16579#define LAPACK_dstevd_base LAPACK_GLOBAL(dstevd,DSTEVD)
16580void LAPACK_dstevd_base(
16582 lapack_int
const* n,
16585 double* Z, lapack_int
const* ldz,
16586 double* work, lapack_int
const* lwork,
16587 lapack_int* iwork, lapack_int
const* liwork,
16589#ifdef LAPACK_FORTRAN_STRLEN_END
16593#ifdef LAPACK_FORTRAN_STRLEN_END
16594 #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__, 1)
16596 #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__)
16599#define LAPACK_sstevd_base LAPACK_GLOBAL(sstevd,SSTEVD)
16600void LAPACK_sstevd_base(
16602 lapack_int
const* n,
16605 float* Z, lapack_int
const* ldz,
16606 float* work, lapack_int
const* lwork,
16607 lapack_int* iwork, lapack_int
const* liwork,
16609#ifdef LAPACK_FORTRAN_STRLEN_END
16613#ifdef LAPACK_FORTRAN_STRLEN_END
16614 #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__, 1)
16616 #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__)
16619#define LAPACK_dstevr_base LAPACK_GLOBAL(dstevr,DSTEVR)
16620void LAPACK_dstevr_base(
16621 char const* jobz,
char const* range,
16622 lapack_int
const* n,
16626 double const* vu, lapack_int
const* il, lapack_int
const* iu,
16627 double const* abstol, lapack_int* m,
16629 double* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
16630 double* work, lapack_int
const* lwork,
16631 lapack_int* iwork, lapack_int
const* liwork,
16633#ifdef LAPACK_FORTRAN_STRLEN_END
16637#ifdef LAPACK_FORTRAN_STRLEN_END
16638 #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__, 1, 1)
16640 #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__)
16643#define LAPACK_sstevr_base LAPACK_GLOBAL(sstevr,SSTEVR)
16644void LAPACK_sstevr_base(
16645 char const* jobz,
char const* range,
16646 lapack_int
const* n,
16650 float const* vu, lapack_int
const* il, lapack_int
const* iu,
16651 float const* abstol, lapack_int* m,
16653 float* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
16654 float* work, lapack_int
const* lwork,
16655 lapack_int* iwork, lapack_int
const* liwork,
16657#ifdef LAPACK_FORTRAN_STRLEN_END
16661#ifdef LAPACK_FORTRAN_STRLEN_END
16662 #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__, 1, 1)
16664 #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__)
16667#define LAPACK_dstevx_base LAPACK_GLOBAL(dstevx,DSTEVX)
16668void LAPACK_dstevx_base(
16669 char const* jobz,
char const* range,
16670 lapack_int
const* n,
16674 double const* vu, lapack_int
const* il, lapack_int
const* iu,
16675 double const* abstol, lapack_int* m,
16677 double* Z, lapack_int
const* ldz,
16679 lapack_int* iwork, lapack_int* IFAIL,
16681#ifdef LAPACK_FORTRAN_STRLEN_END
16685#ifdef LAPACK_FORTRAN_STRLEN_END
16686 #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__, 1, 1)
16688 #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__)
16691#define LAPACK_sstevx_base LAPACK_GLOBAL(sstevx,SSTEVX)
16692void LAPACK_sstevx_base(
16693 char const* jobz,
char const* range,
16694 lapack_int
const* n,
16698 float const* vu, lapack_int
const* il, lapack_int
const* iu,
16699 float const* abstol, lapack_int* m,
16701 float* Z, lapack_int
const* ldz,
16703 lapack_int* iwork, lapack_int* IFAIL,
16705#ifdef LAPACK_FORTRAN_STRLEN_END
16709#ifdef LAPACK_FORTRAN_STRLEN_END
16710 #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__, 1, 1)
16712 #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__)
16715#define LAPACK_csycon_base LAPACK_GLOBAL(csycon,CSYCON)
16716void LAPACK_csycon_base(
16718 lapack_int
const* n,
16719 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
16720 float const* anorm,
16722 lapack_complex_float* work,
16724#ifdef LAPACK_FORTRAN_STRLEN_END
16728#ifdef LAPACK_FORTRAN_STRLEN_END
16729 #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__, 1)
16731 #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__)
16734#define LAPACK_dsycon_base LAPACK_GLOBAL(dsycon,DSYCON)
16735void LAPACK_dsycon_base(
16737 lapack_int
const* n,
16738 double const* A, lapack_int
const* lda, lapack_int
const* ipiv,
16739 double const* anorm,
16744#ifdef LAPACK_FORTRAN_STRLEN_END
16748#ifdef LAPACK_FORTRAN_STRLEN_END
16749 #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__, 1)
16751 #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__)
16754#define LAPACK_ssycon_base LAPACK_GLOBAL(ssycon,SSYCON)
16755void LAPACK_ssycon_base(
16757 lapack_int
const* n,
16758 float const* A, lapack_int
const* lda, lapack_int
const* ipiv,
16759 float const* anorm,
16764#ifdef LAPACK_FORTRAN_STRLEN_END
16768#ifdef LAPACK_FORTRAN_STRLEN_END
16769 #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__, 1)
16771 #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__)
16774#define LAPACK_zsycon_base LAPACK_GLOBAL(zsycon,ZSYCON)
16775void LAPACK_zsycon_base(
16777 lapack_int
const* n,
16778 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
16779 double const* anorm,
16781 lapack_complex_double* work,
16783#ifdef LAPACK_FORTRAN_STRLEN_END
16787#ifdef LAPACK_FORTRAN_STRLEN_END
16788 #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__, 1)
16790 #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__)
16793#define LAPACK_csycon_3_base LAPACK_GLOBAL(csycon_3,CSYCON_3)
16794void LAPACK_csycon_3_base(
16796 lapack_int
const* n,
16797 lapack_complex_float
const* A, lapack_int
const* lda,
16798 lapack_complex_float
const* E, lapack_int
const* ipiv,
16799 float const* anorm,
16801 lapack_complex_float* work,
16803#ifdef LAPACK_FORTRAN_STRLEN_END
16807#ifdef LAPACK_FORTRAN_STRLEN_END
16808 #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__, 1)
16810 #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__)
16813#define LAPACK_dsycon_3_base LAPACK_GLOBAL(dsycon_3,DSYCON_3)
16814void LAPACK_dsycon_3_base(
16816 lapack_int
const* n,
16817 double const* A, lapack_int
const* lda,
16818 double const* E, lapack_int
const* ipiv,
16819 double const* anorm,
16824#ifdef LAPACK_FORTRAN_STRLEN_END
16828#ifdef LAPACK_FORTRAN_STRLEN_END
16829 #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__, 1)
16831 #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__)
16834#define LAPACK_ssycon_3_base LAPACK_GLOBAL(ssycon_3,SSYCON_3)
16835void LAPACK_ssycon_3_base(
16837 lapack_int
const* n,
16838 float const* A, lapack_int
const* lda,
16839 float const* E, lapack_int
const* ipiv,
16840 float const* anorm,
16845#ifdef LAPACK_FORTRAN_STRLEN_END
16849#ifdef LAPACK_FORTRAN_STRLEN_END
16850 #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__, 1)
16852 #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__)
16855#define LAPACK_zsycon_3_base LAPACK_GLOBAL(zsycon_3,ZSYCON_3)
16856void LAPACK_zsycon_3_base(
16858 lapack_int
const* n,
16859 lapack_complex_double
const* A, lapack_int
const* lda,
16860 lapack_complex_double
const* E, lapack_int
const* ipiv,
16861 double const* anorm,
16863 lapack_complex_double* work,
16865#ifdef LAPACK_FORTRAN_STRLEN_END
16869#ifdef LAPACK_FORTRAN_STRLEN_END
16870 #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__, 1)
16872 #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__)
16875#define LAPACK_csyconv_base LAPACK_GLOBAL(csyconv,CSYCONV)
16876void LAPACK_csyconv_base(
16877 char const* uplo,
char const* way,
16878 lapack_int
const* n,
16879 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
16880 lapack_complex_float* E,
16882#ifdef LAPACK_FORTRAN_STRLEN_END
16886#ifdef LAPACK_FORTRAN_STRLEN_END
16887 #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__, 1, 1)
16889 #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__)
16892#define LAPACK_dsyconv_base LAPACK_GLOBAL(dsyconv,DSYCONV)
16893void LAPACK_dsyconv_base(
16894 char const* uplo,
char const* way,
16895 lapack_int
const* n,
16896 double* A, lapack_int
const* lda, lapack_int
const* ipiv,
16899#ifdef LAPACK_FORTRAN_STRLEN_END
16903#ifdef LAPACK_FORTRAN_STRLEN_END
16904 #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__, 1, 1)
16906 #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__)
16909#define LAPACK_ssyconv_base LAPACK_GLOBAL(ssyconv,SSYCONV)
16910void LAPACK_ssyconv_base(
16911 char const* uplo,
char const* way,
16912 lapack_int
const* n,
16913 float* A, lapack_int
const* lda, lapack_int
const* ipiv,
16916#ifdef LAPACK_FORTRAN_STRLEN_END
16920#ifdef LAPACK_FORTRAN_STRLEN_END
16921 #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__, 1, 1)
16923 #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__)
16926#define LAPACK_zsyconv_base LAPACK_GLOBAL(zsyconv,ZSYCONV)
16927void LAPACK_zsyconv_base(
16928 char const* uplo,
char const* way,
16929 lapack_int
const* n,
16930 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
16931 lapack_complex_double* E,
16933#ifdef LAPACK_FORTRAN_STRLEN_END
16937#ifdef LAPACK_FORTRAN_STRLEN_END
16938 #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__, 1, 1)
16940 #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__)
16943#define LAPACK_csyequb_base LAPACK_GLOBAL(csyequb,CSYEQUB)
16944void LAPACK_csyequb_base(
16946 lapack_int
const* n,
16947 lapack_complex_float
const* A, lapack_int
const* lda,
16951 lapack_complex_float* work,
16953#ifdef LAPACK_FORTRAN_STRLEN_END
16957#ifdef LAPACK_FORTRAN_STRLEN_END
16958 #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__, 1)
16960 #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__)
16963#define LAPACK_dsyequb_base LAPACK_GLOBAL(dsyequb,DSYEQUB)
16964void LAPACK_dsyequb_base(
16966 lapack_int
const* n,
16967 double const* A, lapack_int
const* lda,
16973#ifdef LAPACK_FORTRAN_STRLEN_END
16977#ifdef LAPACK_FORTRAN_STRLEN_END
16978 #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__, 1)
16980 #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__)
16983#define LAPACK_ssyequb_base LAPACK_GLOBAL(ssyequb,SSYEQUB)
16984void LAPACK_ssyequb_base(
16986 lapack_int
const* n,
16987 float const* A, lapack_int
const* lda,
16993#ifdef LAPACK_FORTRAN_STRLEN_END
16997#ifdef LAPACK_FORTRAN_STRLEN_END
16998 #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__, 1)
17000 #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__)
17003#define LAPACK_zsyequb_base LAPACK_GLOBAL(zsyequb,ZSYEQUB)
17004void LAPACK_zsyequb_base(
17006 lapack_int
const* n,
17007 lapack_complex_double
const* A, lapack_int
const* lda,
17011 lapack_complex_double* work,
17013#ifdef LAPACK_FORTRAN_STRLEN_END
17017#ifdef LAPACK_FORTRAN_STRLEN_END
17018 #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__, 1)
17020 #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__)
17023#define LAPACK_dsyev_base LAPACK_GLOBAL(dsyev,DSYEV)
17024void LAPACK_dsyev_base(
17025 char const* jobz,
char const* uplo,
17026 lapack_int
const* n,
17027 double* A, lapack_int
const* lda,
17029 double* work, lapack_int
const* lwork,
17031#ifdef LAPACK_FORTRAN_STRLEN_END
17035#ifdef LAPACK_FORTRAN_STRLEN_END
17036 #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__, 1, 1)
17038 #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__)
17041#define LAPACK_ssyev_base LAPACK_GLOBAL(ssyev,SSYEV)
17042void LAPACK_ssyev_base(
17043 char const* jobz,
char const* uplo,
17044 lapack_int
const* n,
17045 float* A, lapack_int
const* lda,
17047 float* work, lapack_int
const* lwork,
17049#ifdef LAPACK_FORTRAN_STRLEN_END
17053#ifdef LAPACK_FORTRAN_STRLEN_END
17054 #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__, 1, 1)
17056 #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__)
17059#define LAPACK_dsyev_2stage_base LAPACK_GLOBAL(dsyev_2stage,DSYEV_2STAGE)
17060void LAPACK_dsyev_2stage_base(
17061 char const* jobz,
char const* uplo,
17062 lapack_int
const* n,
17063 double* A, lapack_int
const* lda,
17065 double* work, lapack_int
const* lwork,
17067#ifdef LAPACK_FORTRAN_STRLEN_END
17071#ifdef LAPACK_FORTRAN_STRLEN_END
17072 #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__, 1, 1)
17074 #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__)
17077#define LAPACK_ssyev_2stage_base LAPACK_GLOBAL(ssyev_2stage,SSYEV_2STAGE)
17078void LAPACK_ssyev_2stage_base(
17079 char const* jobz,
char const* uplo,
17080 lapack_int
const* n,
17081 float* A, lapack_int
const* lda,
17083 float* work, lapack_int
const* lwork,
17085#ifdef LAPACK_FORTRAN_STRLEN_END
17089#ifdef LAPACK_FORTRAN_STRLEN_END
17090 #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__, 1, 1)
17092 #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__)
17095#define LAPACK_dsyevd_base LAPACK_GLOBAL(dsyevd,DSYEVD)
17096void LAPACK_dsyevd_base(
17097 char const* jobz,
char const* uplo,
17098 lapack_int
const* n,
17099 double* A, lapack_int
const* lda,
17101 double* work, lapack_int
const* lwork,
17102 lapack_int* iwork, lapack_int
const* liwork,
17104#ifdef LAPACK_FORTRAN_STRLEN_END
17108#ifdef LAPACK_FORTRAN_STRLEN_END
17109 #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__, 1, 1)
17111 #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__)
17114#define LAPACK_ssyevd_base LAPACK_GLOBAL(ssyevd,SSYEVD)
17115void LAPACK_ssyevd_base(
17116 char const* jobz,
char const* uplo,
17117 lapack_int
const* n,
17118 float* A, lapack_int
const* lda,
17120 float* work, lapack_int
const* lwork,
17121 lapack_int* iwork, lapack_int
const* liwork,
17123#ifdef LAPACK_FORTRAN_STRLEN_END
17127#ifdef LAPACK_FORTRAN_STRLEN_END
17128 #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__, 1, 1)
17130 #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__)
17133#define LAPACK_dsyevd_2stage_base LAPACK_GLOBAL(dsyevd_2stage,DSYEVD_2STAGE)
17134void LAPACK_dsyevd_2stage_base(
17135 char const* jobz,
char const* uplo,
17136 lapack_int
const* n,
17137 double* A, lapack_int
const* lda,
17139 double* work, lapack_int
const* lwork,
17140 lapack_int* iwork, lapack_int
const* liwork,
17142#ifdef LAPACK_FORTRAN_STRLEN_END
17146#ifdef LAPACK_FORTRAN_STRLEN_END
17147 #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__, 1, 1)
17149 #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__)
17152#define LAPACK_ssyevd_2stage_base LAPACK_GLOBAL(ssyevd_2stage,SSYEVD_2STAGE)
17153void LAPACK_ssyevd_2stage_base(
17154 char const* jobz,
char const* uplo,
17155 lapack_int
const* n,
17156 float* A, lapack_int
const* lda,
17158 float* work, lapack_int
const* lwork,
17159 lapack_int* iwork, lapack_int
const* liwork,
17161#ifdef LAPACK_FORTRAN_STRLEN_END
17165#ifdef LAPACK_FORTRAN_STRLEN_END
17166 #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__, 1, 1)
17168 #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__)
17171#define LAPACK_dsyevr_base LAPACK_GLOBAL(dsyevr,DSYEVR)
17172void LAPACK_dsyevr_base(
17173 char const* jobz,
char const* range,
char const* uplo,
17174 lapack_int
const* n,
17175 double* A, lapack_int
const* lda,
17177 double const* vu, lapack_int
const* il, lapack_int
const* iu,
17178 double const* abstol, lapack_int* m,
17180 double* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
17181 double* work, lapack_int
const* lwork,
17182 lapack_int* iwork, lapack_int
const* liwork,
17184#ifdef LAPACK_FORTRAN_STRLEN_END
17185 ,
size_t,
size_t,
size_t
17188#ifdef LAPACK_FORTRAN_STRLEN_END
17189 #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__, 1, 1, 1)
17191 #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__)
17194#define LAPACK_ssyevr_base LAPACK_GLOBAL(ssyevr,SSYEVR)
17195void LAPACK_ssyevr_base(
17196 char const* jobz,
char const* range,
char const* uplo,
17197 lapack_int
const* n,
17198 float* A, lapack_int
const* lda,
17200 float const* vu, lapack_int
const* il, lapack_int
const* iu,
17201 float const* abstol, lapack_int* m,
17203 float* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
17204 float* work, lapack_int
const* lwork,
17205 lapack_int* iwork, lapack_int
const* liwork,
17207#ifdef LAPACK_FORTRAN_STRLEN_END
17208 ,
size_t,
size_t,
size_t
17211#ifdef LAPACK_FORTRAN_STRLEN_END
17212 #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__, 1, 1, 1)
17214 #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__)
17217#define LAPACK_dsyevr_2stage_base LAPACK_GLOBAL(dsyevr_2stage,DSYEVR_2STAGE)
17218void LAPACK_dsyevr_2stage_base(
17219 char const* jobz,
char const* range,
char const* uplo,
17220 lapack_int
const* n,
17221 double* A, lapack_int
const* lda,
17223 double const* vu, lapack_int
const* il, lapack_int
const* iu,
17224 double const* abstol, lapack_int* m,
17226 double* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
17227 double* work, lapack_int
const* lwork,
17228 lapack_int* iwork, lapack_int
const* liwork,
17230#ifdef LAPACK_FORTRAN_STRLEN_END
17231 ,
size_t,
size_t,
size_t
17234#ifdef LAPACK_FORTRAN_STRLEN_END
17235 #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__, 1, 1, 1)
17237 #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__)
17240#define LAPACK_ssyevr_2stage_base LAPACK_GLOBAL(ssyevr_2stage,SSYEVR_2STAGE)
17241void LAPACK_ssyevr_2stage_base(
17242 char const* jobz,
char const* range,
char const* uplo,
17243 lapack_int
const* n,
17244 float* A, lapack_int
const* lda,
17246 float const* vu, lapack_int
const* il, lapack_int
const* iu,
17247 float const* abstol, lapack_int* m,
17249 float* Z, lapack_int
const* ldz, lapack_int* ISUPPZ,
17250 float* work, lapack_int
const* lwork,
17251 lapack_int* iwork, lapack_int
const* liwork,
17253#ifdef LAPACK_FORTRAN_STRLEN_END
17254 ,
size_t,
size_t,
size_t
17257#ifdef LAPACK_FORTRAN_STRLEN_END
17258 #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__, 1, 1, 1)
17260 #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__)
17263#define LAPACK_dsyevx_base LAPACK_GLOBAL(dsyevx,DSYEVX)
17264void LAPACK_dsyevx_base(
17265 char const* jobz,
char const* range,
char const* uplo,
17266 lapack_int
const* n,
17267 double* A, lapack_int
const* lda,
17269 double const* vu, lapack_int
const* il, lapack_int
const* iu,
17270 double const* abstol, lapack_int* m,
17272 double* Z, lapack_int
const* ldz,
17273 double* work, lapack_int
const* lwork,
17274 lapack_int* iwork, lapack_int* IFAIL,
17276#ifdef LAPACK_FORTRAN_STRLEN_END
17277 ,
size_t,
size_t,
size_t
17280#ifdef LAPACK_FORTRAN_STRLEN_END
17281 #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__, 1, 1, 1)
17283 #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__)
17286#define LAPACK_ssyevx_base LAPACK_GLOBAL(ssyevx,SSYEVX)
17287void LAPACK_ssyevx_base(
17288 char const* jobz,
char const* range,
char const* uplo,
17289 lapack_int
const* n,
17290 float* A, lapack_int
const* lda,
17292 float const* vu, lapack_int
const* il, lapack_int
const* iu,
17293 float const* abstol, lapack_int* m,
17295 float* Z, lapack_int
const* ldz,
17296 float* work, lapack_int
const* lwork,
17297 lapack_int* iwork, lapack_int* IFAIL,
17299#ifdef LAPACK_FORTRAN_STRLEN_END
17300 ,
size_t,
size_t,
size_t
17303#ifdef LAPACK_FORTRAN_STRLEN_END
17304 #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__, 1, 1, 1)
17306 #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__)
17309#define LAPACK_dsyevx_2stage_base LAPACK_GLOBAL(dsyevx_2stage,DSYEVX_2STAGE)
17310void LAPACK_dsyevx_2stage_base(
17311 char const* jobz,
char const* range,
char const* uplo,
17312 lapack_int
const* n,
17313 double* A, lapack_int
const* lda,
17315 double const* vu, lapack_int
const* il, lapack_int
const* iu,
17316 double const* abstol, lapack_int* m,
17318 double* Z, lapack_int
const* ldz,
17319 double* work, lapack_int
const* lwork,
17320 lapack_int* iwork, lapack_int* IFAIL,
17322#ifdef LAPACK_FORTRAN_STRLEN_END
17323 ,
size_t,
size_t,
size_t
17326#ifdef LAPACK_FORTRAN_STRLEN_END
17327 #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__, 1, 1, 1)
17329 #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__)
17332#define LAPACK_ssyevx_2stage_base LAPACK_GLOBAL(ssyevx_2stage,SSYEVX_2STAGE)
17333void LAPACK_ssyevx_2stage_base(
17334 char const* jobz,
char const* range,
char const* uplo,
17335 lapack_int
const* n,
17336 float* A, lapack_int
const* lda,
17338 float const* vu, lapack_int
const* il, lapack_int
const* iu,
17339 float const* abstol, lapack_int* m,
17341 float* Z, lapack_int
const* ldz,
17342 float* work, lapack_int
const* lwork,
17343 lapack_int* iwork, lapack_int* IFAIL,
17345#ifdef LAPACK_FORTRAN_STRLEN_END
17346 ,
size_t,
size_t,
size_t
17349#ifdef LAPACK_FORTRAN_STRLEN_END
17350 #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__, 1, 1, 1)
17352 #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__)
17355#define LAPACK_dsygst_base LAPACK_GLOBAL(dsygst,DSYGST)
17356void LAPACK_dsygst_base(
17357 lapack_int
const* itype,
char const* uplo,
17358 lapack_int
const* n,
17359 double* A, lapack_int
const* lda,
17360 double const* B, lapack_int
const* ldb,
17362#ifdef LAPACK_FORTRAN_STRLEN_END
17366#ifdef LAPACK_FORTRAN_STRLEN_END
17367 #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__, 1)
17369 #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__)
17372#define LAPACK_ssygst_base LAPACK_GLOBAL(ssygst,SSYGST)
17373void LAPACK_ssygst_base(
17374 lapack_int
const* itype,
char const* uplo,
17375 lapack_int
const* n,
17376 float* A, lapack_int
const* lda,
17377 float const* B, lapack_int
const* ldb,
17379#ifdef LAPACK_FORTRAN_STRLEN_END
17383#ifdef LAPACK_FORTRAN_STRLEN_END
17384 #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__, 1)
17386 #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__)
17389#define LAPACK_dsygv_base LAPACK_GLOBAL(dsygv,DSYGV)
17390void LAPACK_dsygv_base(
17391 lapack_int
const* itype,
char const* jobz,
char const* uplo,
17392 lapack_int
const* n,
17393 double* A, lapack_int
const* lda,
17394 double* B, lapack_int
const* ldb,
17396 double* work, lapack_int
const* lwork,
17398#ifdef LAPACK_FORTRAN_STRLEN_END
17402#ifdef LAPACK_FORTRAN_STRLEN_END
17403 #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__, 1, 1)
17405 #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__)
17408#define LAPACK_ssygv_base LAPACK_GLOBAL(ssygv,SSYGV)
17409void LAPACK_ssygv_base(
17410 lapack_int
const* itype,
char const* jobz,
char const* uplo,
17411 lapack_int
const* n,
17412 float* A, lapack_int
const* lda,
17413 float* B, lapack_int
const* ldb,
17415 float* work, lapack_int
const* lwork,
17417#ifdef LAPACK_FORTRAN_STRLEN_END
17421#ifdef LAPACK_FORTRAN_STRLEN_END
17422 #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__, 1, 1)
17424 #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__)
17427#define LAPACK_dsygv_2stage_base LAPACK_GLOBAL(dsygv_2stage,DSYGV_2STAGE)
17428void LAPACK_dsygv_2stage_base(
17429 lapack_int
const* itype,
char const* jobz,
char const* uplo,
17430 lapack_int
const* n,
17431 double* A, lapack_int
const* lda,
17432 double* B, lapack_int
const* ldb,
17434 double* work, lapack_int
const* lwork,
17436#ifdef LAPACK_FORTRAN_STRLEN_END
17440#ifdef LAPACK_FORTRAN_STRLEN_END
17441 #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__, 1, 1)
17443 #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__)
17446#define LAPACK_ssygv_2stage_base LAPACK_GLOBAL(ssygv_2stage,SSYGV_2STAGE)
17447void LAPACK_ssygv_2stage_base(
17448 lapack_int
const* itype,
char const* jobz,
char const* uplo,
17449 lapack_int
const* n,
17450 float* A, lapack_int
const* lda,
17451 float* B, lapack_int
const* ldb,
17453 float* work, lapack_int
const* lwork,
17455#ifdef LAPACK_FORTRAN_STRLEN_END
17459#ifdef LAPACK_FORTRAN_STRLEN_END
17460 #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__, 1, 1)
17462 #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__)
17465#define LAPACK_dsygvd_base LAPACK_GLOBAL(dsygvd,DSYGVD)
17466void LAPACK_dsygvd_base(
17467 lapack_int
const* itype,
char const* jobz,
char const* uplo,
17468 lapack_int
const* n,
17469 double* A, lapack_int
const* lda,
17470 double* B, lapack_int
const* ldb,
17472 double* work, lapack_int
const* lwork,
17473 lapack_int* iwork, lapack_int
const* liwork,
17475#ifdef LAPACK_FORTRAN_STRLEN_END
17479#ifdef LAPACK_FORTRAN_STRLEN_END
17480 #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__, 1, 1)
17482 #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__)
17485#define LAPACK_ssygvd_base LAPACK_GLOBAL(ssygvd,SSYGVD)
17486void LAPACK_ssygvd_base(
17487 lapack_int
const* itype,
char const* jobz,
char const* uplo,
17488 lapack_int
const* n,
17489 float* A, lapack_int
const* lda,
17490 float* B, lapack_int
const* ldb,
17492 float* work, lapack_int
const* lwork,
17493 lapack_int* iwork, lapack_int
const* liwork,
17495#ifdef LAPACK_FORTRAN_STRLEN_END
17499#ifdef LAPACK_FORTRAN_STRLEN_END
17500 #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__, 1, 1)
17502 #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__)
17505#define LAPACK_dsygvx_base LAPACK_GLOBAL(dsygvx,DSYGVX)
17506void LAPACK_dsygvx_base(
17507 lapack_int
const* itype,
char const* jobz,
char const* range,
char const* uplo,
17508 lapack_int
const* n,
17509 double* A, lapack_int
const* lda,
17510 double* B, lapack_int
const* ldb,
17512 double const* vu, lapack_int
const* il, lapack_int
const* iu,
17513 double const* abstol, lapack_int* m,
17515 double* Z, lapack_int
const* ldz,
17516 double* work, lapack_int
const* lwork,
17517 lapack_int* iwork, lapack_int* IFAIL,
17519#ifdef LAPACK_FORTRAN_STRLEN_END
17520 ,
size_t,
size_t,
size_t
17523#ifdef LAPACK_FORTRAN_STRLEN_END
17524 #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__, 1, 1, 1)
17526 #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__)
17529#define LAPACK_ssygvx_base LAPACK_GLOBAL(ssygvx,SSYGVX)
17530void LAPACK_ssygvx_base(
17531 lapack_int
const* itype,
char const* jobz,
char const* range,
char const* uplo,
17532 lapack_int
const* n,
17533 float* A, lapack_int
const* lda,
17534 float* B, lapack_int
const* ldb,
17536 float const* vu, lapack_int
const* il, lapack_int
const* iu,
17537 float const* abstol, lapack_int* m,
17539 float* Z, lapack_int
const* ldz,
17540 float* work, lapack_int
const* lwork,
17541 lapack_int* iwork, lapack_int* IFAIL,
17543#ifdef LAPACK_FORTRAN_STRLEN_END
17544 ,
size_t,
size_t,
size_t
17547#ifdef LAPACK_FORTRAN_STRLEN_END
17548 #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__, 1, 1, 1)
17550 #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__)
17553#define LAPACK_csyr_base LAPACK_GLOBAL(csyr,CSYR)
17554void LAPACK_csyr_base(
17556 lapack_int
const* n,
17557 lapack_complex_float
const* alpha,
17558 lapack_complex_float
const* X, lapack_int
const* incx,
17559 lapack_complex_float* A, lapack_int
const* lda
17560#ifdef LAPACK_FORTRAN_STRLEN_END
17564#ifdef LAPACK_FORTRAN_STRLEN_END
17565 #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__, 1)
17567 #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__)
17570#define LAPACK_zsyr_base LAPACK_GLOBAL(zsyr,ZSYR)
17571void LAPACK_zsyr_base(
17573 lapack_int
const* n,
17574 lapack_complex_double
const* alpha,
17575 lapack_complex_double
const* X, lapack_int
const* incx,
17576 lapack_complex_double* A, lapack_int
const* lda
17577#ifdef LAPACK_FORTRAN_STRLEN_END
17581#ifdef LAPACK_FORTRAN_STRLEN_END
17582 #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__, 1)
17584 #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__)
17587#define LAPACK_csyrfs_base LAPACK_GLOBAL(csyrfs,CSYRFS)
17588void LAPACK_csyrfs_base(
17590 lapack_int
const* n, lapack_int
const* nrhs,
17591 lapack_complex_float
const* A, lapack_int
const* lda,
17592 lapack_complex_float
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
17593 lapack_complex_float
const* B, lapack_int
const* ldb,
17594 lapack_complex_float* X, lapack_int
const* ldx,
17597 lapack_complex_float* work,
17600#ifdef LAPACK_FORTRAN_STRLEN_END
17604#ifdef LAPACK_FORTRAN_STRLEN_END
17605 #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__, 1)
17607 #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__)
17610#define LAPACK_dsyrfs_base LAPACK_GLOBAL(dsyrfs,DSYRFS)
17611void LAPACK_dsyrfs_base(
17613 lapack_int
const* n, lapack_int
const* nrhs,
17614 double const* A, lapack_int
const* lda,
17615 double const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
17616 double const* B, lapack_int
const* ldb,
17617 double* X, lapack_int
const* ldx,
17623#ifdef LAPACK_FORTRAN_STRLEN_END
17627#ifdef LAPACK_FORTRAN_STRLEN_END
17628 #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__, 1)
17630 #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__)
17633#define LAPACK_ssyrfs_base LAPACK_GLOBAL(ssyrfs,SSYRFS)
17634void LAPACK_ssyrfs_base(
17636 lapack_int
const* n, lapack_int
const* nrhs,
17637 float const* A, lapack_int
const* lda,
17638 float const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
17639 float const* B, lapack_int
const* ldb,
17640 float* X, lapack_int
const* ldx,
17646#ifdef LAPACK_FORTRAN_STRLEN_END
17650#ifdef LAPACK_FORTRAN_STRLEN_END
17651 #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__, 1)
17653 #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__)
17656#define LAPACK_zsyrfs_base LAPACK_GLOBAL(zsyrfs,ZSYRFS)
17657void LAPACK_zsyrfs_base(
17659 lapack_int
const* n, lapack_int
const* nrhs,
17660 lapack_complex_double
const* A, lapack_int
const* lda,
17661 lapack_complex_double
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
17662 lapack_complex_double
const* B, lapack_int
const* ldb,
17663 lapack_complex_double* X, lapack_int
const* ldx,
17666 lapack_complex_double* work,
17669#ifdef LAPACK_FORTRAN_STRLEN_END
17673#ifdef LAPACK_FORTRAN_STRLEN_END
17674 #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__, 1)
17676 #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__)
17679#define LAPACK_csyrfsx_base LAPACK_GLOBAL(csyrfsx,CSYRFSX)
17680void LAPACK_csyrfsx_base(
17681 char const* uplo,
char const* equed,
17682 lapack_int
const* n, lapack_int
const* nrhs,
17683 lapack_complex_float
const* A, lapack_int
const* lda,
17684 lapack_complex_float
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
17686 lapack_complex_float
const* B, lapack_int
const* ldb,
17687 lapack_complex_float* X, lapack_int
const* ldx,
17689 float* berr, lapack_int
const* n_err_bnds,
17690 float* err_bnds_norm,
17691 float* err_bnds_comp, lapack_int
const* nparams,
17693 lapack_complex_float* work,
17696#ifdef LAPACK_FORTRAN_STRLEN_END
17700#ifdef LAPACK_FORTRAN_STRLEN_END
17701 #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__, 1, 1)
17703 #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__)
17706#define LAPACK_dsyrfsx_base LAPACK_GLOBAL(dsyrfsx,DSYRFSX)
17707void LAPACK_dsyrfsx_base(
17708 char const* uplo,
char const* equed,
17709 lapack_int
const* n, lapack_int
const* nrhs,
17710 double const* A, lapack_int
const* lda,
17711 double const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
17713 double const* B, lapack_int
const* ldb,
17714 double* X, lapack_int
const* ldx,
17716 double* berr, lapack_int
const* n_err_bnds,
17717 double* err_bnds_norm,
17718 double* err_bnds_comp, lapack_int
const* nparams,
17723#ifdef LAPACK_FORTRAN_STRLEN_END
17727#ifdef LAPACK_FORTRAN_STRLEN_END
17728 #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__, 1, 1)
17730 #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__)
17733#define LAPACK_ssyrfsx_base LAPACK_GLOBAL(ssyrfsx,SSYRFSX)
17734void LAPACK_ssyrfsx_base(
17735 char const* uplo,
char const* equed,
17736 lapack_int
const* n, lapack_int
const* nrhs,
17737 float const* A, lapack_int
const* lda,
17738 float const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
17740 float const* B, lapack_int
const* ldb,
17741 float* X, lapack_int
const* ldx,
17743 float* berr, lapack_int
const* n_err_bnds,
17744 float* err_bnds_norm,
17745 float* err_bnds_comp, lapack_int
const* nparams,
17750#ifdef LAPACK_FORTRAN_STRLEN_END
17754#ifdef LAPACK_FORTRAN_STRLEN_END
17755 #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__, 1, 1)
17757 #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__)
17760#define LAPACK_zsyrfsx_base LAPACK_GLOBAL(zsyrfsx,ZSYRFSX)
17761void LAPACK_zsyrfsx_base(
17762 char const* uplo,
char const* equed,
17763 lapack_int
const* n, lapack_int
const* nrhs,
17764 lapack_complex_double
const* A, lapack_int
const* lda,
17765 lapack_complex_double
const* AF, lapack_int
const* ldaf, lapack_int
const* ipiv,
17767 lapack_complex_double
const* B, lapack_int
const* ldb,
17768 lapack_complex_double* X, lapack_int
const* ldx,
17770 double* berr, lapack_int
const* n_err_bnds,
17771 double* err_bnds_norm,
17772 double* err_bnds_comp, lapack_int
const* nparams,
17774 lapack_complex_double* work,
17777#ifdef LAPACK_FORTRAN_STRLEN_END
17781#ifdef LAPACK_FORTRAN_STRLEN_END
17782 #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__, 1, 1)
17784 #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__)
17787#define LAPACK_csysv_base LAPACK_GLOBAL(csysv,CSYSV)
17788void LAPACK_csysv_base(
17790 lapack_int
const* n, lapack_int
const* nrhs,
17791 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
17792 lapack_complex_float* B, lapack_int
const* ldb,
17793 lapack_complex_float* work, lapack_int
const* lwork,
17795#ifdef LAPACK_FORTRAN_STRLEN_END
17799#ifdef LAPACK_FORTRAN_STRLEN_END
17800 #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__, 1)
17802 #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__)
17805#define LAPACK_dsysv_base LAPACK_GLOBAL(dsysv,DSYSV)
17806void LAPACK_dsysv_base(
17808 lapack_int
const* n, lapack_int
const* nrhs,
17809 double* A, lapack_int
const* lda, lapack_int* ipiv,
17810 double* B, lapack_int
const* ldb,
17811 double* work, lapack_int
const* lwork,
17813#ifdef LAPACK_FORTRAN_STRLEN_END
17817#ifdef LAPACK_FORTRAN_STRLEN_END
17818 #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__, 1)
17820 #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__)
17823#define LAPACK_ssysv_base LAPACK_GLOBAL(ssysv,SSYSV)
17824void LAPACK_ssysv_base(
17826 lapack_int
const* n, lapack_int
const* nrhs,
17827 float* A, lapack_int
const* lda, lapack_int* ipiv,
17828 float* B, lapack_int
const* ldb,
17829 float* work, lapack_int
const* lwork,
17831#ifdef LAPACK_FORTRAN_STRLEN_END
17835#ifdef LAPACK_FORTRAN_STRLEN_END
17836 #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__, 1)
17838 #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__)
17841#define LAPACK_zsysv_base LAPACK_GLOBAL(zsysv,ZSYSV)
17842void LAPACK_zsysv_base(
17844 lapack_int
const* n, lapack_int
const* nrhs,
17845 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
17846 lapack_complex_double* B, lapack_int
const* ldb,
17847 lapack_complex_double* work, lapack_int
const* lwork,
17849#ifdef LAPACK_FORTRAN_STRLEN_END
17853#ifdef LAPACK_FORTRAN_STRLEN_END
17854 #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__, 1)
17856 #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__)
17859#define LAPACK_csysv_aa_base LAPACK_GLOBAL(csysv_aa,CSYSV_AA)
17860void LAPACK_csysv_aa_base(
17862 lapack_int
const* n, lapack_int
const* nrhs,
17863 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
17864 lapack_complex_float* B, lapack_int
const* ldb,
17865 lapack_complex_float* work, lapack_int
const* lwork,
17867#ifdef LAPACK_FORTRAN_STRLEN_END
17871#ifdef LAPACK_FORTRAN_STRLEN_END
17872 #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__, 1)
17874 #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__)
17877#define LAPACK_dsysv_aa_base LAPACK_GLOBAL(dsysv_aa,DSYSV_AA)
17878void LAPACK_dsysv_aa_base(
17880 lapack_int
const* n, lapack_int
const* nrhs,
17881 double* A, lapack_int
const* lda, lapack_int* ipiv,
17882 double* B, lapack_int
const* ldb,
17883 double* work, lapack_int
const* lwork,
17885#ifdef LAPACK_FORTRAN_STRLEN_END
17889#ifdef LAPACK_FORTRAN_STRLEN_END
17890 #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__, 1)
17892 #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__)
17895#define LAPACK_ssysv_aa_base LAPACK_GLOBAL(ssysv_aa,SSYSV_AA)
17896void LAPACK_ssysv_aa_base(
17898 lapack_int
const* n, lapack_int
const* nrhs,
17899 float* A, lapack_int
const* lda, lapack_int* ipiv,
17900 float* B, lapack_int
const* ldb,
17901 float* work, lapack_int
const* lwork,
17903#ifdef LAPACK_FORTRAN_STRLEN_END
17907#ifdef LAPACK_FORTRAN_STRLEN_END
17908 #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__, 1)
17910 #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__)
17913#define LAPACK_zsysv_aa_base LAPACK_GLOBAL(zsysv_aa,ZSYSV_AA)
17914void LAPACK_zsysv_aa_base(
17916 lapack_int
const* n, lapack_int
const* nrhs,
17917 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
17918 lapack_complex_double* B, lapack_int
const* ldb,
17919 lapack_complex_double* work, lapack_int
const* lwork,
17921#ifdef LAPACK_FORTRAN_STRLEN_END
17925#ifdef LAPACK_FORTRAN_STRLEN_END
17926 #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__, 1)
17928 #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__)
17931#define LAPACK_csysv_aa_2stage_base LAPACK_GLOBAL(csysv_aa_2stage,CSYSV_AA_2STAGE)
17932void LAPACK_csysv_aa_2stage_base(
17934 lapack_int
const* n, lapack_int
const* nrhs,
17935 lapack_complex_float* A, lapack_int
const* lda,
17936 lapack_complex_float* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17937 lapack_complex_float* B, lapack_int
const* ldb,
17938 lapack_complex_float* work, lapack_int
const* lwork,
17940#ifdef LAPACK_FORTRAN_STRLEN_END
17944#ifdef LAPACK_FORTRAN_STRLEN_END
17945 #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__, 1)
17947 #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__)
17950#define LAPACK_dsysv_aa_2stage_base LAPACK_GLOBAL(dsysv_aa_2stage,DSYSV_AA_2STAGE)
17951void LAPACK_dsysv_aa_2stage_base(
17953 lapack_int
const* n, lapack_int
const* nrhs,
17954 double* A, lapack_int
const* lda,
17955 double* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17956 double* B, lapack_int
const* ldb,
17957 double* work, lapack_int
const* lwork,
17959#ifdef LAPACK_FORTRAN_STRLEN_END
17963#ifdef LAPACK_FORTRAN_STRLEN_END
17964 #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__, 1)
17966 #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__)
17969#define LAPACK_ssysv_aa_2stage_base LAPACK_GLOBAL(ssysv_aa_2stage,SSYSV_AA_2STAGE)
17970void LAPACK_ssysv_aa_2stage_base(
17972 lapack_int
const* n, lapack_int
const* nrhs,
17973 float* A, lapack_int
const* lda,
17974 float* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17975 float* B, lapack_int
const* ldb,
17976 float* work, lapack_int
const* lwork,
17978#ifdef LAPACK_FORTRAN_STRLEN_END
17982#ifdef LAPACK_FORTRAN_STRLEN_END
17983 #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__, 1)
17985 #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__)
17988#define LAPACK_zsysv_aa_2stage_base LAPACK_GLOBAL(zsysv_aa_2stage,ZSYSV_AA_2STAGE)
17989void LAPACK_zsysv_aa_2stage_base(
17991 lapack_int
const* n, lapack_int
const* nrhs,
17992 lapack_complex_double* A, lapack_int
const* lda,
17993 lapack_complex_double* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17994 lapack_complex_double* B, lapack_int
const* ldb,
17995 lapack_complex_double* work, lapack_int
const* lwork,
17997#ifdef LAPACK_FORTRAN_STRLEN_END
18001#ifdef LAPACK_FORTRAN_STRLEN_END
18002 #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__, 1)
18004 #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__)
18007#define LAPACK_csysv_rk_base LAPACK_GLOBAL(csysv_rk,CSYSV_RK)
18008void LAPACK_csysv_rk_base(
18010 lapack_int
const* n, lapack_int
const* nrhs,
18011 lapack_complex_float* A, lapack_int
const* lda,
18012 lapack_complex_float* E, lapack_int* ipiv,
18013 lapack_complex_float* B, lapack_int
const* ldb,
18014 lapack_complex_float* work, lapack_int
const* lwork,
18016#ifdef LAPACK_FORTRAN_STRLEN_END
18020#ifdef LAPACK_FORTRAN_STRLEN_END
18021 #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__, 1)
18023 #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__)
18026#define LAPACK_dsysv_rk_base LAPACK_GLOBAL(dsysv_rk,DSYSV_RK)
18027void LAPACK_dsysv_rk_base(
18029 lapack_int
const* n, lapack_int
const* nrhs,
18030 double* A, lapack_int
const* lda,
18031 double* E, lapack_int* ipiv,
18032 double* B, lapack_int
const* ldb,
18033 double* work, lapack_int
const* lwork,
18035#ifdef LAPACK_FORTRAN_STRLEN_END
18039#ifdef LAPACK_FORTRAN_STRLEN_END
18040 #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__, 1)
18042 #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__)
18045#define LAPACK_ssysv_rk_base LAPACK_GLOBAL(ssysv_rk,SSYSV_RK)
18046void LAPACK_ssysv_rk_base(
18048 lapack_int
const* n, lapack_int
const* nrhs,
18049 float* A, lapack_int
const* lda,
18050 float* E, lapack_int* ipiv,
18051 float* B, lapack_int
const* ldb,
18052 float* work, lapack_int
const* lwork,
18054#ifdef LAPACK_FORTRAN_STRLEN_END
18058#ifdef LAPACK_FORTRAN_STRLEN_END
18059 #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__, 1)
18061 #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__)
18064#define LAPACK_zsysv_rk_base LAPACK_GLOBAL(zsysv_rk,ZSYSV_RK)
18065void LAPACK_zsysv_rk_base(
18067 lapack_int
const* n, lapack_int
const* nrhs,
18068 lapack_complex_double* A, lapack_int
const* lda,
18069 lapack_complex_double* E, lapack_int* ipiv,
18070 lapack_complex_double* B, lapack_int
const* ldb,
18071 lapack_complex_double* work, lapack_int
const* lwork,
18073#ifdef LAPACK_FORTRAN_STRLEN_END
18077#ifdef LAPACK_FORTRAN_STRLEN_END
18078 #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__, 1)
18080 #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__)
18083#define LAPACK_csysv_rook_base LAPACK_GLOBAL(csysv_rook,CSYSV_ROOK)
18084void LAPACK_csysv_rook_base(
18086 lapack_int
const* n, lapack_int
const* nrhs,
18087 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
18088 lapack_complex_float* B, lapack_int
const* ldb,
18089 lapack_complex_float* work, lapack_int
const* lwork,
18091#ifdef LAPACK_FORTRAN_STRLEN_END
18095#ifdef LAPACK_FORTRAN_STRLEN_END
18096 #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__, 1)
18098 #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__)
18101#define LAPACK_dsysv_rook_base LAPACK_GLOBAL(dsysv_rook,DSYSV_ROOK)
18102void LAPACK_dsysv_rook_base(
18104 lapack_int
const* n, lapack_int
const* nrhs,
18105 double* A, lapack_int
const* lda, lapack_int* ipiv,
18106 double* B, lapack_int
const* ldb,
18107 double* work, lapack_int
const* lwork,
18109#ifdef LAPACK_FORTRAN_STRLEN_END
18113#ifdef LAPACK_FORTRAN_STRLEN_END
18114 #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__, 1)
18116 #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__)
18119#define LAPACK_ssysv_rook_base LAPACK_GLOBAL(ssysv_rook,SSYSV_ROOK)
18120void LAPACK_ssysv_rook_base(
18122 lapack_int
const* n, lapack_int
const* nrhs,
18123 float* A, lapack_int
const* lda, lapack_int* ipiv,
18124 float* B, lapack_int
const* ldb,
18125 float* work, lapack_int
const* lwork,
18127#ifdef LAPACK_FORTRAN_STRLEN_END
18131#ifdef LAPACK_FORTRAN_STRLEN_END
18132 #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__, 1)
18134 #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__)
18137#define LAPACK_zsysv_rook_base LAPACK_GLOBAL(zsysv_rook,ZSYSV_ROOK)
18138void LAPACK_zsysv_rook_base(
18140 lapack_int
const* n, lapack_int
const* nrhs,
18141 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
18142 lapack_complex_double* B, lapack_int
const* ldb,
18143 lapack_complex_double* work, lapack_int
const* lwork,
18145#ifdef LAPACK_FORTRAN_STRLEN_END
18149#ifdef LAPACK_FORTRAN_STRLEN_END
18150 #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__, 1)
18152 #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__)
18155#define LAPACK_csysvx_base LAPACK_GLOBAL(csysvx,CSYSVX)
18156void LAPACK_csysvx_base(
18157 char const* fact,
char const* uplo,
18158 lapack_int
const* n, lapack_int
const* nrhs,
18159 lapack_complex_float
const* A, lapack_int
const* lda,
18160 lapack_complex_float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
18161 lapack_complex_float
const* B, lapack_int
const* ldb,
18162 lapack_complex_float* X, lapack_int
const* ldx,
18166 lapack_complex_float* work, lapack_int
const* lwork,
18169#ifdef LAPACK_FORTRAN_STRLEN_END
18173#ifdef LAPACK_FORTRAN_STRLEN_END
18174 #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__, 1, 1)
18176 #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__)
18179#define LAPACK_dsysvx_base LAPACK_GLOBAL(dsysvx,DSYSVX)
18180void LAPACK_dsysvx_base(
18181 char const* fact,
char const* uplo,
18182 lapack_int
const* n, lapack_int
const* nrhs,
18183 double const* A, lapack_int
const* lda,
18184 double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
18185 double const* B, lapack_int
const* ldb,
18186 double* X, lapack_int
const* ldx,
18190 double* work, lapack_int
const* lwork,
18193#ifdef LAPACK_FORTRAN_STRLEN_END
18197#ifdef LAPACK_FORTRAN_STRLEN_END
18198 #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__, 1, 1)
18200 #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__)
18203#define LAPACK_ssysvx_base LAPACK_GLOBAL(ssysvx,SSYSVX)
18204void LAPACK_ssysvx_base(
18205 char const* fact,
char const* uplo,
18206 lapack_int
const* n, lapack_int
const* nrhs,
18207 float const* A, lapack_int
const* lda,
18208 float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
18209 float const* B, lapack_int
const* ldb,
18210 float* X, lapack_int
const* ldx,
18214 float* work, lapack_int
const* lwork,
18217#ifdef LAPACK_FORTRAN_STRLEN_END
18221#ifdef LAPACK_FORTRAN_STRLEN_END
18222 #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__, 1, 1)
18224 #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__)
18227#define LAPACK_zsysvx_base LAPACK_GLOBAL(zsysvx,ZSYSVX)
18228void LAPACK_zsysvx_base(
18229 char const* fact,
char const* uplo,
18230 lapack_int
const* n, lapack_int
const* nrhs,
18231 lapack_complex_double
const* A, lapack_int
const* lda,
18232 lapack_complex_double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
18233 lapack_complex_double
const* B, lapack_int
const* ldb,
18234 lapack_complex_double* X, lapack_int
const* ldx,
18238 lapack_complex_double* work, lapack_int
const* lwork,
18241#ifdef LAPACK_FORTRAN_STRLEN_END
18245#ifdef LAPACK_FORTRAN_STRLEN_END
18246 #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__, 1, 1)
18248 #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__)
18251#define LAPACK_csysvxx_base LAPACK_GLOBAL(csysvxx,CSYSVXX)
18252void LAPACK_csysvxx_base(
18253 char const* fact,
char const* uplo,
18254 lapack_int
const* n, lapack_int
const* nrhs,
18255 lapack_complex_float* A, lapack_int
const* lda,
18256 lapack_complex_float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
18258 lapack_complex_float* B,
18259 lapack_int
const* ldb,
18260 lapack_complex_float* X, lapack_int
const* ldx,
18263 float* berr, lapack_int
const* n_err_bnds,
18264 float* err_bnds_norm,
18265 float* err_bnds_comp, lapack_int
const* nparams,
18267 lapack_complex_float* work,
18270#ifdef LAPACK_FORTRAN_STRLEN_END
18271 ,
size_t,
size_t,
size_t
18274#ifdef LAPACK_FORTRAN_STRLEN_END
18275 #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__, 1, 1, 1)
18277 #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__)
18280#define LAPACK_dsysvxx_base LAPACK_GLOBAL(dsysvxx,DSYSVXX)
18281void LAPACK_dsysvxx_base(
18282 char const* fact,
char const* uplo,
18283 lapack_int
const* n, lapack_int
const* nrhs,
18284 double* A, lapack_int
const* lda,
18285 double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
18288 lapack_int
const* ldb,
18289 double* X, lapack_int
const* ldx,
18292 double* berr, lapack_int
const* n_err_bnds,
18293 double* err_bnds_norm,
18294 double* err_bnds_comp, lapack_int
const* nparams,
18299#ifdef LAPACK_FORTRAN_STRLEN_END
18300 ,
size_t,
size_t,
size_t
18303#ifdef LAPACK_FORTRAN_STRLEN_END
18304 #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__, 1, 1, 1)
18306 #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__)
18309#define LAPACK_ssysvxx_base LAPACK_GLOBAL(ssysvxx,SSYSVXX)
18310void LAPACK_ssysvxx_base(
18311 char const* fact,
char const* uplo,
18312 lapack_int
const* n, lapack_int
const* nrhs,
18313 float* A, lapack_int
const* lda,
18314 float* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
18317 lapack_int
const* ldb,
18318 float* X, lapack_int
const* ldx,
18321 float* berr, lapack_int
const* n_err_bnds,
18322 float* err_bnds_norm,
18323 float* err_bnds_comp, lapack_int
const* nparams,
18328#ifdef LAPACK_FORTRAN_STRLEN_END
18329 ,
size_t,
size_t,
size_t
18332#ifdef LAPACK_FORTRAN_STRLEN_END
18333 #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__, 1, 1, 1)
18335 #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__)
18338#define LAPACK_zsysvxx_base LAPACK_GLOBAL(zsysvxx,ZSYSVXX)
18339void LAPACK_zsysvxx_base(
18340 char const* fact,
char const* uplo,
18341 lapack_int
const* n, lapack_int
const* nrhs,
18342 lapack_complex_double* A, lapack_int
const* lda,
18343 lapack_complex_double* AF, lapack_int
const* ldaf, lapack_int* ipiv,
char* equed,
18345 lapack_complex_double* B,
18346 lapack_int
const* ldb,
18347 lapack_complex_double* X, lapack_int
const* ldx,
18350 double* berr, lapack_int
const* n_err_bnds,
18351 double* err_bnds_norm,
18352 double* err_bnds_comp, lapack_int
const* nparams,
18354 lapack_complex_double* work,
18357#ifdef LAPACK_FORTRAN_STRLEN_END
18358 ,
size_t,
size_t,
size_t
18361#ifdef LAPACK_FORTRAN_STRLEN_END
18362 #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__, 1, 1, 1)
18364 #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__)
18367#define LAPACK_csyswapr_base LAPACK_GLOBAL(csyswapr,CSYSWAPR)
18368void LAPACK_csyswapr_base(
18370 lapack_int
const* n,
18371 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* i1, lapack_int
const* i2
18372#ifdef LAPACK_FORTRAN_STRLEN_END
18376#ifdef LAPACK_FORTRAN_STRLEN_END
18377 #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__, 1)
18379 #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__)
18382#define LAPACK_dsyswapr_base LAPACK_GLOBAL(dsyswapr,DSYSWAPR)
18383void LAPACK_dsyswapr_base(
18385 lapack_int
const* n,
18386 double* A, lapack_int
const* lda, lapack_int
const* i1, lapack_int
const* i2
18387#ifdef LAPACK_FORTRAN_STRLEN_END
18391#ifdef LAPACK_FORTRAN_STRLEN_END
18392 #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__, 1)
18394 #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__)
18397#define LAPACK_ssyswapr_base LAPACK_GLOBAL(ssyswapr,SSYSWAPR)
18398void LAPACK_ssyswapr_base(
18400 lapack_int
const* n,
18401 float* A, lapack_int
const* lda, lapack_int
const* i1, lapack_int
const* i2
18402#ifdef LAPACK_FORTRAN_STRLEN_END
18406#ifdef LAPACK_FORTRAN_STRLEN_END
18407 #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__, 1)
18409 #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__)
18412#define LAPACK_zsyswapr_base LAPACK_GLOBAL(zsyswapr,ZSYSWAPR)
18413void LAPACK_zsyswapr_base(
18415 lapack_int
const* n,
18416 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* i1, lapack_int
const* i2
18417#ifdef LAPACK_FORTRAN_STRLEN_END
18421#ifdef LAPACK_FORTRAN_STRLEN_END
18422 #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__, 1)
18424 #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__)
18427#define LAPACK_dsytrd_base LAPACK_GLOBAL(dsytrd,DSYTRD)
18428void LAPACK_dsytrd_base(
18430 lapack_int
const* n,
18431 double* A, lapack_int
const* lda,
18435 double* work, lapack_int
const* lwork,
18437#ifdef LAPACK_FORTRAN_STRLEN_END
18441#ifdef LAPACK_FORTRAN_STRLEN_END
18442 #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__, 1)
18444 #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__)
18447#define LAPACK_ssytrd_base LAPACK_GLOBAL(ssytrd,SSYTRD)
18448void LAPACK_ssytrd_base(
18450 lapack_int
const* n,
18451 float* A, lapack_int
const* lda,
18455 float* work, lapack_int
const* lwork,
18457#ifdef LAPACK_FORTRAN_STRLEN_END
18461#ifdef LAPACK_FORTRAN_STRLEN_END
18462 #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__, 1)
18464 #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__)
18467#define LAPACK_dsytrd_2stage_base LAPACK_GLOBAL(dsytrd_2stage,DSYTRD_2STAGE)
18468void LAPACK_dsytrd_2stage_base(
18469 char const* vect,
char const* uplo,
18470 lapack_int
const* n,
18471 double* A, lapack_int
const* lda,
18475 double* HOUS2, lapack_int
const* lhous2,
18476 double* work, lapack_int
const* lwork,
18478#ifdef LAPACK_FORTRAN_STRLEN_END
18482#ifdef LAPACK_FORTRAN_STRLEN_END
18483 #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__, 1, 1)
18485 #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__)
18488#define LAPACK_ssytrd_2stage_base LAPACK_GLOBAL(ssytrd_2stage,SSYTRD_2STAGE)
18489void LAPACK_ssytrd_2stage_base(
18490 char const* vect,
char const* uplo,
18491 lapack_int
const* n,
18492 float* A, lapack_int
const* lda,
18496 float* HOUS2, lapack_int
const* lhous2,
18497 float* work, lapack_int
const* lwork,
18499#ifdef LAPACK_FORTRAN_STRLEN_END
18503#ifdef LAPACK_FORTRAN_STRLEN_END
18504 #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__, 1, 1)
18506 #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__)
18509#define LAPACK_csytrf_base LAPACK_GLOBAL(csytrf,CSYTRF)
18510void LAPACK_csytrf_base(
18512 lapack_int
const* n,
18513 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
18514 lapack_complex_float* work, lapack_int
const* lwork,
18516#ifdef LAPACK_FORTRAN_STRLEN_END
18520#ifdef LAPACK_FORTRAN_STRLEN_END
18521 #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__, 1)
18523 #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__)
18526#define LAPACK_dsytrf_base LAPACK_GLOBAL(dsytrf,DSYTRF)
18527void LAPACK_dsytrf_base(
18529 lapack_int
const* n,
18530 double* A, lapack_int
const* lda, lapack_int* ipiv,
18531 double* work, lapack_int
const* lwork,
18533#ifdef LAPACK_FORTRAN_STRLEN_END
18537#ifdef LAPACK_FORTRAN_STRLEN_END
18538 #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__, 1)
18540 #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__)
18543#define LAPACK_ssytrf_base LAPACK_GLOBAL(ssytrf,SSYTRF)
18544void LAPACK_ssytrf_base(
18546 lapack_int
const* n,
18547 float* A, lapack_int
const* lda, lapack_int* ipiv,
18548 float* work, lapack_int
const* lwork,
18550#ifdef LAPACK_FORTRAN_STRLEN_END
18554#ifdef LAPACK_FORTRAN_STRLEN_END
18555 #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__, 1)
18557 #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__)
18560#define LAPACK_zsytrf_base LAPACK_GLOBAL(zsytrf,ZSYTRF)
18561void LAPACK_zsytrf_base(
18563 lapack_int
const* n,
18564 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
18565 lapack_complex_double* work, lapack_int
const* lwork,
18567#ifdef LAPACK_FORTRAN_STRLEN_END
18571#ifdef LAPACK_FORTRAN_STRLEN_END
18572 #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__, 1)
18574 #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__)
18577#define LAPACK_csytrf_aa_base LAPACK_GLOBAL(csytrf_aa,CSYTRF_AA)
18578void LAPACK_csytrf_aa_base(
18580 lapack_int
const* n,
18581 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
18582 lapack_complex_float* work, lapack_int
const* lwork,
18584#ifdef LAPACK_FORTRAN_STRLEN_END
18588#ifdef LAPACK_FORTRAN_STRLEN_END
18589 #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__, 1)
18591 #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__)
18594#define LAPACK_dsytrf_aa_base LAPACK_GLOBAL(dsytrf_aa,DSYTRF_AA)
18595void LAPACK_dsytrf_aa_base(
18597 lapack_int
const* n,
18598 double* A, lapack_int
const* lda, lapack_int* ipiv,
18599 double* work, lapack_int
const* lwork,
18601#ifdef LAPACK_FORTRAN_STRLEN_END
18605#ifdef LAPACK_FORTRAN_STRLEN_END
18606 #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__, 1)
18608 #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__)
18611#define LAPACK_ssytrf_aa_base LAPACK_GLOBAL(ssytrf_aa,SSYTRF_AA)
18612void LAPACK_ssytrf_aa_base(
18614 lapack_int
const* n,
18615 float* A, lapack_int
const* lda, lapack_int* ipiv,
18616 float* work, lapack_int
const* lwork,
18618#ifdef LAPACK_FORTRAN_STRLEN_END
18622#ifdef LAPACK_FORTRAN_STRLEN_END
18623 #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__, 1)
18625 #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__)
18628#define LAPACK_zsytrf_aa_base LAPACK_GLOBAL(zsytrf_aa,ZSYTRF_AA)
18629void LAPACK_zsytrf_aa_base(
18631 lapack_int
const* n,
18632 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
18633 lapack_complex_double* work, lapack_int
const* lwork,
18635#ifdef LAPACK_FORTRAN_STRLEN_END
18639#ifdef LAPACK_FORTRAN_STRLEN_END
18640 #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__, 1)
18642 #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__)
18645#define LAPACK_csytrf_aa_2stage_base LAPACK_GLOBAL(csytrf_aa_2stage,CSYTRF_AA_2STAGE)
18646void LAPACK_csytrf_aa_2stage_base(
18648 lapack_int
const* n,
18649 lapack_complex_float* A, lapack_int
const* lda,
18650 lapack_complex_float* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18651 lapack_complex_float* work, lapack_int
const* lwork,
18653#ifdef LAPACK_FORTRAN_STRLEN_END
18657#ifdef LAPACK_FORTRAN_STRLEN_END
18658 #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__, 1)
18660 #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__)
18663#define LAPACK_dsytrf_aa_2stage_base LAPACK_GLOBAL(dsytrf_aa_2stage,DSYTRF_AA_2STAGE)
18664void LAPACK_dsytrf_aa_2stage_base(
18666 lapack_int
const* n,
18667 double* A, lapack_int
const* lda,
18668 double* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18669 double* work, lapack_int
const* lwork,
18671#ifdef LAPACK_FORTRAN_STRLEN_END
18675#ifdef LAPACK_FORTRAN_STRLEN_END
18676 #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__, 1)
18678 #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__)
18681#define LAPACK_ssytrf_aa_2stage_base LAPACK_GLOBAL(ssytrf_aa_2stage,SSYTRF_AA_2STAGE)
18682void LAPACK_ssytrf_aa_2stage_base(
18684 lapack_int
const* n,
18685 float* A, lapack_int
const* lda,
18686 float* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18687 float* work, lapack_int
const* lwork,
18689#ifdef LAPACK_FORTRAN_STRLEN_END
18693#ifdef LAPACK_FORTRAN_STRLEN_END
18694 #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__, 1)
18696 #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__)
18699#define LAPACK_zsytrf_aa_2stage_base LAPACK_GLOBAL(zsytrf_aa_2stage,ZSYTRF_AA_2STAGE)
18700void LAPACK_zsytrf_aa_2stage_base(
18702 lapack_int
const* n,
18703 lapack_complex_double* A, lapack_int
const* lda,
18704 lapack_complex_double* TB, lapack_int
const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18705 lapack_complex_double* work, lapack_int
const* lwork,
18707#ifdef LAPACK_FORTRAN_STRLEN_END
18711#ifdef LAPACK_FORTRAN_STRLEN_END
18712 #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__, 1)
18714 #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__)
18717#define LAPACK_csytrf_rk_base LAPACK_GLOBAL(csytrf_rk,CSYTRF_RK)
18718void LAPACK_csytrf_rk_base(
18720 lapack_int
const* n,
18721 lapack_complex_float* A, lapack_int
const* lda,
18722 lapack_complex_float* E, lapack_int* ipiv,
18723 lapack_complex_float* work, lapack_int
const* lwork,
18725#ifdef LAPACK_FORTRAN_STRLEN_END
18729#ifdef LAPACK_FORTRAN_STRLEN_END
18730 #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__, 1)
18732 #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__)
18735#define LAPACK_dsytrf_rk_base LAPACK_GLOBAL(dsytrf_rk,DSYTRF_RK)
18736void LAPACK_dsytrf_rk_base(
18738 lapack_int
const* n,
18739 double* A, lapack_int
const* lda,
18740 double* E, lapack_int* ipiv,
18741 double* work, lapack_int
const* lwork,
18743#ifdef LAPACK_FORTRAN_STRLEN_END
18747#ifdef LAPACK_FORTRAN_STRLEN_END
18748 #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__, 1)
18750 #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__)
18753#define LAPACK_ssytrf_rk_base LAPACK_GLOBAL(ssytrf_rk,SSYTRF_RK)
18754void LAPACK_ssytrf_rk_base(
18756 lapack_int
const* n,
18757 float* A, lapack_int
const* lda,
18758 float* E, lapack_int* ipiv,
18759 float* work, lapack_int
const* lwork,
18761#ifdef LAPACK_FORTRAN_STRLEN_END
18765#ifdef LAPACK_FORTRAN_STRLEN_END
18766 #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__, 1)
18768 #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__)
18771#define LAPACK_zsytrf_rk_base LAPACK_GLOBAL(zsytrf_rk,ZSYTRF_RK)
18772void LAPACK_zsytrf_rk_base(
18774 lapack_int
const* n,
18775 lapack_complex_double* A, lapack_int
const* lda,
18776 lapack_complex_double* E, lapack_int* ipiv,
18777 lapack_complex_double* work, lapack_int
const* lwork,
18779#ifdef LAPACK_FORTRAN_STRLEN_END
18783#ifdef LAPACK_FORTRAN_STRLEN_END
18784 #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__, 1)
18786 #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__)
18789#define LAPACK_csytrf_rook_base LAPACK_GLOBAL(csytrf_rook,CSYTRF_ROOK)
18790void LAPACK_csytrf_rook_base(
18792 lapack_int
const* n,
18793 lapack_complex_float* A, lapack_int
const* lda, lapack_int* ipiv,
18794 lapack_complex_float* work, lapack_int
const* lwork,
18796#ifdef LAPACK_FORTRAN_STRLEN_END
18800#ifdef LAPACK_FORTRAN_STRLEN_END
18801 #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__, 1)
18803 #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__)
18806#define LAPACK_dsytrf_rook_base LAPACK_GLOBAL(dsytrf_rook,DSYTRF_ROOK)
18807void LAPACK_dsytrf_rook_base(
18809 lapack_int
const* n,
18810 double* A, lapack_int
const* lda, lapack_int* ipiv,
18811 double* work, lapack_int
const* lwork,
18813#ifdef LAPACK_FORTRAN_STRLEN_END
18817#ifdef LAPACK_FORTRAN_STRLEN_END
18818 #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__, 1)
18820 #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__)
18823#define LAPACK_ssytrf_rook_base LAPACK_GLOBAL(ssytrf_rook,SSYTRF_ROOK)
18824void LAPACK_ssytrf_rook_base(
18826 lapack_int
const* n,
18827 float* A, lapack_int
const* lda, lapack_int* ipiv,
18828 float* work, lapack_int
const* lwork,
18830#ifdef LAPACK_FORTRAN_STRLEN_END
18834#ifdef LAPACK_FORTRAN_STRLEN_END
18835 #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__, 1)
18837 #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__)
18840#define LAPACK_zsytrf_rook_base LAPACK_GLOBAL(zsytrf_rook,ZSYTRF_ROOK)
18841void LAPACK_zsytrf_rook_base(
18843 lapack_int
const* n,
18844 lapack_complex_double* A, lapack_int
const* lda, lapack_int* ipiv,
18845 lapack_complex_double* work, lapack_int
const* lwork,
18847#ifdef LAPACK_FORTRAN_STRLEN_END
18851#ifdef LAPACK_FORTRAN_STRLEN_END
18852 #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__, 1)
18854 #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__)
18857#define LAPACK_csytri_base LAPACK_GLOBAL(csytri,CSYTRI)
18858void LAPACK_csytri_base(
18860 lapack_int
const* n,
18861 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
18862 lapack_complex_float* work,
18864#ifdef LAPACK_FORTRAN_STRLEN_END
18868#ifdef LAPACK_FORTRAN_STRLEN_END
18869 #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__, 1)
18871 #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__)
18874#define LAPACK_dsytri_base LAPACK_GLOBAL(dsytri,DSYTRI)
18875void LAPACK_dsytri_base(
18877 lapack_int
const* n,
18878 double* A, lapack_int
const* lda, lapack_int
const* ipiv,
18881#ifdef LAPACK_FORTRAN_STRLEN_END
18885#ifdef LAPACK_FORTRAN_STRLEN_END
18886 #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__, 1)
18888 #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__)
18891#define LAPACK_ssytri_base LAPACK_GLOBAL(ssytri,SSYTRI)
18892void LAPACK_ssytri_base(
18894 lapack_int
const* n,
18895 float* A, lapack_int
const* lda, lapack_int
const* ipiv,
18898#ifdef LAPACK_FORTRAN_STRLEN_END
18902#ifdef LAPACK_FORTRAN_STRLEN_END
18903 #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__, 1)
18905 #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__)
18908#define LAPACK_zsytri_base LAPACK_GLOBAL(zsytri,ZSYTRI)
18909void LAPACK_zsytri_base(
18911 lapack_int
const* n,
18912 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
18913 lapack_complex_double* work,
18915#ifdef LAPACK_FORTRAN_STRLEN_END
18919#ifdef LAPACK_FORTRAN_STRLEN_END
18920 #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__, 1)
18922 #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__)
18925#define LAPACK_csytri2_base LAPACK_GLOBAL(csytri2,CSYTRI2)
18926void LAPACK_csytri2_base(
18928 lapack_int
const* n,
18929 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
18930 lapack_complex_float* work, lapack_int
const* lwork,
18932#ifdef LAPACK_FORTRAN_STRLEN_END
18936#ifdef LAPACK_FORTRAN_STRLEN_END
18937 #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__, 1)
18939 #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__)
18942#define LAPACK_dsytri2_base LAPACK_GLOBAL(dsytri2,DSYTRI2)
18943void LAPACK_dsytri2_base(
18945 lapack_int
const* n,
18946 double* A, lapack_int
const* lda, lapack_int
const* ipiv,
18947 double* work, lapack_int
const* lwork,
18949#ifdef LAPACK_FORTRAN_STRLEN_END
18953#ifdef LAPACK_FORTRAN_STRLEN_END
18954 #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__, 1)
18956 #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__)
18959#define LAPACK_ssytri2_base LAPACK_GLOBAL(ssytri2,SSYTRI2)
18960void LAPACK_ssytri2_base(
18962 lapack_int
const* n,
18963 float* A, lapack_int
const* lda, lapack_int
const* ipiv,
18964 float* work, lapack_int
const* lwork,
18966#ifdef LAPACK_FORTRAN_STRLEN_END
18970#ifdef LAPACK_FORTRAN_STRLEN_END
18971 #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__, 1)
18973 #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__)
18976#define LAPACK_zsytri2_base LAPACK_GLOBAL(zsytri2,ZSYTRI2)
18977void LAPACK_zsytri2_base(
18979 lapack_int
const* n,
18980 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
18981 lapack_complex_double* work, lapack_int
const* lwork,
18983#ifdef LAPACK_FORTRAN_STRLEN_END
18987#ifdef LAPACK_FORTRAN_STRLEN_END
18988 #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__, 1)
18990 #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__)
18993#define LAPACK_csytri2x_base LAPACK_GLOBAL(csytri2x,CSYTRI2X)
18994void LAPACK_csytri2x_base(
18996 lapack_int
const* n,
18997 lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
18998 lapack_complex_float* work, lapack_int
const* nb,
19000#ifdef LAPACK_FORTRAN_STRLEN_END
19004#ifdef LAPACK_FORTRAN_STRLEN_END
19005 #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__, 1)
19007 #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__)
19010#define LAPACK_dsytri2x_base LAPACK_GLOBAL(dsytri2x,DSYTRI2X)
19011void LAPACK_dsytri2x_base(
19013 lapack_int
const* n,
19014 double* A, lapack_int
const* lda, lapack_int
const* ipiv,
19015 double* work, lapack_int
const* nb,
19017#ifdef LAPACK_FORTRAN_STRLEN_END
19021#ifdef LAPACK_FORTRAN_STRLEN_END
19022 #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__, 1)
19024 #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__)
19027#define LAPACK_ssytri2x_base LAPACK_GLOBAL(ssytri2x,SSYTRI2X)
19028void LAPACK_ssytri2x_base(
19030 lapack_int
const* n,
19031 float* A, lapack_int
const* lda, lapack_int
const* ipiv,
19032 float* work, lapack_int
const* nb,
19034#ifdef LAPACK_FORTRAN_STRLEN_END
19038#ifdef LAPACK_FORTRAN_STRLEN_END
19039 #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__, 1)
19041 #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__)
19044#define LAPACK_zsytri2x_base LAPACK_GLOBAL(zsytri2x,ZSYTRI2X)
19045void LAPACK_zsytri2x_base(
19047 lapack_int
const* n,
19048 lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
19049 lapack_complex_double* work, lapack_int
const* nb,
19051#ifdef LAPACK_FORTRAN_STRLEN_END
19055#ifdef LAPACK_FORTRAN_STRLEN_END
19056 #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__, 1)
19058 #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__)
19061#define LAPACK_csytri_3_base LAPACK_GLOBAL(csytri_3,CSYTRI_3)
19062void LAPACK_csytri_3_base(
19064 lapack_int
const* n,
19065 lapack_complex_float* A, lapack_int
const* lda,
19066 lapack_complex_float
const* E, lapack_int
const* ipiv,
19067 lapack_complex_float* work, lapack_int
const* lwork,
19069#ifdef LAPACK_FORTRAN_STRLEN_END
19073#ifdef LAPACK_FORTRAN_STRLEN_END
19074 #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__, 1)
19076 #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__)
19079#define LAPACK_dsytri_3_base LAPACK_GLOBAL(dsytri_3,DSYTRI_3)
19080void LAPACK_dsytri_3_base(
19082 lapack_int
const* n,
19083 double* A, lapack_int
const* lda,
19084 double const* E, lapack_int
const* ipiv,
19085 double* work, lapack_int
const* lwork,
19087#ifdef LAPACK_FORTRAN_STRLEN_END
19091#ifdef LAPACK_FORTRAN_STRLEN_END
19092 #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__, 1)
19094 #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__)
19097#define LAPACK_ssytri_3_base LAPACK_GLOBAL(ssytri_3,SSYTRI_3)
19098void LAPACK_ssytri_3_base(
19100 lapack_int
const* n,
19101 float* A, lapack_int
const* lda,
19102 float const* E, lapack_int
const* ipiv,
19103 float* work, lapack_int
const* lwork,
19105#ifdef LAPACK_FORTRAN_STRLEN_END
19109#ifdef LAPACK_FORTRAN_STRLEN_END
19110 #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__, 1)
19112 #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__)
19115#define LAPACK_zsytri_3_base LAPACK_GLOBAL(zsytri_3,ZSYTRI_3)
19116void LAPACK_zsytri_3_base(
19118 lapack_int
const* n,
19119 lapack_complex_double* A, lapack_int
const* lda,
19120 lapack_complex_double
const* E, lapack_int
const* ipiv,
19121 lapack_complex_double* work, lapack_int
const* lwork,
19123#ifdef LAPACK_FORTRAN_STRLEN_END
19127#ifdef LAPACK_FORTRAN_STRLEN_END
19128 #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__, 1)
19130 #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__)
19133#define LAPACK_csytrs_base LAPACK_GLOBAL(csytrs,CSYTRS)
19134void LAPACK_csytrs_base(
19136 lapack_int
const* n, lapack_int
const* nrhs,
19137 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19138 lapack_complex_float* B, lapack_int
const* ldb,
19140#ifdef LAPACK_FORTRAN_STRLEN_END
19144#ifdef LAPACK_FORTRAN_STRLEN_END
19145 #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__, 1)
19147 #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__)
19150#define LAPACK_dsytrs_base LAPACK_GLOBAL(dsytrs,DSYTRS)
19151void LAPACK_dsytrs_base(
19153 lapack_int
const* n, lapack_int
const* nrhs,
19154 double const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19155 double* B, lapack_int
const* ldb,
19157#ifdef LAPACK_FORTRAN_STRLEN_END
19161#ifdef LAPACK_FORTRAN_STRLEN_END
19162 #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__, 1)
19164 #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__)
19167#define LAPACK_ssytrs_base LAPACK_GLOBAL(ssytrs,SSYTRS)
19168void LAPACK_ssytrs_base(
19170 lapack_int
const* n, lapack_int
const* nrhs,
19171 float const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19172 float* B, lapack_int
const* ldb,
19174#ifdef LAPACK_FORTRAN_STRLEN_END
19178#ifdef LAPACK_FORTRAN_STRLEN_END
19179 #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__, 1)
19181 #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__)
19184#define LAPACK_zsytrs_base LAPACK_GLOBAL(zsytrs,ZSYTRS)
19185void LAPACK_zsytrs_base(
19187 lapack_int
const* n, lapack_int
const* nrhs,
19188 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19189 lapack_complex_double* B, lapack_int
const* ldb,
19191#ifdef LAPACK_FORTRAN_STRLEN_END
19195#ifdef LAPACK_FORTRAN_STRLEN_END
19196 #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__, 1)
19198 #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__)
19201#define LAPACK_csytrs2_base LAPACK_GLOBAL(csytrs2,CSYTRS2)
19202void LAPACK_csytrs2_base(
19204 lapack_int
const* n, lapack_int
const* nrhs,
19205 const lapack_complex_float* A, lapack_int
const* lda, lapack_int
const* ipiv,
19206 lapack_complex_float* B, lapack_int
const* ldb,
19207 lapack_complex_float* work,
19209#ifdef LAPACK_FORTRAN_STRLEN_END
19213#ifdef LAPACK_FORTRAN_STRLEN_END
19214 #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__, 1)
19216 #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__)
19219#define LAPACK_dsytrs2_base LAPACK_GLOBAL(dsytrs2,DSYTRS2)
19220void LAPACK_dsytrs2_base(
19222 lapack_int
const* n, lapack_int
const* nrhs,
19223 const double* A, lapack_int
const* lda, lapack_int
const* ipiv,
19224 double* B, lapack_int
const* ldb,
19227#ifdef LAPACK_FORTRAN_STRLEN_END
19231#ifdef LAPACK_FORTRAN_STRLEN_END
19232 #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__, 1)
19234 #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__)
19237#define LAPACK_ssytrs2_base LAPACK_GLOBAL(ssytrs2,SSYTRS2)
19238void LAPACK_ssytrs2_base(
19240 lapack_int
const* n, lapack_int
const* nrhs,
19241 const float* A, lapack_int
const* lda, lapack_int
const* ipiv,
19242 float* B, lapack_int
const* ldb,
19245#ifdef LAPACK_FORTRAN_STRLEN_END
19249#ifdef LAPACK_FORTRAN_STRLEN_END
19250 #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__, 1)
19252 #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__)
19255#define LAPACK_zsytrs2_base LAPACK_GLOBAL(zsytrs2,ZSYTRS2)
19256void LAPACK_zsytrs2_base(
19258 lapack_int
const* n, lapack_int
const* nrhs,
19259 const lapack_complex_double* A, lapack_int
const* lda, lapack_int
const* ipiv,
19260 lapack_complex_double* B, lapack_int
const* ldb,
19261 lapack_complex_double* work,
19263#ifdef LAPACK_FORTRAN_STRLEN_END
19267#ifdef LAPACK_FORTRAN_STRLEN_END
19268 #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__, 1)
19270 #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__)
19273#define LAPACK_csytrs_3_base LAPACK_GLOBAL(csytrs_3,CSYTRS_3)
19274void LAPACK_csytrs_3_base(
19276 lapack_int
const* n, lapack_int
const* nrhs,
19277 lapack_complex_float
const* A, lapack_int
const* lda,
19278 lapack_complex_float
const* E, lapack_int
const* ipiv,
19279 lapack_complex_float* B, lapack_int
const* ldb,
19281#ifdef LAPACK_FORTRAN_STRLEN_END
19285#ifdef LAPACK_FORTRAN_STRLEN_END
19286 #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__, 1)
19288 #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__)
19291#define LAPACK_dsytrs_3_base LAPACK_GLOBAL(dsytrs_3,DSYTRS_3)
19292void LAPACK_dsytrs_3_base(
19294 lapack_int
const* n, lapack_int
const* nrhs,
19295 double const* A, lapack_int
const* lda,
19296 double const* E, lapack_int
const* ipiv,
19297 double* B, lapack_int
const* ldb,
19299#ifdef LAPACK_FORTRAN_STRLEN_END
19303#ifdef LAPACK_FORTRAN_STRLEN_END
19304 #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__, 1)
19306 #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__)
19309#define LAPACK_ssytrs_3_base LAPACK_GLOBAL(ssytrs_3,SSYTRS_3)
19310void LAPACK_ssytrs_3_base(
19312 lapack_int
const* n, lapack_int
const* nrhs,
19313 float const* A, lapack_int
const* lda,
19314 float const* E, lapack_int
const* ipiv,
19315 float* B, lapack_int
const* ldb,
19317#ifdef LAPACK_FORTRAN_STRLEN_END
19321#ifdef LAPACK_FORTRAN_STRLEN_END
19322 #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__, 1)
19324 #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__)
19327#define LAPACK_zsytrs_3_base LAPACK_GLOBAL(zsytrs_3,ZSYTRS_3)
19328void LAPACK_zsytrs_3_base(
19330 lapack_int
const* n, lapack_int
const* nrhs,
19331 lapack_complex_double
const* A, lapack_int
const* lda,
19332 lapack_complex_double
const* E, lapack_int
const* ipiv,
19333 lapack_complex_double* B, lapack_int
const* ldb,
19335#ifdef LAPACK_FORTRAN_STRLEN_END
19339#ifdef LAPACK_FORTRAN_STRLEN_END
19340 #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__, 1)
19342 #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__)
19345#define LAPACK_csytrs_aa_base LAPACK_GLOBAL(csytrs_aa,CSYTRS_AA)
19346void LAPACK_csytrs_aa_base(
19348 lapack_int
const* n, lapack_int
const* nrhs,
19349 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19350 lapack_complex_float* B, lapack_int
const* ldb,
19351 lapack_complex_float* work, lapack_int
const* lwork,
19353#ifdef LAPACK_FORTRAN_STRLEN_END
19357#ifdef LAPACK_FORTRAN_STRLEN_END
19358 #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__, 1)
19360 #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__)
19363#define LAPACK_dsytrs_aa_base LAPACK_GLOBAL(dsytrs_aa,DSYTRS_AA)
19364void LAPACK_dsytrs_aa_base(
19366 lapack_int
const* n, lapack_int
const* nrhs,
19367 double const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19368 double* B, lapack_int
const* ldb,
19369 double* work, lapack_int
const* lwork,
19371#ifdef LAPACK_FORTRAN_STRLEN_END
19375#ifdef LAPACK_FORTRAN_STRLEN_END
19376 #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__, 1)
19378 #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__)
19381#define LAPACK_ssytrs_aa_base LAPACK_GLOBAL(ssytrs_aa,SSYTRS_AA)
19382void LAPACK_ssytrs_aa_base(
19384 lapack_int
const* n, lapack_int
const* nrhs,
19385 float const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19386 float* B, lapack_int
const* ldb,
19387 float* work, lapack_int
const* lwork,
19389#ifdef LAPACK_FORTRAN_STRLEN_END
19393#ifdef LAPACK_FORTRAN_STRLEN_END
19394 #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__, 1)
19396 #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__)
19399#define LAPACK_zsytrs_aa_base LAPACK_GLOBAL(zsytrs_aa,ZSYTRS_AA)
19400void LAPACK_zsytrs_aa_base(
19402 lapack_int
const* n, lapack_int
const* nrhs,
19403 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19404 lapack_complex_double* B, lapack_int
const* ldb,
19405 lapack_complex_double* work, lapack_int
const* lwork,
19407#ifdef LAPACK_FORTRAN_STRLEN_END
19411#ifdef LAPACK_FORTRAN_STRLEN_END
19412 #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__, 1)
19414 #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__)
19417#define LAPACK_csytrs_aa_2stage_base LAPACK_GLOBAL(csytrs_aa_2stage,CSYTRS_AA_2STAGE)
19418void LAPACK_csytrs_aa_2stage_base(
19420 lapack_int
const* n, lapack_int
const* nrhs,
19421 lapack_complex_float
const* A, lapack_int
const* lda,
19422 lapack_complex_float* TB, lapack_int
const* ltb, lapack_int
const* ipiv, lapack_int
const* ipiv2,
19423 lapack_complex_float* B, lapack_int
const* ldb,
19425#ifdef LAPACK_FORTRAN_STRLEN_END
19429#ifdef LAPACK_FORTRAN_STRLEN_END
19430 #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__, 1)
19432 #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__)
19435#define LAPACK_dsytrs_aa_2stage_base LAPACK_GLOBAL(dsytrs_aa_2stage,DSYTRS_AA_2STAGE)
19436void LAPACK_dsytrs_aa_2stage_base(
19438 lapack_int
const* n, lapack_int
const* nrhs,
19439 double const* A, lapack_int
const* lda,
19440 double* TB, lapack_int
const* ltb, lapack_int
const* ipiv, lapack_int
const* ipiv2,
19441 double* B, lapack_int
const* ldb,
19443#ifdef LAPACK_FORTRAN_STRLEN_END
19447#ifdef LAPACK_FORTRAN_STRLEN_END
19448 #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__, 1)
19450 #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__)
19453#define LAPACK_ssytrs_aa_2stage_base LAPACK_GLOBAL(ssytrs_aa_2stage,SSYTRS_AA_2STAGE)
19454void LAPACK_ssytrs_aa_2stage_base(
19456 lapack_int
const* n, lapack_int
const* nrhs,
19457 float const* A, lapack_int
const* lda,
19458 float* TB, lapack_int
const* ltb, lapack_int
const* ipiv, lapack_int
const* ipiv2,
19459 float* B, lapack_int
const* ldb,
19461#ifdef LAPACK_FORTRAN_STRLEN_END
19465#ifdef LAPACK_FORTRAN_STRLEN_END
19466 #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__, 1)
19468 #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__)
19471#define LAPACK_zsytrs_aa_2stage_base LAPACK_GLOBAL(zsytrs_aa_2stage,ZSYTRS_AA_2STAGE)
19472void LAPACK_zsytrs_aa_2stage_base(
19474 lapack_int
const* n, lapack_int
const* nrhs,
19475 lapack_complex_double
const* A, lapack_int
const* lda,
19476 lapack_complex_double* TB, lapack_int
const* ltb, lapack_int
const* ipiv, lapack_int
const* ipiv2,
19477 lapack_complex_double* B, lapack_int
const* ldb,
19479#ifdef LAPACK_FORTRAN_STRLEN_END
19483#ifdef LAPACK_FORTRAN_STRLEN_END
19484 #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__, 1)
19486 #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__)
19489#define LAPACK_csytrs_rook_base LAPACK_GLOBAL(csytrs_rook,CSYTRS_ROOK)
19490void LAPACK_csytrs_rook_base(
19492 lapack_int
const* n, lapack_int
const* nrhs,
19493 lapack_complex_float
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19494 lapack_complex_float* B, lapack_int
const* ldb,
19496#ifdef LAPACK_FORTRAN_STRLEN_END
19500#ifdef LAPACK_FORTRAN_STRLEN_END
19501 #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__, 1)
19503 #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__)
19506#define LAPACK_dsytrs_rook_base LAPACK_GLOBAL(dsytrs_rook,DSYTRS_ROOK)
19507void LAPACK_dsytrs_rook_base(
19509 lapack_int
const* n, lapack_int
const* nrhs,
19510 double const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19511 double* B, lapack_int
const* ldb,
19513#ifdef LAPACK_FORTRAN_STRLEN_END
19517#ifdef LAPACK_FORTRAN_STRLEN_END
19518 #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__, 1)
19520 #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__)
19523#define LAPACK_ssytrs_rook_base LAPACK_GLOBAL(ssytrs_rook,SSYTRS_ROOK)
19524void LAPACK_ssytrs_rook_base(
19526 lapack_int
const* n, lapack_int
const* nrhs,
19527 float const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19528 float* B, lapack_int
const* ldb,
19530#ifdef LAPACK_FORTRAN_STRLEN_END
19534#ifdef LAPACK_FORTRAN_STRLEN_END
19535 #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__, 1)
19537 #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__)
19540#define LAPACK_zsytrs_rook_base LAPACK_GLOBAL(zsytrs_rook,ZSYTRS_ROOK)
19541void LAPACK_zsytrs_rook_base(
19543 lapack_int
const* n, lapack_int
const* nrhs,
19544 lapack_complex_double
const* A, lapack_int
const* lda, lapack_int
const* ipiv,
19545 lapack_complex_double* B, lapack_int
const* ldb,
19547#ifdef LAPACK_FORTRAN_STRLEN_END
19551#ifdef LAPACK_FORTRAN_STRLEN_END
19552 #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__, 1)
19554 #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__)
19557#define LAPACK_ctbcon_base LAPACK_GLOBAL(ctbcon,CTBCON)
19558void LAPACK_ctbcon_base(
19559 char const* norm,
char const* uplo,
char const* diag,
19560 lapack_int
const* n, lapack_int
const* kd,
19561 lapack_complex_float
const* AB, lapack_int
const* ldab,
19563 lapack_complex_float* work,
19566#ifdef LAPACK_FORTRAN_STRLEN_END
19567 ,
size_t,
size_t,
size_t
19570#ifdef LAPACK_FORTRAN_STRLEN_END
19571 #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__, 1, 1, 1)
19573 #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__)
19576#define LAPACK_dtbcon_base LAPACK_GLOBAL(dtbcon,DTBCON)
19577void LAPACK_dtbcon_base(
19578 char const* norm,
char const* uplo,
char const* diag,
19579 lapack_int
const* n, lapack_int
const* kd,
19580 double const* AB, lapack_int
const* ldab,
19585#ifdef LAPACK_FORTRAN_STRLEN_END
19586 ,
size_t,
size_t,
size_t
19589#ifdef LAPACK_FORTRAN_STRLEN_END
19590 #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__, 1, 1, 1)
19592 #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__)
19595#define LAPACK_stbcon_base LAPACK_GLOBAL(stbcon,STBCON)
19596void LAPACK_stbcon_base(
19597 char const* norm,
char const* uplo,
char const* diag,
19598 lapack_int
const* n, lapack_int
const* kd,
19599 float const* AB, lapack_int
const* ldab,
19604#ifdef LAPACK_FORTRAN_STRLEN_END
19605 ,
size_t,
size_t,
size_t
19608#ifdef LAPACK_FORTRAN_STRLEN_END
19609 #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__, 1, 1, 1)
19611 #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__)
19614#define LAPACK_ztbcon_base LAPACK_GLOBAL(ztbcon,ZTBCON)
19615void LAPACK_ztbcon_base(
19616 char const* norm,
char const* uplo,
char const* diag,
19617 lapack_int
const* n, lapack_int
const* kd,
19618 lapack_complex_double
const* AB, lapack_int
const* ldab,
19620 lapack_complex_double* work,
19623#ifdef LAPACK_FORTRAN_STRLEN_END
19624 ,
size_t,
size_t,
size_t
19627#ifdef LAPACK_FORTRAN_STRLEN_END
19628 #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__, 1, 1, 1)
19630 #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__)
19633#define LAPACK_ctbrfs_base LAPACK_GLOBAL(ctbrfs,CTBRFS)
19634void LAPACK_ctbrfs_base(
19635 char const* uplo,
char const* trans,
char const* diag,
19636 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
19637 lapack_complex_float
const* AB, lapack_int
const* ldab,
19638 lapack_complex_float
const* B, lapack_int
const* ldb,
19639 lapack_complex_float
const* X, lapack_int
const* ldx,
19642 lapack_complex_float* work,
19645#ifdef LAPACK_FORTRAN_STRLEN_END
19646 ,
size_t,
size_t,
size_t
19649#ifdef LAPACK_FORTRAN_STRLEN_END
19650 #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__, 1, 1, 1)
19652 #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__)
19655#define LAPACK_dtbrfs_base LAPACK_GLOBAL(dtbrfs,DTBRFS)
19656void LAPACK_dtbrfs_base(
19657 char const* uplo,
char const* trans,
char const* diag,
19658 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
19659 double const* AB, lapack_int
const* ldab,
19660 double const* B, lapack_int
const* ldb,
19661 double const* X, lapack_int
const* ldx,
19667#ifdef LAPACK_FORTRAN_STRLEN_END
19668 ,
size_t,
size_t,
size_t
19671#ifdef LAPACK_FORTRAN_STRLEN_END
19672 #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__, 1, 1, 1)
19674 #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__)
19677#define LAPACK_stbrfs_base LAPACK_GLOBAL(stbrfs,STBRFS)
19678void LAPACK_stbrfs_base(
19679 char const* uplo,
char const* trans,
char const* diag,
19680 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
19681 float const* AB, lapack_int
const* ldab,
19682 float const* B, lapack_int
const* ldb,
19683 float const* X, lapack_int
const* ldx,
19689#ifdef LAPACK_FORTRAN_STRLEN_END
19690 ,
size_t,
size_t,
size_t
19693#ifdef LAPACK_FORTRAN_STRLEN_END
19694 #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__, 1, 1, 1)
19696 #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__)
19699#define LAPACK_ztbrfs_base LAPACK_GLOBAL(ztbrfs,ZTBRFS)
19700void LAPACK_ztbrfs_base(
19701 char const* uplo,
char const* trans,
char const* diag,
19702 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
19703 lapack_complex_double
const* AB, lapack_int
const* ldab,
19704 lapack_complex_double
const* B, lapack_int
const* ldb,
19705 lapack_complex_double
const* X, lapack_int
const* ldx,
19708 lapack_complex_double* work,
19711#ifdef LAPACK_FORTRAN_STRLEN_END
19712 ,
size_t,
size_t,
size_t
19715#ifdef LAPACK_FORTRAN_STRLEN_END
19716 #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__, 1, 1, 1)
19718 #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__)
19721#define LAPACK_ctbtrs_base LAPACK_GLOBAL(ctbtrs,CTBTRS)
19722void LAPACK_ctbtrs_base(
19723 char const* uplo,
char const* trans,
char const* diag,
19724 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
19725 lapack_complex_float
const* AB, lapack_int
const* ldab,
19726 lapack_complex_float* B, lapack_int
const* ldb,
19728#ifdef LAPACK_FORTRAN_STRLEN_END
19729 ,
size_t,
size_t,
size_t
19732#ifdef LAPACK_FORTRAN_STRLEN_END
19733 #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__, 1, 1, 1)
19735 #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__)
19738#define LAPACK_dtbtrs_base LAPACK_GLOBAL(dtbtrs,DTBTRS)
19739void LAPACK_dtbtrs_base(
19740 char const* uplo,
char const* trans,
char const* diag,
19741 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
19742 double const* AB, lapack_int
const* ldab,
19743 double* B, lapack_int
const* ldb,
19745#ifdef LAPACK_FORTRAN_STRLEN_END
19746 ,
size_t,
size_t,
size_t
19749#ifdef LAPACK_FORTRAN_STRLEN_END
19750 #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__, 1, 1, 1)
19752 #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__)
19755#define LAPACK_stbtrs_base LAPACK_GLOBAL(stbtrs,STBTRS)
19756void LAPACK_stbtrs_base(
19757 char const* uplo,
char const* trans,
char const* diag,
19758 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
19759 float const* AB, lapack_int
const* ldab,
19760 float* B, lapack_int
const* ldb,
19762#ifdef LAPACK_FORTRAN_STRLEN_END
19763 ,
size_t,
size_t,
size_t
19766#ifdef LAPACK_FORTRAN_STRLEN_END
19767 #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__, 1, 1, 1)
19769 #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__)
19772#define LAPACK_ztbtrs_base LAPACK_GLOBAL(ztbtrs,ZTBTRS)
19773void LAPACK_ztbtrs_base(
19774 char const* uplo,
char const* trans,
char const* diag,
19775 lapack_int
const* n, lapack_int
const* kd, lapack_int
const* nrhs,
19776 lapack_complex_double
const* AB, lapack_int
const* ldab,
19777 lapack_complex_double* B, lapack_int
const* ldb,
19779#ifdef LAPACK_FORTRAN_STRLEN_END
19780 ,
size_t,
size_t,
size_t
19783#ifdef LAPACK_FORTRAN_STRLEN_END
19784 #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__, 1, 1, 1)
19786 #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__)
19789#define LAPACK_ctfsm_base LAPACK_GLOBAL(ctfsm,CTFSM)
19790void LAPACK_ctfsm_base(
19791 char const* transr,
char const* side,
char const* uplo,
char const* trans,
char const* diag,
19792 lapack_int
const* m, lapack_int
const* n,
19793 lapack_complex_float
const* alpha,
19794 lapack_complex_float
const* A,
19795 lapack_complex_float* B, lapack_int
const* ldb
19796#ifdef LAPACK_FORTRAN_STRLEN_END
19797 ,
size_t,
size_t,
size_t,
size_t,
size_t
19800#ifdef LAPACK_FORTRAN_STRLEN_END
19801 #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19803 #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__)
19806#define LAPACK_dtfsm_base LAPACK_GLOBAL(dtfsm,DTFSM)
19807void LAPACK_dtfsm_base(
19808 char const* transr,
char const* side,
char const* uplo,
char const* trans,
char const* diag,
19809 lapack_int
const* m, lapack_int
const* n,
19810 double const* alpha,
19812 double* B, lapack_int
const* ldb
19813#ifdef LAPACK_FORTRAN_STRLEN_END
19814 ,
size_t,
size_t,
size_t,
size_t,
size_t
19817#ifdef LAPACK_FORTRAN_STRLEN_END
19818 #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19820 #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__)
19823#define LAPACK_stfsm_base LAPACK_GLOBAL(stfsm,STFSM)
19824void LAPACK_stfsm_base(
19825 char const* transr,
char const* side,
char const* uplo,
char const* trans,
char const* diag,
19826 lapack_int
const* m, lapack_int
const* n,
19827 float const* alpha,
19829 float* B, lapack_int
const* ldb
19830#ifdef LAPACK_FORTRAN_STRLEN_END
19831 ,
size_t,
size_t,
size_t,
size_t,
size_t
19834#ifdef LAPACK_FORTRAN_STRLEN_END
19835 #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19837 #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__)
19840#define LAPACK_ztfsm_base LAPACK_GLOBAL(ztfsm,ZTFSM)
19841void LAPACK_ztfsm_base(
19842 char const* transr,
char const* side,
char const* uplo,
char const* trans,
char const* diag,
19843 lapack_int
const* m, lapack_int
const* n,
19844 lapack_complex_double
const* alpha,
19845 lapack_complex_double
const* A,
19846 lapack_complex_double* B, lapack_int
const* ldb
19847#ifdef LAPACK_FORTRAN_STRLEN_END
19848 ,
size_t,
size_t,
size_t,
size_t,
size_t
19851#ifdef LAPACK_FORTRAN_STRLEN_END
19852 #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19854 #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__)
19857#define LAPACK_ctftri_base LAPACK_GLOBAL(ctftri,CTFTRI)
19858void LAPACK_ctftri_base(
19859 char const* transr,
char const* uplo,
char const* diag,
19860 lapack_int
const* n,
19861 lapack_complex_float* A,
19863#ifdef LAPACK_FORTRAN_STRLEN_END
19864 ,
size_t,
size_t,
size_t
19867#ifdef LAPACK_FORTRAN_STRLEN_END
19868 #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__, 1, 1, 1)
19870 #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__)
19873#define LAPACK_dtftri_base LAPACK_GLOBAL(dtftri,DTFTRI)
19874void LAPACK_dtftri_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_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__, 1, 1, 1)
19886 #define LAPACK_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__)
19889#define LAPACK_stftri_base LAPACK_GLOBAL(stftri,STFTRI)
19890void LAPACK_stftri_base(
19891 char const* transr,
char const* uplo,
char const* diag,
19892 lapack_int
const* n,
19895#ifdef LAPACK_FORTRAN_STRLEN_END
19896 ,
size_t,
size_t,
size_t
19899#ifdef LAPACK_FORTRAN_STRLEN_END
19900 #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__, 1, 1, 1)
19902 #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__)
19905#define LAPACK_ztftri_base LAPACK_GLOBAL(ztftri,ZTFTRI)
19906void LAPACK_ztftri_base(
19907 char const* transr,
char const* uplo,
char const* diag,
19908 lapack_int
const* n,
19909 lapack_complex_double* A,
19911#ifdef LAPACK_FORTRAN_STRLEN_END
19912 ,
size_t,
size_t,
size_t
19915#ifdef LAPACK_FORTRAN_STRLEN_END
19916 #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__, 1, 1, 1)
19918 #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__)
19921#define LAPACK_ctfttp_base LAPACK_GLOBAL(ctfttp,CTFTTP)
19922void LAPACK_ctfttp_base(
19923 char const* transr,
char const* uplo,
19924 lapack_int
const* n,
19925 lapack_complex_float
const* ARF,
19926 lapack_complex_float* AP,
19928#ifdef LAPACK_FORTRAN_STRLEN_END
19932#ifdef LAPACK_FORTRAN_STRLEN_END
19933 #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__, 1, 1)
19935 #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__)
19938#define LAPACK_dtfttp_base LAPACK_GLOBAL(dtfttp,DTFTTP)
19939void LAPACK_dtfttp_base(
19940 char const* transr,
char const* uplo,
19941 lapack_int
const* n,
19945#ifdef LAPACK_FORTRAN_STRLEN_END
19949#ifdef LAPACK_FORTRAN_STRLEN_END
19950 #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__, 1, 1)
19952 #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__)
19955#define LAPACK_stfttp_base LAPACK_GLOBAL(stfttp,STFTTP)
19956void LAPACK_stfttp_base(
19957 char const* transr,
char const* uplo,
19958 lapack_int
const* n,
19962#ifdef LAPACK_FORTRAN_STRLEN_END
19966#ifdef LAPACK_FORTRAN_STRLEN_END
19967 #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__, 1, 1)
19969 #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__)
19972#define LAPACK_ztfttp_base LAPACK_GLOBAL(ztfttp,ZTFTTP)
19973void LAPACK_ztfttp_base(
19974 char const* transr,
char const* uplo,
19975 lapack_int
const* n,
19976 lapack_complex_double
const* ARF,
19977 lapack_complex_double* AP,
19979#ifdef LAPACK_FORTRAN_STRLEN_END
19983#ifdef LAPACK_FORTRAN_STRLEN_END
19984 #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__, 1, 1)
19986 #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__)
19989#define LAPACK_ctfttr_base LAPACK_GLOBAL(ctfttr,CTFTTR)
19990void LAPACK_ctfttr_base(
19991 char const* transr,
char const* uplo,
19992 lapack_int
const* n,
19993 lapack_complex_float
const* ARF,
19994 lapack_complex_float* A, lapack_int
const* lda,
19996#ifdef LAPACK_FORTRAN_STRLEN_END
20000#ifdef LAPACK_FORTRAN_STRLEN_END
20001 #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__, 1, 1)
20003 #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__)
20006#define LAPACK_dtfttr_base LAPACK_GLOBAL(dtfttr,DTFTTR)
20007void LAPACK_dtfttr_base(
20008 char const* transr,
char const* uplo,
20009 lapack_int
const* n,
20011 double* A, lapack_int
const* lda,
20013#ifdef LAPACK_FORTRAN_STRLEN_END
20017#ifdef LAPACK_FORTRAN_STRLEN_END
20018 #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__, 1, 1)
20020 #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__)
20023#define LAPACK_stfttr_base LAPACK_GLOBAL(stfttr,STFTTR)
20024void LAPACK_stfttr_base(
20025 char const* transr,
char const* uplo,
20026 lapack_int
const* n,
20028 float* A, lapack_int
const* lda,
20030#ifdef LAPACK_FORTRAN_STRLEN_END
20034#ifdef LAPACK_FORTRAN_STRLEN_END
20035 #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__, 1, 1)
20037 #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__)
20040#define LAPACK_ztfttr_base LAPACK_GLOBAL(ztfttr,ZTFTTR)
20041void LAPACK_ztfttr_base(
20042 char const* transr,
char const* uplo,
20043 lapack_int
const* n,
20044 lapack_complex_double
const* ARF,
20045 lapack_complex_double* A, lapack_int
const* lda,
20047#ifdef LAPACK_FORTRAN_STRLEN_END
20051#ifdef LAPACK_FORTRAN_STRLEN_END
20052 #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__, 1, 1)
20054 #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__)
20057#define LAPACK_ctgevc_base LAPACK_GLOBAL(ctgevc,CTGEVC)
20058void LAPACK_ctgevc_base(
20059 char const* side,
char const* howmny,
20060 lapack_logical
const* select,
20061 lapack_int
const* n,
20062 lapack_complex_float
const* S, lapack_int
const* lds,
20063 lapack_complex_float
const* P, lapack_int
const* ldp,
20064 lapack_complex_float* VL, lapack_int
const* ldvl,
20065 lapack_complex_float* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
20066 lapack_complex_float* work,
20069#ifdef LAPACK_FORTRAN_STRLEN_END
20073#ifdef LAPACK_FORTRAN_STRLEN_END
20074 #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__, 1, 1)
20076 #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__)
20079#define LAPACK_dtgevc_base LAPACK_GLOBAL(dtgevc,DTGEVC)
20080void LAPACK_dtgevc_base(
20081 char const* side,
char const* howmny,
20082 lapack_logical
const* select,
20083 lapack_int
const* n,
20084 double const* S, lapack_int
const* lds,
20085 double const* P, lapack_int
const* ldp,
20086 double* VL, lapack_int
const* ldvl,
20087 double* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
20090#ifdef LAPACK_FORTRAN_STRLEN_END
20094#ifdef LAPACK_FORTRAN_STRLEN_END
20095 #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__, 1, 1)
20097 #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__)
20100#define LAPACK_stgevc_base LAPACK_GLOBAL(stgevc,STGEVC)
20101void LAPACK_stgevc_base(
20102 char const* side,
char const* howmny,
20103 lapack_logical
const* select,
20104 lapack_int
const* n,
20105 float const* S, lapack_int
const* lds,
20106 float const* P, lapack_int
const* ldp,
20107 float* VL, lapack_int
const* ldvl,
20108 float* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
20111#ifdef LAPACK_FORTRAN_STRLEN_END
20115#ifdef LAPACK_FORTRAN_STRLEN_END
20116 #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__, 1, 1)
20118 #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__)
20121#define LAPACK_ztgevc_base LAPACK_GLOBAL(ztgevc,ZTGEVC)
20122void LAPACK_ztgevc_base(
20123 char const* side,
char const* howmny,
20124 lapack_logical
const* select,
20125 lapack_int
const* n,
20126 lapack_complex_double
const* S, lapack_int
const* lds,
20127 lapack_complex_double
const* P, lapack_int
const* ldp,
20128 lapack_complex_double* VL, lapack_int
const* ldvl,
20129 lapack_complex_double* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
20130 lapack_complex_double* work,
20133#ifdef LAPACK_FORTRAN_STRLEN_END
20137#ifdef LAPACK_FORTRAN_STRLEN_END
20138 #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__, 1, 1)
20140 #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__)
20143#define LAPACK_ctgexc LAPACK_GLOBAL(ctgexc,CTGEXC)
20145 lapack_logical
const* wantq, lapack_logical
const* wantz, lapack_int
const* n,
20146 lapack_complex_float* A, lapack_int
const* lda,
20147 lapack_complex_float* B, lapack_int
const* ldb,
20148 lapack_complex_float* Q, lapack_int
const* ldq,
20149 lapack_complex_float* Z, lapack_int
const* ldz, lapack_int
const* ifst, lapack_int* ilst,
20150 lapack_int* info );
20152#define LAPACK_dtgexc LAPACK_GLOBAL(dtgexc,DTGEXC)
20154 lapack_logical
const* wantq, lapack_logical
const* wantz, lapack_int
const* n,
20155 double* A, lapack_int
const* lda,
20156 double* B, lapack_int
const* ldb,
20157 double* Q, lapack_int
const* ldq,
20158 double* Z, lapack_int
const* ldz, lapack_int* ifst, lapack_int* ilst,
20159 double* work, lapack_int
const* lwork,
20160 lapack_int* info );
20162#define LAPACK_stgexc LAPACK_GLOBAL(stgexc,STGEXC)
20164 lapack_logical
const* wantq, lapack_logical
const* wantz, lapack_int
const* n,
20165 float* A, lapack_int
const* lda,
20166 float* B, lapack_int
const* ldb,
20167 float* Q, lapack_int
const* ldq,
20168 float* Z, lapack_int
const* ldz, lapack_int* ifst, lapack_int* ilst,
20169 float* work, lapack_int
const* lwork,
20170 lapack_int* info );
20172#define LAPACK_ztgexc LAPACK_GLOBAL(ztgexc,ZTGEXC)
20174 lapack_logical
const* wantq, lapack_logical
const* wantz, lapack_int
const* n,
20175 lapack_complex_double* A, lapack_int
const* lda,
20176 lapack_complex_double* B, lapack_int
const* ldb,
20177 lapack_complex_double* Q, lapack_int
const* ldq,
20178 lapack_complex_double* Z, lapack_int
const* ldz, lapack_int
const* ifst, lapack_int* ilst,
20179 lapack_int* info );
20181#define LAPACK_ctgsen LAPACK_GLOBAL(ctgsen,CTGSEN)
20183 lapack_int
const* ijob, lapack_logical
const* wantq, lapack_logical
const* wantz, lapack_logical
const* select, lapack_int
const* n,
20184 lapack_complex_float* A, lapack_int
const* lda,
20185 lapack_complex_float* B, lapack_int
const* ldb,
20186 lapack_complex_float* alpha,
20187 lapack_complex_float* beta,
20188 lapack_complex_float* Q, lapack_int
const* ldq,
20189 lapack_complex_float* Z, lapack_int
const* ldz, lapack_int* m,
20193 lapack_complex_float* work, lapack_int
const* lwork,
20194 lapack_int* iwork, lapack_int
const* liwork,
20195 lapack_int* info );
20197#define LAPACK_dtgsen LAPACK_GLOBAL(dtgsen,DTGSEN)
20199 lapack_int
const* ijob, lapack_logical
const* wantq, lapack_logical
const* wantz, lapack_logical
const* select, lapack_int
const* n,
20200 double* A, lapack_int
const* lda,
20201 double* B, lapack_int
const* ldb,
20205 double* Q, lapack_int
const* ldq,
20206 double* Z, lapack_int
const* ldz, lapack_int* m,
20210 double* work, lapack_int
const* lwork,
20211 lapack_int* iwork, lapack_int
const* liwork,
20212 lapack_int* info );
20214#define LAPACK_stgsen LAPACK_GLOBAL(stgsen,STGSEN)
20216 lapack_int
const* ijob, lapack_logical
const* wantq, lapack_logical
const* wantz, lapack_logical
const* select, lapack_int
const* n,
20217 float* A, lapack_int
const* lda,
20218 float* B, lapack_int
const* ldb,
20222 float* Q, lapack_int
const* ldq,
20223 float* Z, lapack_int
const* ldz, lapack_int* m,
20227 float* work, lapack_int
const* lwork,
20228 lapack_int* iwork, lapack_int
const* liwork,
20229 lapack_int* info );
20231#define LAPACK_ztgsen LAPACK_GLOBAL(ztgsen,ZTGSEN)
20233 lapack_int
const* ijob, lapack_logical
const* wantq, lapack_logical
const* wantz, lapack_logical
const* select, lapack_int
const* n,
20234 lapack_complex_double* A, lapack_int
const* lda,
20235 lapack_complex_double* B, lapack_int
const* ldb,
20236 lapack_complex_double* alpha,
20237 lapack_complex_double* beta,
20238 lapack_complex_double* Q, lapack_int
const* ldq,
20239 lapack_complex_double* Z, lapack_int
const* ldz, lapack_int* m,
20243 lapack_complex_double* work, lapack_int
const* lwork,
20244 lapack_int* iwork, lapack_int
const* liwork,
20245 lapack_int* info );
20247#define LAPACK_ctgsja_base LAPACK_GLOBAL(ctgsja,CTGSJA)
20248void LAPACK_ctgsja_base(
20249 char const* jobu,
char const* jobv,
char const* jobq,
20250 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
20251 lapack_complex_float* A, lapack_int
const* lda,
20252 lapack_complex_float* B, lapack_int
const* ldb,
20257 lapack_complex_float* U, lapack_int
const* ldu,
20258 lapack_complex_float* V, lapack_int
const* ldv,
20259 lapack_complex_float* Q, lapack_int
const* ldq,
20260 lapack_complex_float* work, lapack_int* ncycle,
20262#ifdef LAPACK_FORTRAN_STRLEN_END
20263 ,
size_t,
size_t,
size_t
20266#ifdef LAPACK_FORTRAN_STRLEN_END
20267 #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__, 1, 1, 1)
20269 #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__)
20272#define LAPACK_dtgsja_base LAPACK_GLOBAL(dtgsja,DTGSJA)
20273void LAPACK_dtgsja_base(
20274 char const* jobu,
char const* jobv,
char const* jobq,
20275 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
20276 double* A, lapack_int
const* lda,
20277 double* B, lapack_int
const* ldb,
20278 double const* tola,
20279 double const* tolb,
20282 double* U, lapack_int
const* ldu,
20283 double* V, lapack_int
const* ldv,
20284 double* Q, lapack_int
const* ldq,
20285 double* work, lapack_int* ncycle,
20287#ifdef LAPACK_FORTRAN_STRLEN_END
20288 ,
size_t,
size_t,
size_t
20291#ifdef LAPACK_FORTRAN_STRLEN_END
20292 #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__, 1, 1, 1)
20294 #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__)
20297#define LAPACK_stgsja_base LAPACK_GLOBAL(stgsja,STGSJA)
20298void LAPACK_stgsja_base(
20299 char const* jobu,
char const* jobv,
char const* jobq,
20300 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
20301 float* A, lapack_int
const* lda,
20302 float* B, lapack_int
const* ldb,
20307 float* U, lapack_int
const* ldu,
20308 float* V, lapack_int
const* ldv,
20309 float* Q, lapack_int
const* ldq,
20310 float* work, lapack_int* ncycle,
20312#ifdef LAPACK_FORTRAN_STRLEN_END
20313 ,
size_t,
size_t,
size_t
20316#ifdef LAPACK_FORTRAN_STRLEN_END
20317 #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__, 1, 1, 1)
20319 #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__)
20322#define LAPACK_ztgsja_base LAPACK_GLOBAL(ztgsja,ZTGSJA)
20323void LAPACK_ztgsja_base(
20324 char const* jobu,
char const* jobv,
char const* jobq,
20325 lapack_int
const* m, lapack_int
const* p, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
20326 lapack_complex_double* A, lapack_int
const* lda,
20327 lapack_complex_double* B, lapack_int
const* ldb,
20328 double const* tola,
20329 double const* tolb,
20332 lapack_complex_double* U, lapack_int
const* ldu,
20333 lapack_complex_double* V, lapack_int
const* ldv,
20334 lapack_complex_double* Q, lapack_int
const* ldq,
20335 lapack_complex_double* work, lapack_int* ncycle,
20337#ifdef LAPACK_FORTRAN_STRLEN_END
20338 ,
size_t,
size_t,
size_t
20341#ifdef LAPACK_FORTRAN_STRLEN_END
20342 #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__, 1, 1, 1)
20344 #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__)
20347#define LAPACK_ctgsna_base LAPACK_GLOBAL(ctgsna,CTGSNA)
20348void LAPACK_ctgsna_base(
20349 char const* job,
char const* howmny,
20350 lapack_logical
const* select,
20351 lapack_int
const* n,
20352 lapack_complex_float
const* A, lapack_int
const* lda,
20353 lapack_complex_float
const* B, lapack_int
const* ldb,
20354 lapack_complex_float
const* VL, lapack_int
const* ldvl,
20355 lapack_complex_float
const* VR, lapack_int
const* ldvr,
20357 float* DIF, lapack_int
const* mm, lapack_int* m,
20358 lapack_complex_float* work, lapack_int
const* lwork,
20361#ifdef LAPACK_FORTRAN_STRLEN_END
20365#ifdef LAPACK_FORTRAN_STRLEN_END
20366 #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__, 1, 1)
20368 #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__)
20371#define LAPACK_dtgsna_base LAPACK_GLOBAL(dtgsna,DTGSNA)
20372void LAPACK_dtgsna_base(
20373 char const* job,
char const* howmny,
20374 lapack_logical
const* select,
20375 lapack_int
const* n,
20376 double const* A, lapack_int
const* lda,
20377 double const* B, lapack_int
const* ldb,
20378 double const* VL, lapack_int
const* ldvl,
20379 double const* VR, lapack_int
const* ldvr,
20381 double* DIF, lapack_int
const* mm, lapack_int* m,
20382 double* work, lapack_int
const* lwork,
20385#ifdef LAPACK_FORTRAN_STRLEN_END
20389#ifdef LAPACK_FORTRAN_STRLEN_END
20390 #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__, 1, 1)
20392 #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__)
20395#define LAPACK_stgsna_base LAPACK_GLOBAL(stgsna,STGSNA)
20396void LAPACK_stgsna_base(
20397 char const* job,
char const* howmny,
20398 lapack_logical
const* select,
20399 lapack_int
const* n,
20400 float const* A, lapack_int
const* lda,
20401 float const* B, lapack_int
const* ldb,
20402 float const* VL, lapack_int
const* ldvl,
20403 float const* VR, lapack_int
const* ldvr,
20405 float* DIF, lapack_int
const* mm, lapack_int* m,
20406 float* work, lapack_int
const* lwork,
20409#ifdef LAPACK_FORTRAN_STRLEN_END
20413#ifdef LAPACK_FORTRAN_STRLEN_END
20414 #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__, 1, 1)
20416 #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__)
20419#define LAPACK_ztgsna_base LAPACK_GLOBAL(ztgsna,ZTGSNA)
20420void LAPACK_ztgsna_base(
20421 char const* job,
char const* howmny,
20422 lapack_logical
const* select,
20423 lapack_int
const* n,
20424 lapack_complex_double
const* A, lapack_int
const* lda,
20425 lapack_complex_double
const* B, lapack_int
const* ldb,
20426 lapack_complex_double
const* VL, lapack_int
const* ldvl,
20427 lapack_complex_double
const* VR, lapack_int
const* ldvr,
20429 double* DIF, lapack_int
const* mm, lapack_int* m,
20430 lapack_complex_double* work, lapack_int
const* lwork,
20433#ifdef LAPACK_FORTRAN_STRLEN_END
20437#ifdef LAPACK_FORTRAN_STRLEN_END
20438 #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__, 1, 1)
20440 #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__)
20443#define LAPACK_ctgsyl_base LAPACK_GLOBAL(ctgsyl,CTGSYL)
20444void LAPACK_ctgsyl_base(
20446 lapack_int
const* ijob, lapack_int
const* m, lapack_int
const* n,
20447 lapack_complex_float
const* A, lapack_int
const* lda,
20448 lapack_complex_float
const* B, lapack_int
const* ldb,
20449 lapack_complex_float* C, lapack_int
const* ldc,
20450 lapack_complex_float
const* D, lapack_int
const* ldd,
20451 lapack_complex_float
const* E, lapack_int
const* lde,
20452 lapack_complex_float* F, lapack_int
const* ldf,
20455 lapack_complex_float* work, lapack_int
const* lwork,
20458#ifdef LAPACK_FORTRAN_STRLEN_END
20462#ifdef LAPACK_FORTRAN_STRLEN_END
20463 #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__, 1)
20465 #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__)
20468#define LAPACK_dtgsyl_base LAPACK_GLOBAL(dtgsyl,DTGSYL)
20469void LAPACK_dtgsyl_base(
20471 lapack_int
const* ijob, lapack_int
const* m, lapack_int
const* n,
20472 double const* A, lapack_int
const* lda,
20473 double const* B, lapack_int
const* ldb,
20474 double* C, lapack_int
const* ldc,
20475 double const* D, lapack_int
const* ldd,
20476 double const* E, lapack_int
const* lde,
20477 double* F, lapack_int
const* ldf,
20480 double* work, lapack_int
const* lwork,
20483#ifdef LAPACK_FORTRAN_STRLEN_END
20487#ifdef LAPACK_FORTRAN_STRLEN_END
20488 #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__, 1)
20490 #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__)
20493#define LAPACK_stgsyl_base LAPACK_GLOBAL(stgsyl,STGSYL)
20494void LAPACK_stgsyl_base(
20496 lapack_int
const* ijob, lapack_int
const* m, lapack_int
const* n,
20497 float const* A, lapack_int
const* lda,
20498 float const* B, lapack_int
const* ldb,
20499 float* C, lapack_int
const* ldc,
20500 float const* D, lapack_int
const* ldd,
20501 float const* E, lapack_int
const* lde,
20502 float* F, lapack_int
const* ldf,
20505 float* work, lapack_int
const* lwork,
20508#ifdef LAPACK_FORTRAN_STRLEN_END
20512#ifdef LAPACK_FORTRAN_STRLEN_END
20513 #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__, 1)
20515 #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__)
20518#define LAPACK_ztgsyl_base LAPACK_GLOBAL(ztgsyl,ZTGSYL)
20519void LAPACK_ztgsyl_base(
20521 lapack_int
const* ijob, lapack_int
const* m, lapack_int
const* n,
20522 lapack_complex_double
const* A, lapack_int
const* lda,
20523 lapack_complex_double
const* B, lapack_int
const* ldb,
20524 lapack_complex_double* C, lapack_int
const* ldc,
20525 lapack_complex_double
const* D, lapack_int
const* ldd,
20526 lapack_complex_double
const* E, lapack_int
const* lde,
20527 lapack_complex_double* F, lapack_int
const* ldf,
20530 lapack_complex_double* work, lapack_int
const* lwork,
20533#ifdef LAPACK_FORTRAN_STRLEN_END
20537#ifdef LAPACK_FORTRAN_STRLEN_END
20538 #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__, 1)
20540 #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__)
20543#define LAPACK_ctpcon_base LAPACK_GLOBAL(ctpcon,CTPCON)
20544void LAPACK_ctpcon_base(
20545 char const* norm,
char const* uplo,
char const* diag,
20546 lapack_int
const* n,
20547 lapack_complex_float
const* AP,
20549 lapack_complex_float* work,
20552#ifdef LAPACK_FORTRAN_STRLEN_END
20553 ,
size_t,
size_t,
size_t
20556#ifdef LAPACK_FORTRAN_STRLEN_END
20557 #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__, 1, 1, 1)
20559 #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__)
20562#define LAPACK_dtpcon_base LAPACK_GLOBAL(dtpcon,DTPCON)
20563void LAPACK_dtpcon_base(
20564 char const* norm,
char const* uplo,
char const* diag,
20565 lapack_int
const* n,
20571#ifdef LAPACK_FORTRAN_STRLEN_END
20572 ,
size_t,
size_t,
size_t
20575#ifdef LAPACK_FORTRAN_STRLEN_END
20576 #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__, 1, 1, 1)
20578 #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__)
20581#define LAPACK_stpcon_base LAPACK_GLOBAL(stpcon,STPCON)
20582void LAPACK_stpcon_base(
20583 char const* norm,
char const* uplo,
char const* diag,
20584 lapack_int
const* n,
20590#ifdef LAPACK_FORTRAN_STRLEN_END
20591 ,
size_t,
size_t,
size_t
20594#ifdef LAPACK_FORTRAN_STRLEN_END
20595 #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__, 1, 1, 1)
20597 #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__)
20600#define LAPACK_ztpcon_base LAPACK_GLOBAL(ztpcon,ZTPCON)
20601void LAPACK_ztpcon_base(
20602 char const* norm,
char const* uplo,
char const* diag,
20603 lapack_int
const* n,
20604 lapack_complex_double
const* AP,
20606 lapack_complex_double* work,
20609#ifdef LAPACK_FORTRAN_STRLEN_END
20610 ,
size_t,
size_t,
size_t
20613#ifdef LAPACK_FORTRAN_STRLEN_END
20614 #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__, 1, 1, 1)
20616 #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__)
20619#define LAPACK_ctplqt LAPACK_GLOBAL(ctplqt,CTPLQT)
20621 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l, lapack_int
const* mb,
20622 lapack_complex_float* A, lapack_int
const* lda,
20623 lapack_complex_float* B, lapack_int
const* ldb,
20624 lapack_complex_float* T, lapack_int
const* ldt,
20625 lapack_complex_float* work,
20626 lapack_int* info );
20628#define LAPACK_dtplqt LAPACK_GLOBAL(dtplqt,DTPLQT)
20630 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l, lapack_int
const* mb,
20631 double* A, lapack_int
const* lda,
20632 double* B, lapack_int
const* ldb,
20633 double* T, lapack_int
const* ldt,
20635 lapack_int* info );
20637#define LAPACK_stplqt LAPACK_GLOBAL(stplqt,STPLQT)
20639 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l, lapack_int
const* mb,
20640 float* A, lapack_int
const* lda,
20641 float* B, lapack_int
const* ldb,
20642 float* T, lapack_int
const* ldt,
20644 lapack_int* info );
20646#define LAPACK_ztplqt LAPACK_GLOBAL(ztplqt,ZTPLQT)
20648 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l, lapack_int
const* mb,
20649 lapack_complex_double* A, lapack_int
const* lda,
20650 lapack_complex_double* B, lapack_int
const* ldb,
20651 lapack_complex_double* T, lapack_int
const* ldt,
20652 lapack_complex_double* work,
20653 lapack_int* info );
20655#define LAPACK_ctplqt2 LAPACK_GLOBAL(ctplqt2,CTPLQT2)
20656void LAPACK_ctplqt2(
20657 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l,
20658 lapack_complex_float* A, lapack_int
const* lda,
20659 lapack_complex_float* B, lapack_int
const* ldb,
20660 lapack_complex_float* T, lapack_int
const* ldt,
20661 lapack_int* info );
20663#define LAPACK_dtplqt2 LAPACK_GLOBAL(dtplqt2,DTPLQT2)
20664void LAPACK_dtplqt2(
20665 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l,
20666 double* A, lapack_int
const* lda,
20667 double* B, lapack_int
const* ldb,
20668 double* T, lapack_int
const* ldt,
20669 lapack_int* info );
20671#define LAPACK_stplqt2 LAPACK_GLOBAL(stplqt2,STPLQT2)
20672void LAPACK_stplqt2(
20673 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l,
20674 float* A, lapack_int
const* lda,
20675 float* B, lapack_int
const* ldb,
20676 float* T, lapack_int
const* ldt,
20677 lapack_int* info );
20679#define LAPACK_ztplqt2 LAPACK_GLOBAL(ztplqt2,ZTPLQT2)
20680void LAPACK_ztplqt2(
20681 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l,
20682 lapack_complex_double* A, lapack_int
const* lda,
20683 lapack_complex_double* B, lapack_int
const* ldb,
20684 lapack_complex_double* T, lapack_int
const* ldt,
20685 lapack_int* info );
20687#define LAPACK_ctpmlqt_base LAPACK_GLOBAL(ctpmlqt,CTPMLQT)
20688void LAPACK_ctpmlqt_base(
20689 char const* side,
char const* trans,
20690 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l, lapack_int
const* mb,
20691 lapack_complex_float
const* V, lapack_int
const* ldv,
20692 lapack_complex_float
const* T, lapack_int
const* ldt,
20693 lapack_complex_float* A, lapack_int
const* lda,
20694 lapack_complex_float* B, lapack_int
const* ldb,
20695 lapack_complex_float* work,
20697#ifdef LAPACK_FORTRAN_STRLEN_END
20701#ifdef LAPACK_FORTRAN_STRLEN_END
20702 #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__, 1, 1)
20704 #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__)
20707#define LAPACK_dtpmlqt_base LAPACK_GLOBAL(dtpmlqt,DTPMLQT)
20708void LAPACK_dtpmlqt_base(
20709 char const* side,
char const* trans,
20710 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l, lapack_int
const* mb,
20711 double const* V, lapack_int
const* ldv,
20712 double const* T, lapack_int
const* ldt,
20713 double* A, lapack_int
const* lda,
20714 double* B, lapack_int
const* ldb,
20717#ifdef LAPACK_FORTRAN_STRLEN_END
20721#ifdef LAPACK_FORTRAN_STRLEN_END
20722 #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__, 1, 1)
20724 #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__)
20727#define LAPACK_stpmlqt_base LAPACK_GLOBAL(stpmlqt,STPMLQT)
20728void LAPACK_stpmlqt_base(
20729 char const* side,
char const* trans,
20730 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l, lapack_int
const* mb,
20731 float const* V, lapack_int
const* ldv,
20732 float const* T, lapack_int
const* ldt,
20733 float* A, lapack_int
const* lda,
20734 float* B, lapack_int
const* ldb,
20737#ifdef LAPACK_FORTRAN_STRLEN_END
20741#ifdef LAPACK_FORTRAN_STRLEN_END
20742 #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__, 1, 1)
20744 #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__)
20747#define LAPACK_ztpmlqt_base LAPACK_GLOBAL(ztpmlqt,ZTPMLQT)
20748void LAPACK_ztpmlqt_base(
20749 char const* side,
char const* trans,
20750 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l, lapack_int
const* mb,
20751 lapack_complex_double
const* V, lapack_int
const* ldv,
20752 lapack_complex_double
const* T, lapack_int
const* ldt,
20753 lapack_complex_double* A, lapack_int
const* lda,
20754 lapack_complex_double* B, lapack_int
const* ldb,
20755 lapack_complex_double* work,
20757#ifdef LAPACK_FORTRAN_STRLEN_END
20761#ifdef LAPACK_FORTRAN_STRLEN_END
20762 #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__, 1, 1)
20764 #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__)
20767#define LAPACK_ctpmqrt_base LAPACK_GLOBAL(ctpmqrt,CTPMQRT)
20768void LAPACK_ctpmqrt_base(
20769 char const* side,
char const* trans,
20770 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l, lapack_int
const* nb,
20771 lapack_complex_float
const* V, lapack_int
const* ldv,
20772 lapack_complex_float
const* T, lapack_int
const* ldt,
20773 lapack_complex_float* A, lapack_int
const* lda,
20774 lapack_complex_float* B, lapack_int
const* ldb,
20775 lapack_complex_float* work,
20777#ifdef LAPACK_FORTRAN_STRLEN_END
20781#ifdef LAPACK_FORTRAN_STRLEN_END
20782 #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__, 1, 1)
20784 #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__)
20787#define LAPACK_dtpmqrt_base LAPACK_GLOBAL(dtpmqrt,DTPMQRT)
20788void LAPACK_dtpmqrt_base(
20789 char const* side,
char const* trans,
20790 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l, lapack_int
const* nb,
20791 double const* V, lapack_int
const* ldv,
20792 double const* T, lapack_int
const* ldt,
20793 double* A, lapack_int
const* lda,
20794 double* B, lapack_int
const* ldb,
20797#ifdef LAPACK_FORTRAN_STRLEN_END
20801#ifdef LAPACK_FORTRAN_STRLEN_END
20802 #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__, 1, 1)
20804 #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__)
20807#define LAPACK_stpmqrt_base LAPACK_GLOBAL(stpmqrt,STPMQRT)
20808void LAPACK_stpmqrt_base(
20809 char const* side,
char const* trans,
20810 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l, lapack_int
const* nb,
20811 float const* V, lapack_int
const* ldv,
20812 float const* T, lapack_int
const* ldt,
20813 float* A, lapack_int
const* lda,
20814 float* B, lapack_int
const* ldb,
20817#ifdef LAPACK_FORTRAN_STRLEN_END
20821#ifdef LAPACK_FORTRAN_STRLEN_END
20822 #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__, 1, 1)
20824 #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__)
20827#define LAPACK_ztpmqrt_base LAPACK_GLOBAL(ztpmqrt,ZTPMQRT)
20828void LAPACK_ztpmqrt_base(
20829 char const* side,
char const* trans,
20830 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l, lapack_int
const* nb,
20831 lapack_complex_double
const* V, lapack_int
const* ldv,
20832 lapack_complex_double
const* T, lapack_int
const* ldt,
20833 lapack_complex_double* A, lapack_int
const* lda,
20834 lapack_complex_double* B, lapack_int
const* ldb,
20835 lapack_complex_double* work,
20837#ifdef LAPACK_FORTRAN_STRLEN_END
20841#ifdef LAPACK_FORTRAN_STRLEN_END
20842 #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__, 1, 1)
20844 #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__)
20847#define LAPACK_ctpqrt LAPACK_GLOBAL(ctpqrt,CTPQRT)
20849 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l, lapack_int
const* nb,
20850 lapack_complex_float* A, lapack_int
const* lda,
20851 lapack_complex_float* B, lapack_int
const* ldb,
20852 lapack_complex_float* T, lapack_int
const* ldt,
20853 lapack_complex_float* work,
20854 lapack_int* info );
20856#define LAPACK_dtpqrt LAPACK_GLOBAL(dtpqrt,DTPQRT)
20858 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l, lapack_int
const* nb,
20859 double* A, lapack_int
const* lda,
20860 double* B, lapack_int
const* ldb,
20861 double* T, lapack_int
const* ldt,
20863 lapack_int* info );
20865#define LAPACK_stpqrt LAPACK_GLOBAL(stpqrt,STPQRT)
20867 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l, lapack_int
const* nb,
20868 float* A, lapack_int
const* lda,
20869 float* B, lapack_int
const* ldb,
20870 float* T, lapack_int
const* ldt,
20872 lapack_int* info );
20874#define LAPACK_ztpqrt LAPACK_GLOBAL(ztpqrt,ZTPQRT)
20876 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l, lapack_int
const* nb,
20877 lapack_complex_double* A, lapack_int
const* lda,
20878 lapack_complex_double* B, lapack_int
const* ldb,
20879 lapack_complex_double* T, lapack_int
const* ldt,
20880 lapack_complex_double* work,
20881 lapack_int* info );
20883#define LAPACK_ctpqrt2 LAPACK_GLOBAL(ctpqrt2,CTPQRT2)
20884void LAPACK_ctpqrt2(
20885 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l,
20886 lapack_complex_float* A, lapack_int
const* lda,
20887 lapack_complex_float* B, lapack_int
const* ldb,
20888 lapack_complex_float* T, lapack_int
const* ldt,
20889 lapack_int* info );
20891#define LAPACK_dtpqrt2 LAPACK_GLOBAL(dtpqrt2,DTPQRT2)
20892void LAPACK_dtpqrt2(
20893 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l,
20894 double* A, lapack_int
const* lda,
20895 double* B, lapack_int
const* ldb,
20896 double* T, lapack_int
const* ldt,
20897 lapack_int* info );
20899#define LAPACK_stpqrt2 LAPACK_GLOBAL(stpqrt2,STPQRT2)
20900void LAPACK_stpqrt2(
20901 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l,
20902 float* A, lapack_int
const* lda,
20903 float* B, lapack_int
const* ldb,
20904 float* T, lapack_int
const* ldt,
20905 lapack_int* info );
20907#define LAPACK_ztpqrt2 LAPACK_GLOBAL(ztpqrt2,ZTPQRT2)
20908void LAPACK_ztpqrt2(
20909 lapack_int
const* m, lapack_int
const* n, lapack_int
const* l,
20910 lapack_complex_double* A, lapack_int
const* lda,
20911 lapack_complex_double* B, lapack_int
const* ldb,
20912 lapack_complex_double* T, lapack_int
const* ldt,
20913 lapack_int* info );
20915#define LAPACK_ctprfb_base LAPACK_GLOBAL(ctprfb,CTPRFB)
20916void LAPACK_ctprfb_base(
20917 char const* side,
char const* trans,
char const* direct,
char const* storev,
20918 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
20919 lapack_complex_float
const* V, lapack_int
const* ldv,
20920 lapack_complex_float
const* T, lapack_int
const* ldt,
20921 lapack_complex_float* A, lapack_int
const* lda,
20922 lapack_complex_float* B, lapack_int
const* ldb,
20923 lapack_complex_float* work, lapack_int
const* ldwork
20924#ifdef LAPACK_FORTRAN_STRLEN_END
20925 ,
size_t,
size_t,
size_t,
size_t
20928#ifdef LAPACK_FORTRAN_STRLEN_END
20929 #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20931 #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__)
20934#define LAPACK_dtprfb_base LAPACK_GLOBAL(dtprfb,DTPRFB)
20935void LAPACK_dtprfb_base(
20936 char const* side,
char const* trans,
char const* direct,
char const* storev,
20937 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
20938 double const* V, lapack_int
const* ldv,
20939 double const* T, lapack_int
const* ldt,
20940 double* A, lapack_int
const* lda,
20941 double* B, lapack_int
const* ldb,
20942 double* work, lapack_int
const* ldwork
20943#ifdef LAPACK_FORTRAN_STRLEN_END
20944 ,
size_t,
size_t,
size_t,
size_t
20947#ifdef LAPACK_FORTRAN_STRLEN_END
20948 #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20950 #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__)
20953#define LAPACK_stprfb_base LAPACK_GLOBAL(stprfb,STPRFB)
20954void LAPACK_stprfb_base(
20955 char const* side,
char const* trans,
char const* direct,
char const* storev,
20956 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
20957 float const* V, lapack_int
const* ldv,
20958 float const* T, lapack_int
const* ldt,
20959 float* A, lapack_int
const* lda,
20960 float* B, lapack_int
const* ldb,
20961 float* work, lapack_int
const* ldwork
20962#ifdef LAPACK_FORTRAN_STRLEN_END
20963 ,
size_t,
size_t,
size_t,
size_t
20966#ifdef LAPACK_FORTRAN_STRLEN_END
20967 #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20969 #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__)
20972#define LAPACK_ztprfb_base LAPACK_GLOBAL(ztprfb,ZTPRFB)
20973void LAPACK_ztprfb_base(
20974 char const* side,
char const* trans,
char const* direct,
char const* storev,
20975 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
20976 lapack_complex_double
const* V, lapack_int
const* ldv,
20977 lapack_complex_double
const* T, lapack_int
const* ldt,
20978 lapack_complex_double* A, lapack_int
const* lda,
20979 lapack_complex_double* B, lapack_int
const* ldb,
20980 lapack_complex_double* work, lapack_int
const* ldwork
20981#ifdef LAPACK_FORTRAN_STRLEN_END
20982 ,
size_t,
size_t,
size_t,
size_t
20985#ifdef LAPACK_FORTRAN_STRLEN_END
20986 #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20988 #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__)
20991#define LAPACK_ctprfs_base LAPACK_GLOBAL(ctprfs,CTPRFS)
20992void LAPACK_ctprfs_base(
20993 char const* uplo,
char const* trans,
char const* diag,
20994 lapack_int
const* n, lapack_int
const* nrhs,
20995 lapack_complex_float
const* AP,
20996 lapack_complex_float
const* B, lapack_int
const* ldb,
20997 lapack_complex_float
const* X, lapack_int
const* ldx,
21000 lapack_complex_float* work,
21003#ifdef LAPACK_FORTRAN_STRLEN_END
21004 ,
size_t,
size_t,
size_t
21007#ifdef LAPACK_FORTRAN_STRLEN_END
21008 #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__, 1, 1, 1)
21010 #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__)
21013#define LAPACK_dtprfs_base LAPACK_GLOBAL(dtprfs,DTPRFS)
21014void LAPACK_dtprfs_base(
21015 char const* uplo,
char const* trans,
char const* diag,
21016 lapack_int
const* n, lapack_int
const* nrhs,
21018 double const* B, lapack_int
const* ldb,
21019 double const* X, lapack_int
const* ldx,
21025#ifdef LAPACK_FORTRAN_STRLEN_END
21026 ,
size_t,
size_t,
size_t
21029#ifdef LAPACK_FORTRAN_STRLEN_END
21030 #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__, 1, 1, 1)
21032 #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__)
21035#define LAPACK_stprfs_base LAPACK_GLOBAL(stprfs,STPRFS)
21036void LAPACK_stprfs_base(
21037 char const* uplo,
char const* trans,
char const* diag,
21038 lapack_int
const* n, lapack_int
const* nrhs,
21040 float const* B, lapack_int
const* ldb,
21041 float const* X, lapack_int
const* ldx,
21047#ifdef LAPACK_FORTRAN_STRLEN_END
21048 ,
size_t,
size_t,
size_t
21051#ifdef LAPACK_FORTRAN_STRLEN_END
21052 #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__, 1, 1, 1)
21054 #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__)
21057#define LAPACK_ztprfs_base LAPACK_GLOBAL(ztprfs,ZTPRFS)
21058void LAPACK_ztprfs_base(
21059 char const* uplo,
char const* trans,
char const* diag,
21060 lapack_int
const* n, lapack_int
const* nrhs,
21061 lapack_complex_double
const* AP,
21062 lapack_complex_double
const* B, lapack_int
const* ldb,
21063 lapack_complex_double
const* X, lapack_int
const* ldx,
21066 lapack_complex_double* work,
21069#ifdef LAPACK_FORTRAN_STRLEN_END
21070 ,
size_t,
size_t,
size_t
21073#ifdef LAPACK_FORTRAN_STRLEN_END
21074 #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__, 1, 1, 1)
21076 #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__)
21079#define LAPACK_ctptri_base LAPACK_GLOBAL(ctptri,CTPTRI)
21080void LAPACK_ctptri_base(
21081 char const* uplo,
char const* diag,
21082 lapack_int
const* n,
21083 lapack_complex_float* AP,
21085#ifdef LAPACK_FORTRAN_STRLEN_END
21089#ifdef LAPACK_FORTRAN_STRLEN_END
21090 #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__, 1, 1)
21092 #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__)
21095#define LAPACK_dtptri_base LAPACK_GLOBAL(dtptri,DTPTRI)
21096void LAPACK_dtptri_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_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__, 1, 1)
21108 #define LAPACK_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__)
21111#define LAPACK_stptri_base LAPACK_GLOBAL(stptri,STPTRI)
21112void LAPACK_stptri_base(
21113 char const* uplo,
char const* diag,
21114 lapack_int
const* n,
21117#ifdef LAPACK_FORTRAN_STRLEN_END
21121#ifdef LAPACK_FORTRAN_STRLEN_END
21122 #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__, 1, 1)
21124 #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__)
21127#define LAPACK_ztptri_base LAPACK_GLOBAL(ztptri,ZTPTRI)
21128void LAPACK_ztptri_base(
21129 char const* uplo,
char const* diag,
21130 lapack_int
const* n,
21131 lapack_complex_double* AP,
21133#ifdef LAPACK_FORTRAN_STRLEN_END
21137#ifdef LAPACK_FORTRAN_STRLEN_END
21138 #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__, 1, 1)
21140 #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__)
21143#define LAPACK_ctptrs_base LAPACK_GLOBAL(ctptrs,CTPTRS)
21144void LAPACK_ctptrs_base(
21145 char const* uplo,
char const* trans,
char const* diag,
21146 lapack_int
const* n, lapack_int
const* nrhs,
21147 lapack_complex_float
const* AP,
21148 lapack_complex_float* B, lapack_int
const* ldb,
21150#ifdef LAPACK_FORTRAN_STRLEN_END
21151 ,
size_t,
size_t,
size_t
21154#ifdef LAPACK_FORTRAN_STRLEN_END
21155 #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__, 1, 1, 1)
21157 #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__)
21160#define LAPACK_dtptrs_base LAPACK_GLOBAL(dtptrs,DTPTRS)
21161void LAPACK_dtptrs_base(
21162 char const* uplo,
char const* trans,
char const* diag,
21163 lapack_int
const* n, lapack_int
const* nrhs,
21165 double* B, lapack_int
const* ldb,
21167#ifdef LAPACK_FORTRAN_STRLEN_END
21168 ,
size_t,
size_t,
size_t
21171#ifdef LAPACK_FORTRAN_STRLEN_END
21172 #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__, 1, 1, 1)
21174 #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__)
21177#define LAPACK_stptrs_base LAPACK_GLOBAL(stptrs,STPTRS)
21178void LAPACK_stptrs_base(
21179 char const* uplo,
char const* trans,
char const* diag,
21180 lapack_int
const* n, lapack_int
const* nrhs,
21182 float* B, lapack_int
const* ldb,
21184#ifdef LAPACK_FORTRAN_STRLEN_END
21185 ,
size_t,
size_t,
size_t
21188#ifdef LAPACK_FORTRAN_STRLEN_END
21189 #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__, 1, 1, 1)
21191 #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__)
21194#define LAPACK_ztptrs_base LAPACK_GLOBAL(ztptrs,ZTPTRS)
21195void LAPACK_ztptrs_base(
21196 char const* uplo,
char const* trans,
char const* diag,
21197 lapack_int
const* n, lapack_int
const* nrhs,
21198 lapack_complex_double
const* AP,
21199 lapack_complex_double* B, lapack_int
const* ldb,
21201#ifdef LAPACK_FORTRAN_STRLEN_END
21202 ,
size_t,
size_t,
size_t
21205#ifdef LAPACK_FORTRAN_STRLEN_END
21206 #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__, 1, 1, 1)
21208 #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__)
21211#define LAPACK_ctpttf_base LAPACK_GLOBAL(ctpttf,CTPTTF)
21212void LAPACK_ctpttf_base(
21213 char const* transr,
char const* uplo,
21214 lapack_int
const* n,
21215 lapack_complex_float
const* AP,
21216 lapack_complex_float* ARF,
21218#ifdef LAPACK_FORTRAN_STRLEN_END
21222#ifdef LAPACK_FORTRAN_STRLEN_END
21223 #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__, 1, 1)
21225 #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__)
21228#define LAPACK_dtpttf_base LAPACK_GLOBAL(dtpttf,DTPTTF)
21229void LAPACK_dtpttf_base(
21230 char const* transr,
char const* uplo,
21231 lapack_int
const* n,
21235#ifdef LAPACK_FORTRAN_STRLEN_END
21239#ifdef LAPACK_FORTRAN_STRLEN_END
21240 #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__, 1, 1)
21242 #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__)
21245#define LAPACK_stpttf_base LAPACK_GLOBAL(stpttf,STPTTF)
21246void LAPACK_stpttf_base(
21247 char const* transr,
char const* uplo,
21248 lapack_int
const* n,
21252#ifdef LAPACK_FORTRAN_STRLEN_END
21256#ifdef LAPACK_FORTRAN_STRLEN_END
21257 #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__, 1, 1)
21259 #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__)
21262#define LAPACK_ztpttf_base LAPACK_GLOBAL(ztpttf,ZTPTTF)
21263void LAPACK_ztpttf_base(
21264 char const* transr,
char const* uplo,
21265 lapack_int
const* n,
21266 lapack_complex_double
const* AP,
21267 lapack_complex_double* ARF,
21269#ifdef LAPACK_FORTRAN_STRLEN_END
21273#ifdef LAPACK_FORTRAN_STRLEN_END
21274 #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__, 1, 1)
21276 #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__)
21279#define LAPACK_ctpttr_base LAPACK_GLOBAL(ctpttr,CTPTTR)
21280void LAPACK_ctpttr_base(
21282 lapack_int
const* n,
21283 lapack_complex_float
const* AP,
21284 lapack_complex_float* A, lapack_int
const* lda,
21286#ifdef LAPACK_FORTRAN_STRLEN_END
21290#ifdef LAPACK_FORTRAN_STRLEN_END
21291 #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__, 1)
21293 #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__)
21296#define LAPACK_dtpttr_base LAPACK_GLOBAL(dtpttr,DTPTTR)
21297void LAPACK_dtpttr_base(
21299 lapack_int
const* n,
21301 double* A, lapack_int
const* lda,
21303#ifdef LAPACK_FORTRAN_STRLEN_END
21307#ifdef LAPACK_FORTRAN_STRLEN_END
21308 #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__, 1)
21310 #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__)
21313#define LAPACK_stpttr_base LAPACK_GLOBAL(stpttr,STPTTR)
21314void LAPACK_stpttr_base(
21316 lapack_int
const* n,
21318 float* A, lapack_int
const* lda,
21320#ifdef LAPACK_FORTRAN_STRLEN_END
21324#ifdef LAPACK_FORTRAN_STRLEN_END
21325 #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__, 1)
21327 #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__)
21330#define LAPACK_ztpttr_base LAPACK_GLOBAL(ztpttr,ZTPTTR)
21331void LAPACK_ztpttr_base(
21333 lapack_int
const* n,
21334 lapack_complex_double
const* AP,
21335 lapack_complex_double* A, lapack_int
const* lda,
21337#ifdef LAPACK_FORTRAN_STRLEN_END
21341#ifdef LAPACK_FORTRAN_STRLEN_END
21342 #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__, 1)
21344 #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__)
21347#define LAPACK_ctrcon_base LAPACK_GLOBAL(ctrcon,CTRCON)
21348void LAPACK_ctrcon_base(
21349 char const* norm,
char const* uplo,
char const* diag,
21350 lapack_int
const* n,
21351 lapack_complex_float
const* A, lapack_int
const* lda,
21353 lapack_complex_float* work,
21356#ifdef LAPACK_FORTRAN_STRLEN_END
21357 ,
size_t,
size_t,
size_t
21360#ifdef LAPACK_FORTRAN_STRLEN_END
21361 #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__, 1, 1, 1)
21363 #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__)
21366#define LAPACK_dtrcon_base LAPACK_GLOBAL(dtrcon,DTRCON)
21367void LAPACK_dtrcon_base(
21368 char const* norm,
char const* uplo,
char const* diag,
21369 lapack_int
const* n,
21370 double const* A, lapack_int
const* lda,
21375#ifdef LAPACK_FORTRAN_STRLEN_END
21376 ,
size_t,
size_t,
size_t
21379#ifdef LAPACK_FORTRAN_STRLEN_END
21380 #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__, 1, 1, 1)
21382 #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__)
21385#define LAPACK_strcon_base LAPACK_GLOBAL(strcon,STRCON)
21386void LAPACK_strcon_base(
21387 char const* norm,
char const* uplo,
char const* diag,
21388 lapack_int
const* n,
21389 float const* A, lapack_int
const* lda,
21394#ifdef LAPACK_FORTRAN_STRLEN_END
21395 ,
size_t,
size_t,
size_t
21398#ifdef LAPACK_FORTRAN_STRLEN_END
21399 #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__, 1, 1, 1)
21401 #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__)
21404#define LAPACK_ztrcon_base LAPACK_GLOBAL(ztrcon,ZTRCON)
21405void LAPACK_ztrcon_base(
21406 char const* norm,
char const* uplo,
char const* diag,
21407 lapack_int
const* n,
21408 lapack_complex_double
const* A, lapack_int
const* lda,
21410 lapack_complex_double* work,
21413#ifdef LAPACK_FORTRAN_STRLEN_END
21414 ,
size_t,
size_t,
size_t
21417#ifdef LAPACK_FORTRAN_STRLEN_END
21418 #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__, 1, 1, 1)
21420 #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__)
21423#define LAPACK_ctrevc_base LAPACK_GLOBAL(ctrevc,CTREVC)
21424void LAPACK_ctrevc_base(
21425 char const* side,
char const* howmny,
21426 lapack_logical
const* select,
21427 lapack_int
const* n,
21428 lapack_complex_float* T, lapack_int
const* ldt,
21429 lapack_complex_float* VL, lapack_int
const* ldvl,
21430 lapack_complex_float* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
21431 lapack_complex_float* work,
21434#ifdef LAPACK_FORTRAN_STRLEN_END
21438#ifdef LAPACK_FORTRAN_STRLEN_END
21439 #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__, 1, 1)
21441 #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__)
21444#define LAPACK_dtrevc_base LAPACK_GLOBAL(dtrevc,DTREVC)
21445void LAPACK_dtrevc_base(
21446 char const* side,
char const* howmny,
21447 lapack_logical* select,
21448 lapack_int
const* n,
21449 double const* T, lapack_int
const* ldt,
21450 double* VL, lapack_int
const* ldvl,
21451 double* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
21454#ifdef LAPACK_FORTRAN_STRLEN_END
21458#ifdef LAPACK_FORTRAN_STRLEN_END
21459 #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__, 1, 1)
21461 #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__)
21464#define LAPACK_strevc_base LAPACK_GLOBAL(strevc,STREVC)
21465void LAPACK_strevc_base(
21466 char const* side,
char const* howmny,
21467 lapack_logical* select,
21468 lapack_int
const* n,
21469 float const* T, lapack_int
const* ldt,
21470 float* VL, lapack_int
const* ldvl,
21471 float* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
21474#ifdef LAPACK_FORTRAN_STRLEN_END
21478#ifdef LAPACK_FORTRAN_STRLEN_END
21479 #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__, 1, 1)
21481 #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__)
21484#define LAPACK_ztrevc_base LAPACK_GLOBAL(ztrevc,ZTREVC)
21485void LAPACK_ztrevc_base(
21486 char const* side,
char const* howmny,
21487 lapack_logical
const* select,
21488 lapack_int
const* n,
21489 lapack_complex_double* T, lapack_int
const* ldt,
21490 lapack_complex_double* VL, lapack_int
const* ldvl,
21491 lapack_complex_double* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
21492 lapack_complex_double* work,
21495#ifdef LAPACK_FORTRAN_STRLEN_END
21499#ifdef LAPACK_FORTRAN_STRLEN_END
21500 #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__, 1, 1)
21502 #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__)
21505#define LAPACK_ctrevc3_base LAPACK_GLOBAL(ctrevc3,CTREVC3)
21506void LAPACK_ctrevc3_base(
21507 char const* side,
char const* howmny,
21508 lapack_logical
const* select,
21509 lapack_int
const* n,
21510 lapack_complex_float* T, lapack_int
const* ldt,
21511 lapack_complex_float* VL, lapack_int
const* ldvl,
21512 lapack_complex_float* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
21513 lapack_complex_float* work, lapack_int
const* lwork,
21514 float* rwork, lapack_int
const* lrwork,
21516#ifdef LAPACK_FORTRAN_STRLEN_END
21520#ifdef LAPACK_FORTRAN_STRLEN_END
21521 #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__, 1, 1)
21523 #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__)
21526#define LAPACK_dtrevc3_base LAPACK_GLOBAL(dtrevc3,DTREVC3)
21527void LAPACK_dtrevc3_base(
21528 char const* side,
char const* howmny,
21529 lapack_logical* select,
21530 lapack_int
const* n,
21531 double const* T, lapack_int
const* ldt,
21532 double* VL, lapack_int
const* ldvl,
21533 double* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
21534 double* work, lapack_int
const* lwork,
21536#ifdef LAPACK_FORTRAN_STRLEN_END
21540#ifdef LAPACK_FORTRAN_STRLEN_END
21541 #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__, 1, 1)
21543 #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__)
21546#define LAPACK_strevc3_base LAPACK_GLOBAL(strevc3,STREVC3)
21547void LAPACK_strevc3_base(
21548 char const* side,
char const* howmny,
21549 lapack_logical* select,
21550 lapack_int
const* n,
21551 float const* T, lapack_int
const* ldt,
21552 float* VL, lapack_int
const* ldvl,
21553 float* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
21554 float* work, lapack_int
const* lwork,
21556#ifdef LAPACK_FORTRAN_STRLEN_END
21560#ifdef LAPACK_FORTRAN_STRLEN_END
21561 #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__, 1, 1)
21563 #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__)
21566#define LAPACK_ztrevc3_base LAPACK_GLOBAL(ztrevc3,ZTREVC3)
21567void LAPACK_ztrevc3_base(
21568 char const* side,
char const* howmny,
21569 lapack_logical
const* select,
21570 lapack_int
const* n,
21571 lapack_complex_double* T, lapack_int
const* ldt,
21572 lapack_complex_double* VL, lapack_int
const* ldvl,
21573 lapack_complex_double* VR, lapack_int
const* ldvr, lapack_int
const* mm, lapack_int* m,
21574 lapack_complex_double* work, lapack_int
const* lwork,
21575 double* rwork, lapack_int
const* lrwork,
21577#ifdef LAPACK_FORTRAN_STRLEN_END
21581#ifdef LAPACK_FORTRAN_STRLEN_END
21582 #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__, 1, 1)
21584 #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__)
21587#define LAPACK_ctrexc_base LAPACK_GLOBAL(ctrexc,CTREXC)
21588void LAPACK_ctrexc_base(
21590 lapack_int
const* n,
21591 lapack_complex_float* T, lapack_int
const* ldt,
21592 lapack_complex_float* Q, lapack_int
const* ldq, lapack_int
const* ifst, lapack_int
const* ilst,
21594#ifdef LAPACK_FORTRAN_STRLEN_END
21598#ifdef LAPACK_FORTRAN_STRLEN_END
21599 #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__, 1)
21601 #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__)
21604#define LAPACK_dtrexc_base LAPACK_GLOBAL(dtrexc,DTREXC)
21605void LAPACK_dtrexc_base(
21607 lapack_int
const* n,
21608 double* T, lapack_int
const* ldt,
21609 double* Q, lapack_int
const* ldq, lapack_int* ifst, lapack_int* ilst,
21612#ifdef LAPACK_FORTRAN_STRLEN_END
21616#ifdef LAPACK_FORTRAN_STRLEN_END
21617 #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__, 1)
21619 #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__)
21622#define LAPACK_strexc_base LAPACK_GLOBAL(strexc,STREXC)
21623void LAPACK_strexc_base(
21625 lapack_int
const* n,
21626 float* T, lapack_int
const* ldt,
21627 float* Q, lapack_int
const* ldq, lapack_int* ifst, lapack_int* ilst,
21630#ifdef LAPACK_FORTRAN_STRLEN_END
21634#ifdef LAPACK_FORTRAN_STRLEN_END
21635 #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__, 1)
21637 #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__)
21640#define LAPACK_ztrexc_base LAPACK_GLOBAL(ztrexc,ZTREXC)
21641void LAPACK_ztrexc_base(
21643 lapack_int
const* n,
21644 lapack_complex_double* T, lapack_int
const* ldt,
21645 lapack_complex_double* Q, lapack_int
const* ldq, lapack_int
const* ifst, lapack_int
const* ilst,
21647#ifdef LAPACK_FORTRAN_STRLEN_END
21651#ifdef LAPACK_FORTRAN_STRLEN_END
21652 #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__, 1)
21654 #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__)
21657#define LAPACK_ctrrfs_base LAPACK_GLOBAL(ctrrfs,CTRRFS)
21658void LAPACK_ctrrfs_base(
21659 char const* uplo,
char const* trans,
char const* diag,
21660 lapack_int
const* n, lapack_int
const* nrhs,
21661 lapack_complex_float
const* A, lapack_int
const* lda,
21662 lapack_complex_float
const* B, lapack_int
const* ldb,
21663 lapack_complex_float
const* X, lapack_int
const* ldx,
21666 lapack_complex_float* work,
21669#ifdef LAPACK_FORTRAN_STRLEN_END
21670 ,
size_t,
size_t,
size_t
21673#ifdef LAPACK_FORTRAN_STRLEN_END
21674 #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__, 1, 1, 1)
21676 #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__)
21679#define LAPACK_dtrrfs_base LAPACK_GLOBAL(dtrrfs,DTRRFS)
21680void LAPACK_dtrrfs_base(
21681 char const* uplo,
char const* trans,
char const* diag,
21682 lapack_int
const* n, lapack_int
const* nrhs,
21683 double const* A, lapack_int
const* lda,
21684 double const* B, lapack_int
const* ldb,
21685 double const* X, lapack_int
const* ldx,
21691#ifdef LAPACK_FORTRAN_STRLEN_END
21692 ,
size_t,
size_t,
size_t
21695#ifdef LAPACK_FORTRAN_STRLEN_END
21696 #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__, 1, 1, 1)
21698 #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__)
21701#define LAPACK_strrfs_base LAPACK_GLOBAL(strrfs,STRRFS)
21702void LAPACK_strrfs_base(
21703 char const* uplo,
char const* trans,
char const* diag,
21704 lapack_int
const* n, lapack_int
const* nrhs,
21705 float const* A, lapack_int
const* lda,
21706 float const* B, lapack_int
const* ldb,
21707 float const* X, lapack_int
const* ldx,
21713#ifdef LAPACK_FORTRAN_STRLEN_END
21714 ,
size_t,
size_t,
size_t
21717#ifdef LAPACK_FORTRAN_STRLEN_END
21718 #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__, 1, 1, 1)
21720 #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__)
21723#define LAPACK_ztrrfs_base LAPACK_GLOBAL(ztrrfs,ZTRRFS)
21724void LAPACK_ztrrfs_base(
21725 char const* uplo,
char const* trans,
char const* diag,
21726 lapack_int
const* n, lapack_int
const* nrhs,
21727 lapack_complex_double
const* A, lapack_int
const* lda,
21728 lapack_complex_double
const* B, lapack_int
const* ldb,
21729 lapack_complex_double
const* X, lapack_int
const* ldx,
21732 lapack_complex_double* work,
21735#ifdef LAPACK_FORTRAN_STRLEN_END
21736 ,
size_t,
size_t,
size_t
21739#ifdef LAPACK_FORTRAN_STRLEN_END
21740 #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__, 1, 1, 1)
21742 #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__)
21745#define LAPACK_ctrsen_base LAPACK_GLOBAL(ctrsen,CTRSEN)
21746void LAPACK_ctrsen_base(
21747 char const* job,
char const* compq,
21748 lapack_logical
const* select,
21749 lapack_int
const* n,
21750 lapack_complex_float* T, lapack_int
const* ldt,
21751 lapack_complex_float* Q, lapack_int
const* ldq,
21752 lapack_complex_float* W, lapack_int* m,
21755 lapack_complex_float* work, lapack_int
const* lwork,
21757#ifdef LAPACK_FORTRAN_STRLEN_END
21761#ifdef LAPACK_FORTRAN_STRLEN_END
21762 #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__, 1, 1)
21764 #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__)
21767#define LAPACK_dtrsen_base LAPACK_GLOBAL(dtrsen,DTRSEN)
21768void LAPACK_dtrsen_base(
21769 char const* job,
char const* compq,
21770 lapack_logical
const* select,
21771 lapack_int
const* n,
21772 double* T, lapack_int
const* ldt,
21773 double* Q, lapack_int
const* ldq,
21775 double* WI, lapack_int* m,
21778 double* work, lapack_int
const* lwork,
21779 lapack_int* iwork, lapack_int
const* liwork,
21781#ifdef LAPACK_FORTRAN_STRLEN_END
21785#ifdef LAPACK_FORTRAN_STRLEN_END
21786 #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__, 1, 1)
21788 #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__)
21791#define LAPACK_strsen_base LAPACK_GLOBAL(strsen,STRSEN)
21792void LAPACK_strsen_base(
21793 char const* job,
char const* compq,
21794 lapack_logical
const* select,
21795 lapack_int
const* n,
21796 float* T, lapack_int
const* ldt,
21797 float* Q, lapack_int
const* ldq,
21799 float* WI, lapack_int* m,
21802 float* work, lapack_int
const* lwork,
21803 lapack_int* iwork, lapack_int
const* liwork,
21805#ifdef LAPACK_FORTRAN_STRLEN_END
21809#ifdef LAPACK_FORTRAN_STRLEN_END
21810 #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__, 1, 1)
21812 #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__)
21815#define LAPACK_ztrsen_base LAPACK_GLOBAL(ztrsen,ZTRSEN)
21816void LAPACK_ztrsen_base(
21817 char const* job,
char const* compq,
21818 lapack_logical
const* select,
21819 lapack_int
const* n,
21820 lapack_complex_double* T, lapack_int
const* ldt,
21821 lapack_complex_double* Q, lapack_int
const* ldq,
21822 lapack_complex_double* W, lapack_int* m,
21825 lapack_complex_double* work, lapack_int
const* lwork,
21827#ifdef LAPACK_FORTRAN_STRLEN_END
21831#ifdef LAPACK_FORTRAN_STRLEN_END
21832 #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__, 1, 1)
21834 #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__)
21837#define LAPACK_ctrsna_base LAPACK_GLOBAL(ctrsna,CTRSNA)
21838void LAPACK_ctrsna_base(
21839 char const* job,
char const* howmny,
21840 lapack_logical
const* select,
21841 lapack_int
const* n,
21842 lapack_complex_float
const* T, lapack_int
const* ldt,
21843 lapack_complex_float
const* VL, lapack_int
const* ldvl,
21844 lapack_complex_float
const* VR, lapack_int
const* ldvr,
21846 float* SEP, lapack_int
const* mm, lapack_int* m,
21847 lapack_complex_float* work, lapack_int
const* ldwork,
21850#ifdef LAPACK_FORTRAN_STRLEN_END
21854#ifdef LAPACK_FORTRAN_STRLEN_END
21855 #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__, 1, 1)
21857 #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__)
21860#define LAPACK_dtrsna_base LAPACK_GLOBAL(dtrsna,DTRSNA)
21861void LAPACK_dtrsna_base(
21862 char const* job,
char const* howmny,
21863 lapack_logical
const* select,
21864 lapack_int
const* n,
21865 double const* T, lapack_int
const* ldt,
21866 double const* VL, lapack_int
const* ldvl,
21867 double const* VR, lapack_int
const* ldvr,
21869 double* SEP, lapack_int
const* mm, lapack_int* m,
21870 double* work, lapack_int
const* ldwork,
21873#ifdef LAPACK_FORTRAN_STRLEN_END
21877#ifdef LAPACK_FORTRAN_STRLEN_END
21878 #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__, 1, 1)
21880 #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__)
21883#define LAPACK_strsna_base LAPACK_GLOBAL(strsna,STRSNA)
21884void LAPACK_strsna_base(
21885 char const* job,
char const* howmny,
21886 lapack_logical
const* select,
21887 lapack_int
const* n,
21888 float const* T, lapack_int
const* ldt,
21889 float const* VL, lapack_int
const* ldvl,
21890 float const* VR, lapack_int
const* ldvr,
21892 float* SEP, lapack_int
const* mm, lapack_int* m,
21893 float* work, lapack_int
const* ldwork,
21896#ifdef LAPACK_FORTRAN_STRLEN_END
21900#ifdef LAPACK_FORTRAN_STRLEN_END
21901 #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__, 1, 1)
21903 #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__)
21906#define LAPACK_ztrsna_base LAPACK_GLOBAL(ztrsna,ZTRSNA)
21907void LAPACK_ztrsna_base(
21908 char const* job,
char const* howmny,
21909 lapack_logical
const* select,
21910 lapack_int
const* n,
21911 lapack_complex_double
const* T, lapack_int
const* ldt,
21912 lapack_complex_double
const* VL, lapack_int
const* ldvl,
21913 lapack_complex_double
const* VR, lapack_int
const* ldvr,
21915 double* SEP, lapack_int
const* mm, lapack_int* m,
21916 lapack_complex_double* work, lapack_int
const* ldwork,
21919#ifdef LAPACK_FORTRAN_STRLEN_END
21923#ifdef LAPACK_FORTRAN_STRLEN_END
21924 #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__, 1, 1)
21926 #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__)
21929#define LAPACK_ctrsyl_base LAPACK_GLOBAL(ctrsyl,CTRSYL)
21930void LAPACK_ctrsyl_base(
21931 char const* trana,
char const* tranb,
21932 lapack_int
const* isgn, lapack_int
const* m, lapack_int
const* n,
21933 lapack_complex_float
const* A, lapack_int
const* lda,
21934 lapack_complex_float
const* B, lapack_int
const* ldb,
21935 lapack_complex_float* C, lapack_int
const* ldc,
21938#ifdef LAPACK_FORTRAN_STRLEN_END
21942#ifdef LAPACK_FORTRAN_STRLEN_END
21943 #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__, 1, 1)
21945 #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__)
21948#define LAPACK_dtrsyl_base LAPACK_GLOBAL(dtrsyl,DTRSYL)
21949void LAPACK_dtrsyl_base(
21950 char const* trana,
char const* tranb,
21951 lapack_int
const* isgn, lapack_int
const* m, lapack_int
const* n,
21952 double const* A, lapack_int
const* lda,
21953 double const* B, lapack_int
const* ldb,
21954 double* C, lapack_int
const* ldc,
21957#ifdef LAPACK_FORTRAN_STRLEN_END
21961#ifdef LAPACK_FORTRAN_STRLEN_END
21962 #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__, 1, 1)
21964 #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__)
21967#define LAPACK_strsyl_base LAPACK_GLOBAL(strsyl,STRSYL)
21968void LAPACK_strsyl_base(
21969 char const* trana,
char const* tranb,
21970 lapack_int
const* isgn, lapack_int
const* m, lapack_int
const* n,
21971 float const* A, lapack_int
const* lda,
21972 float const* B, lapack_int
const* ldb,
21973 float* C, lapack_int
const* ldc,
21976#ifdef LAPACK_FORTRAN_STRLEN_END
21980#ifdef LAPACK_FORTRAN_STRLEN_END
21981 #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__, 1, 1)
21983 #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__)
21986#define LAPACK_ztrsyl_base LAPACK_GLOBAL(ztrsyl,ZTRSYL)
21987void LAPACK_ztrsyl_base(
21988 char const* trana,
char const* tranb,
21989 lapack_int
const* isgn, lapack_int
const* m, lapack_int
const* n,
21990 lapack_complex_double
const* A, lapack_int
const* lda,
21991 lapack_complex_double
const* B, lapack_int
const* ldb,
21992 lapack_complex_double* C, lapack_int
const* ldc,
21995#ifdef LAPACK_FORTRAN_STRLEN_END
21999#ifdef LAPACK_FORTRAN_STRLEN_END
22000 #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__, 1, 1)
22002 #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__)
22005#define LAPACK_ctrsyl3_base LAPACK_GLOBAL(ctrsyl3,CTRSYL3)
22006void LAPACK_ctrsyl3_base(
22007 char const* trana,
char const* tranb,
22008 lapack_int
const* isgn, lapack_int
const* m, lapack_int
const* n,
22009 lapack_complex_float
const* A, lapack_int
const* lda,
22010 lapack_complex_float
const* B, lapack_int
const* ldb,
22011 lapack_complex_float* C, lapack_int
const* ldc,
float* scale,
22012 float* swork, lapack_int
const *ldswork,
22014#ifdef LAPACK_FORTRAN_STRLEN_END
22018#ifdef LAPACK_FORTRAN_STRLEN_END
22019 #define LAPACK_ctrsyl3(...) LAPACK_ctrsyl3_base(__VA_ARGS__, 1, 1)
22021 #define LAPACK_ctrsyl3(...) LAPACK_ctrsyl3_base(__VA_ARGS__)
22024#define LAPACK_dtrsyl3_base LAPACK_GLOBAL(dtrsyl3,DTRSYL3)
22025void LAPACK_dtrsyl3_base(
22026 char const* trana,
char const* tranb,
22027 lapack_int
const* isgn, lapack_int
const* m, lapack_int
const* n,
22028 double const* A, lapack_int
const* lda,
22029 double const* B, lapack_int
const* ldb,
22030 double* C, lapack_int
const* ldc,
double* scale,
22031 lapack_int* iwork, lapack_int
const* liwork,
22032 double* swork, lapack_int
const *ldswork,
22034#ifdef LAPACK_FORTRAN_STRLEN_END
22038#ifdef LAPACK_FORTRAN_STRLEN_END
22039 #define LAPACK_dtrsyl3(...) LAPACK_dtrsyl3_base(__VA_ARGS__, 1, 1)
22041 #define LAPACK_dtrsyl3(...) LAPACK_dtrsyl3_base(__VA_ARGS__)
22044#define LAPACK_strsyl3_base LAPACK_GLOBAL(strsyl3,STRSYL3)
22045void LAPACK_strsyl3_base(
22046 char const* trana,
char const* tranb,
22047 lapack_int
const* isgn, lapack_int
const* m, lapack_int
const* n,
22048 float const* A, lapack_int
const* lda,
22049 float const* B, lapack_int
const* ldb,
22050 float* C, lapack_int
const* ldc,
float* scale,
22051 lapack_int* iwork, lapack_int
const* liwork,
22052 float* swork, lapack_int
const *ldswork,
22054#ifdef LAPACK_FORTRAN_STRLEN_END
22058#ifdef LAPACK_FORTRAN_STRLEN_END
22059 #define LAPACK_strsyl3(...) LAPACK_strsyl3_base(__VA_ARGS__, 1, 1)
22061 #define LAPACK_strsyl3(...) LAPACK_strsyl3_base(__VA_ARGS__)
22064#define LAPACK_ztrsyl3_base LAPACK_GLOBAL(ztrsyl3,ZTRSYL3)
22065void LAPACK_ztrsyl3_base(
22066 char const* trana,
char const* tranb,
22067 lapack_int
const* isgn, lapack_int
const* m, lapack_int
const* n,
22068 lapack_complex_double
const* A, lapack_int
const* lda,
22069 lapack_complex_double
const* B, lapack_int
const* ldb,
22070 lapack_complex_double* C, lapack_int
const* ldc,
double* scale,
22071 double* swork, lapack_int
const *ldswork,
22073#ifdef LAPACK_FORTRAN_STRLEN_END
22077#ifdef LAPACK_FORTRAN_STRLEN_END
22078 #define LAPACK_ztrsyl3(...) LAPACK_ztrsyl3_base(__VA_ARGS__, 1, 1)
22080 #define LAPACK_ztrsyl3(...) LAPACK_ztrsyl3_base(__VA_ARGS__)
22083#define LAPACK_ctrtri_base LAPACK_GLOBAL(ctrtri,CTRTRI)
22084void LAPACK_ctrtri_base(
22085 char const* uplo,
char const* diag,
22086 lapack_int
const* n,
22087 lapack_complex_float* A, lapack_int
const* lda,
22089#ifdef LAPACK_FORTRAN_STRLEN_END
22093#ifdef LAPACK_FORTRAN_STRLEN_END
22094 #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__, 1, 1)
22096 #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__)
22099#define LAPACK_dtrtri_base LAPACK_GLOBAL(dtrtri,DTRTRI)
22100void LAPACK_dtrtri_base(
22101 char const* uplo,
char const* diag,
22102 lapack_int
const* n,
22103 double* A, lapack_int
const* lda,
22105#ifdef LAPACK_FORTRAN_STRLEN_END
22109#ifdef LAPACK_FORTRAN_STRLEN_END
22110 #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__, 1, 1)
22112 #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__)
22115#define LAPACK_strtri_base LAPACK_GLOBAL(strtri,STRTRI)
22116void LAPACK_strtri_base(
22117 char const* uplo,
char const* diag,
22118 lapack_int
const* n,
22119 float* A, lapack_int
const* lda,
22121#ifdef LAPACK_FORTRAN_STRLEN_END
22125#ifdef LAPACK_FORTRAN_STRLEN_END
22126 #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__, 1, 1)
22128 #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__)
22131#define LAPACK_ztrtri_base LAPACK_GLOBAL(ztrtri,ZTRTRI)
22132void LAPACK_ztrtri_base(
22133 char const* uplo,
char const* diag,
22134 lapack_int
const* n,
22135 lapack_complex_double* A, lapack_int
const* lda,
22137#ifdef LAPACK_FORTRAN_STRLEN_END
22141#ifdef LAPACK_FORTRAN_STRLEN_END
22142 #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__, 1, 1)
22144 #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__)
22147#define LAPACK_ctrtrs_base LAPACK_GLOBAL(ctrtrs,CTRTRS)
22148void LAPACK_ctrtrs_base(
22149 char const* uplo,
char const* trans,
char const* diag,
22150 lapack_int
const* n, lapack_int
const* nrhs,
22151 lapack_complex_float
const* A, lapack_int
const* lda,
22152 lapack_complex_float* B, lapack_int
const* ldb,
22154#ifdef LAPACK_FORTRAN_STRLEN_END
22155 ,
size_t,
size_t,
size_t
22158#ifdef LAPACK_FORTRAN_STRLEN_END
22159 #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__, 1, 1, 1)
22161 #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__)
22164#define LAPACK_dtrtrs_base LAPACK_GLOBAL(dtrtrs,DTRTRS)
22165void LAPACK_dtrtrs_base(
22166 char const* uplo,
char const* trans,
char const* diag,
22167 lapack_int
const* n, lapack_int
const* nrhs,
22168 double const* A, lapack_int
const* lda,
22169 double* B, lapack_int
const* ldb,
22171#ifdef LAPACK_FORTRAN_STRLEN_END
22172 ,
size_t,
size_t,
size_t
22175#ifdef LAPACK_FORTRAN_STRLEN_END
22176 #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__, 1, 1, 1)
22178 #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__)
22181#define LAPACK_strtrs_base LAPACK_GLOBAL(strtrs,STRTRS)
22182void LAPACK_strtrs_base(
22183 char const* uplo,
char const* trans,
char const* diag,
22184 lapack_int
const* n, lapack_int
const* nrhs,
22185 float const* A, lapack_int
const* lda,
22186 float* B, lapack_int
const* ldb,
22188#ifdef LAPACK_FORTRAN_STRLEN_END
22189 ,
size_t,
size_t,
size_t
22192#ifdef LAPACK_FORTRAN_STRLEN_END
22193 #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__, 1, 1, 1)
22195 #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__)
22198#define LAPACK_ztrtrs_base LAPACK_GLOBAL(ztrtrs,ZTRTRS)
22199void LAPACK_ztrtrs_base(
22200 char const* uplo,
char const* trans,
char const* diag,
22201 lapack_int
const* n, lapack_int
const* nrhs,
22202 lapack_complex_double
const* A, lapack_int
const* lda,
22203 lapack_complex_double* B, lapack_int
const* ldb,
22205#ifdef LAPACK_FORTRAN_STRLEN_END
22206 ,
size_t,
size_t,
size_t
22209#ifdef LAPACK_FORTRAN_STRLEN_END
22210 #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__, 1, 1, 1)
22212 #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__)
22215#define LAPACK_ctrttf_base LAPACK_GLOBAL(ctrttf,CTRTTF)
22216void LAPACK_ctrttf_base(
22217 char const* transr,
char const* uplo,
22218 lapack_int
const* n,
22219 lapack_complex_float
const* A, lapack_int
const* lda,
22220 lapack_complex_float* ARF,
22222#ifdef LAPACK_FORTRAN_STRLEN_END
22226#ifdef LAPACK_FORTRAN_STRLEN_END
22227 #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__, 1, 1)
22229 #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__)
22232#define LAPACK_dtrttf_base LAPACK_GLOBAL(dtrttf,DTRTTF)
22233void LAPACK_dtrttf_base(
22234 char const* transr,
char const* uplo,
22235 lapack_int
const* n,
22236 double const* A, lapack_int
const* lda,
22239#ifdef LAPACK_FORTRAN_STRLEN_END
22243#ifdef LAPACK_FORTRAN_STRLEN_END
22244 #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__, 1, 1)
22246 #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__)
22249#define LAPACK_strttf_base LAPACK_GLOBAL(strttf,STRTTF)
22250void LAPACK_strttf_base(
22251 char const* transr,
char const* uplo,
22252 lapack_int
const* n,
22253 float const* A, lapack_int
const* lda,
22256#ifdef LAPACK_FORTRAN_STRLEN_END
22260#ifdef LAPACK_FORTRAN_STRLEN_END
22261 #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__, 1, 1)
22263 #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__)
22266#define LAPACK_ztrttf_base LAPACK_GLOBAL(ztrttf,ZTRTTF)
22267void LAPACK_ztrttf_base(
22268 char const* transr,
char const* uplo,
22269 lapack_int
const* n,
22270 lapack_complex_double
const* A, lapack_int
const* lda,
22271 lapack_complex_double* ARF,
22273#ifdef LAPACK_FORTRAN_STRLEN_END
22277#ifdef LAPACK_FORTRAN_STRLEN_END
22278 #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__, 1, 1)
22280 #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__)
22283#define LAPACK_ctrttp_base LAPACK_GLOBAL(ctrttp,CTRTTP)
22284void LAPACK_ctrttp_base(
22286 lapack_int
const* n,
22287 lapack_complex_float
const* A, lapack_int
const* lda,
22288 lapack_complex_float* AP,
22290#ifdef LAPACK_FORTRAN_STRLEN_END
22294#ifdef LAPACK_FORTRAN_STRLEN_END
22295 #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__, 1)
22297 #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__)
22300#define LAPACK_dtrttp_base LAPACK_GLOBAL(dtrttp,DTRTTP)
22301void LAPACK_dtrttp_base(
22303 lapack_int
const* n,
22304 double const* A, lapack_int
const* lda,
22307#ifdef LAPACK_FORTRAN_STRLEN_END
22311#ifdef LAPACK_FORTRAN_STRLEN_END
22312 #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__, 1)
22314 #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__)
22317#define LAPACK_strttp_base LAPACK_GLOBAL(strttp,STRTTP)
22318void LAPACK_strttp_base(
22320 lapack_int
const* n,
22321 float const* A, lapack_int
const* lda,
22324#ifdef LAPACK_FORTRAN_STRLEN_END
22328#ifdef LAPACK_FORTRAN_STRLEN_END
22329 #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__, 1)
22331 #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__)
22334#define LAPACK_ztrttp_base LAPACK_GLOBAL(ztrttp,ZTRTTP)
22335void LAPACK_ztrttp_base(
22337 lapack_int
const* n,
22338 lapack_complex_double
const* A, lapack_int
const* lda,
22339 lapack_complex_double* AP,
22341#ifdef LAPACK_FORTRAN_STRLEN_END
22345#ifdef LAPACK_FORTRAN_STRLEN_END
22346 #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__, 1)
22348 #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__)
22351#define LAPACK_ctzrzf LAPACK_GLOBAL(ctzrzf,CTZRZF)
22353 lapack_int
const* m, lapack_int
const* n,
22354 lapack_complex_float* A, lapack_int
const* lda,
22355 lapack_complex_float* tau,
22356 lapack_complex_float* work, lapack_int
const* lwork,
22357 lapack_int* info );
22359#define LAPACK_dtzrzf LAPACK_GLOBAL(dtzrzf,DTZRZF)
22361 lapack_int
const* m, lapack_int
const* n,
22362 double* A, lapack_int
const* lda,
22364 double* work, lapack_int
const* lwork,
22365 lapack_int* info );
22367#define LAPACK_stzrzf LAPACK_GLOBAL(stzrzf,STZRZF)
22369 lapack_int
const* m, lapack_int
const* n,
22370 float* A, lapack_int
const* lda,
22372 float* work, lapack_int
const* lwork,
22373 lapack_int* info );
22375#define LAPACK_ztzrzf LAPACK_GLOBAL(ztzrzf,ZTZRZF)
22377 lapack_int
const* m, lapack_int
const* n,
22378 lapack_complex_double* A, lapack_int
const* lda,
22379 lapack_complex_double* tau,
22380 lapack_complex_double* work, lapack_int
const* lwork,
22381 lapack_int* info );
22383#define LAPACK_cunbdb_base LAPACK_GLOBAL(cunbdb,CUNBDB)
22384void LAPACK_cunbdb_base(
22385 char const* trans,
char const* signs,
22386 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
22387 lapack_complex_float* X11, lapack_int
const* ldx11,
22388 lapack_complex_float* X12, lapack_int
const* ldx12,
22389 lapack_complex_float* X21, lapack_int
const* ldx21,
22390 lapack_complex_float* X22, lapack_int
const* ldx22,
22393 lapack_complex_float* TAUP1,
22394 lapack_complex_float* TAUP2,
22395 lapack_complex_float* TAUQ1,
22396 lapack_complex_float* TAUQ2,
22397 lapack_complex_float* work, lapack_int
const* lwork,
22399#ifdef LAPACK_FORTRAN_STRLEN_END
22403#ifdef LAPACK_FORTRAN_STRLEN_END
22404 #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__, 1, 1)
22406 #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__)
22409#define LAPACK_zunbdb_base LAPACK_GLOBAL(zunbdb,ZUNBDB)
22410void LAPACK_zunbdb_base(
22411 char const* trans,
char const* signs,
22412 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
22413 lapack_complex_double* X11, lapack_int
const* ldx11,
22414 lapack_complex_double* X12, lapack_int
const* ldx12,
22415 lapack_complex_double* X21, lapack_int
const* ldx21,
22416 lapack_complex_double* X22, lapack_int
const* ldx22,
22419 lapack_complex_double* TAUP1,
22420 lapack_complex_double* TAUP2,
22421 lapack_complex_double* TAUQ1,
22422 lapack_complex_double* TAUQ2,
22423 lapack_complex_double* work, lapack_int
const* lwork,
22425#ifdef LAPACK_FORTRAN_STRLEN_END
22429#ifdef LAPACK_FORTRAN_STRLEN_END
22430 #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__, 1, 1)
22432 #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__)
22435#define LAPACK_cuncsd_base LAPACK_GLOBAL(cuncsd,CUNCSD)
22436void LAPACK_cuncsd_base(
22437 char const* jobu1,
char const* jobu2,
char const* jobv1t,
char const* jobv2t,
char const* trans,
char const* signs,
22438 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
22439 lapack_complex_float* X11, lapack_int
const* ldx11,
22440 lapack_complex_float* X12, lapack_int
const* ldx12,
22441 lapack_complex_float* X21, lapack_int
const* ldx21,
22442 lapack_complex_float* X22, lapack_int
const* ldx22,
22444 lapack_complex_float* U1, lapack_int
const* ldu1,
22445 lapack_complex_float* U2, lapack_int
const* ldu2,
22446 lapack_complex_float* V1T, lapack_int
const* ldv1t,
22447 lapack_complex_float* V2T, lapack_int
const* ldv2t,
22448 lapack_complex_float* work, lapack_int
const* lwork,
22449 float* rwork, lapack_int
const* lrwork,
22452#ifdef LAPACK_FORTRAN_STRLEN_END
22453 ,
size_t,
size_t,
size_t,
size_t,
size_t,
size_t
22456#ifdef LAPACK_FORTRAN_STRLEN_END
22457 #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
22459 #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__)
22462#define LAPACK_zuncsd_base LAPACK_GLOBAL(zuncsd,ZUNCSD)
22463void LAPACK_zuncsd_base(
22464 char const* jobu1,
char const* jobu2,
char const* jobv1t,
char const* jobv2t,
char const* trans,
char const* signs,
22465 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
22466 lapack_complex_double* X11, lapack_int
const* ldx11,
22467 lapack_complex_double* X12, lapack_int
const* ldx12,
22468 lapack_complex_double* X21, lapack_int
const* ldx21,
22469 lapack_complex_double* X22, lapack_int
const* ldx22,
22471 lapack_complex_double* U1, lapack_int
const* ldu1,
22472 lapack_complex_double* U2, lapack_int
const* ldu2,
22473 lapack_complex_double* V1T, lapack_int
const* ldv1t,
22474 lapack_complex_double* V2T, lapack_int
const* ldv2t,
22475 lapack_complex_double* work, lapack_int
const* lwork,
22476 double* rwork, lapack_int
const* lrwork,
22479#ifdef LAPACK_FORTRAN_STRLEN_END
22480 ,
size_t,
size_t,
size_t,
size_t,
size_t,
size_t
22483#ifdef LAPACK_FORTRAN_STRLEN_END
22484 #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
22486 #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__)
22489#define LAPACK_cuncsd2by1_base LAPACK_GLOBAL(cuncsd2by1,CUNCSD2BY1)
22490void LAPACK_cuncsd2by1_base(
22491 char const* jobu1,
char const* jobu2,
char const* jobv1t,
22492 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
22493 lapack_complex_float* X11, lapack_int
const* ldx11,
22494 lapack_complex_float* X21, lapack_int
const* ldx21,
22496 lapack_complex_float* U1, lapack_int
const* ldu1,
22497 lapack_complex_float* U2, lapack_int
const* ldu2,
22498 lapack_complex_float* V1T, lapack_int
const* ldv1t,
22499 lapack_complex_float* work, lapack_int
const* lwork,
22500 float* rwork, lapack_int
const* lrwork,
22503#ifdef LAPACK_FORTRAN_STRLEN_END
22504 ,
size_t,
size_t,
size_t
22507#ifdef LAPACK_FORTRAN_STRLEN_END
22508 #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__, 1, 1, 1)
22510 #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__)
22513#define LAPACK_zuncsd2by1_base LAPACK_GLOBAL(zuncsd2by1,ZUNCSD2BY1)
22514void LAPACK_zuncsd2by1_base(
22515 char const* jobu1,
char const* jobu2,
char const* jobv1t,
22516 lapack_int
const* m, lapack_int
const* p, lapack_int
const* q,
22517 lapack_complex_double* X11, lapack_int
const* ldx11,
22518 lapack_complex_double* X21, lapack_int
const* ldx21,
22520 lapack_complex_double* U1, lapack_int
const* ldu1,
22521 lapack_complex_double* U2, lapack_int
const* ldu2,
22522 lapack_complex_double* V1T, lapack_int
const* ldv1t,
22523 lapack_complex_double* work, lapack_int
const* lwork,
22524 double* rwork, lapack_int
const* lrwork,
22527#ifdef LAPACK_FORTRAN_STRLEN_END
22528 ,
size_t,
size_t,
size_t
22531#ifdef LAPACK_FORTRAN_STRLEN_END
22532 #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__, 1, 1, 1)
22534 #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__)
22537#define LAPACK_cungbr_base LAPACK_GLOBAL(cungbr,CUNGBR)
22538void LAPACK_cungbr_base(
22540 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22541 lapack_complex_float* A, lapack_int
const* lda,
22542 lapack_complex_float
const* tau,
22543 lapack_complex_float* work, lapack_int
const* lwork,
22545#ifdef LAPACK_FORTRAN_STRLEN_END
22549#ifdef LAPACK_FORTRAN_STRLEN_END
22550 #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__, 1)
22552 #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__)
22555#define LAPACK_zungbr_base LAPACK_GLOBAL(zungbr,ZUNGBR)
22556void LAPACK_zungbr_base(
22558 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22559 lapack_complex_double* A, lapack_int
const* lda,
22560 lapack_complex_double
const* tau,
22561 lapack_complex_double* work, lapack_int
const* lwork,
22563#ifdef LAPACK_FORTRAN_STRLEN_END
22567#ifdef LAPACK_FORTRAN_STRLEN_END
22568 #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__, 1)
22570 #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__)
22573#define LAPACK_cunghr LAPACK_GLOBAL(cunghr,CUNGHR)
22575 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
22576 lapack_complex_float* A, lapack_int
const* lda,
22577 lapack_complex_float
const* tau,
22578 lapack_complex_float* work, lapack_int
const* lwork,
22579 lapack_int* info );
22581#define LAPACK_zunghr LAPACK_GLOBAL(zunghr,ZUNGHR)
22583 lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
22584 lapack_complex_double* A, lapack_int
const* lda,
22585 lapack_complex_double
const* tau,
22586 lapack_complex_double* work, lapack_int
const* lwork,
22587 lapack_int* info );
22589#define LAPACK_cunglq LAPACK_GLOBAL(cunglq,CUNGLQ)
22591 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22592 lapack_complex_float* A, lapack_int
const* lda,
22593 lapack_complex_float
const* tau,
22594 lapack_complex_float* work, lapack_int
const* lwork,
22595 lapack_int* info );
22597#define LAPACK_zunglq LAPACK_GLOBAL(zunglq,ZUNGLQ)
22599 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22600 lapack_complex_double* A, lapack_int
const* lda,
22601 lapack_complex_double
const* tau,
22602 lapack_complex_double* work, lapack_int
const* lwork,
22603 lapack_int* info );
22605#define LAPACK_cungql LAPACK_GLOBAL(cungql,CUNGQL)
22607 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22608 lapack_complex_float* A, lapack_int
const* lda,
22609 lapack_complex_float
const* tau,
22610 lapack_complex_float* work, lapack_int
const* lwork,
22611 lapack_int* info );
22613#define LAPACK_zungql LAPACK_GLOBAL(zungql,ZUNGQL)
22615 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22616 lapack_complex_double* A, lapack_int
const* lda,
22617 lapack_complex_double
const* tau,
22618 lapack_complex_double* work, lapack_int
const* lwork,
22619 lapack_int* info );
22621#define LAPACK_cungqr LAPACK_GLOBAL(cungqr,CUNGQR)
22623 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22624 lapack_complex_float* A, lapack_int
const* lda,
22625 lapack_complex_float
const* tau,
22626 lapack_complex_float* work, lapack_int
const* lwork,
22627 lapack_int* info );
22629#define LAPACK_zungqr LAPACK_GLOBAL(zungqr,ZUNGQR)
22631 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22632 lapack_complex_double* A, lapack_int
const* lda,
22633 lapack_complex_double
const* tau,
22634 lapack_complex_double* work, lapack_int
const* lwork,
22635 lapack_int* info );
22637#define LAPACK_cungrq LAPACK_GLOBAL(cungrq,CUNGRQ)
22639 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22640 lapack_complex_float* A, lapack_int
const* lda,
22641 lapack_complex_float
const* tau,
22642 lapack_complex_float* work, lapack_int
const* lwork,
22643 lapack_int* info );
22645#define LAPACK_zungrq LAPACK_GLOBAL(zungrq,ZUNGRQ)
22647 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22648 lapack_complex_double* A, lapack_int
const* lda,
22649 lapack_complex_double
const* tau,
22650 lapack_complex_double* work, lapack_int
const* lwork,
22651 lapack_int* info );
22653#define LAPACK_cungtr_base LAPACK_GLOBAL(cungtr,CUNGTR)
22654void LAPACK_cungtr_base(
22656 lapack_int
const* n,
22657 lapack_complex_float* A, lapack_int
const* lda,
22658 lapack_complex_float
const* tau,
22659 lapack_complex_float* work, lapack_int
const* lwork,
22661#ifdef LAPACK_FORTRAN_STRLEN_END
22665#ifdef LAPACK_FORTRAN_STRLEN_END
22666 #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__, 1)
22668 #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__)
22671#define LAPACK_zungtr_base LAPACK_GLOBAL(zungtr,ZUNGTR)
22672void LAPACK_zungtr_base(
22674 lapack_int
const* n,
22675 lapack_complex_double* A, lapack_int
const* lda,
22676 lapack_complex_double
const* tau,
22677 lapack_complex_double* work, lapack_int
const* lwork,
22679#ifdef LAPACK_FORTRAN_STRLEN_END
22683#ifdef LAPACK_FORTRAN_STRLEN_END
22684 #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__, 1)
22686 #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__)
22689#define LAPACK_cungtsqr_row LAPACK_GLOBAL(cungtsqr_row,CUNGTSQR_ROW)
22690void LAPACK_cungtsqr_row(
22691 lapack_int
const* m, lapack_int
const* n,
22692 lapack_int
const* mb, lapack_int
const* nb,
22693 lapack_complex_float* A, lapack_int
const* lda,
22694 lapack_complex_float
const* T, lapack_int
const* ldt,
22695 lapack_complex_float* work, lapack_int
const* lwork,
22696 lapack_int* info );
22698#define LAPACK_zungtsqr_row LAPACK_GLOBAL(zungtsqr_row,ZUNGTSQR_ROW)
22699void LAPACK_zungtsqr_row(
22700 lapack_int
const* m, lapack_int
const* n,
22701 lapack_int
const* mb, lapack_int
const* nb,
22702 lapack_complex_double* A, lapack_int
const* lda,
22703 lapack_complex_double
const* T, lapack_int
const* ldt,
22704 lapack_complex_double* work, lapack_int
const* lwork,
22705 lapack_int* info );
22707#define LAPACK_cunmbr_base LAPACK_GLOBAL(cunmbr,CUNMBR)
22708void LAPACK_cunmbr_base(
22709 char const* vect,
char const* side,
char const* trans,
22710 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22711 lapack_complex_float
const* A, lapack_int
const* lda,
22712 lapack_complex_float
const* tau,
22713 lapack_complex_float* C, lapack_int
const* ldc,
22714 lapack_complex_float* work, lapack_int
const* lwork,
22716#ifdef LAPACK_FORTRAN_STRLEN_END
22717 ,
size_t,
size_t,
size_t
22720#ifdef LAPACK_FORTRAN_STRLEN_END
22721 #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__, 1, 1, 1)
22723 #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__)
22726#define LAPACK_zunmbr_base LAPACK_GLOBAL(zunmbr,ZUNMBR)
22727void LAPACK_zunmbr_base(
22728 char const* vect,
char const* side,
char const* trans,
22729 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22730 lapack_complex_double
const* A, lapack_int
const* lda,
22731 lapack_complex_double
const* tau,
22732 lapack_complex_double* C, lapack_int
const* ldc,
22733 lapack_complex_double* work, lapack_int
const* lwork,
22735#ifdef LAPACK_FORTRAN_STRLEN_END
22736 ,
size_t,
size_t,
size_t
22739#ifdef LAPACK_FORTRAN_STRLEN_END
22740 #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__, 1, 1, 1)
22742 #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__)
22745#define LAPACK_cunmhr_base LAPACK_GLOBAL(cunmhr,CUNMHR)
22746void LAPACK_cunmhr_base(
22747 char const* side,
char const* trans,
22748 lapack_int
const* m, lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
22749 lapack_complex_float
const* A, lapack_int
const* lda,
22750 lapack_complex_float
const* tau,
22751 lapack_complex_float* C, lapack_int
const* ldc,
22752 lapack_complex_float* work, lapack_int
const* lwork,
22754#ifdef LAPACK_FORTRAN_STRLEN_END
22758#ifdef LAPACK_FORTRAN_STRLEN_END
22759 #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__, 1, 1)
22761 #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__)
22764#define LAPACK_zunmhr_base LAPACK_GLOBAL(zunmhr,ZUNMHR)
22765void LAPACK_zunmhr_base(
22766 char const* side,
char const* trans,
22767 lapack_int
const* m, lapack_int
const* n, lapack_int
const* ilo, lapack_int
const* ihi,
22768 lapack_complex_double
const* A, lapack_int
const* lda,
22769 lapack_complex_double
const* tau,
22770 lapack_complex_double* C, lapack_int
const* ldc,
22771 lapack_complex_double* work, lapack_int
const* lwork,
22773#ifdef LAPACK_FORTRAN_STRLEN_END
22777#ifdef LAPACK_FORTRAN_STRLEN_END
22778 #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__, 1, 1)
22780 #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__)
22783#define LAPACK_cunmlq_base LAPACK_GLOBAL(cunmlq,CUNMLQ)
22784void LAPACK_cunmlq_base(
22785 char const* side,
char const* trans,
22786 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22787 lapack_complex_float
const* A, lapack_int
const* lda,
22788 lapack_complex_float
const* tau,
22789 lapack_complex_float* C, lapack_int
const* ldc,
22790 lapack_complex_float* work, lapack_int
const* lwork,
22792#ifdef LAPACK_FORTRAN_STRLEN_END
22796#ifdef LAPACK_FORTRAN_STRLEN_END
22797 #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__, 1, 1)
22799 #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__)
22802#define LAPACK_zunmlq_base LAPACK_GLOBAL(zunmlq,ZUNMLQ)
22803void LAPACK_zunmlq_base(
22804 char const* side,
char const* trans,
22805 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22806 lapack_complex_double
const* A, lapack_int
const* lda,
22807 lapack_complex_double
const* tau,
22808 lapack_complex_double* C, lapack_int
const* ldc,
22809 lapack_complex_double* work, lapack_int
const* lwork,
22811#ifdef LAPACK_FORTRAN_STRLEN_END
22815#ifdef LAPACK_FORTRAN_STRLEN_END
22816 #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__, 1, 1)
22818 #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__)
22821#define LAPACK_cunmql_base LAPACK_GLOBAL(cunmql,CUNMQL)
22822void LAPACK_cunmql_base(
22823 char const* side,
char const* trans,
22824 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22825 lapack_complex_float
const* A, lapack_int
const* lda,
22826 lapack_complex_float
const* tau,
22827 lapack_complex_float* C, lapack_int
const* ldc,
22828 lapack_complex_float* work, lapack_int
const* lwork,
22830#ifdef LAPACK_FORTRAN_STRLEN_END
22834#ifdef LAPACK_FORTRAN_STRLEN_END
22835 #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__, 1, 1)
22837 #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__)
22840#define LAPACK_zunmql_base LAPACK_GLOBAL(zunmql,ZUNMQL)
22841void LAPACK_zunmql_base(
22842 char const* side,
char const* trans,
22843 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22844 lapack_complex_double
const* A, lapack_int
const* lda,
22845 lapack_complex_double
const* tau,
22846 lapack_complex_double* C, lapack_int
const* ldc,
22847 lapack_complex_double* work, lapack_int
const* lwork,
22849#ifdef LAPACK_FORTRAN_STRLEN_END
22853#ifdef LAPACK_FORTRAN_STRLEN_END
22854 #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__, 1, 1)
22856 #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__)
22859#define LAPACK_cunmqr_base LAPACK_GLOBAL(cunmqr,CUNMQR)
22860void LAPACK_cunmqr_base(
22861 char const* side,
char const* trans,
22862 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22863 lapack_complex_float
const* A, lapack_int
const* lda,
22864 lapack_complex_float
const* tau,
22865 lapack_complex_float* C, lapack_int
const* ldc,
22866 lapack_complex_float* work, lapack_int
const* lwork,
22868#ifdef LAPACK_FORTRAN_STRLEN_END
22872#ifdef LAPACK_FORTRAN_STRLEN_END
22873 #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__, 1, 1)
22875 #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__)
22878#define LAPACK_zunmqr_base LAPACK_GLOBAL(zunmqr,ZUNMQR)
22879void LAPACK_zunmqr_base(
22880 char const* side,
char const* trans,
22881 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22882 lapack_complex_double
const* A, lapack_int
const* lda,
22883 lapack_complex_double
const* tau,
22884 lapack_complex_double* C, lapack_int
const* ldc,
22885 lapack_complex_double* work, lapack_int
const* lwork,
22887#ifdef LAPACK_FORTRAN_STRLEN_END
22891#ifdef LAPACK_FORTRAN_STRLEN_END
22892 #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__, 1, 1)
22894 #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__)
22897#define LAPACK_cunmrq_base LAPACK_GLOBAL(cunmrq,CUNMRQ)
22898void LAPACK_cunmrq_base(
22899 char const* side,
char const* trans,
22900 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22901 lapack_complex_float
const* A, lapack_int
const* lda,
22902 lapack_complex_float
const* tau,
22903 lapack_complex_float* C, lapack_int
const* ldc,
22904 lapack_complex_float* work, lapack_int
const* lwork,
22906#ifdef LAPACK_FORTRAN_STRLEN_END
22910#ifdef LAPACK_FORTRAN_STRLEN_END
22911 #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__, 1, 1)
22913 #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__)
22916#define LAPACK_zunmrq_base LAPACK_GLOBAL(zunmrq,ZUNMRQ)
22917void LAPACK_zunmrq_base(
22918 char const* side,
char const* trans,
22919 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k,
22920 lapack_complex_double
const* A, lapack_int
const* lda,
22921 lapack_complex_double
const* tau,
22922 lapack_complex_double* C, lapack_int
const* ldc,
22923 lapack_complex_double* work, lapack_int
const* lwork,
22925#ifdef LAPACK_FORTRAN_STRLEN_END
22929#ifdef LAPACK_FORTRAN_STRLEN_END
22930 #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__, 1, 1)
22932 #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__)
22935#define LAPACK_cunmrz_base LAPACK_GLOBAL(cunmrz,CUNMRZ)
22936void LAPACK_cunmrz_base(
22937 char const* side,
char const* trans,
22938 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
22939 lapack_complex_float
const* A, lapack_int
const* lda,
22940 lapack_complex_float
const* tau,
22941 lapack_complex_float* C, lapack_int
const* ldc,
22942 lapack_complex_float* work, lapack_int
const* lwork,
22944#ifdef LAPACK_FORTRAN_STRLEN_END
22948#ifdef LAPACK_FORTRAN_STRLEN_END
22949 #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__, 1, 1)
22951 #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__)
22954#define LAPACK_zunmrz_base LAPACK_GLOBAL(zunmrz,ZUNMRZ)
22955void LAPACK_zunmrz_base(
22956 char const* side,
char const* trans,
22957 lapack_int
const* m, lapack_int
const* n, lapack_int
const* k, lapack_int
const* l,
22958 lapack_complex_double
const* A, lapack_int
const* lda,
22959 lapack_complex_double
const* tau,
22960 lapack_complex_double* C, lapack_int
const* ldc,
22961 lapack_complex_double* work, lapack_int
const* lwork,
22963#ifdef LAPACK_FORTRAN_STRLEN_END
22967#ifdef LAPACK_FORTRAN_STRLEN_END
22968 #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__, 1, 1)
22970 #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__)
22973#define LAPACK_cunmtr_base LAPACK_GLOBAL(cunmtr,CUNMTR)
22974void LAPACK_cunmtr_base(
22975 char const* side,
char const* uplo,
char const* trans,
22976 lapack_int
const* m, lapack_int
const* n,
22977 lapack_complex_float
const* A, lapack_int
const* lda,
22978 lapack_complex_float
const* tau,
22979 lapack_complex_float* C, lapack_int
const* ldc,
22980 lapack_complex_float* work, lapack_int
const* lwork,
22982#ifdef LAPACK_FORTRAN_STRLEN_END
22983 ,
size_t,
size_t,
size_t
22986#ifdef LAPACK_FORTRAN_STRLEN_END
22987 #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__, 1, 1, 1)
22989 #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__)
22992#define LAPACK_zunmtr_base LAPACK_GLOBAL(zunmtr,ZUNMTR)
22993void LAPACK_zunmtr_base(
22994 char const* side,
char const* uplo,
char const* trans,
22995 lapack_int
const* m, lapack_int
const* n,
22996 lapack_complex_double
const* A, lapack_int
const* lda,
22997 lapack_complex_double
const* tau,
22998 lapack_complex_double* C, lapack_int
const* ldc,
22999 lapack_complex_double* work, lapack_int
const* lwork,
23001#ifdef LAPACK_FORTRAN_STRLEN_END
23002 ,
size_t,
size_t,
size_t
23005#ifdef LAPACK_FORTRAN_STRLEN_END
23006 #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__, 1, 1, 1)
23008 #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__)
23011#define LAPACK_cupgtr_base LAPACK_GLOBAL(cupgtr,CUPGTR)
23012void LAPACK_cupgtr_base(
23014 lapack_int
const* n,
23015 lapack_complex_float
const* AP,
23016 lapack_complex_float
const* tau,
23017 lapack_complex_float* Q, lapack_int
const* ldq,
23018 lapack_complex_float* work,
23020#ifdef LAPACK_FORTRAN_STRLEN_END
23024#ifdef LAPACK_FORTRAN_STRLEN_END
23025 #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__, 1)
23027 #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__)
23030#define LAPACK_zupgtr_base LAPACK_GLOBAL(zupgtr,ZUPGTR)
23031void LAPACK_zupgtr_base(
23033 lapack_int
const* n,
23034 lapack_complex_double
const* AP,
23035 lapack_complex_double
const* tau,
23036 lapack_complex_double* Q, lapack_int
const* ldq,
23037 lapack_complex_double* work,
23039#ifdef LAPACK_FORTRAN_STRLEN_END
23043#ifdef LAPACK_FORTRAN_STRLEN_END
23044 #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__, 1)
23046 #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__)
23049#define LAPACK_cupmtr_base LAPACK_GLOBAL(cupmtr,CUPMTR)
23050void LAPACK_cupmtr_base(
23051 char const* side,
char const* uplo,
char const* trans,
23052 lapack_int
const* m, lapack_int
const* n,
23053 lapack_complex_float
const* AP,
23054 lapack_complex_float
const* tau,
23055 lapack_complex_float* C, lapack_int
const* ldc,
23056 lapack_complex_float* work,
23058#ifdef LAPACK_FORTRAN_STRLEN_END
23059 ,
size_t,
size_t,
size_t
23062#ifdef LAPACK_FORTRAN_STRLEN_END
23063 #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__, 1, 1, 1)
23065 #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__)
23068#define LAPACK_zupmtr_base LAPACK_GLOBAL(zupmtr,ZUPMTR)
23069void LAPACK_zupmtr_base(
23070 char const* side,
char const* uplo,
char const* trans,
23071 lapack_int
const* m, lapack_int
const* n,
23072 lapack_complex_double
const* AP,
23073 lapack_complex_double
const* tau,
23074 lapack_complex_double* C, lapack_int
const* ldc,
23075 lapack_complex_double* work,
23077#ifdef LAPACK_FORTRAN_STRLEN_END
23078 ,
size_t,
size_t,
size_t
23081#ifdef LAPACK_FORTRAN_STRLEN_END
23082 #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__, 1, 1, 1)
23084 #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__)