LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
lapack.h
1#ifndef LAPACK_H
2#define LAPACK_H
3
4/*
5* Turn on HAVE_LAPACK_CONFIG_H to redefine C-LAPACK datatypes
6*/
7#ifdef HAVE_LAPACK_CONFIG_H
8#include "lapacke_config.h"
9#endif
10
11#include "lapacke_mangling.h"
12
13#include <stdlib.h>
14#include <stdarg.h>
15#include <inttypes.h>
16
17/* It seems all current Fortran compilers put strlen at end.
18* Some historical compilers put strlen after the str argument
19* or make the str argument into a struct. */
20#define LAPACK_FORTRAN_STRLEN_END
21
22/* Complex types are structures equivalent to the
23* Fortran complex types COMPLEX(4) and COMPLEX(8).
24*
25* One can also redefine the types with his own types
26* for example by including in the code definitions like
27*
28* #define lapack_complex_float std::complex<float>
29* #define lapack_complex_double std::complex<double>
30*
31* or define these types in the command line:
32*
33* -Dlapack_complex_float="std::complex<float>"
34* -Dlapack_complex_double="std::complex<double>"
35*/
36
37#ifndef LAPACK_COMPLEX_CUSTOM
38
39/* Complex type (single precision) */
40#ifndef lapack_complex_float
41#ifndef __cplusplus
42#include <complex.h>
43#else
44#include <complex>
45#endif
46#define lapack_complex_float float _Complex
47#endif
48
49#ifndef lapack_complex_float_real
50#define lapack_complex_float_real(z) (creal(z))
51#endif
52
53#ifndef lapack_complex_float_imag
54#define lapack_complex_float_imag(z) (cimag(z))
55#endif
56
57/* Complex type (double precision) */
58#ifndef lapack_complex_double
59#ifndef __cplusplus
60#include <complex.h>
61#else
62#include <complex>
63#endif
64#define lapack_complex_double double _Complex
65#endif
66
67#ifndef lapack_complex_double_real
68#define lapack_complex_double_real(z) (creal(z))
69#endif
70
71#ifndef lapack_complex_double_imag
72#define lapack_complex_double_imag(z) (cimag(z))
73#endif
74
75#endif /* LAPACK_COMPLEX_CUSTOM */
76
77
78#ifdef __cplusplus
79extern "C" {
80#endif
81
82/*----------------------------------------------------------------------------*/
83#ifndef lapack_int
84#if defined(LAPACK_ILP64)
85#define lapack_int int64_t
86#else
87#define lapack_int int32_t
88#endif
89#endif
90
91/*
92 * Integer format string
93 */
94#ifndef LAPACK_IFMT
95#if defined(LAPACK_ILP64)
96#define LAPACK_IFMT PRId64
97#else
98#define LAPACK_IFMT PRId32
99#endif
100#endif
101
102#ifndef lapack_logical
103#define lapack_logical lapack_int
104#endif
105
106/* f2c, hence clapack and MacOS Accelerate, returns double instead of float
107 * for sdot, slange, clange, etc. */
108#if defined(LAPACK_F2C)
109 typedef double lapack_float_return;
110#else
111 typedef float lapack_float_return;
112#endif
113
114
115/* Callback logical functions of one, two, or three arguments are used
116* to select eigenvalues to sort to the top left of the Schur form.
117* The value is selected if function returns TRUE (non-zero). */
118
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* );
125
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* );
132
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
137 , size_t, size_t
138#endif
139);
140#ifdef LAPACK_FORTRAN_STRLEN_END
141 #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__, 1, 1)
142#else
143 #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__)
144#endif
145
146
147/*----------------------------------------------------------------------------*/
148/* This is in alphabetical order (ignoring leading precision). */
149
150#define LAPACK_cbbcsd_base LAPACK_GLOBAL(cbbcsd,CBBCSD)
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,
154 float* theta,
155 float* phi,
156 lapack_complex_float* U1, lapack_int const* ldu1,
157 lapack_complex_float* U2, lapack_int const* ldu2,
158 lapack_complex_float* V1T, lapack_int const* ldv1t,
159 lapack_complex_float* V2T, lapack_int const* ldv2t,
160 float* B11D,
161 float* B11E,
162 float* B12D,
163 float* B12E,
164 float* B21D,
165 float* B21E,
166 float* B22D,
167 float* B22E,
168 float* rwork, lapack_int const* lrwork,
169 lapack_int* info
170#ifdef LAPACK_FORTRAN_STRLEN_END
171 , size_t, size_t, size_t, size_t, size_t
172#endif
173);
174#ifdef LAPACK_FORTRAN_STRLEN_END
175 #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
176#else
177 #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__)
178#endif
179
180#define LAPACK_dbbcsd_base LAPACK_GLOBAL(dbbcsd,DBBCSD)
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,
184 double* theta,
185 double* phi,
186 double* U1, lapack_int const* ldu1,
187 double* U2, lapack_int const* ldu2,
188 double* V1T, lapack_int const* ldv1t,
189 double* V2T, lapack_int const* ldv2t,
190 double* B11D,
191 double* B11E,
192 double* B12D,
193 double* B12E,
194 double* b21d,
195 double* b21e,
196 double* b22d,
197 double* b22e,
198 double* work, lapack_int const* lwork,
199 lapack_int* info
200#ifdef LAPACK_FORTRAN_STRLEN_END
201 , size_t, size_t, size_t, size_t, size_t
202#endif
203);
204#ifdef LAPACK_FORTRAN_STRLEN_END
205 #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
206#else
207 #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__)
208#endif
209
210#define LAPACK_sbbcsd_base LAPACK_GLOBAL(sbbcsd,SBBCSD)
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,
214 float* theta,
215 float* phi,
216 float* U1, lapack_int const* ldu1,
217 float* U2, lapack_int const* ldu2,
218 float* V1T, lapack_int const* ldv1t,
219 float* V2T, lapack_int const* ldv2t,
220 float* B11D,
221 float* B11E,
222 float* B12D,
223 float* B12E,
224 float* B21D,
225 float* B21E,
226 float* B22D,
227 float* B22E,
228 float* work, lapack_int const* lwork,
229 lapack_int* info
230#ifdef LAPACK_FORTRAN_STRLEN_END
231 , size_t, size_t, size_t, size_t, size_t
232#endif
233);
234#ifdef LAPACK_FORTRAN_STRLEN_END
235 #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
236#else
237 #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__)
238#endif
239
240#define LAPACK_zbbcsd_base LAPACK_GLOBAL(zbbcsd,ZBBCSD)
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,
244 double* theta,
245 double* phi,
246 lapack_complex_double* U1, lapack_int const* ldu1,
247 lapack_complex_double* U2, lapack_int const* ldu2,
248 lapack_complex_double* V1T, lapack_int const* ldv1t,
249 lapack_complex_double* V2T, lapack_int const* ldv2t,
250 double* B11D,
251 double* B11E,
252 double* B12D,
253 double* B12E,
254 double* B21D,
255 double* B21E,
256 double* B22D,
257 double* B22E,
258 double* rwork, lapack_int const* lrwork,
259 lapack_int* info
260#ifdef LAPACK_FORTRAN_STRLEN_END
261 , size_t, size_t, size_t, size_t, size_t
262#endif
263);
264#ifdef LAPACK_FORTRAN_STRLEN_END
265 #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
266#else
267 #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__)
268#endif
269
270#define LAPACK_dbdsdc_base LAPACK_GLOBAL(dbdsdc,DBDSDC)
271void LAPACK_dbdsdc_base(
272 char const* uplo, char const* compq,
273 lapack_int const* n,
274 double* D,
275 double* E,
276 double* U, lapack_int const* ldu,
277 double* VT, lapack_int const* ldvt,
278 double* Q, lapack_int* IQ,
279 double* work,
280 lapack_int* iwork,
281 lapack_int* info
282#ifdef LAPACK_FORTRAN_STRLEN_END
283 , size_t, size_t
284#endif
285);
286#ifdef LAPACK_FORTRAN_STRLEN_END
287 #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__, 1, 1)
288#else
289 #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__)
290#endif
291
292#define LAPACK_sbdsdc_base LAPACK_GLOBAL(sbdsdc,SBDSDC)
293void LAPACK_sbdsdc_base(
294 char const* uplo, char const* compq,
295 lapack_int const* n,
296 float* D,
297 float* E,
298 float* U, lapack_int const* ldu,
299 float* VT, lapack_int const* ldvt,
300 float* Q, lapack_int* IQ,
301 float* work,
302 lapack_int* iwork,
303 lapack_int* info
304#ifdef LAPACK_FORTRAN_STRLEN_END
305 , size_t, size_t
306#endif
307);
308#ifdef LAPACK_FORTRAN_STRLEN_END
309 #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__, 1, 1)
310#else
311 #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__)
312#endif
313
314#define LAPACK_cbdsqr_base LAPACK_GLOBAL(cbdsqr,CBDSQR)
315void LAPACK_cbdsqr_base(
316 char const* uplo,
317 lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
318 float* D,
319 float* E,
320 lapack_complex_float* VT, lapack_int const* ldvt,
321 lapack_complex_float* U, lapack_int const* ldu,
322 lapack_complex_float* C, lapack_int const* ldc,
323 float* rwork,
324 lapack_int* info
325#ifdef LAPACK_FORTRAN_STRLEN_END
326 , size_t
327#endif
328);
329#ifdef LAPACK_FORTRAN_STRLEN_END
330 #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__, 1)
331#else
332 #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__)
333#endif
334
335#define LAPACK_dbdsqr_base LAPACK_GLOBAL(dbdsqr,DBDSQR)
336void LAPACK_dbdsqr_base(
337 char const* uplo,
338 lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
339 double* D,
340 double* E,
341 double* VT, lapack_int const* ldvt,
342 double* U, lapack_int const* ldu,
343 double* C, lapack_int const* ldc,
344 double* work,
345 lapack_int* info
346#ifdef LAPACK_FORTRAN_STRLEN_END
347 , size_t
348#endif
349);
350#ifdef LAPACK_FORTRAN_STRLEN_END
351 #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__, 1)
352#else
353 #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__)
354#endif
355
356#define LAPACK_sbdsqr_base LAPACK_GLOBAL(sbdsqr,SBDSQR)
357void LAPACK_sbdsqr_base(
358 char const* uplo,
359 lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
360 float* D,
361 float* E,
362 float* VT, lapack_int const* ldvt,
363 float* U, lapack_int const* ldu,
364 float* C, lapack_int const* ldc,
365 float* work,
366 lapack_int* info
367#ifdef LAPACK_FORTRAN_STRLEN_END
368 , size_t
369#endif
370);
371#ifdef LAPACK_FORTRAN_STRLEN_END
372 #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__, 1)
373#else
374 #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__)
375#endif
376
377#define LAPACK_zbdsqr_base LAPACK_GLOBAL(zbdsqr,ZBDSQR)
378void LAPACK_zbdsqr_base(
379 char const* uplo,
380 lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
381 double* D,
382 double* E,
383 lapack_complex_double* VT, lapack_int const* ldvt,
384 lapack_complex_double* U, lapack_int const* ldu,
385 lapack_complex_double* C, lapack_int const* ldc,
386 double* rwork,
387 lapack_int* info
388#ifdef LAPACK_FORTRAN_STRLEN_END
389 , size_t
390#endif
391);
392#ifdef LAPACK_FORTRAN_STRLEN_END
393 #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__, 1)
394#else
395 #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__)
396#endif
397
398#define LAPACK_dbdsvdx_base LAPACK_GLOBAL(dbdsvdx,DBDSVDX)
399void LAPACK_dbdsvdx_base(
400 char const* uplo, char const* jobz, char const* range,
401 lapack_int const* n,
402 double const* D,
403 double const* E,
404 double const* vl,
405 double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
406 double* S,
407 double* Z, lapack_int const* ldz,
408 double* work,
409 lapack_int* iwork,
410 lapack_int* info
411#ifdef LAPACK_FORTRAN_STRLEN_END
412 , size_t, size_t, size_t
413#endif
414);
415#ifdef LAPACK_FORTRAN_STRLEN_END
416 #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__, 1, 1, 1)
417#else
418 #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__)
419#endif
420
421#define LAPACK_sbdsvdx_base LAPACK_GLOBAL(sbdsvdx,SBDSVDX)
422void LAPACK_sbdsvdx_base(
423 char const* uplo, char const* jobz, char const* range,
424 lapack_int const* n,
425 float const* D,
426 float const* E,
427 float const* vl,
428 float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
429 float* S,
430 float* Z, lapack_int const* ldz,
431 float* work,
432 lapack_int* iwork,
433 lapack_int* info
434#ifdef LAPACK_FORTRAN_STRLEN_END
435 , size_t, size_t, size_t
436#endif
437);
438#ifdef LAPACK_FORTRAN_STRLEN_END
439 #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__, 1, 1, 1)
440#else
441 #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__)
442#endif
443
444#define LAPACK_ddisna_base LAPACK_GLOBAL(ddisna,DDISNA)
445void LAPACK_ddisna_base(
446 char const* job,
447 lapack_int const* m, lapack_int const* n,
448 double const* D,
449 double* SEP,
450 lapack_int* info
451#ifdef LAPACK_FORTRAN_STRLEN_END
452 , size_t
453#endif
454);
455#ifdef LAPACK_FORTRAN_STRLEN_END
456 #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__, 1)
457#else
458 #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__)
459#endif
460
461#define LAPACK_sdisna_base LAPACK_GLOBAL(sdisna,SDISNA)
462void LAPACK_sdisna_base(
463 char const* job,
464 lapack_int const* m, lapack_int const* n,
465 float const* D,
466 float* SEP,
467 lapack_int* info
468#ifdef LAPACK_FORTRAN_STRLEN_END
469 , size_t
470#endif
471);
472#ifdef LAPACK_FORTRAN_STRLEN_END
473 #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__, 1)
474#else
475 #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__)
476#endif
477
478#define LAPACK_cgbbrd_base LAPACK_GLOBAL(cgbbrd,CGBBRD)
479void LAPACK_cgbbrd_base(
480 char const* vect,
481 lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
482 lapack_complex_float* AB, lapack_int const* ldab,
483 float* D,
484 float* E,
485 lapack_complex_float* Q, lapack_int const* ldq,
486 lapack_complex_float* PT, lapack_int const* ldpt,
487 lapack_complex_float* C, lapack_int const* ldc,
488 lapack_complex_float* work,
489 float* rwork,
490 lapack_int* info
491#ifdef LAPACK_FORTRAN_STRLEN_END
492 , size_t
493#endif
494);
495#ifdef LAPACK_FORTRAN_STRLEN_END
496 #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__, 1)
497#else
498 #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__)
499#endif
500
501#define LAPACK_dgbbrd_base LAPACK_GLOBAL(dgbbrd,DGBBRD)
502void LAPACK_dgbbrd_base(
503 char const* vect,
504 lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
505 double* AB, lapack_int const* ldab,
506 double* D,
507 double* E,
508 double* Q, lapack_int const* ldq,
509 double* PT, lapack_int const* ldpt,
510 double* C, lapack_int const* ldc,
511 double* work,
512 lapack_int* info
513#ifdef LAPACK_FORTRAN_STRLEN_END
514 , size_t
515#endif
516);
517#ifdef LAPACK_FORTRAN_STRLEN_END
518 #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__, 1)
519#else
520 #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__)
521#endif
522
523#define LAPACK_sgbbrd_base LAPACK_GLOBAL(sgbbrd,SGBBRD)
524void LAPACK_sgbbrd_base(
525 char const* vect,
526 lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
527 float* AB, lapack_int const* ldab,
528 float* D,
529 float* E,
530 float* Q, lapack_int const* ldq,
531 float* PT, lapack_int const* ldpt,
532 float* C, lapack_int const* ldc,
533 float* work,
534 lapack_int* info
535#ifdef LAPACK_FORTRAN_STRLEN_END
536 , size_t
537#endif
538);
539#ifdef LAPACK_FORTRAN_STRLEN_END
540 #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__, 1)
541#else
542 #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__)
543#endif
544
545#define LAPACK_zgbbrd_base LAPACK_GLOBAL(zgbbrd,ZGBBRD)
546void LAPACK_zgbbrd_base(
547 char const* vect,
548 lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
549 lapack_complex_double* AB, lapack_int const* ldab,
550 double* D,
551 double* E,
552 lapack_complex_double* Q, lapack_int const* ldq,
553 lapack_complex_double* PT, lapack_int const* ldpt,
554 lapack_complex_double* C, lapack_int const* ldc,
555 lapack_complex_double* work,
556 double* rwork,
557 lapack_int* info
558#ifdef LAPACK_FORTRAN_STRLEN_END
559 , size_t
560#endif
561);
562#ifdef LAPACK_FORTRAN_STRLEN_END
563 #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__, 1)
564#else
565 #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__)
566#endif
567
568#define LAPACK_cgbcon_base LAPACK_GLOBAL(cgbcon,CGBCON)
569void LAPACK_cgbcon_base(
570 char const* norm,
571 lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
572 lapack_complex_float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
573 float const* anorm,
574 float* rcond,
575 lapack_complex_float* work,
576 float* rwork,
577 lapack_int* info
578#ifdef LAPACK_FORTRAN_STRLEN_END
579 , size_t
580#endif
581);
582#ifdef LAPACK_FORTRAN_STRLEN_END
583 #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__, 1)
584#else
585 #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__)
586#endif
587
588#define LAPACK_dgbcon_base LAPACK_GLOBAL(dgbcon,DGBCON)
589void LAPACK_dgbcon_base(
590 char const* norm,
591 lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
592 double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
593 double const* anorm,
594 double* rcond,
595 double* work,
596 lapack_int* iwork,
597 lapack_int* info
598#ifdef LAPACK_FORTRAN_STRLEN_END
599 , size_t
600#endif
601);
602#ifdef LAPACK_FORTRAN_STRLEN_END
603 #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__, 1)
604#else
605 #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__)
606#endif
607
608#define LAPACK_sgbcon_base LAPACK_GLOBAL(sgbcon,SGBCON)
609void LAPACK_sgbcon_base(
610 char const* norm,
611 lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
612 float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
613 float const* anorm,
614 float* rcond,
615 float* work,
616 lapack_int* iwork,
617 lapack_int* info
618#ifdef LAPACK_FORTRAN_STRLEN_END
619 , size_t
620#endif
621);
622#ifdef LAPACK_FORTRAN_STRLEN_END
623 #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__, 1)
624#else
625 #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__)
626#endif
627
628#define LAPACK_zgbcon_base LAPACK_GLOBAL(zgbcon,ZGBCON)
629void LAPACK_zgbcon_base(
630 char const* norm,
631 lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
632 lapack_complex_double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
633 double const* anorm,
634 double* rcond,
635 lapack_complex_double* work,
636 double* rwork,
637 lapack_int* info
638#ifdef LAPACK_FORTRAN_STRLEN_END
639 , size_t
640#endif
641);
642#ifdef LAPACK_FORTRAN_STRLEN_END
643 #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__, 1)
644#else
645 #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__)
646#endif
647
648#define LAPACK_cgbequ LAPACK_GLOBAL(cgbequ,CGBEQU)
649void LAPACK_cgbequ(
650 lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
651 lapack_complex_float const* AB, lapack_int const* ldab,
652 float* R,
653 float* C,
654 float* rowcnd,
655 float* colcnd,
656 float* amax,
657 lapack_int* info );
658
659#define LAPACK_dgbequ LAPACK_GLOBAL(dgbequ,DGBEQU)
660void LAPACK_dgbequ(
661 lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
662 double const* AB, lapack_int const* ldab,
663 double* R,
664 double* C,
665 double* rowcnd,
666 double* colcnd,
667 double* amax,
668 lapack_int* info );
669
670#define LAPACK_sgbequ LAPACK_GLOBAL(sgbequ,SGBEQU)
671void LAPACK_sgbequ(
672 lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
673 float const* AB, lapack_int const* ldab,
674 float* R,
675 float* C,
676 float* rowcnd,
677 float* colcnd,
678 float* amax,
679 lapack_int* info );
680
681#define LAPACK_zgbequ LAPACK_GLOBAL(zgbequ,ZGBEQU)
682void LAPACK_zgbequ(
683 lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
684 lapack_complex_double const* AB, lapack_int const* ldab,
685 double* R,
686 double* C,
687 double* rowcnd,
688 double* colcnd,
689 double* amax,
690 lapack_int* info );
691
692#define LAPACK_cgbequb LAPACK_GLOBAL(cgbequb,CGBEQUB)
693void LAPACK_cgbequb(
694 lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
695 lapack_complex_float const* AB, lapack_int const* ldab,
696 float* R,
697 float* C,
698 float* rowcnd,
699 float* colcnd,
700 float* amax,
701 lapack_int* info );
702
703#define LAPACK_dgbequb LAPACK_GLOBAL(dgbequb,DGBEQUB)
704void LAPACK_dgbequb(
705 lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
706 double const* AB, lapack_int const* ldab,
707 double* R,
708 double* C,
709 double* rowcnd,
710 double* colcnd,
711 double* amax,
712 lapack_int* info );
713
714#define LAPACK_sgbequb LAPACK_GLOBAL(sgbequb,SGBEQUB)
715void LAPACK_sgbequb(
716 lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
717 float const* AB, lapack_int const* ldab,
718 float* R,
719 float* C,
720 float* rowcnd,
721 float* colcnd,
722 float* amax,
723 lapack_int* info );
724
725#define LAPACK_zgbequb LAPACK_GLOBAL(zgbequb,ZGBEQUB)
726void LAPACK_zgbequb(
727 lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
728 lapack_complex_double const* AB, lapack_int const* ldab,
729 double* R,
730 double* C,
731 double* rowcnd,
732 double* colcnd,
733 double* amax,
734 lapack_int* info );
735
736#define LAPACK_cgbrfs_base LAPACK_GLOBAL(cgbrfs,CGBRFS)
737void LAPACK_cgbrfs_base(
738 char const* trans,
739 lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
740 lapack_complex_float const* AB, lapack_int const* ldab,
741 lapack_complex_float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
742 lapack_complex_float const* B, lapack_int const* ldb,
743 lapack_complex_float* X, lapack_int const* ldx,
744 float* ferr,
745 float* berr,
746 lapack_complex_float* work,
747 float* rwork,
748 lapack_int* info
749#ifdef LAPACK_FORTRAN_STRLEN_END
750 , size_t
751#endif
752);
753#ifdef LAPACK_FORTRAN_STRLEN_END
754 #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__, 1)
755#else
756 #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__)
757#endif
758
759#define LAPACK_dgbrfs_base LAPACK_GLOBAL(dgbrfs,DGBRFS)
760void LAPACK_dgbrfs_base(
761 char const* trans,
762 lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
763 double const* AB, lapack_int const* ldab,
764 double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
765 double const* B, lapack_int const* ldb,
766 double* X, lapack_int const* ldx,
767 double* ferr,
768 double* berr,
769 double* work,
770 lapack_int* iwork,
771 lapack_int* info
772#ifdef LAPACK_FORTRAN_STRLEN_END
773 , size_t
774#endif
775);
776#ifdef LAPACK_FORTRAN_STRLEN_END
777 #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__, 1)
778#else
779 #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__)
780#endif
781
782#define LAPACK_sgbrfs_base LAPACK_GLOBAL(sgbrfs,SGBRFS)
783void LAPACK_sgbrfs_base(
784 char const* trans,
785 lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
786 float const* AB, lapack_int const* ldab,
787 float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
788 float const* B, lapack_int const* ldb,
789 float* X, lapack_int const* ldx,
790 float* ferr,
791 float* berr,
792 float* work,
793 lapack_int* iwork,
794 lapack_int* info
795#ifdef LAPACK_FORTRAN_STRLEN_END
796 , size_t
797#endif
798);
799#ifdef LAPACK_FORTRAN_STRLEN_END
800 #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__, 1)
801#else
802 #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__)
803#endif
804
805#define LAPACK_zgbrfs_base LAPACK_GLOBAL(zgbrfs,ZGBRFS)
806void LAPACK_zgbrfs_base(
807 char const* trans,
808 lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
809 lapack_complex_double const* AB, lapack_int const* ldab,
810 lapack_complex_double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
811 lapack_complex_double const* B, lapack_int const* ldb,
812 lapack_complex_double* X, lapack_int const* ldx,
813 double* ferr,
814 double* berr,
815 lapack_complex_double* work,
816 double* rwork,
817 lapack_int* info
818#ifdef LAPACK_FORTRAN_STRLEN_END
819 , size_t
820#endif
821);
822#ifdef LAPACK_FORTRAN_STRLEN_END
823 #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__, 1)
824#else
825 #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__)
826#endif
827
828#define LAPACK_cgbrfsx_base LAPACK_GLOBAL(cgbrfsx,CGBRFSX)
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,
834 const float* R,
835 const float* C,
836 lapack_complex_float const* B, lapack_int const* ldb,
837 lapack_complex_float* X, lapack_int const* ldx,
838 float* rcond,
839 float* berr, lapack_int const* n_err_bnds,
840 float* err_bnds_norm,
841 float* err_bnds_comp, lapack_int const* nparams,
842 float* params,
843 lapack_complex_float* work,
844 float* rwork,
845 lapack_int* info
846#ifdef LAPACK_FORTRAN_STRLEN_END
847 , size_t, size_t
848#endif
849);
850#ifdef LAPACK_FORTRAN_STRLEN_END
851 #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__, 1, 1)
852#else
853 #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__)
854#endif
855
856#define LAPACK_dgbrfsx_base LAPACK_GLOBAL(dgbrfsx,DGBRFSX)
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,
862 const double* R,
863 const double* C,
864 double const* B, lapack_int const* ldb,
865 double* X, lapack_int const* ldx,
866 double* rcond,
867 double* berr, lapack_int const* n_err_bnds,
868 double* err_bnds_norm,
869 double* err_bnds_comp, lapack_int const* nparams,
870 double* params,
871 double* work,
872 lapack_int* iwork,
873 lapack_int* info
874#ifdef LAPACK_FORTRAN_STRLEN_END
875 , size_t, size_t
876#endif
877);
878#ifdef LAPACK_FORTRAN_STRLEN_END
879 #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__, 1, 1)
880#else
881 #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__)
882#endif
883
884#define LAPACK_sgbrfsx_base LAPACK_GLOBAL(sgbrfsx,SGBRFSX)
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,
890 const float* R,
891 const float* C,
892 float const* B, lapack_int const* ldb,
893 float* X, lapack_int const* ldx,
894 float* rcond,
895 float* berr, lapack_int const* n_err_bnds,
896 float* err_bnds_norm,
897 float* err_bnds_comp, lapack_int const* nparams,
898 float* params,
899 float* work,
900 lapack_int* iwork,
901 lapack_int* info
902#ifdef LAPACK_FORTRAN_STRLEN_END
903 , size_t, size_t
904#endif
905);
906#ifdef LAPACK_FORTRAN_STRLEN_END
907 #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__, 1, 1)
908#else
909 #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__)
910#endif
911
912#define LAPACK_zgbrfsx_base LAPACK_GLOBAL(zgbrfsx,ZGBRFSX)
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,
918 const double* R,
919 const double* C,
920 lapack_complex_double const* B, lapack_int const* ldb,
921 lapack_complex_double* X, lapack_int const* ldx,
922 double* rcond,
923 double* berr, lapack_int const* n_err_bnds,
924 double* err_bnds_norm,
925 double* err_bnds_comp, lapack_int const* nparams,
926 double* params,
927 lapack_complex_double* work,
928 double* rwork,
929 lapack_int* info
930#ifdef LAPACK_FORTRAN_STRLEN_END
931 , size_t, size_t
932#endif
933);
934#ifdef LAPACK_FORTRAN_STRLEN_END
935 #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__, 1, 1)
936#else
937 #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__)
938#endif
939
940#define LAPACK_cgbsv LAPACK_GLOBAL(cgbsv,CGBSV)
941void LAPACK_cgbsv(
942 lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
943 lapack_complex_float* AB, lapack_int const* ldab, lapack_int* ipiv,
944 lapack_complex_float* B, lapack_int const* ldb,
945 lapack_int* info );
946
947#define LAPACK_dgbsv LAPACK_GLOBAL(dgbsv,DGBSV)
948void LAPACK_dgbsv(
949 lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
950 double* AB, lapack_int const* ldab, lapack_int* ipiv,
951 double* B, lapack_int const* ldb,
952 lapack_int* info );
953
954#define LAPACK_sgbsv LAPACK_GLOBAL(sgbsv,SGBSV)
955void LAPACK_sgbsv(
956 lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
957 float* AB, lapack_int const* ldab, lapack_int* ipiv,
958 float* B, lapack_int const* ldb,
959 lapack_int* info );
960
961#define LAPACK_zgbsv LAPACK_GLOBAL(zgbsv,ZGBSV)
962void LAPACK_zgbsv(
963 lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
964 lapack_complex_double* AB, lapack_int const* ldab, lapack_int* ipiv,
965 lapack_complex_double* B, lapack_int const* ldb,
966 lapack_int* info );
967
968#define LAPACK_cgbsvx_base LAPACK_GLOBAL(cgbsvx,CGBSVX)
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,
974 float* R,
975 float* C,
976 lapack_complex_float* B,
977 lapack_int const* ldb,
978 lapack_complex_float* X, lapack_int const* ldx,
979 float* rcond,
980 float* ferr,
981 float* berr,
982 lapack_complex_float* work,
983 float* rwork,
984 lapack_int* info
985#ifdef LAPACK_FORTRAN_STRLEN_END
986 , size_t, size_t, size_t
987#endif
988);
989#ifdef LAPACK_FORTRAN_STRLEN_END
990 #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__, 1, 1, 1)
991#else
992 #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__)
993#endif
994
995#define LAPACK_dgbsvx_base LAPACK_GLOBAL(dgbsvx,DGBSVX)
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,
1001 double* R,
1002 double* C,
1003 double* B,
1004 lapack_int const* ldb,
1005 double* X, lapack_int const* ldx,
1006 double* rcond,
1007 double* ferr,
1008 double* berr,
1009 double* work,
1010 lapack_int* iwork,
1011 lapack_int* info
1012#ifdef LAPACK_FORTRAN_STRLEN_END
1013 , size_t, size_t, size_t
1014#endif
1015);
1016#ifdef LAPACK_FORTRAN_STRLEN_END
1017 #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__, 1, 1, 1)
1018#else
1019 #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__)
1020#endif
1021
1022#define LAPACK_sgbsvx_base LAPACK_GLOBAL(sgbsvx,SGBSVX)
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,
1028 float* R,
1029 float* C,
1030 float* B,
1031 lapack_int const* ldb,
1032 float* X, lapack_int const* ldx,
1033 float* rcond,
1034 float* ferr,
1035 float* berr,
1036 float* work,
1037 lapack_int* iwork,
1038 lapack_int* info
1039#ifdef LAPACK_FORTRAN_STRLEN_END
1040 , size_t, size_t, size_t
1041#endif
1042);
1043#ifdef LAPACK_FORTRAN_STRLEN_END
1044 #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__, 1, 1, 1)
1045#else
1046 #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__)
1047#endif
1048
1049#define LAPACK_zgbsvx_base LAPACK_GLOBAL(zgbsvx,ZGBSVX)
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,
1055 double* R,
1056 double* C,
1057 lapack_complex_double* B,
1058 lapack_int const* ldb,
1059 lapack_complex_double* X, lapack_int const* ldx,
1060 double* rcond,
1061 double* ferr,
1062 double* berr,
1063 lapack_complex_double* work,
1064 double* rwork,
1065 lapack_int* info
1066#ifdef LAPACK_FORTRAN_STRLEN_END
1067 , size_t, size_t, size_t
1068#endif
1069);
1070#ifdef LAPACK_FORTRAN_STRLEN_END
1071 #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__, 1, 1, 1)
1072#else
1073 #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__)
1074#endif
1075
1076#define LAPACK_cgbsvxx_base LAPACK_GLOBAL(cgbsvxx,CGBSVXX)
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,
1082 float* R,
1083 float* C,
1084 lapack_complex_float* B,
1085 lapack_int const* ldb,
1086 lapack_complex_float* X, lapack_int const* ldx,
1087 float* rcond,
1088 float* rpvgrw,
1089 float* berr, lapack_int const* n_err_bnds,
1090 float* err_bnds_norm,
1091 float* err_bnds_comp, lapack_int const* nparams,
1092 float* params,
1093 lapack_complex_float* work,
1094 float* rwork,
1095 lapack_int* info
1096#ifdef LAPACK_FORTRAN_STRLEN_END
1097 , size_t, size_t, size_t
1098#endif
1099);
1100#ifdef LAPACK_FORTRAN_STRLEN_END
1101 #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1102#else
1103 #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__)
1104#endif
1105
1106#define LAPACK_dgbsvxx_base LAPACK_GLOBAL(dgbsvxx,DGBSVXX)
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,
1112 double* R,
1113 double* C,
1114 double* B,
1115 lapack_int const* ldb,
1116 double* X, lapack_int const* ldx,
1117 double* rcond,
1118 double* rpvgrw,
1119 double* berr, lapack_int const* n_err_bnds,
1120 double* err_bnds_norm,
1121 double* err_bnds_comp, lapack_int const* nparams,
1122 double* params,
1123 double* work,
1124 lapack_int* iwork,
1125 lapack_int* info
1126#ifdef LAPACK_FORTRAN_STRLEN_END
1127 , size_t, size_t, size_t
1128#endif
1129);
1130#ifdef LAPACK_FORTRAN_STRLEN_END
1131 #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1132#else
1133 #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__)
1134#endif
1135
1136#define LAPACK_sgbsvxx_base LAPACK_GLOBAL(sgbsvxx,SGBSVXX)
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,
1142 float* R,
1143 float* C,
1144 float* B,
1145 lapack_int const* ldb,
1146 float* X, lapack_int const* ldx,
1147 float* rcond,
1148 float* rpvgrw,
1149 float* berr, lapack_int const* n_err_bnds,
1150 float* err_bnds_norm,
1151 float* err_bnds_comp, lapack_int const* nparams,
1152 float* params,
1153 float* work,
1154 lapack_int* iwork,
1155 lapack_int* info
1156#ifdef LAPACK_FORTRAN_STRLEN_END
1157 , size_t, size_t, size_t
1158#endif
1159);
1160#ifdef LAPACK_FORTRAN_STRLEN_END
1161 #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1162#else
1163 #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__)
1164#endif
1165
1166#define LAPACK_zgbsvxx_base LAPACK_GLOBAL(zgbsvxx,ZGBSVXX)
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,
1172 double* R,
1173 double* C,
1174 lapack_complex_double* B,
1175 lapack_int const* ldb,
1176 lapack_complex_double* X, lapack_int const* ldx,
1177 double* rcond,
1178 double* rpvgrw,
1179 double* berr, lapack_int const* n_err_bnds,
1180 double* err_bnds_norm,
1181 double* err_bnds_comp, lapack_int const* nparams,
1182 double* params,
1183 lapack_complex_double* work,
1184 double* rwork,
1185 lapack_int* info
1186#ifdef LAPACK_FORTRAN_STRLEN_END
1187 , size_t, size_t, size_t
1188#endif
1189);
1190#ifdef LAPACK_FORTRAN_STRLEN_END
1191 #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1192#else
1193 #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__)
1194#endif
1195
1196#define LAPACK_cgbtrf LAPACK_GLOBAL(cgbtrf,CGBTRF)
1197void LAPACK_cgbtrf(
1198 lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
1199 lapack_complex_float* AB, lapack_int const* ldab, lapack_int* ipiv,
1200 lapack_int* info );
1201
1202#define LAPACK_dgbtrf LAPACK_GLOBAL(dgbtrf,DGBTRF)
1203void LAPACK_dgbtrf(
1204 lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
1205 double* AB, lapack_int const* ldab, lapack_int* ipiv,
1206 lapack_int* info );
1207
1208#define LAPACK_sgbtrf LAPACK_GLOBAL(sgbtrf,SGBTRF)
1209void LAPACK_sgbtrf(
1210 lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
1211 float* AB, lapack_int const* ldab, lapack_int* ipiv,
1212 lapack_int* info );
1213
1214#define LAPACK_zgbtrf LAPACK_GLOBAL(zgbtrf,ZGBTRF)
1215void LAPACK_zgbtrf(
1216 lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
1217 lapack_complex_double* AB, lapack_int const* ldab, lapack_int* ipiv,
1218 lapack_int* info );
1219
1220#define LAPACK_cgbtrs_base LAPACK_GLOBAL(cgbtrs,CGBTRS)
1221void LAPACK_cgbtrs_base(
1222 char const* trans,
1223 lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1224 lapack_complex_float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
1225 lapack_complex_float* B, lapack_int const* ldb,
1226 lapack_int* info
1227#ifdef LAPACK_FORTRAN_STRLEN_END
1228 , size_t
1229#endif
1230);
1231#ifdef LAPACK_FORTRAN_STRLEN_END
1232 #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__, 1)
1233#else
1234 #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__)
1235#endif
1236
1237#define LAPACK_dgbtrs_base LAPACK_GLOBAL(dgbtrs,DGBTRS)
1238void LAPACK_dgbtrs_base(
1239 char const* trans,
1240 lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1241 double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
1242 double* B, lapack_int const* ldb,
1243 lapack_int* info
1244#ifdef LAPACK_FORTRAN_STRLEN_END
1245 , size_t
1246#endif
1247);
1248#ifdef LAPACK_FORTRAN_STRLEN_END
1249 #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__, 1)
1250#else
1251 #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__)
1252#endif
1253
1254#define LAPACK_sgbtrs_base LAPACK_GLOBAL(sgbtrs,SGBTRS)
1255void LAPACK_sgbtrs_base(
1256 char const* trans,
1257 lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1258 float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
1259 float* B, lapack_int const* ldb,
1260 lapack_int* info
1261#ifdef LAPACK_FORTRAN_STRLEN_END
1262 , size_t
1263#endif
1264);
1265#ifdef LAPACK_FORTRAN_STRLEN_END
1266 #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__, 1)
1267#else
1268 #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__)
1269#endif
1270
1271#define LAPACK_zgbtrs_base LAPACK_GLOBAL(zgbtrs,ZGBTRS)
1272void LAPACK_zgbtrs_base(
1273 char const* trans,
1274 lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1275 lapack_complex_double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
1276 lapack_complex_double* B, lapack_int const* ldb,
1277 lapack_int* info
1278#ifdef LAPACK_FORTRAN_STRLEN_END
1279 , size_t
1280#endif
1281);
1282#ifdef LAPACK_FORTRAN_STRLEN_END
1283 #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__, 1)
1284#else
1285 #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__)
1286#endif
1287
1288#define LAPACK_cgebak_base LAPACK_GLOBAL(cgebak,CGEBAK)
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,
1294 lapack_int* info
1295#ifdef LAPACK_FORTRAN_STRLEN_END
1296 , size_t, size_t
1297#endif
1298);
1299#ifdef LAPACK_FORTRAN_STRLEN_END
1300 #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__, 1, 1)
1301#else
1302 #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__)
1303#endif
1304
1305#define LAPACK_dgebak_base LAPACK_GLOBAL(dgebak,DGEBAK)
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,
1311 lapack_int* info
1312#ifdef LAPACK_FORTRAN_STRLEN_END
1313 , size_t, size_t
1314#endif
1315);
1316#ifdef LAPACK_FORTRAN_STRLEN_END
1317 #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__, 1, 1)
1318#else
1319 #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__)
1320#endif
1321
1322#define LAPACK_sgebak_base LAPACK_GLOBAL(sgebak,SGEBAK)
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,
1328 lapack_int* info
1329#ifdef LAPACK_FORTRAN_STRLEN_END
1330 , size_t, size_t
1331#endif
1332);
1333#ifdef LAPACK_FORTRAN_STRLEN_END
1334 #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__, 1, 1)
1335#else
1336 #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__)
1337#endif
1338
1339#define LAPACK_zgebak_base LAPACK_GLOBAL(zgebak,ZGEBAK)
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,
1345 lapack_int* info
1346#ifdef LAPACK_FORTRAN_STRLEN_END
1347 , size_t, size_t
1348#endif
1349);
1350#ifdef LAPACK_FORTRAN_STRLEN_END
1351 #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__, 1, 1)
1352#else
1353 #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__)
1354#endif
1355
1356#define LAPACK_cgebal_base LAPACK_GLOBAL(cgebal,CGEBAL)
1357void LAPACK_cgebal_base(
1358 char const* job,
1359 lapack_int const* n,
1360 lapack_complex_float* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
1361 float* scale,
1362 lapack_int* info
1363#ifdef LAPACK_FORTRAN_STRLEN_END
1364 , size_t
1365#endif
1366);
1367#ifdef LAPACK_FORTRAN_STRLEN_END
1368 #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__, 1)
1369#else
1370 #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__)
1371#endif
1372
1373#define LAPACK_dgebal_base LAPACK_GLOBAL(dgebal,DGEBAL)
1374void LAPACK_dgebal_base(
1375 char const* job,
1376 lapack_int const* n,
1377 double* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
1378 double* scale,
1379 lapack_int* info
1380#ifdef LAPACK_FORTRAN_STRLEN_END
1381 , size_t
1382#endif
1383);
1384#ifdef LAPACK_FORTRAN_STRLEN_END
1385 #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__, 1)
1386#else
1387 #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__)
1388#endif
1389
1390#define LAPACK_sgebal_base LAPACK_GLOBAL(sgebal,SGEBAL)
1391void LAPACK_sgebal_base(
1392 char const* job,
1393 lapack_int const* n,
1394 float* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
1395 float* scale,
1396 lapack_int* info
1397#ifdef LAPACK_FORTRAN_STRLEN_END
1398 , size_t
1399#endif
1400);
1401#ifdef LAPACK_FORTRAN_STRLEN_END
1402 #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__, 1)
1403#else
1404 #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__)
1405#endif
1406
1407#define LAPACK_zgebal_base LAPACK_GLOBAL(zgebal,ZGEBAL)
1408void LAPACK_zgebal_base(
1409 char const* job,
1410 lapack_int const* n,
1411 lapack_complex_double* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
1412 double* scale,
1413 lapack_int* info
1414#ifdef LAPACK_FORTRAN_STRLEN_END
1415 , size_t
1416#endif
1417);
1418#ifdef LAPACK_FORTRAN_STRLEN_END
1419 #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__, 1)
1420#else
1421 #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__)
1422#endif
1423
1424#define LAPACK_cgebrd LAPACK_GLOBAL(cgebrd,CGEBRD)
1425void LAPACK_cgebrd(
1426 lapack_int const* m, lapack_int const* n,
1427 lapack_complex_float* A, lapack_int const* lda,
1428 float* D,
1429 float* E,
1430 lapack_complex_float* tauq,
1431 lapack_complex_float* taup,
1432 lapack_complex_float* work, lapack_int const* lwork,
1433 lapack_int* info );
1434
1435#define LAPACK_dgebrd LAPACK_GLOBAL(dgebrd,DGEBRD)
1436void LAPACK_dgebrd(
1437 lapack_int const* m, lapack_int const* n,
1438 double* A, lapack_int const* lda,
1439 double* D,
1440 double* E,
1441 double* tauq,
1442 double* taup,
1443 double* work, lapack_int const* lwork,
1444 lapack_int* info );
1445
1446#define LAPACK_sgebrd LAPACK_GLOBAL(sgebrd,SGEBRD)
1447void LAPACK_sgebrd(
1448 lapack_int const* m, lapack_int const* n,
1449 float* A, lapack_int const* lda,
1450 float* D,
1451 float* E,
1452 float* tauq,
1453 float* taup,
1454 float* work, lapack_int const* lwork,
1455 lapack_int* info );
1456
1457#define LAPACK_zgebrd LAPACK_GLOBAL(zgebrd,ZGEBRD)
1458void LAPACK_zgebrd(
1459 lapack_int const* m, lapack_int const* n,
1460 lapack_complex_double* A, lapack_int const* lda,
1461 double* D,
1462 double* E,
1463 lapack_complex_double* tauq,
1464 lapack_complex_double* taup,
1465 lapack_complex_double* work, lapack_int const* lwork,
1466 lapack_int* info );
1467
1468#define LAPACK_cgecon_base LAPACK_GLOBAL(cgecon,CGECON)
1469void LAPACK_cgecon_base(
1470 char const* norm,
1471 lapack_int const* n,
1472 lapack_complex_float const* A, lapack_int const* lda,
1473 float const* anorm,
1474 float* rcond,
1475 lapack_complex_float* work,
1476 float* rwork,
1477 lapack_int* info
1478#ifdef LAPACK_FORTRAN_STRLEN_END
1479 , size_t
1480#endif
1481);
1482#ifdef LAPACK_FORTRAN_STRLEN_END
1483 #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__, 1)
1484#else
1485 #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__)
1486#endif
1487
1488#define LAPACK_dgecon_base LAPACK_GLOBAL(dgecon,DGECON)
1489void LAPACK_dgecon_base(
1490 char const* norm,
1491 lapack_int const* n,
1492 double const* A, lapack_int const* lda,
1493 double const* anorm,
1494 double* rcond,
1495 double* work,
1496 lapack_int* iwork,
1497 lapack_int* info
1498#ifdef LAPACK_FORTRAN_STRLEN_END
1499 , size_t
1500#endif
1501);
1502#ifdef LAPACK_FORTRAN_STRLEN_END
1503 #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__, 1)
1504#else
1505 #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__)
1506#endif
1507
1508#define LAPACK_sgecon_base LAPACK_GLOBAL(sgecon,SGECON)
1509void LAPACK_sgecon_base(
1510 char const* norm,
1511 lapack_int const* n,
1512 float const* A, lapack_int const* lda,
1513 float const* anorm,
1514 float* rcond,
1515 float* work,
1516 lapack_int* iwork,
1517 lapack_int* info
1518#ifdef LAPACK_FORTRAN_STRLEN_END
1519 , size_t
1520#endif
1521);
1522#ifdef LAPACK_FORTRAN_STRLEN_END
1523 #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__, 1)
1524#else
1525 #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__)
1526#endif
1527
1528#define LAPACK_zgecon_base LAPACK_GLOBAL(zgecon,ZGECON)
1529void LAPACK_zgecon_base(
1530 char const* norm,
1531 lapack_int const* n,
1532 lapack_complex_double const* A, lapack_int const* lda,
1533 double const* anorm,
1534 double* rcond,
1535 lapack_complex_double* work,
1536 double* rwork,
1537 lapack_int* info
1538#ifdef LAPACK_FORTRAN_STRLEN_END
1539 , size_t
1540#endif
1541);
1542#ifdef LAPACK_FORTRAN_STRLEN_END
1543 #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__, 1)
1544#else
1545 #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__)
1546#endif
1547
1548#define LAPACK_cgeequ LAPACK_GLOBAL(cgeequ,CGEEQU)
1549void LAPACK_cgeequ(
1550 lapack_int const* m, lapack_int const* n,
1551 lapack_complex_float const* A, lapack_int const* lda,
1552 float* R,
1553 float* C,
1554 float* rowcnd,
1555 float* colcnd,
1556 float* amax,
1557 lapack_int* info );
1558
1559#define LAPACK_dgeequ LAPACK_GLOBAL(dgeequ,DGEEQU)
1560void LAPACK_dgeequ(
1561 lapack_int const* m, lapack_int const* n,
1562 double const* A, lapack_int const* lda,
1563 double* R,
1564 double* C,
1565 double* rowcnd,
1566 double* colcnd,
1567 double* amax,
1568 lapack_int* info );
1569
1570#define LAPACK_sgeequ LAPACK_GLOBAL(sgeequ,SGEEQU)
1571void LAPACK_sgeequ(
1572 lapack_int const* m, lapack_int const* n,
1573 float const* A, lapack_int const* lda,
1574 float* R,
1575 float* C,
1576 float* rowcnd,
1577 float* colcnd,
1578 float* amax,
1579 lapack_int* info );
1580
1581#define LAPACK_zgeequ LAPACK_GLOBAL(zgeequ,ZGEEQU)
1582void LAPACK_zgeequ(
1583 lapack_int const* m, lapack_int const* n,
1584 lapack_complex_double const* A, lapack_int const* lda,
1585 double* R,
1586 double* C,
1587 double* rowcnd,
1588 double* colcnd,
1589 double* amax,
1590 lapack_int* info );
1591
1592#define LAPACK_cgeequb LAPACK_GLOBAL(cgeequb,CGEEQUB)
1593void LAPACK_cgeequb(
1594 lapack_int const* m, lapack_int const* n,
1595 lapack_complex_float const* A, lapack_int const* lda,
1596 float* R,
1597 float* C,
1598 float* rowcnd,
1599 float* colcnd,
1600 float* amax,
1601 lapack_int* info );
1602
1603#define LAPACK_dgeequb LAPACK_GLOBAL(dgeequb,DGEEQUB)
1604void LAPACK_dgeequb(
1605 lapack_int const* m, lapack_int const* n,
1606 double const* A, lapack_int const* lda,
1607 double* R,
1608 double* C,
1609 double* rowcnd,
1610 double* colcnd,
1611 double* amax,
1612 lapack_int* info );
1613
1614#define LAPACK_sgeequb LAPACK_GLOBAL(sgeequb,SGEEQUB)
1615void LAPACK_sgeequb(
1616 lapack_int const* m, lapack_int const* n,
1617 float const* A, lapack_int const* lda,
1618 float* R,
1619 float* C,
1620 float* rowcnd,
1621 float* colcnd,
1622 float* amax,
1623 lapack_int* info );
1624
1625#define LAPACK_zgeequb LAPACK_GLOBAL(zgeequb,ZGEEQUB)
1626void LAPACK_zgeequb(
1627 lapack_int const* m, lapack_int const* n,
1628 lapack_complex_double const* A, lapack_int const* lda,
1629 double* R,
1630 double* C,
1631 double* rowcnd,
1632 double* colcnd,
1633 double* amax,
1634 lapack_int* info );
1635
1636#define LAPACK_cgees_base LAPACK_GLOBAL(cgees,CGEES)
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,
1645 lapack_int* info
1646#ifdef LAPACK_FORTRAN_STRLEN_END
1647 , size_t, size_t
1648#endif
1649);
1650#ifdef LAPACK_FORTRAN_STRLEN_END
1651 #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__, 1, 1)
1652#else
1653 #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__)
1654#endif
1655
1656#define LAPACK_dgees_base LAPACK_GLOBAL(dgees,DGEES)
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,
1661 double* WR,
1662 double* WI,
1663 double* VS, lapack_int const* ldvs,
1664 double* work, lapack_int const* lwork, lapack_logical* BWORK,
1665 lapack_int* info
1666#ifdef LAPACK_FORTRAN_STRLEN_END
1667 , size_t, size_t
1668#endif
1669);
1670#ifdef LAPACK_FORTRAN_STRLEN_END
1671 #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__, 1, 1)
1672#else
1673 #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__)
1674#endif
1675
1676#define LAPACK_sgees_base LAPACK_GLOBAL(sgees,SGEES)
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,
1681 float* WR,
1682 float* WI,
1683 float* VS, lapack_int const* ldvs,
1684 float* work, lapack_int const* lwork, lapack_logical* BWORK,
1685 lapack_int* info
1686#ifdef LAPACK_FORTRAN_STRLEN_END
1687 , size_t, size_t
1688#endif
1689);
1690#ifdef LAPACK_FORTRAN_STRLEN_END
1691 #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__, 1, 1)
1692#else
1693 #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__)
1694#endif
1695
1696#define LAPACK_zgees_base LAPACK_GLOBAL(zgees,ZGEES)
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,
1705 lapack_int* info
1706#ifdef LAPACK_FORTRAN_STRLEN_END
1707 , size_t, size_t
1708#endif
1709);
1710#ifdef LAPACK_FORTRAN_STRLEN_END
1711 #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__, 1, 1)
1712#else
1713 #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__)
1714#endif
1715
1716#define LAPACK_cgeesx_base LAPACK_GLOBAL(cgeesx,CGEESX)
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,
1723 float* rconde,
1724 float* rcondv,
1725 lapack_complex_float* work, lapack_int const* lwork,
1726 float* rwork, lapack_logical* BWORK,
1727 lapack_int* info
1728#ifdef LAPACK_FORTRAN_STRLEN_END
1729 , size_t, size_t, size_t
1730#endif
1731);
1732#ifdef LAPACK_FORTRAN_STRLEN_END
1733 #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__, 1, 1, 1)
1734#else
1735 #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__)
1736#endif
1737
1738#define LAPACK_dgeesx_base LAPACK_GLOBAL(dgeesx,DGEESX)
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,
1743 double* WR,
1744 double* WI,
1745 double* VS, lapack_int const* ldvs,
1746 double* rconde,
1747 double* rcondv,
1748 double* work, lapack_int const* lwork,
1749 lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
1750 lapack_int* info
1751#ifdef LAPACK_FORTRAN_STRLEN_END
1752 , size_t, size_t, size_t
1753#endif
1754);
1755#ifdef LAPACK_FORTRAN_STRLEN_END
1756 #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__, 1, 1, 1)
1757#else
1758 #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__)
1759#endif
1760
1761#define LAPACK_sgeesx_base LAPACK_GLOBAL(sgeesx,SGEESX)
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,
1766 float* WR,
1767 float* WI,
1768 float* VS, lapack_int const* ldvs,
1769 float* rconde,
1770 float* rcondv,
1771 float* work, lapack_int const* lwork,
1772 lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
1773 lapack_int* info
1774#ifdef LAPACK_FORTRAN_STRLEN_END
1775 , size_t, size_t, size_t
1776#endif
1777);
1778#ifdef LAPACK_FORTRAN_STRLEN_END
1779 #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__, 1, 1, 1)
1780#else
1781 #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__)
1782#endif
1783
1784#define LAPACK_zgeesx_base LAPACK_GLOBAL(zgeesx,ZGEESX)
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,
1791 double* rconde,
1792 double* rcondv,
1793 lapack_complex_double* work, lapack_int const* lwork,
1794 double* rwork, lapack_logical* BWORK,
1795 lapack_int* info
1796#ifdef LAPACK_FORTRAN_STRLEN_END
1797 , size_t, size_t, size_t
1798#endif
1799);
1800#ifdef LAPACK_FORTRAN_STRLEN_END
1801 #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__, 1, 1, 1)
1802#else
1803 #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__)
1804#endif
1805
1806#define LAPACK_cgeev_base LAPACK_GLOBAL(cgeev,CGEEV)
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,
1815 float* rwork,
1816 lapack_int* info
1817#ifdef LAPACK_FORTRAN_STRLEN_END
1818 , size_t, size_t
1819#endif
1820);
1821#ifdef LAPACK_FORTRAN_STRLEN_END
1822 #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__, 1, 1)
1823#else
1824 #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__)
1825#endif
1826
1827#define LAPACK_dgeev_base LAPACK_GLOBAL(dgeev,DGEEV)
1828void LAPACK_dgeev_base(
1829 char const* jobvl, char const* jobvr,
1830 lapack_int const* n,
1831 double* A, lapack_int const* lda,
1832 double* WR,
1833 double* WI,
1834 double* VL, lapack_int const* ldvl,
1835 double* VR, lapack_int const* ldvr,
1836 double* work, lapack_int const* lwork,
1837 lapack_int* info
1838#ifdef LAPACK_FORTRAN_STRLEN_END
1839 , size_t, size_t
1840#endif
1841);
1842#ifdef LAPACK_FORTRAN_STRLEN_END
1843 #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__, 1, 1)
1844#else
1845 #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__)
1846#endif
1847
1848#define LAPACK_sgeev_base LAPACK_GLOBAL(sgeev,SGEEV)
1849void LAPACK_sgeev_base(
1850 char const* jobvl, char const* jobvr,
1851 lapack_int const* n,
1852 float* A, lapack_int const* lda,
1853 float* WR,
1854 float* WI,
1855 float* VL, lapack_int const* ldvl,
1856 float* VR, lapack_int const* ldvr,
1857 float* work, lapack_int const* lwork,
1858 lapack_int* info
1859#ifdef LAPACK_FORTRAN_STRLEN_END
1860 , size_t, size_t
1861#endif
1862);
1863#ifdef LAPACK_FORTRAN_STRLEN_END
1864 #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__, 1, 1)
1865#else
1866 #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__)
1867#endif
1868
1869#define LAPACK_zgeev_base LAPACK_GLOBAL(zgeev,ZGEEV)
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,
1878 double* rwork,
1879 lapack_int* info
1880#ifdef LAPACK_FORTRAN_STRLEN_END
1881 , size_t, size_t
1882#endif
1883);
1884#ifdef LAPACK_FORTRAN_STRLEN_END
1885 #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__, 1, 1)
1886#else
1887 #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__)
1888#endif
1889
1890#define LAPACK_cgeevx_base LAPACK_GLOBAL(cgeevx,CGEEVX)
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,
1898 float* scale,
1899 float* abnrm,
1900 float* rconde,
1901 float* rcondv,
1902 lapack_complex_float* work, lapack_int const* lwork,
1903 float* rwork,
1904 lapack_int* info
1905#ifdef LAPACK_FORTRAN_STRLEN_END
1906 , size_t, size_t, size_t, size_t
1907#endif
1908);
1909#ifdef LAPACK_FORTRAN_STRLEN_END
1910 #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1911#else
1912 #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__)
1913#endif
1914
1915#define LAPACK_dgeevx_base LAPACK_GLOBAL(dgeevx,DGEEVX)
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,
1920 double* WR,
1921 double* WI,
1922 double* VL, lapack_int const* ldvl,
1923 double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1924 double* scale,
1925 double* abnrm,
1926 double* rconde,
1927 double* rcondv,
1928 double* work, lapack_int const* lwork,
1929 lapack_int* iwork,
1930 lapack_int* info
1931#ifdef LAPACK_FORTRAN_STRLEN_END
1932 , size_t, size_t, size_t, size_t
1933#endif
1934);
1935#ifdef LAPACK_FORTRAN_STRLEN_END
1936 #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1937#else
1938 #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__)
1939#endif
1940
1941#define LAPACK_sgeevx_base LAPACK_GLOBAL(sgeevx,SGEEVX)
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,
1946 float* WR,
1947 float* WI,
1948 float* VL, lapack_int const* ldvl,
1949 float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1950 float* scale,
1951 float* abnrm,
1952 float* rconde,
1953 float* rcondv,
1954 float* work, lapack_int const* lwork,
1955 lapack_int* iwork,
1956 lapack_int* info
1957#ifdef LAPACK_FORTRAN_STRLEN_END
1958 , size_t, size_t, size_t, size_t
1959#endif
1960);
1961#ifdef LAPACK_FORTRAN_STRLEN_END
1962 #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1963#else
1964 #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__)
1965#endif
1966
1967#define LAPACK_zgeevx_base LAPACK_GLOBAL(zgeevx,ZGEEVX)
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,
1975 double* scale,
1976 double* abnrm,
1977 double* rconde,
1978 double* rcondv,
1979 lapack_complex_double* work, lapack_int const* lwork,
1980 double* rwork,
1981 lapack_int* info
1982#ifdef LAPACK_FORTRAN_STRLEN_END
1983 , size_t, size_t, size_t, size_t
1984#endif
1985);
1986#ifdef LAPACK_FORTRAN_STRLEN_END
1987 #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1988#else
1989 #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__)
1990#endif
1991
1992#define LAPACK_cgehrd LAPACK_GLOBAL(cgehrd,CGEHRD)
1993void LAPACK_cgehrd(
1994 lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1995 lapack_complex_float* A, lapack_int const* lda,
1996 lapack_complex_float* tau,
1997 lapack_complex_float* work, lapack_int const* lwork,
1998 lapack_int* info );
1999
2000#define LAPACK_dgehrd LAPACK_GLOBAL(dgehrd,DGEHRD)
2001void LAPACK_dgehrd(
2002 lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
2003 double* A, lapack_int const* lda,
2004 double* tau,
2005 double* work, lapack_int const* lwork,
2006 lapack_int* info );
2007
2008#define LAPACK_sgehrd LAPACK_GLOBAL(sgehrd,SGEHRD)
2009void LAPACK_sgehrd(
2010 lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
2011 float* A, lapack_int const* lda,
2012 float* tau,
2013 float* work, lapack_int const* lwork,
2014 lapack_int* info );
2015
2016#define LAPACK_zgehrd LAPACK_GLOBAL(zgehrd,ZGEHRD)
2017void LAPACK_zgehrd(
2018 lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
2019 lapack_complex_double* A, lapack_int const* lda,
2020 lapack_complex_double* tau,
2021 lapack_complex_double* work, lapack_int const* lwork,
2022 lapack_int* info );
2023
2024#define LAPACK_cgejsv_base LAPACK_GLOBAL(cgejsv,CGEJSV)
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,
2029 float* SVA,
2030 lapack_complex_float* U, lapack_int const* ldu,
2031 lapack_complex_float* V, lapack_int const* ldv,
2032 lapack_complex_float* cwork, lapack_int const* lwork,
2033 float* rwork, lapack_int const* lrwork,
2034 lapack_int* iwork,
2035 lapack_int* info
2036#ifdef LAPACK_FORTRAN_STRLEN_END
2037 , size_t, size_t, size_t, size_t, size_t, size_t
2038#endif
2039);
2040#ifdef LAPACK_FORTRAN_STRLEN_END
2041 #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2042#else
2043 #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__)
2044#endif
2045
2046#define LAPACK_dgejsv_base LAPACK_GLOBAL(dgejsv,DGEJSV)
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,
2051 double* SVA,
2052 double* U, lapack_int const* ldu,
2053 double* V, lapack_int const* ldv,
2054 double* work, lapack_int const* lwork,
2055 lapack_int* iwork,
2056 lapack_int* info
2057#ifdef LAPACK_FORTRAN_STRLEN_END
2058 , size_t, size_t, size_t, size_t, size_t, size_t
2059#endif
2060);
2061#ifdef LAPACK_FORTRAN_STRLEN_END
2062 #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2063#else
2064 #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__)
2065#endif
2066
2067#define LAPACK_sgejsv_base LAPACK_GLOBAL(sgejsv,SGEJSV)
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,
2072 float* SVA,
2073 float* U, lapack_int const* ldu,
2074 float* V, lapack_int const* ldv,
2075 float* work, lapack_int const* lwork,
2076 lapack_int* iwork,
2077 lapack_int* info
2078#ifdef LAPACK_FORTRAN_STRLEN_END
2079 , size_t, size_t, size_t, size_t, size_t, size_t
2080#endif
2081);
2082#ifdef LAPACK_FORTRAN_STRLEN_END
2083 #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2084#else
2085 #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__)
2086#endif
2087
2088#define LAPACK_zgejsv_base LAPACK_GLOBAL(zgejsv,ZGEJSV)
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,
2093 double* SVA,
2094 lapack_complex_double* U, lapack_int const* ldu,
2095 lapack_complex_double* V, lapack_int const* ldv,
2096 lapack_complex_double* cwork, lapack_int const* lwork,
2097 double* rwork, lapack_int const* lrwork,
2098 lapack_int* iwork,
2099 lapack_int* info
2100#ifdef LAPACK_FORTRAN_STRLEN_END
2101 , size_t, size_t, size_t, size_t, size_t, size_t
2102#endif
2103);
2104#ifdef LAPACK_FORTRAN_STRLEN_END
2105 #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2106#else
2107 #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__)
2108#endif
2109
2110#define LAPACK_cgelq LAPACK_GLOBAL(cgelq,CGELQ)
2111void LAPACK_cgelq(
2112 lapack_int const* m, lapack_int const* n,
2113 lapack_complex_float* A, lapack_int const* lda,
2114 lapack_complex_float* T, lapack_int const* tsize,
2115 lapack_complex_float* work, lapack_int const* lwork,
2116 lapack_int* info );
2117
2118#define LAPACK_dgelq LAPACK_GLOBAL(dgelq,DGELQ)
2119void LAPACK_dgelq(
2120 lapack_int const* m, lapack_int const* n,
2121 double* A, lapack_int const* lda,
2122 double* T, lapack_int const* tsize,
2123 double* work, lapack_int const* lwork,
2124 lapack_int* info );
2125
2126#define LAPACK_sgelq LAPACK_GLOBAL(sgelq,SGELQ)
2127void LAPACK_sgelq(
2128 lapack_int const* m, lapack_int const* n,
2129 float* A, lapack_int const* lda,
2130 float* T, lapack_int const* tsize,
2131 float* work, lapack_int const* lwork,
2132 lapack_int* info );
2133
2134#define LAPACK_zgelq LAPACK_GLOBAL(zgelq,ZGELQ)
2135void LAPACK_zgelq(
2136 lapack_int const* m, lapack_int const* n,
2137 lapack_complex_double* A, lapack_int const* lda,
2138 lapack_complex_double* T, lapack_int const* tsize,
2139 lapack_complex_double* work, lapack_int const* lwork,
2140 lapack_int* info );
2141
2142#define LAPACK_cgelq2 LAPACK_GLOBAL(cgelq2,CGELQ2)
2143void LAPACK_cgelq2(
2144 lapack_int const* m, lapack_int const* n,
2145 lapack_complex_float* A, lapack_int const* lda,
2146 lapack_complex_float* tau,
2147 lapack_complex_float* work,
2148 lapack_int* info );
2149
2150#define LAPACK_dgelq2 LAPACK_GLOBAL(dgelq2,DGELQ2)
2151void LAPACK_dgelq2(
2152 lapack_int const* m, lapack_int const* n,
2153 double* A, lapack_int const* lda,
2154 double* tau,
2155 double* work,
2156 lapack_int* info );
2157
2158#define LAPACK_sgelq2 LAPACK_GLOBAL(sgelq2,SGELQ2)
2159void LAPACK_sgelq2(
2160 lapack_int const* m, lapack_int const* n,
2161 float* A, lapack_int const* lda,
2162 float* tau,
2163 float* work,
2164 lapack_int* info );
2165
2166#define LAPACK_zgelq2 LAPACK_GLOBAL(zgelq2,ZGELQ2)
2167void LAPACK_zgelq2(
2168 lapack_int const* m, lapack_int const* n,
2169 lapack_complex_double* A, lapack_int const* lda,
2170 lapack_complex_double* tau,
2171 lapack_complex_double* work,
2172 lapack_int* info );
2173
2174#define LAPACK_cgelqf LAPACK_GLOBAL(cgelqf,CGELQF)
2175void LAPACK_cgelqf(
2176 lapack_int const* m, lapack_int const* n,
2177 lapack_complex_float* A, lapack_int const* lda,
2178 lapack_complex_float* tau,
2179 lapack_complex_float* work, lapack_int const* lwork,
2180 lapack_int* info );
2181
2182#define LAPACK_dgelqf LAPACK_GLOBAL(dgelqf,DGELQF)
2183void LAPACK_dgelqf(
2184 lapack_int const* m, lapack_int const* n,
2185 double* A, lapack_int const* lda,
2186 double* tau,
2187 double* work, lapack_int const* lwork,
2188 lapack_int* info );
2189
2190#define LAPACK_sgelqf LAPACK_GLOBAL(sgelqf,SGELQF)
2191void LAPACK_sgelqf(
2192 lapack_int const* m, lapack_int const* n,
2193 float* A, lapack_int const* lda,
2194 float* tau,
2195 float* work, lapack_int const* lwork,
2196 lapack_int* info );
2197
2198#define LAPACK_zgelqf LAPACK_GLOBAL(zgelqf,ZGELQF)
2199void LAPACK_zgelqf(
2200 lapack_int const* m, lapack_int const* n,
2201 lapack_complex_double* A, lapack_int const* lda,
2202 lapack_complex_double* tau,
2203 lapack_complex_double* work, lapack_int const* lwork,
2204 lapack_int* info );
2205
2206#define LAPACK_cgels_base LAPACK_GLOBAL(cgels,CGELS)
2207void LAPACK_cgels_base(
2208 char const* trans,
2209 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2210 lapack_complex_float* A, lapack_int const* lda,
2211 lapack_complex_float* B, lapack_int const* ldb,
2212 lapack_complex_float* work, lapack_int const* lwork,
2213 lapack_int* info
2214#ifdef LAPACK_FORTRAN_STRLEN_END
2215 , size_t
2216#endif
2217);
2218#ifdef LAPACK_FORTRAN_STRLEN_END
2219 #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__, 1)
2220#else
2221 #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__)
2222#endif
2223
2224#define LAPACK_dgels_base LAPACK_GLOBAL(dgels,DGELS)
2225void LAPACK_dgels_base(
2226 char const* trans,
2227 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2228 double* A, lapack_int const* lda,
2229 double* B, lapack_int const* ldb,
2230 double* work, lapack_int const* lwork,
2231 lapack_int* info
2232#ifdef LAPACK_FORTRAN_STRLEN_END
2233 , size_t
2234#endif
2235);
2236#ifdef LAPACK_FORTRAN_STRLEN_END
2237 #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__, 1)
2238#else
2239 #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__)
2240#endif
2241
2242#define LAPACK_sgels_base LAPACK_GLOBAL(sgels,SGELS)
2243void LAPACK_sgels_base(
2244 char const* trans,
2245 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2246 float* A, lapack_int const* lda,
2247 float* B, lapack_int const* ldb,
2248 float* work, lapack_int const* lwork,
2249 lapack_int* info
2250#ifdef LAPACK_FORTRAN_STRLEN_END
2251 , size_t
2252#endif
2253);
2254#ifdef LAPACK_FORTRAN_STRLEN_END
2255 #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__, 1)
2256#else
2257 #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__)
2258#endif
2259
2260#define LAPACK_zgels_base LAPACK_GLOBAL(zgels,ZGELS)
2261void LAPACK_zgels_base(
2262 char const* trans,
2263 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2264 lapack_complex_double* A, lapack_int const* lda,
2265 lapack_complex_double* B, lapack_int const* ldb,
2266 lapack_complex_double* work, lapack_int const* lwork,
2267 lapack_int* info
2268#ifdef LAPACK_FORTRAN_STRLEN_END
2269 , size_t
2270#endif
2271);
2272#ifdef LAPACK_FORTRAN_STRLEN_END
2273 #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__, 1)
2274#else
2275 #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__)
2276#endif
2277
2278#define LAPACK_cgelsd LAPACK_GLOBAL(cgelsd,CGELSD)
2279void LAPACK_cgelsd(
2280 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2281 lapack_complex_float* A, lapack_int const* lda,
2282 lapack_complex_float* B, lapack_int const* ldb,
2283 float* S,
2284 float const* rcond, lapack_int* rank,
2285 lapack_complex_float* work, lapack_int const* lwork,
2286 float* rwork,
2287 lapack_int* iwork,
2288 lapack_int* info );
2289
2290#define LAPACK_dgelsd LAPACK_GLOBAL(dgelsd,DGELSD)
2291void LAPACK_dgelsd(
2292 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2293 double* A, lapack_int const* lda,
2294 double* B, lapack_int const* ldb,
2295 double* S,
2296 double const* rcond, lapack_int* rank,
2297 double* work, lapack_int const* lwork,
2298 lapack_int* iwork,
2299 lapack_int* info );
2300
2301#define LAPACK_sgelsd LAPACK_GLOBAL(sgelsd,SGELSD)
2302void LAPACK_sgelsd(
2303 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2304 float* A, lapack_int const* lda,
2305 float* B, lapack_int const* ldb,
2306 float* S,
2307 float const* rcond, lapack_int* rank,
2308 float* work, lapack_int const* lwork,
2309 lapack_int* iwork,
2310 lapack_int* info );
2311
2312#define LAPACK_zgelsd LAPACK_GLOBAL(zgelsd,ZGELSD)
2313void LAPACK_zgelsd(
2314 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2315 lapack_complex_double* A, lapack_int const* lda,
2316 lapack_complex_double* B, lapack_int const* ldb,
2317 double* S,
2318 double const* rcond, lapack_int* rank,
2319 lapack_complex_double* work, lapack_int const* lwork,
2320 double* rwork,
2321 lapack_int* iwork,
2322 lapack_int* info );
2323
2324#define LAPACK_cgelss LAPACK_GLOBAL(cgelss,CGELSS)
2325void LAPACK_cgelss(
2326 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2327 lapack_complex_float* A, lapack_int const* lda,
2328 lapack_complex_float* B, lapack_int const* ldb,
2329 float* S,
2330 float const* rcond, lapack_int* rank,
2331 lapack_complex_float* work, lapack_int const* lwork,
2332 float* rwork,
2333 lapack_int* info );
2334
2335#define LAPACK_dgelss LAPACK_GLOBAL(dgelss,DGELSS)
2336void LAPACK_dgelss(
2337 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2338 double* A, lapack_int const* lda,
2339 double* B, lapack_int const* ldb,
2340 double* S,
2341 double const* rcond, lapack_int* rank,
2342 double* work, lapack_int const* lwork,
2343 lapack_int* info );
2344
2345#define LAPACK_sgelss LAPACK_GLOBAL(sgelss,SGELSS)
2346void LAPACK_sgelss(
2347 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2348 float* A, lapack_int const* lda,
2349 float* B, lapack_int const* ldb,
2350 float* S,
2351 float const* rcond, lapack_int* rank,
2352 float* work, lapack_int const* lwork,
2353 lapack_int* info );
2354
2355#define LAPACK_zgelss LAPACK_GLOBAL(zgelss,ZGELSS)
2356void LAPACK_zgelss(
2357 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2358 lapack_complex_double* A, lapack_int const* lda,
2359 lapack_complex_double* B, lapack_int const* ldb,
2360 double* S,
2361 double const* rcond, lapack_int* rank,
2362 lapack_complex_double* work, lapack_int const* lwork,
2363 double* rwork,
2364 lapack_int* info );
2365
2366#define LAPACK_cgelsy LAPACK_GLOBAL(cgelsy,CGELSY)
2367void LAPACK_cgelsy(
2368 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2369 lapack_complex_float* A, lapack_int const* lda,
2370 lapack_complex_float* B, lapack_int const* ldb, lapack_int* JPVT,
2371 float const* rcond, lapack_int* rank,
2372 lapack_complex_float* work, lapack_int const* lwork,
2373 float* rwork,
2374 lapack_int* info );
2375
2376#define LAPACK_dgelsy LAPACK_GLOBAL(dgelsy,DGELSY)
2377void LAPACK_dgelsy(
2378 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2379 double* A, lapack_int const* lda,
2380 double* B, lapack_int const* ldb, lapack_int* JPVT,
2381 double const* rcond, lapack_int* rank,
2382 double* work, lapack_int const* lwork,
2383 lapack_int* info );
2384
2385#define LAPACK_sgelsy LAPACK_GLOBAL(sgelsy,SGELSY)
2386void LAPACK_sgelsy(
2387 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2388 float* A, lapack_int const* lda,
2389 float* B, lapack_int const* ldb, lapack_int* JPVT,
2390 float const* rcond, lapack_int* rank,
2391 float* work, lapack_int const* lwork,
2392 lapack_int* info );
2393
2394#define LAPACK_zgelsy LAPACK_GLOBAL(zgelsy,ZGELSY)
2395void LAPACK_zgelsy(
2396 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2397 lapack_complex_double* A, lapack_int const* lda,
2398 lapack_complex_double* B, lapack_int const* ldb, lapack_int* JPVT,
2399 double const* rcond, lapack_int* rank,
2400 lapack_complex_double* work, lapack_int const* lwork,
2401 double* rwork,
2402 lapack_int* info );
2403
2404#define LAPACK_cgemlq_base LAPACK_GLOBAL(cgemlq,CGEMLQ)
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,
2412 lapack_int* info
2413#ifdef LAPACK_FORTRAN_STRLEN_END
2414 , size_t, size_t
2415#endif
2416);
2417#ifdef LAPACK_FORTRAN_STRLEN_END
2418 #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__, 1, 1)
2419#else
2420 #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__)
2421#endif
2422
2423#define LAPACK_dgemlq_base LAPACK_GLOBAL(dgemlq,DGEMLQ)
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,
2431 lapack_int* info
2432#ifdef LAPACK_FORTRAN_STRLEN_END
2433 , size_t, size_t
2434#endif
2435);
2436#ifdef LAPACK_FORTRAN_STRLEN_END
2437 #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__, 1, 1)
2438#else
2439 #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__)
2440#endif
2441
2442#define LAPACK_sgemlq_base LAPACK_GLOBAL(sgemlq,SGEMLQ)
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,
2450 lapack_int* info
2451#ifdef LAPACK_FORTRAN_STRLEN_END
2452 , size_t, size_t
2453#endif
2454);
2455#ifdef LAPACK_FORTRAN_STRLEN_END
2456 #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__, 1, 1)
2457#else
2458 #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__)
2459#endif
2460
2461#define LAPACK_zgemlq_base LAPACK_GLOBAL(zgemlq,ZGEMLQ)
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,
2469 lapack_int* info
2470#ifdef LAPACK_FORTRAN_STRLEN_END
2471 , size_t, size_t
2472#endif
2473);
2474#ifdef LAPACK_FORTRAN_STRLEN_END
2475 #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__, 1, 1)
2476#else
2477 #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__)
2478#endif
2479
2480#define LAPACK_cgemqr_base LAPACK_GLOBAL(cgemqr,CGEMQR)
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,
2488 lapack_int* info
2489#ifdef LAPACK_FORTRAN_STRLEN_END
2490 , size_t, size_t
2491#endif
2492);
2493#ifdef LAPACK_FORTRAN_STRLEN_END
2494 #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__, 1, 1)
2495#else
2496 #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__)
2497#endif
2498
2499#define LAPACK_dgemqr_base LAPACK_GLOBAL(dgemqr,DGEMQR)
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,
2507 lapack_int* info
2508#ifdef LAPACK_FORTRAN_STRLEN_END
2509 , size_t, size_t
2510#endif
2511);
2512#ifdef LAPACK_FORTRAN_STRLEN_END
2513 #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__, 1, 1)
2514#else
2515 #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__)
2516#endif
2517
2518#define LAPACK_sgemqr_base LAPACK_GLOBAL(sgemqr,SGEMQR)
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,
2526 lapack_int* info
2527#ifdef LAPACK_FORTRAN_STRLEN_END
2528 , size_t, size_t
2529#endif
2530);
2531#ifdef LAPACK_FORTRAN_STRLEN_END
2532 #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__, 1, 1)
2533#else
2534 #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__)
2535#endif
2536
2537#define LAPACK_zgemqr_base LAPACK_GLOBAL(zgemqr,ZGEMQR)
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,
2545 lapack_int* info
2546#ifdef LAPACK_FORTRAN_STRLEN_END
2547 , size_t, size_t
2548#endif
2549);
2550#ifdef LAPACK_FORTRAN_STRLEN_END
2551 #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__, 1, 1)
2552#else
2553 #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__)
2554#endif
2555
2556#define LAPACK_cgemqrt_base LAPACK_GLOBAL(cgemqrt,CGEMQRT)
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,
2564 lapack_int* info
2565#ifdef LAPACK_FORTRAN_STRLEN_END
2566 , size_t, size_t
2567#endif
2568);
2569#ifdef LAPACK_FORTRAN_STRLEN_END
2570 #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__, 1, 1)
2571#else
2572 #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__)
2573#endif
2574
2575#define LAPACK_dgemqrt_base LAPACK_GLOBAL(dgemqrt,DGEMQRT)
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,
2582 double* work,
2583 lapack_int* info
2584#ifdef LAPACK_FORTRAN_STRLEN_END
2585 , size_t, size_t
2586#endif
2587);
2588#ifdef LAPACK_FORTRAN_STRLEN_END
2589 #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__, 1, 1)
2590#else
2591 #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__)
2592#endif
2593
2594#define LAPACK_sgemqrt_base LAPACK_GLOBAL(sgemqrt,SGEMQRT)
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,
2601 float* work,
2602 lapack_int* info
2603#ifdef LAPACK_FORTRAN_STRLEN_END
2604 , size_t, size_t
2605#endif
2606);
2607#ifdef LAPACK_FORTRAN_STRLEN_END
2608 #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__, 1, 1)
2609#else
2610 #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__)
2611#endif
2612
2613#define LAPACK_zgemqrt_base LAPACK_GLOBAL(zgemqrt,ZGEMQRT)
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,
2621 lapack_int* info
2622#ifdef LAPACK_FORTRAN_STRLEN_END
2623 , size_t, size_t
2624#endif
2625);
2626#ifdef LAPACK_FORTRAN_STRLEN_END
2627 #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__, 1, 1)
2628#else
2629 #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__)
2630#endif
2631
2632#define LAPACK_cgeql2 LAPACK_GLOBAL(cgeql2,CGEQL2)
2633void LAPACK_cgeql2(
2634 lapack_int const* m, lapack_int const* n,
2635 lapack_complex_float* A, lapack_int const* lda,
2636 lapack_complex_float* tau,
2637 lapack_complex_float* work,
2638 lapack_int* info );
2639
2640#define LAPACK_dgeql2 LAPACK_GLOBAL(dgeql2,DGEQL2)
2641void LAPACK_dgeql2(
2642 lapack_int const* m, lapack_int const* n,
2643 double* A, lapack_int const* lda,
2644 double* tau,
2645 double* work,
2646 lapack_int* info );
2647
2648#define LAPACK_sgeql2 LAPACK_GLOBAL(sgeql2,SGEQL2)
2649void LAPACK_sgeql2(
2650 lapack_int const* m, lapack_int const* n,
2651 float* A, lapack_int const* lda,
2652 float* tau,
2653 float* work,
2654 lapack_int* info );
2655
2656#define LAPACK_zgeql2 LAPACK_GLOBAL(zgeql2,ZGEQL2)
2657void LAPACK_zgeql2(
2658 lapack_int const* m, lapack_int const* n,
2659 lapack_complex_double* A, lapack_int const* lda,
2660 lapack_complex_double* tau,
2661 lapack_complex_double* work,
2662 lapack_int* info );
2663
2664#define LAPACK_cgeqlf LAPACK_GLOBAL(cgeqlf,CGEQLF)
2665void LAPACK_cgeqlf(
2666 lapack_int const* m, lapack_int const* n,
2667 lapack_complex_float* A, lapack_int const* lda,
2668 lapack_complex_float* tau,
2669 lapack_complex_float* work, lapack_int const* lwork,
2670 lapack_int* info );
2671
2672#define LAPACK_dgeqlf LAPACK_GLOBAL(dgeqlf,DGEQLF)
2673void LAPACK_dgeqlf(
2674 lapack_int const* m, lapack_int const* n,
2675 double* A, lapack_int const* lda,
2676 double* tau,
2677 double* work, lapack_int const* lwork,
2678 lapack_int* info );
2679
2680#define LAPACK_sgeqlf LAPACK_GLOBAL(sgeqlf,SGEQLF)
2681void LAPACK_sgeqlf(
2682 lapack_int const* m, lapack_int const* n,
2683 float* A, lapack_int const* lda,
2684 float* tau,
2685 float* work, lapack_int const* lwork,
2686 lapack_int* info );
2687
2688#define LAPACK_zgeqlf LAPACK_GLOBAL(zgeqlf,ZGEQLF)
2689void LAPACK_zgeqlf(
2690 lapack_int const* m, lapack_int const* n,
2691 lapack_complex_double* A, lapack_int const* lda,
2692 lapack_complex_double* tau,
2693 lapack_complex_double* work, lapack_int const* lwork,
2694 lapack_int* info );
2695
2696#define LAPACK_sgeqpf LAPACK_GLOBAL(sgeqpf,SGEQPF)
2697void LAPACK_sgeqpf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
2698 lapack_int* jpvt, float* tau, float* work,
2699 lapack_int *info );
2700
2701#define LAPACK_dgeqpf LAPACK_GLOBAL(dgeqpf,DGEQPF)
2702void LAPACK_dgeqpf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
2703 lapack_int* jpvt, double* tau, double* work,
2704 lapack_int *info );
2705
2706#define LAPACK_cgeqpf LAPACK_GLOBAL(cgeqpf,CGEQPF)
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 );
2711
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 );
2717
2718#define LAPACK_cgeqp3 LAPACK_GLOBAL(cgeqp3,CGEQP3)
2719void LAPACK_cgeqp3(
2720 lapack_int const* m, lapack_int const* n,
2721 lapack_complex_float* A, lapack_int const* lda, lapack_int* JPVT,
2722 lapack_complex_float* tau,
2723 lapack_complex_float* work, lapack_int const* lwork,
2724 float* rwork,
2725 lapack_int* info );
2726
2727#define LAPACK_dgeqp3 LAPACK_GLOBAL(dgeqp3,DGEQP3)
2728void LAPACK_dgeqp3(
2729 lapack_int const* m, lapack_int const* n,
2730 double* A, lapack_int const* lda, lapack_int* JPVT,
2731 double* tau,
2732 double* work, lapack_int const* lwork,
2733 lapack_int* info );
2734
2735#define LAPACK_sgeqp3 LAPACK_GLOBAL(sgeqp3,SGEQP3)
2736void LAPACK_sgeqp3(
2737 lapack_int const* m, lapack_int const* n,
2738 float* A, lapack_int const* lda, lapack_int* JPVT,
2739 float* tau,
2740 float* work, lapack_int const* lwork,
2741 lapack_int* info );
2742
2743#define LAPACK_zgeqp3 LAPACK_GLOBAL(zgeqp3,ZGEQP3)
2744void LAPACK_zgeqp3(
2745 lapack_int const* m, lapack_int const* n,
2746 lapack_complex_double* A, lapack_int const* lda, lapack_int* JPVT,
2747 lapack_complex_double* tau,
2748 lapack_complex_double* work, lapack_int const* lwork,
2749 double* rwork,
2750 lapack_int* info );
2751
2752#define LAPACK_cgeqr LAPACK_GLOBAL(cgeqr,CGEQR)
2753void LAPACK_cgeqr(
2754 lapack_int const* m, lapack_int const* n,
2755 lapack_complex_float* A, lapack_int const* lda,
2756 lapack_complex_float* T, lapack_int const* tsize,
2757 lapack_complex_float* work, lapack_int const* lwork,
2758 lapack_int* info );
2759
2760#define LAPACK_dgeqr LAPACK_GLOBAL(dgeqr,DGEQR)
2761void LAPACK_dgeqr(
2762 lapack_int const* m, lapack_int const* n,
2763 double* A, lapack_int const* lda,
2764 double* T, lapack_int const* tsize,
2765 double* work, lapack_int const* lwork,
2766 lapack_int* info );
2767
2768#define LAPACK_sgeqr LAPACK_GLOBAL(sgeqr,SGEQR)
2769void LAPACK_sgeqr(
2770 lapack_int const* m, lapack_int const* n,
2771 float* A, lapack_int const* lda,
2772 float* T, lapack_int const* tsize,
2773 float* work, lapack_int const* lwork,
2774 lapack_int* info );
2775
2776#define LAPACK_zgeqr LAPACK_GLOBAL(zgeqr,ZGEQR)
2777void LAPACK_zgeqr(
2778 lapack_int const* m, lapack_int const* n,
2779 lapack_complex_double* A, lapack_int const* lda,
2780 lapack_complex_double* T, lapack_int const* tsize,
2781 lapack_complex_double* work, lapack_int const* lwork,
2782 lapack_int* info );
2783
2784#define LAPACK_cgeqr2 LAPACK_GLOBAL(cgeqr2,CGEQR2)
2785void LAPACK_cgeqr2(
2786 lapack_int const* m, lapack_int const* n,
2787 lapack_complex_float* A, lapack_int const* lda,
2788 lapack_complex_float* tau,
2789 lapack_complex_float* work,
2790 lapack_int* info );
2791
2792#define LAPACK_dgeqr2 LAPACK_GLOBAL(dgeqr2,DGEQR2)
2793void LAPACK_dgeqr2(
2794 lapack_int const* m, lapack_int const* n,
2795 double* A, lapack_int const* lda,
2796 double* tau,
2797 double* work,
2798 lapack_int* info );
2799
2800#define LAPACK_sgeqr2 LAPACK_GLOBAL(sgeqr2,SGEQR2)
2801void LAPACK_sgeqr2(
2802 lapack_int const* m, lapack_int const* n,
2803 float* A, lapack_int const* lda,
2804 float* tau,
2805 float* work,
2806 lapack_int* info );
2807
2808#define LAPACK_zgeqr2 LAPACK_GLOBAL(zgeqr2,ZGEQR2)
2809void LAPACK_zgeqr2(
2810 lapack_int const* m, lapack_int const* n,
2811 lapack_complex_double* A, lapack_int const* lda,
2812 lapack_complex_double* tau,
2813 lapack_complex_double* work,
2814 lapack_int* info );
2815
2816#define LAPACK_cgeqrf LAPACK_GLOBAL(cgeqrf,CGEQRF)
2817void LAPACK_cgeqrf(
2818 lapack_int const* m, lapack_int const* n,
2819 lapack_complex_float* A, lapack_int const* lda,
2820 lapack_complex_float* tau,
2821 lapack_complex_float* work, lapack_int const* lwork,
2822 lapack_int* info );
2823
2824#define LAPACK_dgeqrf LAPACK_GLOBAL(dgeqrf,DGEQRF)
2825void LAPACK_dgeqrf(
2826 lapack_int const* m, lapack_int const* n,
2827 double* A, lapack_int const* lda,
2828 double* tau,
2829 double* work, lapack_int const* lwork,
2830 lapack_int* info );
2831
2832#define LAPACK_sgeqrf LAPACK_GLOBAL(sgeqrf,SGEQRF)
2833void LAPACK_sgeqrf(
2834 lapack_int const* m, lapack_int const* n,
2835 float* A, lapack_int const* lda,
2836 float* tau,
2837 float* work, lapack_int const* lwork,
2838 lapack_int* info );
2839
2840#define LAPACK_zgeqrf LAPACK_GLOBAL(zgeqrf,ZGEQRF)
2841void LAPACK_zgeqrf(
2842 lapack_int const* m, lapack_int const* n,
2843 lapack_complex_double* A, lapack_int const* lda,
2844 lapack_complex_double* tau,
2845 lapack_complex_double* work, lapack_int const* lwork,
2846 lapack_int* info );
2847
2848#define LAPACK_cgeqrfp LAPACK_GLOBAL(cgeqrfp,CGEQRFP)
2849void LAPACK_cgeqrfp(
2850 lapack_int const* m, lapack_int const* n,
2851 lapack_complex_float* A, lapack_int const* lda,
2852 lapack_complex_float* tau,
2853 lapack_complex_float* work, lapack_int const* lwork,
2854 lapack_int* info );
2855
2856#define LAPACK_dgeqrfp LAPACK_GLOBAL(dgeqrfp,DGEQRFP)
2857void LAPACK_dgeqrfp(
2858 lapack_int const* m, lapack_int const* n,
2859 double* A, lapack_int const* lda,
2860 double* tau,
2861 double* work, lapack_int const* lwork,
2862 lapack_int* info );
2863
2864#define LAPACK_sgeqrfp LAPACK_GLOBAL(sgeqrfp,SGEQRFP)
2865void LAPACK_sgeqrfp(
2866 lapack_int const* m, lapack_int const* n,
2867 float* A, lapack_int const* lda,
2868 float* tau,
2869 float* work, lapack_int const* lwork,
2870 lapack_int* info );
2871
2872#define LAPACK_zgeqrfp LAPACK_GLOBAL(zgeqrfp,ZGEQRFP)
2873void LAPACK_zgeqrfp(
2874 lapack_int const* m, lapack_int const* n,
2875 lapack_complex_double* A, lapack_int const* lda,
2876 lapack_complex_double* tau,
2877 lapack_complex_double* work, lapack_int const* lwork,
2878 lapack_int* info );
2879
2880#define LAPACK_cgeqrt LAPACK_GLOBAL(cgeqrt,CGEQRT)
2881void LAPACK_cgeqrt(
2882 lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2883 lapack_complex_float* A, lapack_int const* lda,
2884 lapack_complex_float* T, lapack_int const* ldt,
2885 lapack_complex_float* work,
2886 lapack_int* info );
2887
2888#define LAPACK_dgeqrt LAPACK_GLOBAL(dgeqrt,DGEQRT)
2889void LAPACK_dgeqrt(
2890 lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2891 double* A, lapack_int const* lda,
2892 double* T, lapack_int const* ldt,
2893 double* work,
2894 lapack_int* info );
2895
2896#define LAPACK_sgeqrt LAPACK_GLOBAL(sgeqrt,SGEQRT)
2897void LAPACK_sgeqrt(
2898 lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2899 float* A, lapack_int const* lda,
2900 float* T, lapack_int const* ldt,
2901 float* work,
2902 lapack_int* info );
2903
2904#define LAPACK_zgeqrt LAPACK_GLOBAL(zgeqrt,ZGEQRT)
2905void LAPACK_zgeqrt(
2906 lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2907 lapack_complex_double* A, lapack_int const* lda,
2908 lapack_complex_double* T, lapack_int const* ldt,
2909 lapack_complex_double* work,
2910 lapack_int* info );
2911
2912#define LAPACK_cgeqrt2 LAPACK_GLOBAL(cgeqrt2,CGEQRT2)
2913void LAPACK_cgeqrt2(
2914 lapack_int const* m, lapack_int const* n,
2915 lapack_complex_float* A, lapack_int const* lda,
2916 lapack_complex_float* T, lapack_int const* ldt,
2917 lapack_int* info );
2918
2919#define LAPACK_dgeqrt2 LAPACK_GLOBAL(dgeqrt2,DGEQRT2)
2920void LAPACK_dgeqrt2(
2921 lapack_int const* m, lapack_int const* n,
2922 double* A, lapack_int const* lda,
2923 double* T, lapack_int const* ldt,
2924 lapack_int* info );
2925
2926#define LAPACK_sgeqrt2 LAPACK_GLOBAL(sgeqrt2,SGEQRT2)
2927void LAPACK_sgeqrt2(
2928 lapack_int const* m, lapack_int const* n,
2929 float* A, lapack_int const* lda,
2930 float* T, lapack_int const* ldt,
2931 lapack_int* info );
2932
2933#define LAPACK_zgeqrt2 LAPACK_GLOBAL(zgeqrt2,ZGEQRT2)
2934void LAPACK_zgeqrt2(
2935 lapack_int const* m, lapack_int const* n,
2936 lapack_complex_double* A, lapack_int const* lda,
2937 lapack_complex_double* T, lapack_int const* ldt,
2938 lapack_int* info );
2939
2940#define LAPACK_cgeqrt3 LAPACK_GLOBAL(cgeqrt3,CGEQRT3)
2941void LAPACK_cgeqrt3(
2942 lapack_int const* m, lapack_int const* n,
2943 lapack_complex_float* A, lapack_int const* lda,
2944 lapack_complex_float* T, lapack_int const* ldt,
2945 lapack_int* info );
2946
2947#define LAPACK_dgeqrt3 LAPACK_GLOBAL(dgeqrt3,DGEQRT3)
2948void LAPACK_dgeqrt3(
2949 lapack_int const* m, lapack_int const* n,
2950 double* A, lapack_int const* lda,
2951 double* T, lapack_int const* ldt,
2952 lapack_int* info );
2953
2954#define LAPACK_sgeqrt3 LAPACK_GLOBAL(sgeqrt3,SGEQRT3)
2955void LAPACK_sgeqrt3(
2956 lapack_int const* m, lapack_int const* n,
2957 float* A, lapack_int const* lda,
2958 float* T, lapack_int const* ldt,
2959 lapack_int* info );
2960
2961#define LAPACK_zgeqrt3 LAPACK_GLOBAL(zgeqrt3,ZGEQRT3)
2962void LAPACK_zgeqrt3(
2963 lapack_int const* m, lapack_int const* n,
2964 lapack_complex_double* A, lapack_int const* lda,
2965 lapack_complex_double* T, lapack_int const* ldt,
2966 lapack_int* info );
2967
2968#define LAPACK_cgerfs_base LAPACK_GLOBAL(cgerfs,CGERFS)
2969void LAPACK_cgerfs_base(
2970 char const* trans,
2971 lapack_int const* n, lapack_int const* nrhs,
2972 lapack_complex_float const* A, lapack_int const* lda,
2973 lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
2974 lapack_complex_float const* B, lapack_int const* ldb,
2975 lapack_complex_float* X, lapack_int const* ldx,
2976 float* ferr,
2977 float* berr,
2978 lapack_complex_float* work,
2979 float* rwork,
2980 lapack_int* info
2981#ifdef LAPACK_FORTRAN_STRLEN_END
2982 , size_t
2983#endif
2984);
2985#ifdef LAPACK_FORTRAN_STRLEN_END
2986 #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__, 1)
2987#else
2988 #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__)
2989#endif
2990
2991#define LAPACK_dgerfs_base LAPACK_GLOBAL(dgerfs,DGERFS)
2992void LAPACK_dgerfs_base(
2993 char const* trans,
2994 lapack_int const* n, lapack_int const* nrhs,
2995 double const* A, lapack_int const* lda,
2996 double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
2997 double const* B, lapack_int const* ldb,
2998 double* X, lapack_int const* ldx,
2999 double* ferr,
3000 double* berr,
3001 double* work,
3002 lapack_int* iwork,
3003 lapack_int* info
3004#ifdef LAPACK_FORTRAN_STRLEN_END
3005 , size_t
3006#endif
3007);
3008#ifdef LAPACK_FORTRAN_STRLEN_END
3009 #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__, 1)
3010#else
3011 #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__)
3012#endif
3013
3014#define LAPACK_sgerfs_base LAPACK_GLOBAL(sgerfs,SGERFS)
3015void LAPACK_sgerfs_base(
3016 char const* trans,
3017 lapack_int const* n, lapack_int const* nrhs,
3018 float const* A, lapack_int const* lda,
3019 float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3020 float const* B, lapack_int const* ldb,
3021 float* X, lapack_int const* ldx,
3022 float* ferr,
3023 float* berr,
3024 float* work,
3025 lapack_int* iwork,
3026 lapack_int* info
3027#ifdef LAPACK_FORTRAN_STRLEN_END
3028 , size_t
3029#endif
3030);
3031#ifdef LAPACK_FORTRAN_STRLEN_END
3032 #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__, 1)
3033#else
3034 #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__)
3035#endif
3036
3037#define LAPACK_zgerfs_base LAPACK_GLOBAL(zgerfs,ZGERFS)
3038void LAPACK_zgerfs_base(
3039 char const* trans,
3040 lapack_int const* n, lapack_int const* nrhs,
3041 lapack_complex_double const* A, lapack_int const* lda,
3042 lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3043 lapack_complex_double const* B, lapack_int const* ldb,
3044 lapack_complex_double* X, lapack_int const* ldx,
3045 double* ferr,
3046 double* berr,
3047 lapack_complex_double* work,
3048 double* rwork,
3049 lapack_int* info
3050#ifdef LAPACK_FORTRAN_STRLEN_END
3051 , size_t
3052#endif
3053);
3054#ifdef LAPACK_FORTRAN_STRLEN_END
3055 #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__, 1)
3056#else
3057 #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__)
3058#endif
3059
3060#define LAPACK_cgerfsx_base LAPACK_GLOBAL(cgerfsx,CGERFSX)
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,
3066 float const* R,
3067 float const* C,
3068 lapack_complex_float const* B, lapack_int const* ldb,
3069 lapack_complex_float* X, lapack_int const* ldx,
3070 float* rcond,
3071 float* berr, lapack_int const* n_err_bnds,
3072 float* err_bnds_norm,
3073 float* err_bnds_comp, lapack_int const* nparams,
3074 float* params,
3075 lapack_complex_float* work,
3076 float* rwork,
3077 lapack_int* info
3078#ifdef LAPACK_FORTRAN_STRLEN_END
3079 , size_t, size_t
3080#endif
3081);
3082#ifdef LAPACK_FORTRAN_STRLEN_END
3083 #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__, 1, 1)
3084#else
3085 #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__)
3086#endif
3087
3088#define LAPACK_dgerfsx_base LAPACK_GLOBAL(dgerfsx,DGERFSX)
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,
3094 double const* R,
3095 double const* C,
3096 double const* B, lapack_int const* ldb,
3097 double* X, lapack_int const* ldx,
3098 double* rcond,
3099 double* berr, lapack_int const* n_err_bnds,
3100 double* err_bnds_norm,
3101 double* err_bnds_comp, lapack_int const* nparams,
3102 double* params,
3103 double* work,
3104 lapack_int* iwork,
3105 lapack_int* info
3106#ifdef LAPACK_FORTRAN_STRLEN_END
3107 , size_t, size_t
3108#endif
3109);
3110#ifdef LAPACK_FORTRAN_STRLEN_END
3111 #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__, 1, 1)
3112#else
3113 #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__)
3114#endif
3115
3116#define LAPACK_sgerfsx_base LAPACK_GLOBAL(sgerfsx,SGERFSX)
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,
3122 float const* R,
3123 float const* C,
3124 float const* B, lapack_int const* ldb,
3125 float* X, lapack_int const* ldx,
3126 float* rcond,
3127 float* berr, lapack_int const* n_err_bnds,
3128 float* err_bnds_norm,
3129 float* err_bnds_comp, lapack_int const* nparams,
3130 float* params,
3131 float* work,
3132 lapack_int* iwork,
3133 lapack_int* info
3134#ifdef LAPACK_FORTRAN_STRLEN_END
3135 , size_t, size_t
3136#endif
3137);
3138#ifdef LAPACK_FORTRAN_STRLEN_END
3139 #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__, 1, 1)
3140#else
3141 #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__)
3142#endif
3143
3144#define LAPACK_zgerfsx_base LAPACK_GLOBAL(zgerfsx,ZGERFSX)
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,
3150 double const* R,
3151 double const* C,
3152 lapack_complex_double const* B, lapack_int const* ldb,
3153 lapack_complex_double* X, lapack_int const* ldx,
3154 double* rcond,
3155 double* berr, lapack_int const* n_err_bnds,
3156 double* err_bnds_norm,
3157 double* err_bnds_comp, lapack_int const* nparams,
3158 double* params,
3159 lapack_complex_double* work,
3160 double* rwork,
3161 lapack_int* info
3162#ifdef LAPACK_FORTRAN_STRLEN_END
3163 , size_t, size_t
3164#endif
3165);
3166#ifdef LAPACK_FORTRAN_STRLEN_END
3167 #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__, 1, 1)
3168#else
3169 #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__)
3170#endif
3171
3172#define LAPACK_cgerq2 LAPACK_GLOBAL(cgerq2,CGERQ2)
3173void LAPACK_cgerq2(
3174 lapack_int const* m, lapack_int const* n,
3175 lapack_complex_float* A, lapack_int const* lda,
3176 lapack_complex_float* tau,
3177 lapack_complex_float* work,
3178 lapack_int* info );
3179
3180#define LAPACK_dgerq2 LAPACK_GLOBAL(dgerq2,DGERQ2)
3181void LAPACK_dgerq2(
3182 lapack_int const* m, lapack_int const* n,
3183 double* A, lapack_int const* lda,
3184 double* tau,
3185 double* work,
3186 lapack_int* info );
3187
3188#define LAPACK_sgerq2 LAPACK_GLOBAL(sgerq2,SGERQ2)
3189void LAPACK_sgerq2(
3190 lapack_int const* m, lapack_int const* n,
3191 float* A, lapack_int const* lda,
3192 float* tau,
3193 float* work,
3194 lapack_int* info );
3195
3196#define LAPACK_zgerq2 LAPACK_GLOBAL(zgerq2,ZGERQ2)
3197void LAPACK_zgerq2(
3198 lapack_int const* m, lapack_int const* n,
3199 lapack_complex_double* A, lapack_int const* lda,
3200 lapack_complex_double* tau,
3201 lapack_complex_double* work,
3202 lapack_int* info );
3203
3204#define LAPACK_cgerqf LAPACK_GLOBAL(cgerqf,CGERQF)
3205void LAPACK_cgerqf(
3206 lapack_int const* m, lapack_int const* n,
3207 lapack_complex_float* A, lapack_int const* lda,
3208 lapack_complex_float* tau,
3209 lapack_complex_float* work, lapack_int const* lwork,
3210 lapack_int* info );
3211
3212#define LAPACK_dgerqf LAPACK_GLOBAL(dgerqf,DGERQF)
3213void LAPACK_dgerqf(
3214 lapack_int const* m, lapack_int const* n,
3215 double* A, lapack_int const* lda,
3216 double* tau,
3217 double* work, lapack_int const* lwork,
3218 lapack_int* info );
3219
3220#define LAPACK_sgerqf LAPACK_GLOBAL(sgerqf,SGERQF)
3221void LAPACK_sgerqf(
3222 lapack_int const* m, lapack_int const* n,
3223 float* A, lapack_int const* lda,
3224 float* tau,
3225 float* work, lapack_int const* lwork,
3226 lapack_int* info );
3227
3228#define LAPACK_zgerqf LAPACK_GLOBAL(zgerqf,ZGERQF)
3229void LAPACK_zgerqf(
3230 lapack_int const* m, lapack_int const* n,
3231 lapack_complex_double* A, lapack_int const* lda,
3232 lapack_complex_double* tau,
3233 lapack_complex_double* work, lapack_int const* lwork,
3234 lapack_int* info );
3235
3236#define LAPACK_cgesdd_base LAPACK_GLOBAL(cgesdd,CGESDD)
3237void LAPACK_cgesdd_base(
3238 char const* jobz,
3239 lapack_int const* m, lapack_int const* n,
3240 lapack_complex_float* A, lapack_int const* lda,
3241 float* S,
3242 lapack_complex_float* U, lapack_int const* ldu,
3243 lapack_complex_float* VT, lapack_int const* ldvt,
3244 lapack_complex_float* work, lapack_int const* lwork,
3245 float* rwork,
3246 lapack_int* iwork,
3247 lapack_int* info
3248#ifdef LAPACK_FORTRAN_STRLEN_END
3249 , size_t
3250#endif
3251);
3252#ifdef LAPACK_FORTRAN_STRLEN_END
3253 #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__, 1)
3254#else
3255 #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__)
3256#endif
3257
3258#define LAPACK_dgesdd_base LAPACK_GLOBAL(dgesdd,DGESDD)
3259void LAPACK_dgesdd_base(
3260 char const* jobz,
3261 lapack_int const* m, lapack_int const* n,
3262 double* A, lapack_int const* lda,
3263 double* S,
3264 double* U, lapack_int const* ldu,
3265 double* VT, lapack_int const* ldvt,
3266 double* work, lapack_int const* lwork,
3267 lapack_int* iwork,
3268 lapack_int* info
3269#ifdef LAPACK_FORTRAN_STRLEN_END
3270 , size_t
3271#endif
3272);
3273#ifdef LAPACK_FORTRAN_STRLEN_END
3274 #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__, 1)
3275#else
3276 #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__)
3277#endif
3278
3279#define LAPACK_sgesdd_base LAPACK_GLOBAL(sgesdd,SGESDD)
3280void LAPACK_sgesdd_base(
3281 char const* jobz,
3282 lapack_int const* m, lapack_int const* n,
3283 float* A, lapack_int const* lda,
3284 float* S,
3285 float* U, lapack_int const* ldu,
3286 float* VT, lapack_int const* ldvt,
3287 float* work, lapack_int const* lwork,
3288 lapack_int* iwork,
3289 lapack_int* info
3290#ifdef LAPACK_FORTRAN_STRLEN_END
3291 , size_t
3292#endif
3293);
3294#ifdef LAPACK_FORTRAN_STRLEN_END
3295 #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__, 1)
3296#else
3297 #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__)
3298#endif
3299
3300#define LAPACK_zgesdd_base LAPACK_GLOBAL(zgesdd,ZGESDD)
3301void LAPACK_zgesdd_base(
3302 char const* jobz,
3303 lapack_int const* m, lapack_int const* n,
3304 lapack_complex_double* A, lapack_int const* lda,
3305 double* S,
3306 lapack_complex_double* U, lapack_int const* ldu,
3307 lapack_complex_double* VT, lapack_int const* ldvt,
3308 lapack_complex_double* work, lapack_int const* lwork,
3309 double* rwork,
3310 lapack_int* iwork,
3311 lapack_int* info
3312#ifdef LAPACK_FORTRAN_STRLEN_END
3313 , size_t
3314#endif
3315);
3316#ifdef LAPACK_FORTRAN_STRLEN_END
3317 #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__, 1)
3318#else
3319 #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__)
3320#endif
3321
3322#define LAPACK_cgesv LAPACK_GLOBAL(cgesv,CGESV)
3323void LAPACK_cgesv(
3324 lapack_int const* n, lapack_int const* nrhs,
3325 lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
3326 lapack_complex_float* B, lapack_int const* ldb,
3327 lapack_int* info );
3328
3329#define LAPACK_dgesv LAPACK_GLOBAL(dgesv,DGESV)
3330void LAPACK_dgesv(
3331 lapack_int const* n, lapack_int const* nrhs,
3332 double* A, lapack_int const* lda, lapack_int* ipiv,
3333 double* B, lapack_int const* ldb,
3334 lapack_int* info );
3335
3336#define LAPACK_sgesv LAPACK_GLOBAL(sgesv,SGESV)
3337void LAPACK_sgesv(
3338 lapack_int const* n, lapack_int const* nrhs,
3339 float* A, lapack_int const* lda, lapack_int* ipiv,
3340 float* B, lapack_int const* ldb,
3341 lapack_int* info );
3342
3343#define LAPACK_zgesv LAPACK_GLOBAL(zgesv,ZGESV)
3344void LAPACK_zgesv(
3345 lapack_int const* n, lapack_int const* nrhs,
3346 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
3347 lapack_complex_double* B, lapack_int const* ldb,
3348 lapack_int* info );
3349
3350#define LAPACK_dsgesv LAPACK_GLOBAL(dsgesv,DSGESV)
3351void LAPACK_dsgesv(
3352 lapack_int const* n, lapack_int const* nrhs,
3353 double* A, lapack_int const* lda, lapack_int* ipiv,
3354 double const* B, lapack_int const* ldb,
3355 double* X, lapack_int const* ldx,
3356 double* work,
3357 float* swork, lapack_int* iter,
3358 lapack_int* info );
3359
3360#define LAPACK_zcgesv LAPACK_GLOBAL(zcgesv,ZCGESV)
3361void LAPACK_zcgesv(
3362 lapack_int const* n, lapack_int const* nrhs,
3363 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
3364 lapack_complex_double const* B, lapack_int const* ldb,
3365 lapack_complex_double* X, lapack_int const* ldx,
3366 lapack_complex_double* work,
3367 lapack_complex_float* swork,
3368 double* rwork, lapack_int* iter,
3369 lapack_int* info );
3370
3371#define LAPACK_cgesvd_base LAPACK_GLOBAL(cgesvd,CGESVD)
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,
3376 float* S,
3377 lapack_complex_float* U, lapack_int const* ldu,
3378 lapack_complex_float* VT, lapack_int const* ldvt,
3379 lapack_complex_float* work, lapack_int const* lwork,
3380 float* rwork,
3381 lapack_int* info
3382#ifdef LAPACK_FORTRAN_STRLEN_END
3383 , size_t, size_t
3384#endif
3385);
3386#ifdef LAPACK_FORTRAN_STRLEN_END
3387 #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__, 1, 1)
3388#else
3389 #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__)
3390#endif
3391
3392#define LAPACK_dgesvd_base LAPACK_GLOBAL(dgesvd,DGESVD)
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,
3397 double* S,
3398 double* U, lapack_int const* ldu,
3399 double* VT, lapack_int const* ldvt,
3400 double* work, lapack_int const* lwork,
3401 lapack_int* info
3402#ifdef LAPACK_FORTRAN_STRLEN_END
3403 , size_t, size_t
3404#endif
3405);
3406#ifdef LAPACK_FORTRAN_STRLEN_END
3407 #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__, 1, 1)
3408#else
3409 #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__)
3410#endif
3411
3412#define LAPACK_sgesvd_base LAPACK_GLOBAL(sgesvd,SGESVD)
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,
3417 float* S,
3418 float* U, lapack_int const* ldu,
3419 float* VT, lapack_int const* ldvt,
3420 float* work, lapack_int const* lwork,
3421 lapack_int* info
3422#ifdef LAPACK_FORTRAN_STRLEN_END
3423 , size_t, size_t
3424#endif
3425);
3426#ifdef LAPACK_FORTRAN_STRLEN_END
3427 #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__, 1, 1)
3428#else
3429 #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__)
3430#endif
3431
3432#define LAPACK_zgesvd_base LAPACK_GLOBAL(zgesvd,ZGESVD)
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,
3437 double* S,
3438 lapack_complex_double* U, lapack_int const* ldu,
3439 lapack_complex_double* VT, lapack_int const* ldvt,
3440 lapack_complex_double* work, lapack_int const* lwork,
3441 double* rwork,
3442 lapack_int* info
3443#ifdef LAPACK_FORTRAN_STRLEN_END
3444 , size_t, size_t
3445#endif
3446);
3447#ifdef LAPACK_FORTRAN_STRLEN_END
3448 #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__, 1, 1)
3449#else
3450 #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__)
3451#endif
3452
3453#define LAPACK_cgesvdq_base LAPACK_GLOBAL(cgesvdq,CGESVDQ)
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,
3458 float* S,
3459 lapack_complex_float* U, lapack_int const* ldu,
3460 lapack_complex_float* V, lapack_int const* ldv, lapack_int* numrank,
3461 lapack_int* iwork, lapack_int const* liwork,
3462 lapack_complex_float* cwork, lapack_int* lcwork,
3463 float* rwork, lapack_int const* lrwork,
3464 lapack_int* info
3465#ifdef LAPACK_FORTRAN_STRLEN_END
3466 , size_t, size_t, size_t, size_t, size_t
3467#endif
3468);
3469#ifdef LAPACK_FORTRAN_STRLEN_END
3470 #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3471#else
3472 #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__)
3473#endif
3474
3475#define LAPACK_dgesvdq_base LAPACK_GLOBAL(dgesvdq,DGESVDQ)
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,
3480 double* S,
3481 double* U, lapack_int const* ldu,
3482 double* V, lapack_int const* ldv, lapack_int* numrank,
3483 lapack_int* iwork, lapack_int const* liwork,
3484 double* work, lapack_int* lwork,
3485 double* rwork, lapack_int const* lrwork,
3486 lapack_int* info
3487#ifdef LAPACK_FORTRAN_STRLEN_END
3488 , size_t, size_t, size_t, size_t, size_t
3489#endif
3490);
3491#ifdef LAPACK_FORTRAN_STRLEN_END
3492 #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3493#else
3494 #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__)
3495#endif
3496
3497#define LAPACK_sgesvdq_base LAPACK_GLOBAL(sgesvdq,SGESVDQ)
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,
3502 float* S,
3503 float* U, lapack_int const* ldu,
3504 float* V, lapack_int const* ldv, lapack_int* numrank,
3505 lapack_int* iwork, lapack_int const* liwork,
3506 float* work, lapack_int* lwork,
3507 float* rwork, lapack_int const* lrwork,
3508 lapack_int* info
3509#ifdef LAPACK_FORTRAN_STRLEN_END
3510 , size_t, size_t, size_t, size_t, size_t
3511#endif
3512);
3513#ifdef LAPACK_FORTRAN_STRLEN_END
3514 #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3515#else
3516 #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__)
3517#endif
3518
3519#define LAPACK_zgesvdq_base LAPACK_GLOBAL(zgesvdq,ZGESVDQ)
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,
3524 double* S,
3525 lapack_complex_double* U, lapack_int const* ldu,
3526 lapack_complex_double* V, lapack_int const* ldv, lapack_int* numrank,
3527 lapack_int* iwork, lapack_int const* liwork,
3528 lapack_complex_double* cwork, lapack_int* lcwork,
3529 double* rwork, lapack_int const* lrwork,
3530 lapack_int* info
3531#ifdef LAPACK_FORTRAN_STRLEN_END
3532 , size_t, size_t, size_t, size_t, size_t
3533#endif
3534);
3535#ifdef LAPACK_FORTRAN_STRLEN_END
3536 #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3537#else
3538 #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__)
3539#endif
3540
3541#define LAPACK_cgesvdx_base LAPACK_GLOBAL(cgesvdx,CGESVDX)
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,
3546 float const* vl,
3547 float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
3548 float* S,
3549 lapack_complex_float* U, lapack_int const* ldu,
3550 lapack_complex_float* VT, lapack_int const* ldvt,
3551 lapack_complex_float* work, lapack_int const* lwork,
3552 float* rwork,
3553 lapack_int* iwork,
3554 lapack_int* info
3555#ifdef LAPACK_FORTRAN_STRLEN_END
3556 , size_t, size_t, size_t
3557#endif
3558);
3559#ifdef LAPACK_FORTRAN_STRLEN_END
3560 #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__, 1, 1, 1)
3561#else
3562 #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__)
3563#endif
3564
3565
3566#define LAPACK_dgesvdx_base LAPACK_GLOBAL(dgesvdx,DGESVDX)
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,
3571 double const* vl,
3572 double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
3573 double* S,
3574 double* U, lapack_int const* ldu,
3575 double* VT, lapack_int const* ldvt,
3576 double* work, lapack_int const* lwork,
3577 lapack_int* iwork,
3578 lapack_int* info
3579#ifdef LAPACK_FORTRAN_STRLEN_END
3580 , size_t, size_t, size_t
3581#endif
3582);
3583#ifdef LAPACK_FORTRAN_STRLEN_END
3584 #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__, 1, 1, 1)
3585#else
3586 #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__)
3587#endif
3588
3589#define LAPACK_sgesvdx_base LAPACK_GLOBAL(sgesvdx,SGESVDX)
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,
3594 float const* vl,
3595 float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
3596 float* S,
3597 float* U, lapack_int const* ldu,
3598 float* VT, lapack_int const* ldvt,
3599 float* work, lapack_int const* lwork,
3600 lapack_int* iwork,
3601 lapack_int* info
3602#ifdef LAPACK_FORTRAN_STRLEN_END
3603 , size_t, size_t, size_t
3604#endif
3605);
3606#ifdef LAPACK_FORTRAN_STRLEN_END
3607 #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__, 1, 1, 1)
3608#else
3609 #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__)
3610#endif
3611
3612#define LAPACK_zgesvdx_base LAPACK_GLOBAL(zgesvdx,ZGESVDX)
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,
3617 double const* vl,
3618 double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
3619 double* S,
3620 lapack_complex_double* U, lapack_int const* ldu,
3621 lapack_complex_double* VT, lapack_int const* ldvt,
3622 lapack_complex_double* work, lapack_int const* lwork,
3623 double* rwork,
3624 lapack_int* iwork,
3625 lapack_int* info
3626#ifdef LAPACK_FORTRAN_STRLEN_END
3627 , size_t, size_t, size_t
3628#endif
3629);
3630#ifdef LAPACK_FORTRAN_STRLEN_END
3631 #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__, 1, 1, 1)
3632#else
3633 #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__)
3634#endif
3635
3636#define LAPACK_cgesvj_base LAPACK_GLOBAL(cgesvj,CGESVJ)
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,
3645 lapack_int* info
3646#ifdef LAPACK_FORTRAN_STRLEN_END
3647 , size_t, size_t, size_t
3648#endif
3649);
3650#ifdef LAPACK_FORTRAN_STRLEN_END
3651 #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__, 1, 1, 1)
3652#else
3653 #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__)
3654#endif
3655
3656#define LAPACK_dgesvj_base LAPACK_GLOBAL(dgesvj,DGESVJ)
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,
3664 lapack_int* info
3665#ifdef LAPACK_FORTRAN_STRLEN_END
3666 , size_t, size_t, size_t
3667#endif
3668);
3669#ifdef LAPACK_FORTRAN_STRLEN_END
3670 #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__, 1, 1, 1)
3671#else
3672 #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__)
3673#endif
3674
3675#define LAPACK_sgesvj_base LAPACK_GLOBAL(sgesvj,SGESVJ)
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,
3683 lapack_int* info
3684#ifdef LAPACK_FORTRAN_STRLEN_END
3685 , size_t, size_t, size_t
3686#endif
3687);
3688#ifdef LAPACK_FORTRAN_STRLEN_END
3689 #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__, 1, 1, 1)
3690#else
3691 #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__)
3692#endif
3693
3694#define LAPACK_zgesvj_base LAPACK_GLOBAL(zgesvj,ZGESVJ)
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,
3703 lapack_int* info
3704#ifdef LAPACK_FORTRAN_STRLEN_END
3705 , size_t, size_t, size_t
3706#endif
3707);
3708#ifdef LAPACK_FORTRAN_STRLEN_END
3709 #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__, 1, 1, 1)
3710#else
3711 #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__)
3712#endif
3713
3714#define LAPACK_cgesvx_base LAPACK_GLOBAL(cgesvx,CGESVX)
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,
3720 float* R,
3721 float* C,
3722 lapack_complex_float* B,
3723 lapack_int const* ldb,
3724 lapack_complex_float* X, lapack_int const* ldx,
3725 float* rcond,
3726 float* ferr,
3727 float* berr,
3728 lapack_complex_float* work,
3729 float* rwork,
3730 lapack_int* info
3731#ifdef LAPACK_FORTRAN_STRLEN_END
3732 , size_t, size_t, size_t
3733#endif
3734);
3735#ifdef LAPACK_FORTRAN_STRLEN_END
3736 #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__, 1, 1, 1)
3737#else
3738 #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__)
3739#endif
3740
3741#define LAPACK_dgesvx_base LAPACK_GLOBAL(dgesvx,DGESVX)
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,
3747 double* R,
3748 double* C,
3749 double* B,
3750 lapack_int const* ldb,
3751 double* X, lapack_int const* ldx,
3752 double* rcond,
3753 double* ferr,
3754 double* berr,
3755 double* work,
3756 lapack_int* iwork,
3757 lapack_int* info
3758#ifdef LAPACK_FORTRAN_STRLEN_END
3759 , size_t, size_t, size_t
3760#endif
3761);
3762#ifdef LAPACK_FORTRAN_STRLEN_END
3763 #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__, 1, 1, 1)
3764#else
3765 #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__)
3766#endif
3767
3768#define LAPACK_sgesvx_base LAPACK_GLOBAL(sgesvx,SGESVX)
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,
3774 float* R,
3775 float* C,
3776 float* B,
3777 lapack_int const* ldb,
3778 float* X, lapack_int const* ldx,
3779 float* rcond,
3780 float* ferr,
3781 float* berr,
3782 float* work,
3783 lapack_int* iwork,
3784 lapack_int* info
3785#ifdef LAPACK_FORTRAN_STRLEN_END
3786 , size_t, size_t, size_t
3787#endif
3788);
3789#ifdef LAPACK_FORTRAN_STRLEN_END
3790 #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__, 1, 1, 1)
3791#else
3792 #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__)
3793#endif
3794
3795#define LAPACK_zgesvx_base LAPACK_GLOBAL(zgesvx,ZGESVX)
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,
3801 double* R,
3802 double* C,
3803 lapack_complex_double* B,
3804 lapack_int const* ldb,
3805 lapack_complex_double* X, lapack_int const* ldx,
3806 double* rcond,
3807 double* ferr,
3808 double* berr,
3809 lapack_complex_double* work,
3810 double* rwork,
3811 lapack_int* info
3812#ifdef LAPACK_FORTRAN_STRLEN_END
3813 , size_t, size_t, size_t
3814#endif
3815);
3816#ifdef LAPACK_FORTRAN_STRLEN_END
3817 #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__, 1, 1, 1)
3818#else
3819 #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__)
3820#endif
3821
3822#define LAPACK_cgesvxx_base LAPACK_GLOBAL(cgesvxx,CGESVXX)
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,
3828 float* R,
3829 float* C,
3830 lapack_complex_float* B,
3831 lapack_int const* ldb,
3832 lapack_complex_float* X, lapack_int const* ldx,
3833 float* rcond,
3834 float* rpvgrw,
3835 float* berr, lapack_int const* n_err_bnds,
3836 float* err_bnds_norm,
3837 float* err_bnds_comp, lapack_int const* nparams,
3838 float* params,
3839 lapack_complex_float* work,
3840 float* rwork,
3841 lapack_int* info
3842#ifdef LAPACK_FORTRAN_STRLEN_END
3843 , size_t, size_t, size_t
3844#endif
3845);
3846#ifdef LAPACK_FORTRAN_STRLEN_END
3847 #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__, 1, 1, 1)
3848#else
3849 #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__)
3850#endif
3851
3852#define LAPACK_dgesvxx_base LAPACK_GLOBAL(dgesvxx,DGESVXX)
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,
3858 double* R,
3859 double* C,
3860 double* B,
3861 lapack_int const* ldb,
3862 double* X, lapack_int const* ldx,
3863 double* rcond,
3864 double* rpvgrw,
3865 double* berr, lapack_int const* n_err_bnds,
3866 double* err_bnds_norm,
3867 double* err_bnds_comp, lapack_int const* nparams,
3868 double* params,
3869 double* work,
3870 lapack_int* iwork,
3871 lapack_int* info
3872#ifdef LAPACK_FORTRAN_STRLEN_END
3873 , size_t, size_t, size_t
3874#endif
3875);
3876#ifdef LAPACK_FORTRAN_STRLEN_END
3877 #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__, 1, 1, 1)
3878#else
3879 #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__)
3880#endif
3881
3882#define LAPACK_sgesvxx_base LAPACK_GLOBAL(sgesvxx,SGESVXX)
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,
3888 float* R,
3889 float* C,
3890 float* B,
3891 lapack_int const* ldb,
3892 float* X, lapack_int const* ldx,
3893 float* rcond,
3894 float* rpvgrw,
3895 float* berr, lapack_int const* n_err_bnds,
3896 float* err_bnds_norm,
3897 float* err_bnds_comp, lapack_int const* nparams,
3898 float* params,
3899 float* work,
3900 lapack_int* iwork,
3901 lapack_int* info
3902#ifdef LAPACK_FORTRAN_STRLEN_END
3903 , size_t, size_t, size_t
3904#endif
3905);
3906#ifdef LAPACK_FORTRAN_STRLEN_END
3907 #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__, 1, 1, 1)
3908#else
3909 #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__)
3910#endif
3911
3912#define LAPACK_zgesvxx_base LAPACK_GLOBAL(zgesvxx,ZGESVXX)
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,
3918 double* R,
3919 double* C,
3920 lapack_complex_double* B,
3921 lapack_int const* ldb,
3922 lapack_complex_double* X, lapack_int const* ldx,
3923 double* rcond,
3924 double* rpvgrw,
3925 double* berr, lapack_int const* n_err_bnds,
3926 double* err_bnds_norm,
3927 double* err_bnds_comp, lapack_int const* nparams,
3928 double* params,
3929 lapack_complex_double* work,
3930 double* rwork,
3931 lapack_int* info
3932#ifdef LAPACK_FORTRAN_STRLEN_END
3933 , size_t, size_t, size_t
3934#endif
3935);
3936#ifdef LAPACK_FORTRAN_STRLEN_END
3937 #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__, 1, 1, 1)
3938#else
3939 #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__)
3940#endif
3941
3942#define LAPACK_cgetf2 LAPACK_GLOBAL(cgetf2,CGETF2)
3943void LAPACK_cgetf2(
3944 lapack_int const* m, lapack_int const* n,
3945 lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
3946 lapack_int* info );
3947
3948#define LAPACK_dgetf2 LAPACK_GLOBAL(dgetf2,DGETF2)
3949void LAPACK_dgetf2(
3950 lapack_int const* m, lapack_int const* n,
3951 double* A, lapack_int const* lda, lapack_int* ipiv,
3952 lapack_int* info );
3953
3954#define LAPACK_sgetf2 LAPACK_GLOBAL(sgetf2,SGETF2)
3955void LAPACK_sgetf2(
3956 lapack_int const* m, lapack_int const* n,
3957 float* A, lapack_int const* lda, lapack_int* ipiv,
3958 lapack_int* info );
3959
3960#define LAPACK_zgetf2 LAPACK_GLOBAL(zgetf2,ZGETF2)
3961void LAPACK_zgetf2(
3962 lapack_int const* m, lapack_int const* n,
3963 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
3964 lapack_int* info );
3965
3966#define LAPACK_cgetrf LAPACK_GLOBAL(cgetrf,CGETRF)
3967void LAPACK_cgetrf(
3968 lapack_int const* m, lapack_int const* n,
3969 lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
3970 lapack_int* info );
3971
3972#define LAPACK_dgetrf LAPACK_GLOBAL(dgetrf,DGETRF)
3973void LAPACK_dgetrf(
3974 lapack_int const* m, lapack_int const* n,
3975 double* A, lapack_int const* lda, lapack_int* ipiv,
3976 lapack_int* info );
3977
3978#define LAPACK_sgetrf LAPACK_GLOBAL(sgetrf,SGETRF)
3979void LAPACK_sgetrf(
3980 lapack_int const* m, lapack_int const* n,
3981 float* A, lapack_int const* lda, lapack_int* ipiv,
3982 lapack_int* info );
3983
3984#define LAPACK_zgetrf LAPACK_GLOBAL(zgetrf,ZGETRF)
3985void LAPACK_zgetrf(
3986 lapack_int const* m, lapack_int const* n,
3987 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
3988 lapack_int* info );
3989
3990#define LAPACK_cgetrf2 LAPACK_GLOBAL(cgetrf2,CGETRF2)
3991void LAPACK_cgetrf2(
3992 lapack_int const* m, lapack_int const* n,
3993 lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
3994 lapack_int* info );
3995
3996#define LAPACK_dgetrf2 LAPACK_GLOBAL(dgetrf2,DGETRF2)
3997void LAPACK_dgetrf2(
3998 lapack_int const* m, lapack_int const* n,
3999 double* A, lapack_int const* lda, lapack_int* ipiv,
4000 lapack_int* info );
4001
4002#define LAPACK_sgetrf2 LAPACK_GLOBAL(sgetrf2,SGETRF2)
4003void LAPACK_sgetrf2(
4004 lapack_int const* m, lapack_int const* n,
4005 float* A, lapack_int const* lda, lapack_int* ipiv,
4006 lapack_int* info );
4007
4008#define LAPACK_zgetrf2 LAPACK_GLOBAL(zgetrf2,ZGETRF2)
4009void LAPACK_zgetrf2(
4010 lapack_int const* m, lapack_int const* n,
4011 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
4012 lapack_int* info );
4013
4014#define LAPACK_cgetri LAPACK_GLOBAL(cgetri,CGETRI)
4015void LAPACK_cgetri(
4016 lapack_int const* n,
4017 lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
4018 lapack_complex_float* work, lapack_int const* lwork,
4019 lapack_int* info );
4020
4021#define LAPACK_dgetri LAPACK_GLOBAL(dgetri,DGETRI)
4022void LAPACK_dgetri(
4023 lapack_int const* n,
4024 double* A, lapack_int const* lda, lapack_int const* ipiv,
4025 double* work, lapack_int const* lwork,
4026 lapack_int* info );
4027
4028#define LAPACK_sgetri LAPACK_GLOBAL(sgetri,SGETRI)
4029void LAPACK_sgetri(
4030 lapack_int const* n,
4031 float* A, lapack_int const* lda, lapack_int const* ipiv,
4032 float* work, lapack_int const* lwork,
4033 lapack_int* info );
4034
4035#define LAPACK_zgetri LAPACK_GLOBAL(zgetri,ZGETRI)
4036void LAPACK_zgetri(
4037 lapack_int const* n,
4038 lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
4039 lapack_complex_double* work, lapack_int const* lwork,
4040 lapack_int* info );
4041
4042#define LAPACK_cgetrs_base LAPACK_GLOBAL(cgetrs,CGETRS)
4043void LAPACK_cgetrs_base(
4044 char const* trans,
4045 lapack_int const* n, lapack_int const* nrhs,
4046 lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
4047 lapack_complex_float* B, lapack_int const* ldb,
4048 lapack_int* info
4049#ifdef LAPACK_FORTRAN_STRLEN_END
4050 , size_t
4051#endif
4052);
4053#ifdef LAPACK_FORTRAN_STRLEN_END
4054 #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__, 1)
4055#else
4056 #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__)
4057#endif
4058
4059#define LAPACK_dgetrs_base LAPACK_GLOBAL(dgetrs,DGETRS)
4060void LAPACK_dgetrs_base(
4061 char const* trans,
4062 lapack_int const* n, lapack_int const* nrhs,
4063 double const* A, lapack_int const* lda, lapack_int const* ipiv,
4064 double* B, lapack_int const* ldb,
4065 lapack_int* info
4066#ifdef LAPACK_FORTRAN_STRLEN_END
4067 , size_t
4068#endif
4069);
4070#ifdef LAPACK_FORTRAN_STRLEN_END
4071 #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__, 1)
4072#else
4073 #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__)
4074#endif
4075
4076#define LAPACK_sgetrs_base LAPACK_GLOBAL(sgetrs,SGETRS)
4077void LAPACK_sgetrs_base(
4078 char const* trans,
4079 lapack_int const* n, lapack_int const* nrhs,
4080 float const* A, lapack_int const* lda, lapack_int const* ipiv,
4081 float* B, lapack_int const* ldb,
4082 lapack_int* info
4083#ifdef LAPACK_FORTRAN_STRLEN_END
4084 , size_t
4085#endif
4086);
4087#ifdef LAPACK_FORTRAN_STRLEN_END
4088 #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__, 1)
4089#else
4090 #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__)
4091#endif
4092
4093#define LAPACK_zgetrs_base LAPACK_GLOBAL(zgetrs,ZGETRS)
4094void LAPACK_zgetrs_base(
4095 char const* trans,
4096 lapack_int const* n, lapack_int const* nrhs,
4097 lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
4098 lapack_complex_double* B, lapack_int const* ldb,
4099 lapack_int* info
4100#ifdef LAPACK_FORTRAN_STRLEN_END
4101 , size_t
4102#endif
4103);
4104#ifdef LAPACK_FORTRAN_STRLEN_END
4105 #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__, 1)
4106#else
4107 #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__)
4108#endif
4109
4110#define LAPACK_cgetsls_base LAPACK_GLOBAL(cgetsls,CGETSLS)
4111void LAPACK_cgetsls_base(
4112 char const* trans,
4113 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
4114 lapack_complex_float* A, lapack_int const* lda,
4115 lapack_complex_float* B, lapack_int const* ldb,
4116 lapack_complex_float* work, lapack_int const* lwork,
4117 lapack_int* info
4118#ifdef LAPACK_FORTRAN_STRLEN_END
4119 , size_t
4120#endif
4121);
4122#ifdef LAPACK_FORTRAN_STRLEN_END
4123 #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__, 1)
4124#else
4125 #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__)
4126#endif
4127
4128#define LAPACK_dgetsls_base LAPACK_GLOBAL(dgetsls,DGETSLS)
4129void LAPACK_dgetsls_base(
4130 char const* trans,
4131 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
4132 double* A, lapack_int const* lda,
4133 double* B, lapack_int const* ldb,
4134 double* work, lapack_int const* lwork,
4135 lapack_int* info
4136#ifdef LAPACK_FORTRAN_STRLEN_END
4137 , size_t
4138#endif
4139);
4140#ifdef LAPACK_FORTRAN_STRLEN_END
4141 #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__, 1)
4142#else
4143 #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__)
4144#endif
4145
4146#define LAPACK_sgetsls_base LAPACK_GLOBAL(sgetsls,SGETSLS)
4147void LAPACK_sgetsls_base(
4148 char const* trans,
4149 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
4150 float* A, lapack_int const* lda,
4151 float* B, lapack_int const* ldb,
4152 float* work, lapack_int const* lwork,
4153 lapack_int* info
4154#ifdef LAPACK_FORTRAN_STRLEN_END
4155 , size_t
4156#endif
4157);
4158#ifdef LAPACK_FORTRAN_STRLEN_END
4159 #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__, 1)
4160#else
4161 #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__)
4162#endif
4163
4164#define LAPACK_zgetsls_base LAPACK_GLOBAL(zgetsls,ZGETSLS)
4165void LAPACK_zgetsls_base(
4166 char const* trans,
4167 lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
4168 lapack_complex_double* A, lapack_int const* lda,
4169 lapack_complex_double* B, lapack_int const* ldb,
4170 lapack_complex_double* work, lapack_int const* lwork,
4171 lapack_int* info
4172#ifdef LAPACK_FORTRAN_STRLEN_END
4173 , size_t
4174#endif
4175);
4176#ifdef LAPACK_FORTRAN_STRLEN_END
4177 #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__, 1)
4178#else
4179 #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__)
4180#endif
4181
4182#define LAPACK_cgetsqrhrt LAPACK_GLOBAL(cgetsqrhrt,CGETSQRHRT)
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,
4189 lapack_int* info );
4190
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,
4198 lapack_int* info );
4199
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,
4207 lapack_int* info );
4208
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,
4216 lapack_int* info );
4217
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,
4225 lapack_int* info
4226#ifdef LAPACK_FORTRAN_STRLEN_END
4227 , size_t, size_t
4228#endif
4229);
4230#ifdef LAPACK_FORTRAN_STRLEN_END
4231 #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__, 1, 1)
4232#else
4233 #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__)
4234#endif
4235
4236#define LAPACK_dggbak_base LAPACK_GLOBAL(dggbak,DGGBAK)
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,
4243 lapack_int* info
4244#ifdef LAPACK_FORTRAN_STRLEN_END
4245 , size_t, size_t
4246#endif
4247);
4248#ifdef LAPACK_FORTRAN_STRLEN_END
4249 #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__, 1, 1)
4250#else
4251 #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__)
4252#endif
4253
4254#define LAPACK_sggbak_base LAPACK_GLOBAL(sggbak,SGGBAK)
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,
4261 lapack_int* info
4262#ifdef LAPACK_FORTRAN_STRLEN_END
4263 , size_t, size_t
4264#endif
4265);
4266#ifdef LAPACK_FORTRAN_STRLEN_END
4267 #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__, 1, 1)
4268#else
4269 #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__)
4270#endif
4271
4272#define LAPACK_zggbak_base LAPACK_GLOBAL(zggbak,ZGGBAK)
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,
4279 lapack_int* info
4280#ifdef LAPACK_FORTRAN_STRLEN_END
4281 , size_t, size_t
4282#endif
4283);
4284#ifdef LAPACK_FORTRAN_STRLEN_END
4285 #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__, 1, 1)
4286#else
4287 #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__)
4288#endif
4289
4290#define LAPACK_cggbal_base LAPACK_GLOBAL(cggbal,CGGBAL)
4291void LAPACK_cggbal_base(
4292 char const* job,
4293 lapack_int const* n,
4294 lapack_complex_float* A, lapack_int const* lda,
4295 lapack_complex_float* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
4296 float* lscale,
4297 float* rscale,
4298 float* work,
4299 lapack_int* info
4300#ifdef LAPACK_FORTRAN_STRLEN_END
4301 , size_t
4302#endif
4303);
4304#ifdef LAPACK_FORTRAN_STRLEN_END
4305 #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__, 1)
4306#else
4307 #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__)
4308#endif
4309
4310#define LAPACK_dggbal_base LAPACK_GLOBAL(dggbal,DGGBAL)
4311void LAPACK_dggbal_base(
4312 char const* job,
4313 lapack_int const* n,
4314 double* A, lapack_int const* lda,
4315 double* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
4316 double* lscale,
4317 double* rscale,
4318 double* work,
4319 lapack_int* info
4320#ifdef LAPACK_FORTRAN_STRLEN_END
4321 , size_t
4322#endif
4323);
4324#ifdef LAPACK_FORTRAN_STRLEN_END
4325 #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__, 1)
4326#else
4327 #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__)
4328#endif
4329
4330#define LAPACK_sggbal_base LAPACK_GLOBAL(sggbal,SGGBAL)
4331void LAPACK_sggbal_base(
4332 char const* job,
4333 lapack_int const* n,
4334 float* A, lapack_int const* lda,
4335 float* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
4336 float* lscale,
4337 float* rscale,
4338 float* work,
4339 lapack_int* info
4340#ifdef LAPACK_FORTRAN_STRLEN_END
4341 , size_t
4342#endif
4343);
4344#ifdef LAPACK_FORTRAN_STRLEN_END
4345 #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__, 1)
4346#else
4347 #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__)
4348#endif
4349
4350#define LAPACK_zggbal_base LAPACK_GLOBAL(zggbal,ZGGBAL)
4351void LAPACK_zggbal_base(
4352 char const* job,
4353 lapack_int const* n,
4354 lapack_complex_double* A, lapack_int const* lda,
4355 lapack_complex_double* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
4356 double* lscale,
4357 double* rscale,
4358 double* work,
4359 lapack_int* info
4360#ifdef LAPACK_FORTRAN_STRLEN_END
4361 , size_t
4362#endif
4363);
4364#ifdef LAPACK_FORTRAN_STRLEN_END
4365 #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__, 1)
4366#else
4367 #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__)
4368#endif
4369
4370#define LAPACK_cgges_base LAPACK_GLOBAL(cgges,CGGES)
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,
4382 lapack_int* info
4383#ifdef LAPACK_FORTRAN_STRLEN_END
4384 , size_t, size_t, size_t
4385#endif
4386);
4387#ifdef LAPACK_FORTRAN_STRLEN_END
4388 #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__, 1, 1, 1)
4389#else
4390 #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__)
4391#endif
4392
4393#define LAPACK_dgges_base LAPACK_GLOBAL(dgges,DGGES)
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,
4399 double* alphar,
4400 double* alphai,
4401 double* beta,
4402 double* VSL, lapack_int const* ldvsl,
4403 double* VSR, lapack_int const* ldvsr,
4404 double* work, lapack_int const* lwork, lapack_logical* BWORK,
4405 lapack_int* info
4406#ifdef LAPACK_FORTRAN_STRLEN_END
4407 , size_t, size_t, size_t
4408#endif
4409);
4410#ifdef LAPACK_FORTRAN_STRLEN_END
4411 #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__, 1, 1, 1)
4412#else
4413 #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__)
4414#endif
4415
4416#define LAPACK_sgges_base LAPACK_GLOBAL(sgges,SGGES)
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,
4422 float* alphar,
4423 float* alphai,
4424 float* beta,
4425 float* VSL, lapack_int const* ldvsl,
4426 float* VSR, lapack_int const* ldvsr,
4427 float* work, lapack_int const* lwork, lapack_logical* BWORK,
4428 lapack_int* info
4429#ifdef LAPACK_FORTRAN_STRLEN_END
4430 , size_t, size_t, size_t
4431#endif
4432);
4433#ifdef LAPACK_FORTRAN_STRLEN_END
4434 #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__, 1, 1, 1)
4435#else
4436 #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__)
4437#endif
4438
4439#define LAPACK_zgges_base LAPACK_GLOBAL(zgges,ZGGES)
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,
4451 lapack_int* info
4452#ifdef LAPACK_FORTRAN_STRLEN_END
4453 , size_t, size_t, size_t
4454#endif
4455);
4456#ifdef LAPACK_FORTRAN_STRLEN_END
4457 #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__, 1, 1, 1)
4458#else
4459 #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__)
4460#endif
4461
4462#define LAPACK_cgges3_base LAPACK_GLOBAL(cgges3,CGGES3)
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,
4474 lapack_int* info
4475#ifdef LAPACK_FORTRAN_STRLEN_END
4476 , size_t, size_t, size_t
4477#endif
4478);
4479#ifdef LAPACK_FORTRAN_STRLEN_END
4480 #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__, 1, 1, 1)
4481#else
4482 #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__)
4483#endif
4484
4485#define LAPACK_dgges3_base LAPACK_GLOBAL(dgges3,DGGES3)
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,
4491 double* alphar,
4492 double* alphai,
4493 double* beta,
4494 double* VSL, lapack_int const* ldvsl,
4495 double* VSR, lapack_int const* ldvsr,
4496 double* work, lapack_int const* lwork, lapack_logical* BWORK,
4497 lapack_int* info
4498#ifdef LAPACK_FORTRAN_STRLEN_END
4499 , size_t, size_t, size_t
4500#endif
4501);
4502#ifdef LAPACK_FORTRAN_STRLEN_END
4503 #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__, 1, 1, 1)
4504#else
4505 #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__)
4506#endif
4507
4508#define LAPACK_sgges3_base LAPACK_GLOBAL(sgges3,SGGES3)
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,
4514 float* alphar,
4515 float* alphai,
4516 float* beta,
4517 float* VSL, lapack_int const* ldvsl,
4518 float* VSR, lapack_int const* ldvsr,
4519 float* work, lapack_int const* lwork, lapack_logical* BWORK,
4520 lapack_int* info
4521#ifdef LAPACK_FORTRAN_STRLEN_END
4522 , size_t, size_t, size_t
4523#endif
4524);
4525#ifdef LAPACK_FORTRAN_STRLEN_END
4526 #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__, 1, 1, 1)
4527#else
4528 #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__)
4529#endif
4530
4531#define LAPACK_zgges3_base LAPACK_GLOBAL(zgges3,ZGGES3)
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,
4543 lapack_int* info
4544#ifdef LAPACK_FORTRAN_STRLEN_END
4545 , size_t, size_t, size_t
4546#endif
4547);
4548#ifdef LAPACK_FORTRAN_STRLEN_END
4549 #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__, 1, 1, 1)
4550#else
4551 #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__)
4552#endif
4553
4554#define LAPACK_cggesx_base LAPACK_GLOBAL(cggesx,CGGESX)
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,
4564 float* rconde,
4565 float* rcondv,
4566 lapack_complex_float* work, lapack_int const* lwork,
4567 float* rwork,
4568 lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
4569 lapack_int* info
4570#ifdef LAPACK_FORTRAN_STRLEN_END
4571 , size_t, size_t, size_t, size_t
4572#endif
4573);
4574#ifdef LAPACK_FORTRAN_STRLEN_END
4575 #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4576#else
4577 #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__)
4578#endif
4579
4580#define LAPACK_dggesx_base LAPACK_GLOBAL(dggesx,DGGESX)
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,
4586 double* alphar,
4587 double* alphai,
4588 double* beta,
4589 double* VSL, lapack_int const* ldvsl,
4590 double* VSR, lapack_int const* ldvsr,
4591 double* rconde,
4592 double* rcondv,
4593 double* work, lapack_int const* lwork,
4594 lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
4595 lapack_int* info
4596#ifdef LAPACK_FORTRAN_STRLEN_END
4597 , size_t, size_t, size_t, size_t
4598#endif
4599);
4600#ifdef LAPACK_FORTRAN_STRLEN_END
4601 #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4602#else
4603 #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__)
4604#endif
4605
4606#define LAPACK_sggesx_base LAPACK_GLOBAL(sggesx,SGGESX)
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,
4612 float* alphar,
4613 float* alphai,
4614 float* beta,
4615 float* VSL, lapack_int const* ldvsl,
4616 float* VSR, lapack_int const* ldvsr,
4617 float* rconde,
4618 float* rcondv,
4619 float* work, lapack_int const* lwork,
4620 lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
4621 lapack_int* info
4622#ifdef LAPACK_FORTRAN_STRLEN_END
4623 , size_t, size_t, size_t, size_t
4624#endif
4625);
4626#ifdef LAPACK_FORTRAN_STRLEN_END
4627 #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4628#else
4629 #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__)
4630#endif
4631
4632#define LAPACK_zggesx_base LAPACK_GLOBAL(zggesx,ZGGESX)
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,
4642 double* rconde,
4643 double* rcondv,
4644 lapack_complex_double* work, lapack_int const* lwork,
4645 double* rwork,
4646 lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
4647 lapack_int* info
4648#ifdef LAPACK_FORTRAN_STRLEN_END
4649 , size_t, size_t, size_t, size_t
4650#endif
4651);
4652#ifdef LAPACK_FORTRAN_STRLEN_END
4653 #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4654#else
4655 #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__)
4656#endif
4657
4658#define LAPACK_cggev_base LAPACK_GLOBAL(cggev,CGGEV)
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,
4669 float* rwork,
4670 lapack_int* info
4671#ifdef LAPACK_FORTRAN_STRLEN_END
4672 , size_t, size_t
4673#endif
4674);
4675#ifdef LAPACK_FORTRAN_STRLEN_END
4676 #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__, 1, 1)
4677#else
4678 #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__)
4679#endif
4680
4681#define LAPACK_dggev_base LAPACK_GLOBAL(dggev,DGGEV)
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,
4687 double* alphar,
4688 double* alphai,
4689 double* beta,
4690 double* VL, lapack_int const* ldvl,
4691 double* VR, lapack_int const* ldvr,
4692 double* work, lapack_int const* lwork,
4693 lapack_int* info
4694#ifdef LAPACK_FORTRAN_STRLEN_END
4695 , size_t, size_t
4696#endif
4697);
4698#ifdef LAPACK_FORTRAN_STRLEN_END
4699 #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__, 1, 1)
4700#else
4701 #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__)
4702#endif
4703
4704#define LAPACK_sggev_base LAPACK_GLOBAL(sggev,SGGEV)
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,
4710 float* alphar,
4711 float* alphai,
4712 float* beta,
4713 float* VL, lapack_int const* ldvl,
4714 float* VR, lapack_int const* ldvr,
4715 float* work, lapack_int const* lwork,
4716 lapack_int* info
4717#ifdef LAPACK_FORTRAN_STRLEN_END
4718 , size_t, size_t
4719#endif
4720);
4721#ifdef LAPACK_FORTRAN_STRLEN_END
4722 #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__, 1, 1)
4723#else
4724 #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__)
4725#endif
4726
4727#define LAPACK_zggev_base LAPACK_GLOBAL(zggev,ZGGEV)
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,
4738 double* rwork,
4739 lapack_int* info
4740#ifdef LAPACK_FORTRAN_STRLEN_END
4741 , size_t, size_t
4742#endif
4743);
4744#ifdef LAPACK_FORTRAN_STRLEN_END
4745 #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__, 1, 1)
4746#else
4747 #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__)
4748#endif
4749
4750#define LAPACK_cggev3_base LAPACK_GLOBAL(cggev3,CGGEV3)
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,
4761 float* rwork,
4762 lapack_int* info
4763#ifdef LAPACK_FORTRAN_STRLEN_END
4764 , size_t, size_t
4765#endif
4766);
4767#ifdef LAPACK_FORTRAN_STRLEN_END
4768 #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__, 1, 1)
4769#else
4770 #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__)
4771#endif
4772
4773#define LAPACK_dggev3_base LAPACK_GLOBAL(dggev3,DGGEV3)
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,
4779 double* alphar,
4780 double* alphai,
4781 double* beta,
4782 double* VL, lapack_int const* ldvl,
4783 double* VR, lapack_int const* ldvr,
4784 double* work, lapack_int const* lwork,
4785 lapack_int* info
4786#ifdef LAPACK_FORTRAN_STRLEN_END
4787 , size_t, size_t
4788#endif
4789);
4790#ifdef LAPACK_FORTRAN_STRLEN_END
4791 #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__, 1, 1)
4792#else
4793 #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__)
4794#endif
4795
4796#define LAPACK_sggev3_base LAPACK_GLOBAL(sggev3,SGGEV3)
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,
4802 float* alphar,
4803 float* alphai,
4804 float* beta,
4805 float* VL, lapack_int const* ldvl,
4806 float* VR, lapack_int const* ldvr,
4807 float* work, lapack_int const* lwork,
4808 lapack_int* info
4809#ifdef LAPACK_FORTRAN_STRLEN_END
4810 , size_t, size_t
4811#endif
4812);
4813#ifdef LAPACK_FORTRAN_STRLEN_END
4814 #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__, 1, 1)
4815#else
4816 #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__)
4817#endif
4818
4819#define LAPACK_zggev3_base LAPACK_GLOBAL(zggev3,ZGGEV3)
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,
4830 double* rwork,
4831 lapack_int* info
4832#ifdef LAPACK_FORTRAN_STRLEN_END
4833 , size_t, size_t
4834#endif
4835);
4836#ifdef LAPACK_FORTRAN_STRLEN_END
4837 #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__, 1, 1)
4838#else
4839 #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__)
4840#endif
4841
4842#define LAPACK_cggevx_base LAPACK_GLOBAL(cggevx,CGGEVX)
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,
4852 float* lscale,
4853 float* rscale,
4854 float* abnrm,
4855 float* bbnrm,
4856 float* rconde,
4857 float* rcondv,
4858 lapack_complex_float* work, lapack_int const* lwork,
4859 float* rwork,
4860 lapack_int* iwork, lapack_logical* BWORK,
4861 lapack_int* info
4862#ifdef LAPACK_FORTRAN_STRLEN_END
4863 , size_t, size_t, size_t, size_t
4864#endif
4865);
4866#ifdef LAPACK_FORTRAN_STRLEN_END
4867 #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4868#else
4869 #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__)
4870#endif
4871
4872#define LAPACK_dggevx_base LAPACK_GLOBAL(dggevx,DGGEVX)
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,
4878 double* alphar,
4879 double* alphai,
4880 double* beta,
4881 double* VL, lapack_int const* ldvl,
4882 double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
4883 double* lscale,
4884 double* rscale,
4885 double* abnrm,
4886 double* bbnrm,
4887 double* rconde,
4888 double* rcondv,
4889 double* work, lapack_int const* lwork,
4890 lapack_int* iwork, lapack_logical* BWORK,
4891 lapack_int* info
4892#ifdef LAPACK_FORTRAN_STRLEN_END
4893 , size_t, size_t, size_t, size_t
4894#endif
4895);
4896#ifdef LAPACK_FORTRAN_STRLEN_END
4897 #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4898#else
4899 #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__)
4900#endif
4901
4902#define LAPACK_sggevx_base LAPACK_GLOBAL(sggevx,SGGEVX)
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,
4908 float* alphar,
4909 float* alphai,
4910 float* beta,
4911 float* VL, lapack_int const* ldvl,
4912 float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
4913 float* lscale,
4914 float* rscale,
4915 float* abnrm,
4916 float* bbnrm,
4917 float* rconde,
4918 float* rcondv,
4919 float* work, lapack_int const* lwork,
4920 lapack_int* iwork, lapack_logical* BWORK,
4921 lapack_int* info
4922#ifdef LAPACK_FORTRAN_STRLEN_END
4923 , size_t, size_t, size_t, size_t
4924#endif
4925);
4926#ifdef LAPACK_FORTRAN_STRLEN_END
4927 #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4928#else
4929 #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__)
4930#endif
4931
4932#define LAPACK_zggevx_base LAPACK_GLOBAL(zggevx,ZGGEVX)
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,
4942 double* lscale,
4943 double* rscale,
4944 double* abnrm,
4945 double* bbnrm,
4946 double* rconde,
4947 double* rcondv,
4948 lapack_complex_double* work, lapack_int const* lwork,
4949 double* rwork,
4950 lapack_int* iwork, lapack_logical* BWORK,
4951 lapack_int* info
4952#ifdef LAPACK_FORTRAN_STRLEN_END
4953 , size_t, size_t, size_t, size_t
4954#endif
4955);
4956#ifdef LAPACK_FORTRAN_STRLEN_END
4957 #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4958#else
4959 #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__)
4960#endif
4961
4962#define LAPACK_cggglm LAPACK_GLOBAL(cggglm,CGGGLM)
4963void LAPACK_cggglm(
4964 lapack_int const* n, lapack_int const* m, lapack_int const* p,
4965 lapack_complex_float* A, lapack_int const* lda,
4966 lapack_complex_float* B, lapack_int const* ldb,
4967 lapack_complex_float* D,
4968 lapack_complex_float* X,
4969 lapack_complex_float* Y,
4970 lapack_complex_float* work, lapack_int const* lwork,
4971 lapack_int* info );
4972
4973#define LAPACK_dggglm LAPACK_GLOBAL(dggglm,DGGGLM)
4974void LAPACK_dggglm(
4975 lapack_int const* n, lapack_int const* m, lapack_int const* p,
4976 double* A, lapack_int const* lda,
4977 double* B, lapack_int const* ldb,
4978 double* D,
4979 double* X,
4980 double* Y,
4981 double* work, lapack_int const* lwork,
4982 lapack_int* info );
4983
4984#define LAPACK_sggglm LAPACK_GLOBAL(sggglm,SGGGLM)
4985void LAPACK_sggglm(
4986 lapack_int const* n, lapack_int const* m, lapack_int const* p,
4987 float* A, lapack_int const* lda,
4988 float* B, lapack_int const* ldb,
4989 float* D,
4990 float* X,
4991 float* Y,
4992 float* work, lapack_int const* lwork,
4993 lapack_int* info );
4994
4995#define LAPACK_zggglm LAPACK_GLOBAL(zggglm,ZGGGLM)
4996void LAPACK_zggglm(
4997 lapack_int const* n, lapack_int const* m, lapack_int const* p,
4998 lapack_complex_double* A, lapack_int const* lda,
4999 lapack_complex_double* B, lapack_int const* ldb,
5000 lapack_complex_double* D,
5001 lapack_complex_double* X,
5002 lapack_complex_double* Y,
5003 lapack_complex_double* work, lapack_int const* lwork,
5004 lapack_int* info );
5005
5006#define LAPACK_cgghd3_base LAPACK_GLOBAL(cgghd3,CGGHD3)
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,
5015 lapack_int* info
5016#ifdef LAPACK_FORTRAN_STRLEN_END
5017 , size_t, size_t
5018#endif
5019);
5020#ifdef LAPACK_FORTRAN_STRLEN_END
5021 #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__, 1, 1)
5022#else
5023 #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__)
5024#endif
5025
5026#define LAPACK_dgghd3_base LAPACK_GLOBAL(dgghd3,DGGHD3)
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,
5035 lapack_int* info
5036#ifdef LAPACK_FORTRAN_STRLEN_END
5037 , size_t, size_t
5038#endif
5039);
5040#ifdef LAPACK_FORTRAN_STRLEN_END
5041 #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__, 1, 1)
5042#else
5043 #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__)
5044#endif
5045
5046#define LAPACK_sgghd3_base LAPACK_GLOBAL(sgghd3,SGGHD3)
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,
5055 lapack_int* info
5056#ifdef LAPACK_FORTRAN_STRLEN_END
5057 , size_t, size_t
5058#endif
5059);
5060#ifdef LAPACK_FORTRAN_STRLEN_END
5061 #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__, 1, 1)
5062#else
5063 #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__)
5064#endif
5065
5066#define LAPACK_zgghd3_base LAPACK_GLOBAL(zgghd3,ZGGHD3)
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,
5075 lapack_int* info
5076#ifdef LAPACK_FORTRAN_STRLEN_END
5077 , size_t, size_t
5078#endif
5079);
5080#ifdef LAPACK_FORTRAN_STRLEN_END
5081 #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__, 1, 1)
5082#else
5083 #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__)
5084#endif
5085
5086#define LAPACK_cgghrd_base LAPACK_GLOBAL(cgghrd,CGGHRD)
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,
5094 lapack_int* info
5095#ifdef LAPACK_FORTRAN_STRLEN_END
5096 , size_t, size_t
5097#endif
5098);
5099#ifdef LAPACK_FORTRAN_STRLEN_END
5100 #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__, 1, 1)
5101#else
5102 #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__)
5103#endif
5104
5105#define LAPACK_dgghrd_base LAPACK_GLOBAL(dgghrd,DGGHRD)
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,
5113 lapack_int* info
5114#ifdef LAPACK_FORTRAN_STRLEN_END
5115 , size_t, size_t
5116#endif
5117);
5118#ifdef LAPACK_FORTRAN_STRLEN_END
5119 #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__, 1, 1)
5120#else
5121 #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__)
5122#endif
5123
5124#define LAPACK_sgghrd_base LAPACK_GLOBAL(sgghrd,SGGHRD)
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,
5132 lapack_int* info
5133#ifdef LAPACK_FORTRAN_STRLEN_END
5134 , size_t, size_t
5135#endif
5136);
5137#ifdef LAPACK_FORTRAN_STRLEN_END
5138 #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__, 1, 1)
5139#else
5140 #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__)
5141#endif
5142
5143#define LAPACK_zgghrd_base LAPACK_GLOBAL(zgghrd,ZGGHRD)
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,
5151 lapack_int* info
5152#ifdef LAPACK_FORTRAN_STRLEN_END
5153 , size_t, size_t
5154#endif
5155);
5156#ifdef LAPACK_FORTRAN_STRLEN_END
5157 #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__, 1, 1)
5158#else
5159 #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__)
5160#endif
5161
5162#define LAPACK_cgglse LAPACK_GLOBAL(cgglse,CGGLSE)
5163void LAPACK_cgglse(
5164 lapack_int const* m, lapack_int const* n, lapack_int const* p,
5165 lapack_complex_float* A, lapack_int const* lda,
5166 lapack_complex_float* B, lapack_int const* ldb,
5167 lapack_complex_float* C,
5168 lapack_complex_float* D,
5169 lapack_complex_float* X,
5170 lapack_complex_float* work, lapack_int const* lwork,
5171 lapack_int* info );
5172
5173#define LAPACK_dgglse LAPACK_GLOBAL(dgglse,DGGLSE)
5174void LAPACK_dgglse(
5175 lapack_int const* m, lapack_int const* n, lapack_int const* p,
5176 double* A, lapack_int const* lda,
5177 double* B, lapack_int const* ldb,
5178 double* C,
5179 double* D,
5180 double* X,
5181 double* work, lapack_int const* lwork,
5182 lapack_int* info );
5183
5184#define LAPACK_sgglse LAPACK_GLOBAL(sgglse,SGGLSE)
5185void LAPACK_sgglse(
5186 lapack_int const* m, lapack_int const* n, lapack_int const* p,
5187 float* A, lapack_int const* lda,
5188 float* B, lapack_int const* ldb,
5189 float* C,
5190 float* D,
5191 float* X,
5192 float* work, lapack_int const* lwork,
5193 lapack_int* info );
5194
5195#define LAPACK_zgglse LAPACK_GLOBAL(zgglse,ZGGLSE)
5196void LAPACK_zgglse(
5197 lapack_int const* m, lapack_int const* n, lapack_int const* p,
5198 lapack_complex_double* A, lapack_int const* lda,
5199 lapack_complex_double* B, lapack_int const* ldb,
5200 lapack_complex_double* C,
5201 lapack_complex_double* D,
5202 lapack_complex_double* X,
5203 lapack_complex_double* work, lapack_int const* lwork,
5204 lapack_int* info );
5205
5206#define LAPACK_cggqrf LAPACK_GLOBAL(cggqrf,CGGQRF)
5207void LAPACK_cggqrf(
5208 lapack_int const* n, lapack_int const* m, lapack_int const* p,
5209 lapack_complex_float* A, lapack_int const* lda,
5210 lapack_complex_float* taua,
5211 lapack_complex_float* B, lapack_int const* ldb,
5212 lapack_complex_float* taub,
5213 lapack_complex_float* work, lapack_int const* lwork,
5214 lapack_int* info );
5215
5216#define LAPACK_dggqrf LAPACK_GLOBAL(dggqrf,DGGQRF)
5217void LAPACK_dggqrf(
5218 lapack_int const* n, lapack_int const* m, lapack_int const* p,
5219 double* A, lapack_int const* lda,
5220 double* taua,
5221 double* B, lapack_int const* ldb,
5222 double* taub,
5223 double* work, lapack_int const* lwork,
5224 lapack_int* info );
5225
5226#define LAPACK_sggqrf LAPACK_GLOBAL(sggqrf,SGGQRF)
5227void LAPACK_sggqrf(
5228 lapack_int const* n, lapack_int const* m, lapack_int const* p,
5229 float* A, lapack_int const* lda,
5230 float* taua,
5231 float* B, lapack_int const* ldb,
5232 float* taub,
5233 float* work, lapack_int const* lwork,
5234 lapack_int* info );
5235
5236#define LAPACK_zggqrf LAPACK_GLOBAL(zggqrf,ZGGQRF)
5237void LAPACK_zggqrf(
5238 lapack_int const* n, lapack_int const* m, lapack_int const* p,
5239 lapack_complex_double* A, lapack_int const* lda,
5240 lapack_complex_double* taua,
5241 lapack_complex_double* B, lapack_int const* ldb,
5242 lapack_complex_double* taub,
5243 lapack_complex_double* work, lapack_int const* lwork,
5244 lapack_int* info );
5245
5246#define LAPACK_cggrqf LAPACK_GLOBAL(cggrqf,CGGRQF)
5247void LAPACK_cggrqf(
5248 lapack_int const* m, lapack_int const* p, lapack_int const* n,
5249 lapack_complex_float* A, lapack_int const* lda,
5250 lapack_complex_float* taua,
5251 lapack_complex_float* B, lapack_int const* ldb,
5252 lapack_complex_float* taub,
5253 lapack_complex_float* work, lapack_int const* lwork,
5254 lapack_int* info );
5255
5256#define LAPACK_dggrqf LAPACK_GLOBAL(dggrqf,DGGRQF)
5257void LAPACK_dggrqf(
5258 lapack_int const* m, lapack_int const* p, lapack_int const* n,
5259 double* A, lapack_int const* lda,
5260 double* taua,
5261 double* B, lapack_int const* ldb,
5262 double* taub,
5263 double* work, lapack_int const* lwork,
5264 lapack_int* info );
5265
5266#define LAPACK_sggrqf LAPACK_GLOBAL(sggrqf,SGGRQF)
5267void LAPACK_sggrqf(
5268 lapack_int const* m, lapack_int const* p, lapack_int const* n,
5269 float* A, lapack_int const* lda,
5270 float* taua,
5271 float* B, lapack_int const* ldb,
5272 float* taub,
5273 float* work, lapack_int const* lwork,
5274 lapack_int* info );
5275
5276#define LAPACK_zggrqf LAPACK_GLOBAL(zggrqf,ZGGRQF)
5277void LAPACK_zggrqf(
5278 lapack_int const* m, lapack_int const* p, lapack_int const* n,
5279 lapack_complex_double* A, lapack_int const* lda,
5280 lapack_complex_double* taua,
5281 lapack_complex_double* B, lapack_int const* ldb,
5282 lapack_complex_double* taub,
5283 lapack_complex_double* work, lapack_int const* lwork,
5284 lapack_int* info );
5285
5286#define LAPACK_cggsvd_base LAPACK_GLOBAL(cggsvd,CGGSVD)
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
5301#endif
5302);
5303#ifdef LAPACK_FORTRAN_STRLEN_END
5304 #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__, 1, 1, 1)
5305#else
5306 #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__)
5307#endif
5308
5309#define LAPACK_sggsvd_base LAPACK_GLOBAL(sggsvd,SGGSVD)
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
5323#endif
5324);
5325#ifdef LAPACK_FORTRAN_STRLEN_END
5326 #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__, 1, 1, 1)
5327#else
5328 #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__)
5329#endif
5330
5331#define LAPACK_dggsvd_base LAPACK_GLOBAL(dggsvd,DGGSVD)
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
5345#endif
5346);
5347#ifdef LAPACK_FORTRAN_STRLEN_END
5348 #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__, 1, 1, 1)
5349#else
5350 #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__)
5351#endif
5352
5353#define LAPACK_zggsvd_base LAPACK_GLOBAL(zggsvd,ZGGSVD)
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
5368#endif
5369);
5370#ifdef LAPACK_FORTRAN_STRLEN_END
5371 #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__, 1, 1, 1)
5372#else
5373 #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__)
5374#endif
5375
5376#define LAPACK_cggsvd3_base LAPACK_GLOBAL(cggsvd3,CGGSVD3)
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,
5382 float* alpha,
5383 float* beta,
5384 lapack_complex_float* U, lapack_int const* ldu,
5385 lapack_complex_float* V, lapack_int const* ldv,
5386 lapack_complex_float* Q, lapack_int const* ldq,
5387 lapack_complex_float* work, lapack_int const* lwork,
5388 float* rwork,
5389 lapack_int* iwork,
5390 lapack_int* info
5391#ifdef LAPACK_FORTRAN_STRLEN_END
5392 , size_t, size_t, size_t
5393#endif
5394);
5395#ifdef LAPACK_FORTRAN_STRLEN_END
5396 #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__, 1, 1, 1)
5397#else
5398 #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__)
5399#endif
5400
5401#define LAPACK_dggsvd3_base LAPACK_GLOBAL(dggsvd3,DGGSVD3)
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,
5407 double* alpha,
5408 double* beta,
5409 double* U, lapack_int const* ldu,
5410 double* V, lapack_int const* ldv,
5411 double* Q, lapack_int const* ldq,
5412 double* work, lapack_int const* lwork,
5413 lapack_int* iwork,
5414 lapack_int* info
5415#ifdef LAPACK_FORTRAN_STRLEN_END
5416 , size_t, size_t, size_t
5417#endif
5418);
5419#ifdef LAPACK_FORTRAN_STRLEN_END
5420 #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__, 1, 1, 1)
5421#else
5422 #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__)
5423#endif
5424
5425#define LAPACK_sggsvd3_base LAPACK_GLOBAL(sggsvd3,SGGSVD3)
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,
5431 float* alpha,
5432 float* beta,
5433 float* U, lapack_int const* ldu,
5434 float* V, lapack_int const* ldv,
5435 float* Q, lapack_int const* ldq,
5436 float* work, lapack_int const* lwork,
5437 lapack_int* iwork,
5438 lapack_int* info
5439#ifdef LAPACK_FORTRAN_STRLEN_END
5440 , size_t, size_t, size_t
5441#endif
5442);
5443#ifdef LAPACK_FORTRAN_STRLEN_END
5444 #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__, 1, 1, 1)
5445#else
5446 #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__)
5447#endif
5448
5449#define LAPACK_zggsvd3_base LAPACK_GLOBAL(zggsvd3,ZGGSVD3)
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,
5455 double* alpha,
5456 double* beta,
5457 lapack_complex_double* U, lapack_int const* ldu,
5458 lapack_complex_double* V, lapack_int const* ldv,
5459 lapack_complex_double* Q, lapack_int const* ldq,
5460 lapack_complex_double* work, lapack_int const* lwork,
5461 double* rwork,
5462 lapack_int* iwork,
5463 lapack_int* info
5464#ifdef LAPACK_FORTRAN_STRLEN_END
5465 , size_t, size_t, size_t
5466#endif
5467);
5468#ifdef LAPACK_FORTRAN_STRLEN_END
5469 #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__, 1, 1, 1)
5470#else
5471 #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__)
5472#endif
5473
5474#define LAPACK_sggsvp_base LAPACK_GLOBAL(sggsvp,SGGSVP)
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
5489#endif
5490);
5491#ifdef LAPACK_FORTRAN_STRLEN_END
5492 #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__, 1, 1, 1)
5493#else
5494 #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__)
5495#endif
5496
5497#define LAPACK_dggsvp_base LAPACK_GLOBAL(dggsvp,DGGSVP)
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
5512#endif
5513);
5514#ifdef LAPACK_FORTRAN_STRLEN_END
5515 #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__, 1, 1, 1)
5516#else
5517 #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__)
5518#endif
5519
5520#define LAPACK_cggsvp_base LAPACK_GLOBAL(cggsvp,CGGSVP)
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
5534#endif
5535);
5536#ifdef LAPACK_FORTRAN_STRLEN_END
5537 #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__, 1, 1, 1)
5538#else
5539 #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__)
5540#endif
5541
5542#define LAPACK_zggsvp_base LAPACK_GLOBAL(zggsvp,ZGGSVP)
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
5556#endif
5557);
5558#ifdef LAPACK_FORTRAN_STRLEN_END
5559 #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__, 1, 1, 1)
5560#else
5561 #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__)
5562#endif
5563
5564#define LAPACK_cggsvp3_base LAPACK_GLOBAL(cggsvp3,CGGSVP3)
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,
5570 float const* tola,
5571 float const* tolb, lapack_int* k, lapack_int* l,
5572 lapack_complex_float* U, lapack_int const* ldu,
5573 lapack_complex_float* V, lapack_int const* ldv,
5574 lapack_complex_float* Q, lapack_int const* ldq,
5575 lapack_int* iwork,
5576 float* rwork,
5577 lapack_complex_float* tau,
5578 lapack_complex_float* work, lapack_int const* lwork,
5579 lapack_int* info
5580#ifdef LAPACK_FORTRAN_STRLEN_END
5581 , size_t, size_t, size_t
5582#endif
5583);
5584#ifdef LAPACK_FORTRAN_STRLEN_END
5585 #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__, 1, 1, 1)
5586#else
5587 #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__)
5588#endif
5589
5590#define LAPACK_dggsvp3_base LAPACK_GLOBAL(dggsvp3,DGGSVP3)
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,
5596 double const* tola,
5597 double const* tolb, lapack_int* k, lapack_int* l,
5598 double* U, lapack_int const* ldu,
5599 double* V, lapack_int const* ldv,
5600 double* Q, lapack_int const* ldq,
5601 lapack_int* iwork,
5602 double* tau,
5603 double* work, lapack_int const* lwork,
5604 lapack_int* info
5605#ifdef LAPACK_FORTRAN_STRLEN_END
5606 , size_t, size_t, size_t
5607#endif
5608);
5609#ifdef LAPACK_FORTRAN_STRLEN_END
5610 #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__, 1, 1, 1)
5611#else
5612 #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__)
5613#endif
5614
5615#define LAPACK_sggsvp3_base LAPACK_GLOBAL(sggsvp3,SGGSVP3)
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,
5621 float const* tola,
5622 float const* tolb, lapack_int* k, lapack_int* l,
5623 float* U, lapack_int const* ldu,
5624 float* V, lapack_int const* ldv,
5625 float* Q, lapack_int const* ldq,
5626 lapack_int* iwork,
5627 float* tau,
5628 float* work, lapack_int const* lwork,
5629 lapack_int* info
5630#ifdef LAPACK_FORTRAN_STRLEN_END
5631 , size_t, size_t, size_t
5632#endif
5633);
5634#ifdef LAPACK_FORTRAN_STRLEN_END
5635 #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__, 1, 1, 1)
5636#else
5637 #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__)
5638#endif
5639
5640#define LAPACK_zggsvp3_base LAPACK_GLOBAL(zggsvp3,ZGGSVP3)
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,
5646 double const* tola,
5647 double const* tolb, lapack_int* k, lapack_int* l,
5648 lapack_complex_double* U, lapack_int const* ldu,
5649 lapack_complex_double* V, lapack_int const* ldv,
5650 lapack_complex_double* Q, lapack_int const* ldq,
5651 lapack_int* iwork,
5652 double* rwork,
5653 lapack_complex_double* tau,
5654 lapack_complex_double* work, lapack_int const* lwork,
5655 lapack_int* info
5656#ifdef LAPACK_FORTRAN_STRLEN_END
5657 , size_t, size_t, size_t
5658#endif
5659);
5660#ifdef LAPACK_FORTRAN_STRLEN_END
5661 #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__, 1, 1, 1)
5662#else
5663 #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__)
5664#endif
5665
5666#define LAPACK_cgtcon_base LAPACK_GLOBAL(cgtcon,CGTCON)
5667void LAPACK_cgtcon_base(
5668 char const* norm,
5669 lapack_int const* n,
5670 lapack_complex_float const* DL,
5671 lapack_complex_float const* D,
5672 lapack_complex_float const* DU,
5673 lapack_complex_float const* DU2, lapack_int const* ipiv,
5674 float const* anorm,
5675 float* rcond,
5676 lapack_complex_float* work,
5677 lapack_int* info
5678#ifdef LAPACK_FORTRAN_STRLEN_END
5679 , size_t
5680#endif
5681);
5682#ifdef LAPACK_FORTRAN_STRLEN_END
5683 #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__, 1)
5684#else
5685 #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__)
5686#endif
5687
5688#define LAPACK_dgtcon_base LAPACK_GLOBAL(dgtcon,DGTCON)
5689void LAPACK_dgtcon_base(
5690 char const* norm,
5691 lapack_int const* n,
5692 double const* DL,
5693 double const* D,
5694 double const* DU,
5695 double const* DU2, lapack_int const* ipiv,
5696 double const* anorm,
5697 double* rcond,
5698 double* work,
5699 lapack_int* iwork,
5700 lapack_int* info
5701#ifdef LAPACK_FORTRAN_STRLEN_END
5702 , size_t
5703#endif
5704);
5705#ifdef LAPACK_FORTRAN_STRLEN_END
5706 #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__, 1)
5707#else
5708 #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__)
5709#endif
5710
5711#define LAPACK_sgtcon_base LAPACK_GLOBAL(sgtcon,SGTCON)
5712void LAPACK_sgtcon_base(
5713 char const* norm,
5714 lapack_int const* n,
5715 float const* DL,
5716 float const* D,
5717 float const* DU,
5718 float const* DU2, lapack_int const* ipiv,
5719 float const* anorm,
5720 float* rcond,
5721 float* work,
5722 lapack_int* iwork,
5723 lapack_int* info
5724#ifdef LAPACK_FORTRAN_STRLEN_END
5725 , size_t
5726#endif
5727);
5728#ifdef LAPACK_FORTRAN_STRLEN_END
5729 #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__, 1)
5730#else
5731 #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__)
5732#endif
5733
5734#define LAPACK_zgtcon_base LAPACK_GLOBAL(zgtcon,ZGTCON)
5735void LAPACK_zgtcon_base(
5736 char const* norm,
5737 lapack_int const* n,
5738 lapack_complex_double const* DL,
5739 lapack_complex_double const* D,
5740 lapack_complex_double const* DU,
5741 lapack_complex_double const* DU2, lapack_int const* ipiv,
5742 double const* anorm,
5743 double* rcond,
5744 lapack_complex_double* work,
5745 lapack_int* info
5746#ifdef LAPACK_FORTRAN_STRLEN_END
5747 , size_t
5748#endif
5749);
5750#ifdef LAPACK_FORTRAN_STRLEN_END
5751 #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__, 1)
5752#else
5753 #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__)
5754#endif
5755
5756#define LAPACK_cgtrfs_base LAPACK_GLOBAL(cgtrfs,CGTRFS)
5757void LAPACK_cgtrfs_base(
5758 char const* trans,
5759 lapack_int const* n, lapack_int const* nrhs,
5760 lapack_complex_float const* DL,
5761 lapack_complex_float const* D,
5762 lapack_complex_float const* DU,
5763 lapack_complex_float const* DLF,
5764 lapack_complex_float const* DF,
5765 lapack_complex_float const* DUF,
5766 lapack_complex_float const* DU2, lapack_int const* ipiv,
5767 lapack_complex_float const* B, lapack_int const* ldb,
5768 lapack_complex_float* X, lapack_int const* ldx,
5769 float* ferr,
5770 float* berr,
5771 lapack_complex_float* work,
5772 float* rwork,
5773 lapack_int* info
5774#ifdef LAPACK_FORTRAN_STRLEN_END
5775 , size_t
5776#endif
5777);
5778#ifdef LAPACK_FORTRAN_STRLEN_END
5779 #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__, 1)
5780#else
5781 #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__)
5782#endif
5783
5784#define LAPACK_dgtrfs_base LAPACK_GLOBAL(dgtrfs,DGTRFS)
5785void LAPACK_dgtrfs_base(
5786 char const* trans,
5787 lapack_int const* n, lapack_int const* nrhs,
5788 double const* DL,
5789 double const* D,
5790 double const* DU,
5791 double const* DLF,
5792 double const* DF,
5793 double const* DUF,
5794 double const* DU2, lapack_int const* ipiv,
5795 double const* B, lapack_int const* ldb,
5796 double* X, lapack_int const* ldx,
5797 double* ferr,
5798 double* berr,
5799 double* work,
5800 lapack_int* iwork,
5801 lapack_int* info
5802#ifdef LAPACK_FORTRAN_STRLEN_END
5803 , size_t
5804#endif
5805);
5806#ifdef LAPACK_FORTRAN_STRLEN_END
5807 #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__, 1)
5808#else
5809 #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__)
5810#endif
5811
5812#define LAPACK_sgtrfs_base LAPACK_GLOBAL(sgtrfs,SGTRFS)
5813void LAPACK_sgtrfs_base(
5814 char const* trans,
5815 lapack_int const* n, lapack_int const* nrhs,
5816 float const* DL,
5817 float const* D,
5818 float const* DU,
5819 float const* DLF,
5820 float const* DF,
5821 float const* DUF,
5822 float const* DU2, lapack_int const* ipiv,
5823 float const* B, lapack_int const* ldb,
5824 float* X, lapack_int const* ldx,
5825 float* ferr,
5826 float* berr,
5827 float* work,
5828 lapack_int* iwork,
5829 lapack_int* info
5830#ifdef LAPACK_FORTRAN_STRLEN_END
5831 , size_t
5832#endif
5833);
5834#ifdef LAPACK_FORTRAN_STRLEN_END
5835 #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__, 1)
5836#else
5837 #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__)
5838#endif
5839
5840#define LAPACK_zgtrfs_base LAPACK_GLOBAL(zgtrfs,ZGTRFS)
5841void LAPACK_zgtrfs_base(
5842 char const* trans,
5843 lapack_int const* n, lapack_int const* nrhs,
5844 lapack_complex_double const* DL,
5845 lapack_complex_double const* D,
5846 lapack_complex_double const* DU,
5847 lapack_complex_double const* DLF,
5848 lapack_complex_double const* DF,
5849 lapack_complex_double const* DUF,
5850 lapack_complex_double const* DU2, lapack_int const* ipiv,
5851 lapack_complex_double const* B, lapack_int const* ldb,
5852 lapack_complex_double* X, lapack_int const* ldx,
5853 double* ferr,
5854 double* berr,
5855 lapack_complex_double* work,
5856 double* rwork,
5857 lapack_int* info
5858#ifdef LAPACK_FORTRAN_STRLEN_END
5859 , size_t
5860#endif
5861);
5862#ifdef LAPACK_FORTRAN_STRLEN_END
5863 #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__, 1)
5864#else
5865 #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__)
5866#endif
5867
5868#define LAPACK_cgtsv LAPACK_GLOBAL(cgtsv,CGTSV)
5869void LAPACK_cgtsv(
5870 lapack_int const* n, lapack_int const* nrhs,
5871 lapack_complex_float* DL,
5872 lapack_complex_float* D,
5873 lapack_complex_float* DU,
5874 lapack_complex_float* B, lapack_int const* ldb,
5875 lapack_int* info );
5876
5877#define LAPACK_dgtsv LAPACK_GLOBAL(dgtsv,DGTSV)
5878void LAPACK_dgtsv(
5879 lapack_int const* n, lapack_int const* nrhs,
5880 double* DL,
5881 double* D,
5882 double* DU,
5883 double* B, lapack_int const* ldb,
5884 lapack_int* info );
5885
5886#define LAPACK_sgtsv LAPACK_GLOBAL(sgtsv,SGTSV)
5887void LAPACK_sgtsv(
5888 lapack_int const* n, lapack_int const* nrhs,
5889 float* DL,
5890 float* D,
5891 float* DU,
5892 float* B, lapack_int const* ldb,
5893 lapack_int* info );
5894
5895#define LAPACK_zgtsv LAPACK_GLOBAL(zgtsv,ZGTSV)
5896void LAPACK_zgtsv(
5897 lapack_int const* n, lapack_int const* nrhs,
5898 lapack_complex_double* DL,
5899 lapack_complex_double* D,
5900 lapack_complex_double* DU,
5901 lapack_complex_double* B, lapack_int const* ldb,
5902 lapack_int* info );
5903
5904#define LAPACK_cgtsvx_base LAPACK_GLOBAL(cgtsvx,CGTSVX)
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,
5917 float* rcond,
5918 float* ferr,
5919 float* berr,
5920 lapack_complex_float* work,
5921 float* rwork,
5922 lapack_int* info
5923#ifdef LAPACK_FORTRAN_STRLEN_END
5924 , size_t, size_t
5925#endif
5926);
5927#ifdef LAPACK_FORTRAN_STRLEN_END
5928 #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__, 1, 1)
5929#else
5930 #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__)
5931#endif
5932
5933#define LAPACK_dgtsvx_base LAPACK_GLOBAL(dgtsvx,DGTSVX)
5934void LAPACK_dgtsvx_base(
5935 char const* fact, char const* trans,
5936 lapack_int const* n, lapack_int const* nrhs,
5937 double const* DL,
5938 double const* D,
5939 double const* DU,
5940 double* DLF,
5941 double* DF,
5942 double* DUF,
5943 double* DU2, lapack_int* ipiv,
5944 double const* B, lapack_int const* ldb,
5945 double* X, lapack_int const* ldx,
5946 double* rcond,
5947 double* ferr,
5948 double* berr,
5949 double* work,
5950 lapack_int* iwork,
5951 lapack_int* info
5952#ifdef LAPACK_FORTRAN_STRLEN_END
5953 , size_t, size_t
5954#endif
5955);
5956#ifdef LAPACK_FORTRAN_STRLEN_END
5957 #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__, 1, 1)
5958#else
5959 #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__)
5960#endif
5961
5962#define LAPACK_sgtsvx_base LAPACK_GLOBAL(sgtsvx,SGTSVX)
5963void LAPACK_sgtsvx_base(
5964 char const* fact, char const* trans,
5965 lapack_int const* n, lapack_int const* nrhs,
5966 float const* DL,
5967 float const* D,
5968 float const* DU,
5969 float* DLF,
5970 float* DF,
5971 float* DUF,
5972 float* DU2, lapack_int* ipiv,
5973 float const* B, lapack_int const* ldb,
5974 float* X, lapack_int const* ldx,
5975 float* rcond,
5976 float* ferr,
5977 float* berr,
5978 float* work,
5979 lapack_int* iwork,
5980 lapack_int* info
5981#ifdef LAPACK_FORTRAN_STRLEN_END
5982 , size_t, size_t
5983#endif
5984);
5985#ifdef LAPACK_FORTRAN_STRLEN_END
5986 #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__, 1, 1)
5987#else
5988 #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__)
5989#endif
5990
5991#define LAPACK_zgtsvx_base LAPACK_GLOBAL(zgtsvx,ZGTSVX)
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,
6004 double* rcond,
6005 double* ferr,
6006 double* berr,
6007 lapack_complex_double* work,
6008 double* rwork,
6009 lapack_int* info
6010#ifdef LAPACK_FORTRAN_STRLEN_END
6011 , size_t, size_t
6012#endif
6013);
6014#ifdef LAPACK_FORTRAN_STRLEN_END
6015 #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__, 1, 1)
6016#else
6017 #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__)
6018#endif
6019
6020#define LAPACK_cgttrf LAPACK_GLOBAL(cgttrf,CGTTRF)
6021void LAPACK_cgttrf(
6022 lapack_int const* n,
6023 lapack_complex_float* DL,
6024 lapack_complex_float* D,
6025 lapack_complex_float* DU,
6026 lapack_complex_float* DU2, lapack_int* ipiv,
6027 lapack_int* info );
6028
6029#define LAPACK_dgttrf LAPACK_GLOBAL(dgttrf,DGTTRF)
6030void LAPACK_dgttrf(
6031 lapack_int const* n,
6032 double* DL,
6033 double* D,
6034 double* DU,
6035 double* DU2, lapack_int* ipiv,
6036 lapack_int* info );
6037
6038#define LAPACK_sgttrf LAPACK_GLOBAL(sgttrf,SGTTRF)
6039void LAPACK_sgttrf(
6040 lapack_int const* n,
6041 float* DL,
6042 float* D,
6043 float* DU,
6044 float* DU2, lapack_int* ipiv,
6045 lapack_int* info );
6046
6047#define LAPACK_zgttrf LAPACK_GLOBAL(zgttrf,ZGTTRF)
6048void LAPACK_zgttrf(
6049 lapack_int const* n,
6050 lapack_complex_double* DL,
6051 lapack_complex_double* D,
6052 lapack_complex_double* DU,
6053 lapack_complex_double* DU2, lapack_int* ipiv,
6054 lapack_int* info );
6055
6056#define LAPACK_cgttrs_base LAPACK_GLOBAL(cgttrs,CGTTRS)
6057void LAPACK_cgttrs_base(
6058 char const* trans,
6059 lapack_int const* n, lapack_int const* nrhs,
6060 lapack_complex_float const* DL,
6061 lapack_complex_float const* D,
6062 lapack_complex_float const* DU,
6063 lapack_complex_float const* DU2, lapack_int const* ipiv,
6064 lapack_complex_float* B, lapack_int const* ldb,
6065 lapack_int* info
6066#ifdef LAPACK_FORTRAN_STRLEN_END
6067 , size_t
6068#endif
6069);
6070#ifdef LAPACK_FORTRAN_STRLEN_END
6071 #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__, 1)
6072#else
6073 #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__)
6074#endif
6075
6076#define LAPACK_dgttrs_base LAPACK_GLOBAL(dgttrs,DGTTRS)
6077void LAPACK_dgttrs_base(
6078 char const* trans,
6079 lapack_int const* n, lapack_int const* nrhs,
6080 double const* DL,
6081 double const* D,
6082 double const* DU,
6083 double const* DU2, lapack_int const* ipiv,
6084 double* B, lapack_int const* ldb,
6085 lapack_int* info
6086#ifdef LAPACK_FORTRAN_STRLEN_END
6087 , size_t
6088#endif
6089);
6090#ifdef LAPACK_FORTRAN_STRLEN_END
6091 #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__, 1)
6092#else
6093 #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__)
6094#endif
6095
6096#define LAPACK_sgttrs_base LAPACK_GLOBAL(sgttrs,SGTTRS)
6097void LAPACK_sgttrs_base(
6098 char const* trans,
6099 lapack_int const* n, lapack_int const* nrhs,
6100 float const* DL,
6101 float const* D,
6102 float const* DU,
6103 float const* DU2, lapack_int const* ipiv,
6104 float* B, lapack_int const* ldb,
6105 lapack_int* info
6106#ifdef LAPACK_FORTRAN_STRLEN_END
6107 , size_t
6108#endif
6109);
6110#ifdef LAPACK_FORTRAN_STRLEN_END
6111 #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__, 1)
6112#else
6113 #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__)
6114#endif
6115
6116#define LAPACK_zgttrs_base LAPACK_GLOBAL(zgttrs,ZGTTRS)
6117void LAPACK_zgttrs_base(
6118 char const* trans,
6119 lapack_int const* n, lapack_int const* nrhs,
6120 lapack_complex_double const* DL,
6121 lapack_complex_double const* D,
6122 lapack_complex_double const* DU,
6123 lapack_complex_double const* DU2, lapack_int const* ipiv,
6124 lapack_complex_double* B, lapack_int const* ldb,
6125 lapack_int* info
6126#ifdef LAPACK_FORTRAN_STRLEN_END
6127 , size_t
6128#endif
6129);
6130#ifdef LAPACK_FORTRAN_STRLEN_END
6131 #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__, 1)
6132#else
6133 #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__)
6134#endif
6135
6136#define LAPACK_chbev_base LAPACK_GLOBAL(chbev,CHBEV)
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,
6141 float* W,
6142 lapack_complex_float* Z, lapack_int const* ldz,
6143 lapack_complex_float* work,
6144 float* rwork,
6145 lapack_int* info
6146#ifdef LAPACK_FORTRAN_STRLEN_END
6147 , size_t, size_t
6148#endif
6149);
6150#ifdef LAPACK_FORTRAN_STRLEN_END
6151 #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__, 1, 1)
6152#else
6153 #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__)
6154#endif
6155
6156#define LAPACK_zhbev_base LAPACK_GLOBAL(zhbev,ZHBEV)
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,
6161 double* W,
6162 lapack_complex_double* Z, lapack_int const* ldz,
6163 lapack_complex_double* work,
6164 double* rwork,
6165 lapack_int* info
6166#ifdef LAPACK_FORTRAN_STRLEN_END
6167 , size_t, size_t
6168#endif
6169);
6170#ifdef LAPACK_FORTRAN_STRLEN_END
6171 #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__, 1, 1)
6172#else
6173 #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__)
6174#endif
6175
6176#define LAPACK_chbev_2stage_base LAPACK_GLOBAL(chbev_2stage,CHBEV_2STAGE)
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,
6181 float* W,
6182 lapack_complex_float* Z, lapack_int const* ldz,
6183 lapack_complex_float* work, lapack_int const* lwork,
6184 float* rwork,
6185 lapack_int* info
6186#ifdef LAPACK_FORTRAN_STRLEN_END
6187 , size_t, size_t
6188#endif
6189);
6190#ifdef LAPACK_FORTRAN_STRLEN_END
6191 #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__, 1, 1)
6192#else
6193 #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__)
6194#endif
6195
6196#define LAPACK_zhbev_2stage_base LAPACK_GLOBAL(zhbev_2stage,ZHBEV_2STAGE)
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,
6201 double* W,
6202 lapack_complex_double* Z, lapack_int const* ldz,
6203 lapack_complex_double* work, lapack_int const* lwork,
6204 double* rwork,
6205 lapack_int* info
6206#ifdef LAPACK_FORTRAN_STRLEN_END
6207 , size_t, size_t
6208#endif
6209);
6210#ifdef LAPACK_FORTRAN_STRLEN_END
6211 #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__, 1, 1)
6212#else
6213 #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__)
6214#endif
6215
6216#define LAPACK_chbevd_base LAPACK_GLOBAL(chbevd,CHBEVD)
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,
6221 float* W,
6222 lapack_complex_float* Z, lapack_int const* ldz,
6223 lapack_complex_float* work, lapack_int const* lwork,
6224 float* rwork, lapack_int const* lrwork,
6225 lapack_int* iwork, lapack_int const* liwork,
6226 lapack_int* info
6227#ifdef LAPACK_FORTRAN_STRLEN_END
6228 , size_t, size_t
6229#endif
6230);
6231#ifdef LAPACK_FORTRAN_STRLEN_END
6232 #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__, 1, 1)
6233#else
6234 #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__)
6235#endif
6236
6237#define LAPACK_zhbevd_base LAPACK_GLOBAL(zhbevd,ZHBEVD)
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,
6242 double* W,
6243 lapack_complex_double* Z, lapack_int const* ldz,
6244 lapack_complex_double* work, lapack_int const* lwork,
6245 double* rwork, lapack_int const* lrwork,
6246 lapack_int* iwork, lapack_int const* liwork,
6247 lapack_int* info
6248#ifdef LAPACK_FORTRAN_STRLEN_END
6249 , size_t, size_t
6250#endif
6251);
6252#ifdef LAPACK_FORTRAN_STRLEN_END
6253 #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__, 1, 1)
6254#else
6255 #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__)
6256#endif
6257
6258#define LAPACK_chbevd_2stage_base LAPACK_GLOBAL(chbevd_2stage,CHBEVD_2STAGE)
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,
6263 float* W,
6264 lapack_complex_float* Z, lapack_int const* ldz,
6265 lapack_complex_float* work, lapack_int const* lwork,
6266 float* rwork, lapack_int const* lrwork,
6267 lapack_int* iwork, lapack_int const* liwork,
6268 lapack_int* info
6269#ifdef LAPACK_FORTRAN_STRLEN_END
6270 , size_t, size_t
6271#endif
6272);
6273#ifdef LAPACK_FORTRAN_STRLEN_END
6274 #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__, 1, 1)
6275#else
6276 #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__)
6277#endif
6278
6279#define LAPACK_zhbevd_2stage_base LAPACK_GLOBAL(zhbevd_2stage,ZHBEVD_2STAGE)
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,
6284 double* W,
6285 lapack_complex_double* Z, lapack_int const* ldz,
6286 lapack_complex_double* work, lapack_int const* lwork,
6287 double* rwork, lapack_int const* lrwork,
6288 lapack_int* iwork, lapack_int const* liwork,
6289 lapack_int* info
6290#ifdef LAPACK_FORTRAN_STRLEN_END
6291 , size_t, size_t
6292#endif
6293);
6294#ifdef LAPACK_FORTRAN_STRLEN_END
6295 #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__, 1, 1)
6296#else
6297 #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__)
6298#endif
6299
6300#define LAPACK_chbevx_base LAPACK_GLOBAL(chbevx,CHBEVX)
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,
6306 float const* vl,
6307 float const* vu, lapack_int const* il, lapack_int const* iu,
6308 float const* abstol, lapack_int* m,
6309 float* W,
6310 lapack_complex_float* Z, lapack_int const* ldz,
6311 lapack_complex_float* work,
6312 float* rwork,
6313 lapack_int* iwork, lapack_int* IFAIL,
6314 lapack_int* info
6315#ifdef LAPACK_FORTRAN_STRLEN_END
6316 , size_t, size_t, size_t
6317#endif
6318);
6319#ifdef LAPACK_FORTRAN_STRLEN_END
6320 #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__, 1, 1, 1)
6321#else
6322 #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__)
6323#endif
6324
6325#define LAPACK_zhbevx_base LAPACK_GLOBAL(zhbevx,ZHBEVX)
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,
6331 double const* vl,
6332 double const* vu, lapack_int const* il, lapack_int const* iu,
6333 double const* abstol, lapack_int* m,
6334 double* W,
6335 lapack_complex_double* Z, lapack_int const* ldz,
6336 lapack_complex_double* work,
6337 double* rwork,
6338 lapack_int* iwork, lapack_int* IFAIL,
6339 lapack_int* info
6340#ifdef LAPACK_FORTRAN_STRLEN_END
6341 , size_t, size_t, size_t
6342#endif
6343);
6344#ifdef LAPACK_FORTRAN_STRLEN_END
6345 #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__, 1, 1, 1)
6346#else
6347 #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__)
6348#endif
6349
6350#define LAPACK_chbevx_2stage_base LAPACK_GLOBAL(chbevx_2stage,CHBEVX_2STAGE)
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,
6356 float const* vl,
6357 float const* vu, lapack_int const* il, lapack_int const* iu,
6358 float const* abstol, lapack_int* m,
6359 float* W,
6360 lapack_complex_float* Z, lapack_int const* ldz,
6361 lapack_complex_float* work, lapack_int const* lwork,
6362 float* rwork,
6363 lapack_int* iwork, lapack_int* IFAIL,
6364 lapack_int* info
6365#ifdef LAPACK_FORTRAN_STRLEN_END
6366 , size_t, size_t, size_t
6367#endif
6368);
6369#ifdef LAPACK_FORTRAN_STRLEN_END
6370 #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
6371#else
6372 #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__)
6373#endif
6374
6375#define LAPACK_zhbevx_2stage_base LAPACK_GLOBAL(zhbevx_2stage,ZHBEVX_2STAGE)
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,
6381 double const* vl,
6382 double const* vu, lapack_int const* il, lapack_int const* iu,
6383 double const* abstol, lapack_int* m,
6384 double* W,
6385 lapack_complex_double* Z, lapack_int const* ldz,
6386 lapack_complex_double* work, lapack_int const* lwork,
6387 double* rwork,
6388 lapack_int* iwork, lapack_int* IFAIL,
6389 lapack_int* info
6390#ifdef LAPACK_FORTRAN_STRLEN_END
6391 , size_t, size_t, size_t
6392#endif
6393);
6394#ifdef LAPACK_FORTRAN_STRLEN_END
6395 #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
6396#else
6397 #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__)
6398#endif
6399
6400#define LAPACK_chbgst_base LAPACK_GLOBAL(chbgst,CHBGST)
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,
6408 float* rwork,
6409 lapack_int* info
6410#ifdef LAPACK_FORTRAN_STRLEN_END
6411 , size_t, size_t
6412#endif
6413);
6414#ifdef LAPACK_FORTRAN_STRLEN_END
6415 #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__, 1, 1)
6416#else
6417 #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__)
6418#endif
6419
6420#define LAPACK_zhbgst_base LAPACK_GLOBAL(zhbgst,ZHBGST)
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,
6428 double* rwork,
6429 lapack_int* info
6430#ifdef LAPACK_FORTRAN_STRLEN_END
6431 , size_t, size_t
6432#endif
6433);
6434#ifdef LAPACK_FORTRAN_STRLEN_END
6435 #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__, 1, 1)
6436#else
6437 #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__)
6438#endif
6439
6440#define LAPACK_chbgv_base LAPACK_GLOBAL(chbgv,CHBGV)
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,
6446 float* W,
6447 lapack_complex_float* Z, lapack_int const* ldz,
6448 lapack_complex_float* work,
6449 float* rwork,
6450 lapack_int* info
6451#ifdef LAPACK_FORTRAN_STRLEN_END
6452 , size_t, size_t
6453#endif
6454);
6455#ifdef LAPACK_FORTRAN_STRLEN_END
6456 #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__, 1, 1)
6457#else
6458 #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__)
6459#endif
6460
6461#define LAPACK_zhbgv_base LAPACK_GLOBAL(zhbgv,ZHBGV)
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,
6467 double* W,
6468 lapack_complex_double* Z, lapack_int const* ldz,
6469 lapack_complex_double* work,
6470 double* rwork,
6471 lapack_int* info
6472#ifdef LAPACK_FORTRAN_STRLEN_END
6473 , size_t, size_t
6474#endif
6475);
6476#ifdef LAPACK_FORTRAN_STRLEN_END
6477 #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__, 1, 1)
6478#else
6479 #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__)
6480#endif
6481
6482#define LAPACK_chbgvd_base LAPACK_GLOBAL(chbgvd,CHBGVD)
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,
6488 float* W,
6489 lapack_complex_float* Z, lapack_int const* ldz,
6490 lapack_complex_float* work, lapack_int const* lwork,
6491 float* rwork, lapack_int const* lrwork,
6492 lapack_int* iwork, lapack_int const* liwork,
6493 lapack_int* info
6494#ifdef LAPACK_FORTRAN_STRLEN_END
6495 , size_t, size_t
6496#endif
6497);
6498#ifdef LAPACK_FORTRAN_STRLEN_END
6499 #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__, 1, 1)
6500#else
6501 #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__)
6502#endif
6503
6504#define LAPACK_zhbgvd_base LAPACK_GLOBAL(zhbgvd,ZHBGVD)
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,
6510 double* W,
6511 lapack_complex_double* Z, lapack_int const* ldz,
6512 lapack_complex_double* work, lapack_int const* lwork,
6513 double* rwork, lapack_int const* lrwork,
6514 lapack_int* iwork, lapack_int const* liwork,
6515 lapack_int* info
6516#ifdef LAPACK_FORTRAN_STRLEN_END
6517 , size_t, size_t
6518#endif
6519);
6520#ifdef LAPACK_FORTRAN_STRLEN_END
6521 #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__, 1, 1)
6522#else
6523 #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__)
6524#endif
6525
6526#define LAPACK_chbgvx_base LAPACK_GLOBAL(chbgvx,CHBGVX)
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,
6533 float const* vl,
6534 float const* vu, lapack_int const* il, lapack_int const* iu,
6535 float const* abstol, lapack_int* m,
6536 float* W,
6537 lapack_complex_float* Z, lapack_int const* ldz,
6538 lapack_complex_float* work,
6539 float* rwork,
6540 lapack_int* iwork, lapack_int* IFAIL,
6541 lapack_int* info
6542#ifdef LAPACK_FORTRAN_STRLEN_END
6543 , size_t, size_t, size_t
6544#endif
6545);
6546#ifdef LAPACK_FORTRAN_STRLEN_END
6547 #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__, 1, 1, 1)
6548#else
6549 #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__)
6550#endif
6551
6552#define LAPACK_zhbgvx_base LAPACK_GLOBAL(zhbgvx,ZHBGVX)
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,
6559 double const* vl,
6560 double const* vu, lapack_int const* il, lapack_int const* iu,
6561 double const* abstol, lapack_int* m,
6562 double* W,
6563 lapack_complex_double* Z, lapack_int const* ldz,
6564 lapack_complex_double* work,
6565 double* rwork,
6566 lapack_int* iwork, lapack_int* IFAIL,
6567 lapack_int* info
6568#ifdef LAPACK_FORTRAN_STRLEN_END
6569 , size_t, size_t, size_t
6570#endif
6571);
6572#ifdef LAPACK_FORTRAN_STRLEN_END
6573 #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__, 1, 1, 1)
6574#else
6575 #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__)
6576#endif
6577
6578#define LAPACK_chbtrd_base LAPACK_GLOBAL(chbtrd,CHBTRD)
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,
6583 float* D,
6584 float* E,
6585 lapack_complex_float* Q, lapack_int const* ldq,
6586 lapack_complex_float* work,
6587 lapack_int* info
6588#ifdef LAPACK_FORTRAN_STRLEN_END
6589 , size_t, size_t
6590#endif
6591);
6592#ifdef LAPACK_FORTRAN_STRLEN_END
6593 #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__, 1, 1)
6594#else
6595 #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__)
6596#endif
6597
6598#define LAPACK_zhbtrd_base LAPACK_GLOBAL(zhbtrd,ZHBTRD)
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,
6603 double* D,
6604 double* E,
6605 lapack_complex_double* Q, lapack_int const* ldq,
6606 lapack_complex_double* work,
6607 lapack_int* info
6608#ifdef LAPACK_FORTRAN_STRLEN_END
6609 , size_t, size_t
6610#endif
6611);
6612#ifdef LAPACK_FORTRAN_STRLEN_END
6613 #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__, 1, 1)
6614#else
6615 #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__)
6616#endif
6617
6618#define LAPACK_checon_base LAPACK_GLOBAL(checon,CHECON)
6619void LAPACK_checon_base(
6620 char const* uplo,
6621 lapack_int const* n,
6622 lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
6623 float const* anorm,
6624 float* rcond,
6625 lapack_complex_float* work,
6626 lapack_int* info
6627#ifdef LAPACK_FORTRAN_STRLEN_END
6628 , size_t
6629#endif
6630);
6631#ifdef LAPACK_FORTRAN_STRLEN_END
6632 #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__, 1)
6633#else
6634 #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__)
6635#endif
6636
6637#define LAPACK_zhecon_base LAPACK_GLOBAL(zhecon,ZHECON)
6638void LAPACK_zhecon_base(
6639 char const* uplo,
6640 lapack_int const* n,
6641 lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
6642 double const* anorm,
6643 double* rcond,
6644 lapack_complex_double* work,
6645 lapack_int* info
6646#ifdef LAPACK_FORTRAN_STRLEN_END
6647 , size_t
6648#endif
6649);
6650#ifdef LAPACK_FORTRAN_STRLEN_END
6651 #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__, 1)
6652#else
6653 #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__)
6654#endif
6655
6656#define LAPACK_checon_3_base LAPACK_GLOBAL(checon_3,CHECON_3)
6657void LAPACK_checon_3_base(
6658 char const* uplo,
6659 lapack_int const* n,
6660 lapack_complex_float const* A, lapack_int const* lda,
6661 lapack_complex_float const* E, lapack_int const* ipiv,
6662 float const* anorm,
6663 float* rcond,
6664 lapack_complex_float* work,
6665 lapack_int* info
6666#ifdef LAPACK_FORTRAN_STRLEN_END
6667 , size_t
6668#endif
6669);
6670#ifdef LAPACK_FORTRAN_STRLEN_END
6671 #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__, 1)
6672#else
6673 #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__)
6674#endif
6675
6676#define LAPACK_zhecon_3_base LAPACK_GLOBAL(zhecon_3,ZHECON_3)
6677void LAPACK_zhecon_3_base(
6678 char const* uplo,
6679 lapack_int const* n,
6680 lapack_complex_double const* A, lapack_int const* lda,
6681 lapack_complex_double const* E, lapack_int const* ipiv,
6682 double const* anorm,
6683 double* rcond,
6684 lapack_complex_double* work,
6685 lapack_int* info
6686#ifdef LAPACK_FORTRAN_STRLEN_END
6687 , size_t
6688#endif
6689);
6690#ifdef LAPACK_FORTRAN_STRLEN_END
6691 #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__, 1)
6692#else
6693 #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__)
6694#endif
6695
6696#define LAPACK_cheequb_base LAPACK_GLOBAL(cheequb,CHEEQUB)
6697void LAPACK_cheequb_base(
6698 char const* uplo,
6699 lapack_int const* n,
6700 lapack_complex_float const* A, lapack_int const* lda,
6701 float* S,
6702 float* scond,
6703 float* amax,
6704 lapack_complex_float* work,
6705 lapack_int* info
6706#ifdef LAPACK_FORTRAN_STRLEN_END
6707 , size_t
6708#endif
6709);
6710#ifdef LAPACK_FORTRAN_STRLEN_END
6711 #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__, 1)
6712#else
6713 #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__)
6714#endif
6715
6716#define LAPACK_zheequb_base LAPACK_GLOBAL(zheequb,ZHEEQUB)
6717void LAPACK_zheequb_base(
6718 char const* uplo,
6719 lapack_int const* n,
6720 lapack_complex_double const* A, lapack_int const* lda,
6721 double* S,
6722 double* scond,
6723 double* amax,
6724 lapack_complex_double* work,
6725 lapack_int* info
6726#ifdef LAPACK_FORTRAN_STRLEN_END
6727 , size_t
6728#endif
6729);
6730#ifdef LAPACK_FORTRAN_STRLEN_END
6731 #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__, 1)
6732#else
6733 #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__)
6734#endif
6735
6736#define LAPACK_cheev_base LAPACK_GLOBAL(cheev,CHEEV)
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,
6741 float* W,
6742 lapack_complex_float* work, lapack_int const* lwork,
6743 float* rwork,
6744 lapack_int* info
6745#ifdef LAPACK_FORTRAN_STRLEN_END
6746 , size_t, size_t
6747#endif
6748);
6749#ifdef LAPACK_FORTRAN_STRLEN_END
6750 #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__, 1, 1)
6751#else
6752 #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__)
6753#endif
6754
6755#define LAPACK_zheev_base LAPACK_GLOBAL(zheev,ZHEEV)
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,
6760 double* W,
6761 lapack_complex_double* work, lapack_int const* lwork,
6762 double* rwork,
6763 lapack_int* info
6764#ifdef LAPACK_FORTRAN_STRLEN_END
6765 , size_t, size_t
6766#endif
6767);
6768#ifdef LAPACK_FORTRAN_STRLEN_END
6769 #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__, 1, 1)
6770#else
6771 #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__)
6772#endif
6773
6774#define LAPACK_cheev_2stage_base LAPACK_GLOBAL(cheev_2stage,CHEEV_2STAGE)
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,
6779 float* W,
6780 lapack_complex_float* work, lapack_int const* lwork,
6781 float* rwork,
6782 lapack_int* info
6783#ifdef LAPACK_FORTRAN_STRLEN_END
6784 , size_t, size_t
6785#endif
6786);
6787#ifdef LAPACK_FORTRAN_STRLEN_END
6788 #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__, 1, 1)
6789#else
6790 #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__)
6791#endif
6792
6793#define LAPACK_zheev_2stage_base LAPACK_GLOBAL(zheev_2stage,ZHEEV_2STAGE)
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,
6798 double* W,
6799 lapack_complex_double* work, lapack_int const* lwork,
6800 double* rwork,
6801 lapack_int* info
6802#ifdef LAPACK_FORTRAN_STRLEN_END
6803 , size_t, size_t
6804#endif
6805);
6806#ifdef LAPACK_FORTRAN_STRLEN_END
6807 #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__, 1, 1)
6808#else
6809 #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__)
6810#endif
6811
6812#define LAPACK_cheevd_base LAPACK_GLOBAL(cheevd,CHEEVD)
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,
6817 float* W,
6818 lapack_complex_float* work, lapack_int const* lwork,
6819 float* rwork, lapack_int const* lrwork,
6820 lapack_int* iwork, lapack_int const* liwork,
6821 lapack_int* info
6822#ifdef LAPACK_FORTRAN_STRLEN_END
6823 , size_t, size_t
6824#endif
6825);
6826#ifdef LAPACK_FORTRAN_STRLEN_END
6827 #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__, 1, 1)
6828#else
6829 #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__)
6830#endif
6831
6832#define LAPACK_zheevd_base LAPACK_GLOBAL(zheevd,ZHEEVD)
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,
6837 double* W,
6838 lapack_complex_double* work, lapack_int const* lwork,
6839 double* rwork, lapack_int const* lrwork,
6840 lapack_int* iwork, lapack_int const* liwork,
6841 lapack_int* info
6842#ifdef LAPACK_FORTRAN_STRLEN_END
6843 , size_t, size_t
6844#endif
6845);
6846#ifdef LAPACK_FORTRAN_STRLEN_END
6847 #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__, 1, 1)
6848#else
6849 #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__)
6850#endif
6851
6852#define LAPACK_cheevd_2stage_base LAPACK_GLOBAL(cheevd_2stage,CHEEVD_2STAGE)
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,
6857 float* W,
6858 lapack_complex_float* work, lapack_int const* lwork,
6859 float* rwork, lapack_int const* lrwork,
6860 lapack_int* iwork, lapack_int const* liwork,
6861 lapack_int* info
6862#ifdef LAPACK_FORTRAN_STRLEN_END
6863 , size_t, size_t
6864#endif
6865);
6866#ifdef LAPACK_FORTRAN_STRLEN_END
6867 #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__, 1, 1)
6868#else
6869 #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__)
6870#endif
6871
6872#define LAPACK_zheevd_2stage_base LAPACK_GLOBAL(zheevd_2stage,ZHEEVD_2STAGE)
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,
6877 double* W,
6878 lapack_complex_double* work, lapack_int const* lwork,
6879 double* rwork, lapack_int const* lrwork,
6880 lapack_int* iwork, lapack_int const* liwork,
6881 lapack_int* info
6882#ifdef LAPACK_FORTRAN_STRLEN_END
6883 , size_t, size_t
6884#endif
6885);
6886#ifdef LAPACK_FORTRAN_STRLEN_END
6887 #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__, 1, 1)
6888#else
6889 #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__)
6890#endif
6891
6892#define LAPACK_cheevr_base LAPACK_GLOBAL(cheevr,CHEEVR)
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,
6897 float const* vl,
6898 float const* vu, lapack_int const* il, lapack_int const* iu,
6899 float const* abstol, lapack_int* m,
6900 float* W,
6901 lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
6902 lapack_complex_float* work, lapack_int const* lwork,
6903 float* rwork, lapack_int const* lrwork,
6904 lapack_int* iwork, lapack_int const* liwork,
6905 lapack_int* info
6906#ifdef LAPACK_FORTRAN_STRLEN_END
6907 , size_t, size_t, size_t
6908#endif
6909);
6910#ifdef LAPACK_FORTRAN_STRLEN_END
6911 #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__, 1, 1, 1)
6912#else
6913 #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__)
6914#endif
6915
6916#define LAPACK_zheevr_base LAPACK_GLOBAL(zheevr,ZHEEVR)
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,
6921 double const* vl,
6922 double const* vu, lapack_int const* il, lapack_int const* iu,
6923 double const* abstol, lapack_int* m,
6924 double* W,
6925 lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
6926 lapack_complex_double* work, lapack_int const* lwork,
6927 double* rwork, lapack_int const* lrwork,
6928 lapack_int* iwork, lapack_int const* liwork,
6929 lapack_int* info
6930#ifdef LAPACK_FORTRAN_STRLEN_END
6931 , size_t, size_t, size_t
6932#endif
6933);
6934#ifdef LAPACK_FORTRAN_STRLEN_END
6935 #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__, 1, 1, 1)
6936#else
6937 #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__)
6938#endif
6939
6940#define LAPACK_cheevr_2stage_base LAPACK_GLOBAL(cheevr_2stage,CHEEVR_2STAGE)
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,
6945 float const* vl,
6946 float const* vu, lapack_int const* il, lapack_int const* iu,
6947 float const* abstol, lapack_int* m,
6948 float* W,
6949 lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
6950 lapack_complex_float* work, lapack_int const* lwork,
6951 float* rwork, lapack_int const* lrwork,
6952 lapack_int* iwork, lapack_int const* liwork,
6953 lapack_int* info
6954#ifdef LAPACK_FORTRAN_STRLEN_END
6955 , size_t, size_t, size_t
6956#endif
6957);
6958#ifdef LAPACK_FORTRAN_STRLEN_END
6959 #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__, 1, 1, 1)
6960#else
6961 #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__)
6962#endif
6963
6964#define LAPACK_zheevr_2stage_base LAPACK_GLOBAL(zheevr_2stage,ZHEEVR_2STAGE)
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,
6969 double const* vl,
6970 double const* vu, lapack_int const* il, lapack_int const* iu,
6971 double const* abstol, lapack_int* m,
6972 double* W,
6973 lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
6974 lapack_complex_double* work, lapack_int const* lwork,
6975 double* rwork, lapack_int const* lrwork,
6976 lapack_int* iwork, lapack_int const* liwork,
6977 lapack_int* info
6978#ifdef LAPACK_FORTRAN_STRLEN_END
6979 , size_t, size_t, size_t
6980#endif
6981);
6982#ifdef LAPACK_FORTRAN_STRLEN_END
6983 #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__, 1, 1, 1)
6984#else
6985 #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__)
6986#endif
6987
6988#define LAPACK_cheevx_base LAPACK_GLOBAL(cheevx,CHEEVX)
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,
6993 float const* vl,
6994 float const* vu, lapack_int const* il, lapack_int const* iu,
6995 float const* abstol, lapack_int* m,
6996 float* W,
6997 lapack_complex_float* Z, lapack_int const* ldz,
6998 lapack_complex_float* work, lapack_int const* lwork,
6999 float* rwork,
7000 lapack_int* iwork, lapack_int* IFAIL,
7001 lapack_int* info
7002#ifdef LAPACK_FORTRAN_STRLEN_END
7003 , size_t, size_t, size_t
7004#endif
7005);
7006#ifdef LAPACK_FORTRAN_STRLEN_END
7007 #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__, 1, 1, 1)
7008#else
7009 #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__)
7010#endif
7011
7012#define LAPACK_zheevx_base LAPACK_GLOBAL(zheevx,ZHEEVX)
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,
7017 double const* vl,
7018 double const* vu, lapack_int const* il, lapack_int const* iu,
7019 double const* abstol, lapack_int* m,
7020 double* W,
7021 lapack_complex_double* Z, lapack_int const* ldz,
7022 lapack_complex_double* work, lapack_int const* lwork,
7023 double* rwork,
7024 lapack_int* iwork, lapack_int* IFAIL,
7025 lapack_int* info
7026#ifdef LAPACK_FORTRAN_STRLEN_END
7027 , size_t, size_t, size_t
7028#endif
7029);
7030#ifdef LAPACK_FORTRAN_STRLEN_END
7031 #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__, 1, 1, 1)
7032#else
7033 #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__)
7034#endif
7035
7036#define LAPACK_cheevx_2stage_base LAPACK_GLOBAL(cheevx_2stage,CHEEVX_2STAGE)
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,
7041 float const* vl,
7042 float const* vu, lapack_int const* il, lapack_int const* iu,
7043 float const* abstol, lapack_int* m,
7044 float* W,
7045 lapack_complex_float* Z, lapack_int const* ldz,
7046 lapack_complex_float* work, lapack_int const* lwork,
7047 float* rwork,
7048 lapack_int* iwork, lapack_int* IFAIL,
7049 lapack_int* info
7050#ifdef LAPACK_FORTRAN_STRLEN_END
7051 , size_t, size_t, size_t
7052#endif
7053);
7054#ifdef LAPACK_FORTRAN_STRLEN_END
7055 #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__, 1, 1, 1)
7056#else
7057 #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__)
7058#endif
7059
7060#define LAPACK_zheevx_2stage_base LAPACK_GLOBAL(zheevx_2stage,ZHEEVX_2STAGE)
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,
7065 double const* vl,
7066 double const* vu, lapack_int const* il, lapack_int const* iu,
7067 double const* abstol, lapack_int* m,
7068 double* W,
7069 lapack_complex_double* Z, lapack_int const* ldz,
7070 lapack_complex_double* work, lapack_int const* lwork,
7071 double* rwork,
7072 lapack_int* iwork, lapack_int* IFAIL,
7073 lapack_int* info
7074#ifdef LAPACK_FORTRAN_STRLEN_END
7075 , size_t, size_t, size_t
7076#endif
7077);
7078#ifdef LAPACK_FORTRAN_STRLEN_END
7079 #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__, 1, 1, 1)
7080#else
7081 #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__)
7082#endif
7083
7084#define LAPACK_chegst_base LAPACK_GLOBAL(chegst,CHEGST)
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,
7090 lapack_int* info
7091#ifdef LAPACK_FORTRAN_STRLEN_END
7092 , size_t
7093#endif
7094);
7095#ifdef LAPACK_FORTRAN_STRLEN_END
7096 #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__, 1)
7097#else
7098 #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__)
7099#endif
7100
7101#define LAPACK_zhegst_base LAPACK_GLOBAL(zhegst,ZHEGST)
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,
7107 lapack_int* info
7108#ifdef LAPACK_FORTRAN_STRLEN_END
7109 , size_t
7110#endif
7111);
7112#ifdef LAPACK_FORTRAN_STRLEN_END
7113 #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__, 1)
7114#else
7115 #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__)
7116#endif
7117
7118#define LAPACK_chegv_base LAPACK_GLOBAL(chegv,CHEGV)
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,
7124 float* W,
7125 lapack_complex_float* work, lapack_int const* lwork,
7126 float* rwork,
7127 lapack_int* info
7128#ifdef LAPACK_FORTRAN_STRLEN_END
7129 , size_t, size_t
7130#endif
7131);
7132#ifdef LAPACK_FORTRAN_STRLEN_END
7133 #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__, 1, 1)
7134#else
7135 #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__)
7136#endif
7137
7138#define LAPACK_zhegv_base LAPACK_GLOBAL(zhegv,ZHEGV)
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,
7144 double* W,
7145 lapack_complex_double* work, lapack_int const* lwork,
7146 double* rwork,
7147 lapack_int* info
7148#ifdef LAPACK_FORTRAN_STRLEN_END
7149 , size_t, size_t
7150#endif
7151);
7152#ifdef LAPACK_FORTRAN_STRLEN_END
7153 #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__, 1, 1)
7154#else
7155 #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__)
7156#endif
7157
7158#define LAPACK_chegv_2stage_base LAPACK_GLOBAL(chegv_2stage,CHEGV_2STAGE)
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,
7164 float* W,
7165 lapack_complex_float* work, lapack_int const* lwork,
7166 float* rwork,
7167 lapack_int* info
7168#ifdef LAPACK_FORTRAN_STRLEN_END
7169 , size_t, size_t
7170#endif
7171);
7172#ifdef LAPACK_FORTRAN_STRLEN_END
7173 #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__, 1, 1)
7174#else
7175 #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__)
7176#endif
7177
7178#define LAPACK_zhegv_2stage_base LAPACK_GLOBAL(zhegv_2stage,ZHEGV_2STAGE)
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,
7184 double* W,
7185 lapack_complex_double* work, lapack_int const* lwork,
7186 double* rwork,
7187 lapack_int* info
7188#ifdef LAPACK_FORTRAN_STRLEN_END
7189 , size_t, size_t
7190#endif
7191);
7192#ifdef LAPACK_FORTRAN_STRLEN_END
7193 #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__, 1, 1)
7194#else
7195 #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__)
7196#endif
7197
7198#define LAPACK_chegvd_base LAPACK_GLOBAL(chegvd,CHEGVD)
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,
7204 float* W,
7205 lapack_complex_float* work, lapack_int const* lwork,
7206 float* rwork, lapack_int const* lrwork,
7207 lapack_int* iwork, lapack_int const* liwork,
7208 lapack_int* info
7209#ifdef LAPACK_FORTRAN_STRLEN_END
7210 , size_t, size_t
7211#endif
7212);
7213#ifdef LAPACK_FORTRAN_STRLEN_END
7214 #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__, 1, 1)
7215#else
7216 #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__)
7217#endif
7218
7219#define LAPACK_zhegvd_base LAPACK_GLOBAL(zhegvd,ZHEGVD)
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,
7225 double* W,
7226 lapack_complex_double* work, lapack_int const* lwork,
7227 double* rwork, lapack_int const* lrwork,
7228 lapack_int* iwork, lapack_int const* liwork,
7229 lapack_int* info
7230#ifdef LAPACK_FORTRAN_STRLEN_END
7231 , size_t, size_t
7232#endif
7233);
7234#ifdef LAPACK_FORTRAN_STRLEN_END
7235 #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__, 1, 1)
7236#else
7237 #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__)
7238#endif
7239
7240#define LAPACK_chegvx_base LAPACK_GLOBAL(chegvx,CHEGVX)
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,
7246 float const* vl,
7247 float const* vu, lapack_int const* il, lapack_int const* iu,
7248 float const* abstol, lapack_int* m,
7249 float* W,
7250 lapack_complex_float* Z, lapack_int const* ldz,
7251 lapack_complex_float* work, lapack_int const* lwork,
7252 float* rwork,
7253 lapack_int* iwork, lapack_int* IFAIL,
7254 lapack_int* info
7255#ifdef LAPACK_FORTRAN_STRLEN_END
7256 , size_t, size_t, size_t
7257#endif
7258);
7259#ifdef LAPACK_FORTRAN_STRLEN_END
7260 #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__, 1, 1, 1)
7261#else
7262 #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__)
7263#endif
7264
7265#define LAPACK_zhegvx_base LAPACK_GLOBAL(zhegvx,ZHEGVX)
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,
7271 double const* vl,
7272 double const* vu, lapack_int const* il, lapack_int const* iu,
7273 double const* abstol, lapack_int* m,
7274 double* W,
7275 lapack_complex_double* Z, lapack_int const* ldz,
7276 lapack_complex_double* work, lapack_int const* lwork,
7277 double* rwork,
7278 lapack_int* iwork, lapack_int* IFAIL,
7279 lapack_int* info
7280#ifdef LAPACK_FORTRAN_STRLEN_END
7281 , size_t, size_t, size_t
7282#endif
7283);
7284#ifdef LAPACK_FORTRAN_STRLEN_END
7285 #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__, 1, 1, 1)
7286#else
7287 #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__)
7288#endif
7289
7290#define LAPACK_cherfs_base LAPACK_GLOBAL(cherfs,CHERFS)
7291void LAPACK_cherfs_base(
7292 char const* uplo,
7293 lapack_int const* n, lapack_int const* nrhs,
7294 lapack_complex_float const* A, lapack_int const* lda,
7295 lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
7296 lapack_complex_float const* B, lapack_int const* ldb,
7297 lapack_complex_float* X, lapack_int const* ldx,
7298 float* ferr,
7299 float* berr,
7300 lapack_complex_float* work,
7301 float* rwork,
7302 lapack_int* info
7303#ifdef LAPACK_FORTRAN_STRLEN_END
7304 , size_t
7305#endif
7306);
7307#ifdef LAPACK_FORTRAN_STRLEN_END
7308 #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__, 1)
7309#else
7310 #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__)
7311#endif
7312
7313#define LAPACK_zherfs_base LAPACK_GLOBAL(zherfs,ZHERFS)
7314void LAPACK_zherfs_base(
7315 char const* uplo,
7316 lapack_int const* n, lapack_int const* nrhs,
7317 lapack_complex_double const* A, lapack_int const* lda,
7318 lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
7319 lapack_complex_double const* B, lapack_int const* ldb,
7320 lapack_complex_double* X, lapack_int const* ldx,
7321 double* ferr,
7322 double* berr,
7323 lapack_complex_double* work,
7324 double* rwork,
7325 lapack_int* info
7326#ifdef LAPACK_FORTRAN_STRLEN_END
7327 , size_t
7328#endif
7329);
7330#ifdef LAPACK_FORTRAN_STRLEN_END
7331 #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__, 1)
7332#else
7333 #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__)
7334#endif
7335
7336#define LAPACK_cherfsx_base LAPACK_GLOBAL(cherfsx,CHERFSX)
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,
7342 const float* S,
7343 lapack_complex_float const* B, lapack_int const* ldb,
7344 lapack_complex_float* X, lapack_int const* ldx,
7345 float* rcond,
7346 float* berr, lapack_int const* n_err_bnds,
7347 float* err_bnds_norm,
7348 float* err_bnds_comp, lapack_int const* nparams,
7349 float* params,
7350 lapack_complex_float* work,
7351 float* rwork,
7352 lapack_int* info
7353#ifdef LAPACK_FORTRAN_STRLEN_END
7354 , size_t, size_t
7355#endif
7356);
7357#ifdef LAPACK_FORTRAN_STRLEN_END
7358 #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__, 1, 1)
7359#else
7360 #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__)
7361#endif
7362
7363#define LAPACK_zherfsx_base LAPACK_GLOBAL(zherfsx,ZHERFSX)
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,
7369 const double* S,
7370 lapack_complex_double const* B, lapack_int const* ldb,
7371 lapack_complex_double* X, lapack_int const* ldx,
7372 double* rcond,
7373 double* berr, lapack_int const* n_err_bnds,
7374 double* err_bnds_norm,
7375 double* err_bnds_comp, lapack_int const* nparams,
7376 double* params,
7377 lapack_complex_double* work,
7378 double* rwork,
7379 lapack_int* info
7380#ifdef LAPACK_FORTRAN_STRLEN_END
7381 , size_t, size_t
7382#endif
7383);
7384#ifdef LAPACK_FORTRAN_STRLEN_END
7385 #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__, 1, 1)
7386#else
7387 #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__)
7388#endif
7389
7390#define LAPACK_chesv_base LAPACK_GLOBAL(chesv,CHESV)
7391void LAPACK_chesv_base(
7392 char const* uplo,
7393 lapack_int const* n, lapack_int const* nrhs,
7394 lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7395 lapack_complex_float* B, lapack_int const* ldb,
7396 lapack_complex_float* work, lapack_int const* lwork,
7397 lapack_int* info
7398#ifdef LAPACK_FORTRAN_STRLEN_END
7399 , size_t
7400#endif
7401);
7402#ifdef LAPACK_FORTRAN_STRLEN_END
7403 #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__, 1)
7404#else
7405 #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__)
7406#endif
7407
7408#define LAPACK_zhesv_base LAPACK_GLOBAL(zhesv,ZHESV)
7409void LAPACK_zhesv_base(
7410 char const* uplo,
7411 lapack_int const* n, lapack_int const* nrhs,
7412 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7413 lapack_complex_double* B, lapack_int const* ldb,
7414 lapack_complex_double* work, lapack_int const* lwork,
7415 lapack_int* info
7416#ifdef LAPACK_FORTRAN_STRLEN_END
7417 , size_t
7418#endif
7419);
7420#ifdef LAPACK_FORTRAN_STRLEN_END
7421 #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__, 1)
7422#else
7423 #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__)
7424#endif
7425
7426#define LAPACK_chesv_aa_base LAPACK_GLOBAL(chesv_aa,CHESV_AA)
7427void LAPACK_chesv_aa_base(
7428 char const* uplo,
7429 lapack_int const* n, lapack_int const* nrhs,
7430 lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7431 lapack_complex_float* B, lapack_int const* ldb,
7432 lapack_complex_float* work, lapack_int const* lwork,
7433 lapack_int* info
7434#ifdef LAPACK_FORTRAN_STRLEN_END
7435 , size_t
7436#endif
7437);
7438#ifdef LAPACK_FORTRAN_STRLEN_END
7439 #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__, 1)
7440#else
7441 #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__)
7442#endif
7443
7444#define LAPACK_zhesv_aa_base LAPACK_GLOBAL(zhesv_aa,ZHESV_AA)
7445void LAPACK_zhesv_aa_base(
7446 char const* uplo,
7447 lapack_int const* n, lapack_int const* nrhs,
7448 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7449 lapack_complex_double* B, lapack_int const* ldb,
7450 lapack_complex_double* work, lapack_int const* lwork,
7451 lapack_int* info
7452#ifdef LAPACK_FORTRAN_STRLEN_END
7453 , size_t
7454#endif
7455);
7456#ifdef LAPACK_FORTRAN_STRLEN_END
7457 #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__, 1)
7458#else
7459 #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__)
7460#endif
7461
7462#define LAPACK_chesv_aa_2stage_base LAPACK_GLOBAL(chesv_aa_2stage,CHESV_AA_2STAGE)
7463void LAPACK_chesv_aa_2stage_base(
7464 char const* uplo,
7465 lapack_int const* n, lapack_int const* nrhs,
7466 lapack_complex_float* A, lapack_int const* lda,
7467 lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7468 lapack_complex_float* B, lapack_int const* ldb,
7469 lapack_complex_float* work, lapack_int const* lwork,
7470 lapack_int* info
7471#ifdef LAPACK_FORTRAN_STRLEN_END
7472 , size_t
7473#endif
7474);
7475#ifdef LAPACK_FORTRAN_STRLEN_END
7476 #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__, 1)
7477#else
7478 #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__)
7479#endif
7480
7481#define LAPACK_zhesv_aa_2stage_base LAPACK_GLOBAL(zhesv_aa_2stage,ZHESV_AA_2STAGE)
7482void LAPACK_zhesv_aa_2stage_base(
7483 char const* uplo,
7484 lapack_int const* n, lapack_int const* nrhs,
7485 lapack_complex_double* A, lapack_int const* lda,
7486 lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7487 lapack_complex_double* B, lapack_int const* ldb,
7488 lapack_complex_double* work, lapack_int const* lwork,
7489 lapack_int* info
7490#ifdef LAPACK_FORTRAN_STRLEN_END
7491 , size_t
7492#endif
7493);
7494#ifdef LAPACK_FORTRAN_STRLEN_END
7495 #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__, 1)
7496#else
7497 #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__)
7498#endif
7499
7500#define LAPACK_chesv_rk_base LAPACK_GLOBAL(chesv_rk,CHESV_RK)
7501void LAPACK_chesv_rk_base(
7502 char const* uplo,
7503 lapack_int const* n, lapack_int const* nrhs,
7504 lapack_complex_float* A, lapack_int const* lda,
7505 lapack_complex_float* E, lapack_int* ipiv,
7506 lapack_complex_float* B, lapack_int const* ldb,
7507 lapack_complex_float* work, lapack_int const* lwork,
7508 lapack_int* info
7509#ifdef LAPACK_FORTRAN_STRLEN_END
7510 , size_t
7511#endif
7512);
7513#ifdef LAPACK_FORTRAN_STRLEN_END
7514 #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__, 1)
7515#else
7516 #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__)
7517#endif
7518
7519#define LAPACK_zhesv_rk_base LAPACK_GLOBAL(zhesv_rk,ZHESV_RK)
7520void LAPACK_zhesv_rk_base(
7521 char const* uplo,
7522 lapack_int const* n, lapack_int const* nrhs,
7523 lapack_complex_double* A, lapack_int const* lda,
7524 lapack_complex_double* E, lapack_int* ipiv,
7525 lapack_complex_double* B, lapack_int const* ldb,
7526 lapack_complex_double* work, lapack_int const* lwork,
7527 lapack_int* info
7528#ifdef LAPACK_FORTRAN_STRLEN_END
7529 , size_t
7530#endif
7531);
7532#ifdef LAPACK_FORTRAN_STRLEN_END
7533 #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__, 1)
7534#else
7535 #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__)
7536#endif
7537
7538#define LAPACK_chesv_rook_base LAPACK_GLOBAL(chesv_rook,CHESV_ROOK)
7539void LAPACK_chesv_rook_base(
7540 char const* uplo,
7541 lapack_int const* n, lapack_int const* nrhs,
7542 lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7543 lapack_complex_float* B, lapack_int const* ldb,
7544 lapack_complex_float* work, lapack_int const* lwork,
7545 lapack_int* info
7546#ifdef LAPACK_FORTRAN_STRLEN_END
7547 , size_t
7548#endif
7549);
7550#ifdef LAPACK_FORTRAN_STRLEN_END
7551 #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__, 1)
7552#else
7553 #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__)
7554#endif
7555
7556#define LAPACK_zhesv_rook_base LAPACK_GLOBAL(zhesv_rook,ZHESV_ROOK)
7557void LAPACK_zhesv_rook_base(
7558 char const* uplo,
7559 lapack_int const* n, lapack_int const* nrhs,
7560 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7561 lapack_complex_double* B, lapack_int const* ldb,
7562 lapack_complex_double* work, lapack_int const* lwork,
7563 lapack_int* info
7564#ifdef LAPACK_FORTRAN_STRLEN_END
7565 , size_t
7566#endif
7567);
7568#ifdef LAPACK_FORTRAN_STRLEN_END
7569 #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__, 1)
7570#else
7571 #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__)
7572#endif
7573
7574#define LAPACK_chesvx_base LAPACK_GLOBAL(chesvx,CHESVX)
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,
7582 float* rcond,
7583 float* ferr,
7584 float* berr,
7585 lapack_complex_float* work, lapack_int const* lwork,
7586 float* rwork,
7587 lapack_int* info
7588#ifdef LAPACK_FORTRAN_STRLEN_END
7589 , size_t, size_t
7590#endif
7591);
7592#ifdef LAPACK_FORTRAN_STRLEN_END
7593 #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__, 1, 1)
7594#else
7595 #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__)
7596#endif
7597
7598#define LAPACK_zhesvx_base LAPACK_GLOBAL(zhesvx,ZHESVX)
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,
7606 double* rcond,
7607 double* ferr,
7608 double* berr,
7609 lapack_complex_double* work, lapack_int const* lwork,
7610 double* rwork,
7611 lapack_int* info
7612#ifdef LAPACK_FORTRAN_STRLEN_END
7613 , size_t, size_t
7614#endif
7615);
7616#ifdef LAPACK_FORTRAN_STRLEN_END
7617 #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__, 1, 1)
7618#else
7619 #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__)
7620#endif
7621
7622#define LAPACK_chesvxx_base LAPACK_GLOBAL(chesvxx,CHESVXX)
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,
7628 float* S,
7629 lapack_complex_float* B,
7630 lapack_int const* ldb,
7631 lapack_complex_float* X, lapack_int const* ldx,
7632 float* rcond,
7633 float* rpvgrw,
7634 float* berr, lapack_int const* n_err_bnds,
7635 float* err_bnds_norm,
7636 float* err_bnds_comp, lapack_int const* nparams,
7637 float* params,
7638 lapack_complex_float* work,
7639 float* rwork,
7640 lapack_int* info
7641#ifdef LAPACK_FORTRAN_STRLEN_END
7642 , size_t, size_t, size_t
7643#endif
7644);
7645#ifdef LAPACK_FORTRAN_STRLEN_END
7646 #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__, 1, 1, 1)
7647#else
7648 #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__)
7649#endif
7650
7651#define LAPACK_zhesvxx_base LAPACK_GLOBAL(zhesvxx,ZHESVXX)
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,
7657 double* S,
7658 lapack_complex_double* B,
7659 lapack_int const* ldb,
7660 lapack_complex_double* X, lapack_int const* ldx,
7661 double* rcond,
7662 double* rpvgrw,
7663 double* berr, lapack_int const* n_err_bnds,
7664 double* err_bnds_norm,
7665 double* err_bnds_comp, lapack_int const* nparams,
7666 double* params,
7667 lapack_complex_double* work,
7668 double* rwork,
7669 lapack_int* info
7670#ifdef LAPACK_FORTRAN_STRLEN_END
7671 , size_t, size_t, size_t
7672#endif
7673);
7674#ifdef LAPACK_FORTRAN_STRLEN_END
7675 #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__, 1, 1, 1)
7676#else
7677 #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__)
7678#endif
7679
7680#define LAPACK_cheswapr_base LAPACK_GLOBAL(cheswapr,CHESWAPR)
7681void LAPACK_cheswapr_base(
7682 char const* uplo,
7683 lapack_int const* n,
7684 lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
7685#ifdef LAPACK_FORTRAN_STRLEN_END
7686 , size_t
7687#endif
7688);
7689#ifdef LAPACK_FORTRAN_STRLEN_END
7690 #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__, 1)
7691#else
7692 #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__)
7693#endif
7694
7695#define LAPACK_zheswapr_base LAPACK_GLOBAL(zheswapr,ZHESWAPR)
7696void LAPACK_zheswapr_base(
7697 char const* uplo,
7698 lapack_int const* n,
7699 lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
7700#ifdef LAPACK_FORTRAN_STRLEN_END
7701 , size_t
7702#endif
7703);
7704#ifdef LAPACK_FORTRAN_STRLEN_END
7705 #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__, 1)
7706#else
7707 #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__)
7708#endif
7709
7710#define LAPACK_chetrd_base LAPACK_GLOBAL(chetrd,CHETRD)
7711void LAPACK_chetrd_base(
7712 char const* uplo,
7713 lapack_int const* n,
7714 lapack_complex_float* A, lapack_int const* lda,
7715 float* D,
7716 float* E,
7717 lapack_complex_float* tau,
7718 lapack_complex_float* work, lapack_int const* lwork,
7719 lapack_int* info
7720#ifdef LAPACK_FORTRAN_STRLEN_END
7721 , size_t
7722#endif
7723);
7724#ifdef LAPACK_FORTRAN_STRLEN_END
7725 #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__, 1)
7726#else
7727 #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__)
7728#endif
7729
7730#define LAPACK_zhetrd_base LAPACK_GLOBAL(zhetrd,ZHETRD)
7731void LAPACK_zhetrd_base(
7732 char const* uplo,
7733 lapack_int const* n,
7734 lapack_complex_double* A, lapack_int const* lda,
7735 double* D,
7736 double* E,
7737 lapack_complex_double* tau,
7738 lapack_complex_double* work, lapack_int const* lwork,
7739 lapack_int* info
7740#ifdef LAPACK_FORTRAN_STRLEN_END
7741 , size_t
7742#endif
7743);
7744#ifdef LAPACK_FORTRAN_STRLEN_END
7745 #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__, 1)
7746#else
7747 #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__)
7748#endif
7749
7750#define LAPACK_chetrd_2stage_base LAPACK_GLOBAL(chetrd_2stage,CHETRD_2STAGE)
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,
7755 float* D,
7756 float* E,
7757 lapack_complex_float* tau,
7758 lapack_complex_float* HOUS2, lapack_int const* lhous2,
7759 lapack_complex_float* work, lapack_int const* lwork,
7760 lapack_int* info
7761#ifdef LAPACK_FORTRAN_STRLEN_END
7762 , size_t, size_t
7763#endif
7764);
7765#ifdef LAPACK_FORTRAN_STRLEN_END
7766 #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__, 1, 1)
7767#else
7768 #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__)
7769#endif
7770
7771#define LAPACK_zhetrd_2stage_base LAPACK_GLOBAL(zhetrd_2stage,ZHETRD_2STAGE)
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,
7776 double* D,
7777 double* E,
7778 lapack_complex_double* tau,
7779 lapack_complex_double* HOUS2, lapack_int const* lhous2,
7780 lapack_complex_double* work, lapack_int const* lwork,
7781 lapack_int* info
7782#ifdef LAPACK_FORTRAN_STRLEN_END
7783 , size_t, size_t
7784#endif
7785);
7786#ifdef LAPACK_FORTRAN_STRLEN_END
7787 #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__, 1, 1)
7788#else
7789 #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__)
7790#endif
7791
7792#define LAPACK_chetrf_base LAPACK_GLOBAL(chetrf,CHETRF)
7793void LAPACK_chetrf_base(
7794 char const* uplo,
7795 lapack_int const* n,
7796 lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7797 lapack_complex_float* work, lapack_int const* lwork,
7798 lapack_int* info
7799#ifdef LAPACK_FORTRAN_STRLEN_END
7800 , size_t
7801#endif
7802);
7803#ifdef LAPACK_FORTRAN_STRLEN_END
7804 #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__, 1)
7805#else
7806 #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__)
7807#endif
7808
7809#define LAPACK_zhetrf_base LAPACK_GLOBAL(zhetrf,ZHETRF)
7810void LAPACK_zhetrf_base(
7811 char const* uplo,
7812 lapack_int const* n,
7813 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7814 lapack_complex_double* work, lapack_int const* lwork,
7815 lapack_int* info
7816#ifdef LAPACK_FORTRAN_STRLEN_END
7817 , size_t
7818#endif
7819);
7820#ifdef LAPACK_FORTRAN_STRLEN_END
7821 #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__, 1)
7822#else
7823 #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__)
7824#endif
7825
7826#define LAPACK_chetrf_aa_base LAPACK_GLOBAL(chetrf_aa,CHETRF_AA)
7827void LAPACK_chetrf_aa_base(
7828 char const* uplo,
7829 lapack_int const* n,
7830 lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7831 lapack_complex_float* work, lapack_int const* lwork,
7832 lapack_int* info
7833#ifdef LAPACK_FORTRAN_STRLEN_END
7834 , size_t
7835#endif
7836);
7837#ifdef LAPACK_FORTRAN_STRLEN_END
7838 #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__, 1)
7839#else
7840 #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__)
7841#endif
7842
7843#define LAPACK_zhetrf_aa_base LAPACK_GLOBAL(zhetrf_aa,ZHETRF_AA)
7844void LAPACK_zhetrf_aa_base(
7845 char const* uplo,
7846 lapack_int const* n,
7847 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7848 lapack_complex_double* work, lapack_int const* lwork,
7849 lapack_int* info
7850#ifdef LAPACK_FORTRAN_STRLEN_END
7851 , size_t
7852#endif
7853);
7854#ifdef LAPACK_FORTRAN_STRLEN_END
7855 #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__, 1)
7856#else
7857 #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__)
7858#endif
7859
7860#define LAPACK_chetrf_aa_2stage_base LAPACK_GLOBAL(chetrf_aa_2stage,CHETRF_AA_2STAGE)
7861void LAPACK_chetrf_aa_2stage_base(
7862 char const* uplo,
7863 lapack_int const* n,
7864 lapack_complex_float* A, lapack_int const* lda,
7865 lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7866 lapack_complex_float* work, lapack_int const* lwork,
7867 lapack_int* info
7868#ifdef LAPACK_FORTRAN_STRLEN_END
7869 , size_t
7870#endif
7871);
7872#ifdef LAPACK_FORTRAN_STRLEN_END
7873 #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__, 1)
7874#else
7875 #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__)
7876#endif
7877
7878#define LAPACK_zhetrf_aa_2stage_base LAPACK_GLOBAL(zhetrf_aa_2stage,ZHETRF_AA_2STAGE)
7879void LAPACK_zhetrf_aa_2stage_base(
7880 char const* uplo,
7881 lapack_int const* n,
7882 lapack_complex_double* A, lapack_int const* lda,
7883 lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7884 lapack_complex_double* work, lapack_int const* lwork,
7885 lapack_int* info
7886#ifdef LAPACK_FORTRAN_STRLEN_END
7887 , size_t
7888#endif
7889);
7890#ifdef LAPACK_FORTRAN_STRLEN_END
7891 #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__, 1)
7892#else
7893 #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__)
7894#endif
7895
7896#define LAPACK_chetrf_rk_base LAPACK_GLOBAL(chetrf_rk,CHETRF_RK)
7897void LAPACK_chetrf_rk_base(
7898 char const* uplo,
7899 lapack_int const* n,
7900 lapack_complex_float* A, lapack_int const* lda,
7901 lapack_complex_float* E, lapack_int* ipiv,
7902 lapack_complex_float* work, lapack_int const* lwork,
7903 lapack_int* info
7904#ifdef LAPACK_FORTRAN_STRLEN_END
7905 , size_t
7906#endif
7907);
7908#ifdef LAPACK_FORTRAN_STRLEN_END
7909 #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__, 1)
7910#else
7911 #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__)
7912#endif
7913
7914#define LAPACK_zhetrf_rk_base LAPACK_GLOBAL(zhetrf_rk,ZHETRF_RK)
7915void LAPACK_zhetrf_rk_base(
7916 char const* uplo,
7917 lapack_int const* n,
7918 lapack_complex_double* A, lapack_int const* lda,
7919 lapack_complex_double* E, lapack_int* ipiv,
7920 lapack_complex_double* work, lapack_int const* lwork,
7921 lapack_int* info
7922#ifdef LAPACK_FORTRAN_STRLEN_END
7923 , size_t
7924#endif
7925);
7926#ifdef LAPACK_FORTRAN_STRLEN_END
7927 #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__, 1)
7928#else
7929 #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__)
7930#endif
7931
7932#define LAPACK_chetrf_rook_base LAPACK_GLOBAL(chetrf_rook,CHETRF_ROOK)
7933void LAPACK_chetrf_rook_base(
7934 char const* uplo,
7935 lapack_int const* n,
7936 lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7937 lapack_complex_float* work, lapack_int const* lwork,
7938 lapack_int* info
7939#ifdef LAPACK_FORTRAN_STRLEN_END
7940 , size_t
7941#endif
7942);
7943#ifdef LAPACK_FORTRAN_STRLEN_END
7944 #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__, 1)
7945#else
7946 #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__)
7947#endif
7948
7949#define LAPACK_zhetrf_rook_base LAPACK_GLOBAL(zhetrf_rook,ZHETRF_ROOK)
7950void LAPACK_zhetrf_rook_base(
7951 char const* uplo,
7952 lapack_int const* n,
7953 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7954 lapack_complex_double* work, lapack_int const* lwork,
7955 lapack_int* info
7956#ifdef LAPACK_FORTRAN_STRLEN_END
7957 , size_t
7958#endif
7959);
7960#ifdef LAPACK_FORTRAN_STRLEN_END
7961 #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__, 1)
7962#else
7963 #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__)
7964#endif
7965
7966#define LAPACK_chetri_base LAPACK_GLOBAL(chetri,CHETRI)
7967void LAPACK_chetri_base(
7968 char const* uplo,
7969 lapack_int const* n,
7970 lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
7971 lapack_complex_float* work,
7972 lapack_int* info
7973#ifdef LAPACK_FORTRAN_STRLEN_END
7974 , size_t
7975#endif
7976);
7977#ifdef LAPACK_FORTRAN_STRLEN_END
7978 #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__, 1)
7979#else
7980 #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__)
7981#endif
7982
7983#define LAPACK_zhetri_base LAPACK_GLOBAL(zhetri,ZHETRI)
7984void LAPACK_zhetri_base(
7985 char const* uplo,
7986 lapack_int const* n,
7987 lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
7988 lapack_complex_double* work,
7989 lapack_int* info
7990#ifdef LAPACK_FORTRAN_STRLEN_END
7991 , size_t
7992#endif
7993);
7994#ifdef LAPACK_FORTRAN_STRLEN_END
7995 #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__, 1)
7996#else
7997 #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__)
7998#endif
7999
8000#define LAPACK_chetri2_base LAPACK_GLOBAL(chetri2,CHETRI2)
8001void LAPACK_chetri2_base(
8002 char const* uplo,
8003 lapack_int const* n,
8004 lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
8005 lapack_complex_float* work, lapack_int const* lwork,
8006 lapack_int* info
8007#ifdef LAPACK_FORTRAN_STRLEN_END
8008 , size_t
8009#endif
8010);
8011#ifdef LAPACK_FORTRAN_STRLEN_END
8012 #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__, 1)
8013#else
8014 #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__)
8015#endif
8016
8017#define LAPACK_zhetri2_base LAPACK_GLOBAL(zhetri2,ZHETRI2)
8018void LAPACK_zhetri2_base(
8019 char const* uplo,
8020 lapack_int const* n,
8021 lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
8022 lapack_complex_double* work, lapack_int const* lwork,
8023 lapack_int* info
8024#ifdef LAPACK_FORTRAN_STRLEN_END
8025 , size_t
8026#endif
8027);
8028#ifdef LAPACK_FORTRAN_STRLEN_END
8029 #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__, 1)
8030#else
8031 #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__)
8032#endif
8033
8034#define LAPACK_chetri2x_base LAPACK_GLOBAL(chetri2x,CHETRI2X)
8035void LAPACK_chetri2x_base(
8036 char const* uplo,
8037 lapack_int const* n,
8038 lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
8039 lapack_complex_float* work, lapack_int const* nb,
8040 lapack_int* info
8041#ifdef LAPACK_FORTRAN_STRLEN_END
8042 , size_t
8043#endif
8044);
8045#ifdef LAPACK_FORTRAN_STRLEN_END
8046 #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__, 1)
8047#else
8048 #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__)
8049#endif
8050
8051#define LAPACK_zhetri2x_base LAPACK_GLOBAL(zhetri2x,ZHETRI2X)
8052void LAPACK_zhetri2x_base(
8053 char const* uplo,
8054 lapack_int const* n,
8055 lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
8056 lapack_complex_double* work, lapack_int const* nb,
8057 lapack_int* info
8058#ifdef LAPACK_FORTRAN_STRLEN_END
8059 , size_t
8060#endif
8061);
8062#ifdef LAPACK_FORTRAN_STRLEN_END
8063 #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__, 1)
8064#else
8065 #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__)
8066#endif
8067
8068#define LAPACK_chetri_3_base LAPACK_GLOBAL(chetri_3,CHETRI_3)
8069void LAPACK_chetri_3_base(
8070 char const* uplo,
8071 lapack_int const* n,
8072 lapack_complex_float* A, lapack_int const* lda,
8073 lapack_complex_float const* E, lapack_int const* ipiv,
8074 lapack_complex_float* work, lapack_int const* lwork,
8075 lapack_int* info
8076#ifdef LAPACK_FORTRAN_STRLEN_END
8077 , size_t
8078#endif
8079);
8080#ifdef LAPACK_FORTRAN_STRLEN_END
8081 #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__, 1)
8082#else
8083 #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__)
8084#endif
8085
8086#define LAPACK_zhetri_3_base LAPACK_GLOBAL(zhetri_3,ZHETRI_3)
8087void LAPACK_zhetri_3_base(
8088 char const* uplo,
8089 lapack_int const* n,
8090 lapack_complex_double* A, lapack_int const* lda,
8091 lapack_complex_double const* E, lapack_int const* ipiv,
8092 lapack_complex_double* work, lapack_int const* lwork,
8093 lapack_int* info
8094#ifdef LAPACK_FORTRAN_STRLEN_END
8095 , size_t
8096#endif
8097);
8098#ifdef LAPACK_FORTRAN_STRLEN_END
8099 #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__, 1)
8100#else
8101 #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__)
8102#endif
8103
8104#define LAPACK_chetrs_base LAPACK_GLOBAL(chetrs,CHETRS)
8105void LAPACK_chetrs_base(
8106 char const* uplo,
8107 lapack_int const* n, lapack_int const* nrhs,
8108 lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
8109 lapack_complex_float* B, lapack_int const* ldb,
8110 lapack_int* info
8111#ifdef LAPACK_FORTRAN_STRLEN_END
8112 , size_t
8113#endif
8114);
8115#ifdef LAPACK_FORTRAN_STRLEN_END
8116 #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__, 1)
8117#else
8118 #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__)
8119#endif
8120
8121#define LAPACK_zhetrs_base LAPACK_GLOBAL(zhetrs,ZHETRS)
8122void LAPACK_zhetrs_base(
8123 char const* uplo,
8124 lapack_int const* n, lapack_int const* nrhs,
8125 lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
8126 lapack_complex_double* B, lapack_int const* ldb,
8127 lapack_int* info
8128#ifdef LAPACK_FORTRAN_STRLEN_END
8129 , size_t
8130#endif
8131);
8132#ifdef LAPACK_FORTRAN_STRLEN_END
8133 #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__, 1)
8134#else
8135 #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__)
8136#endif
8137
8138#define LAPACK_chetrs2_base LAPACK_GLOBAL(chetrs2,CHETRS2)
8139void LAPACK_chetrs2_base(
8140 char const* uplo,
8141 lapack_int const* n, lapack_int const* nrhs,
8142 lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
8143 lapack_complex_float* B, lapack_int const* ldb,
8144 lapack_complex_float* work,
8145 lapack_int* info
8146#ifdef LAPACK_FORTRAN_STRLEN_END
8147 , size_t
8148#endif
8149);
8150#ifdef LAPACK_FORTRAN_STRLEN_END
8151 #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__, 1)
8152#else
8153 #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__)
8154#endif
8155
8156#define LAPACK_zhetrs2_base LAPACK_GLOBAL(zhetrs2,ZHETRS2)
8157void LAPACK_zhetrs2_base(
8158 char const* uplo,
8159 lapack_int const* n, lapack_int const* nrhs,
8160 lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
8161 lapack_complex_double* B, lapack_int const* ldb,
8162 lapack_complex_double* work,
8163 lapack_int* info
8164#ifdef LAPACK_FORTRAN_STRLEN_END
8165 , size_t
8166#endif
8167);
8168#ifdef LAPACK_FORTRAN_STRLEN_END
8169 #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__, 1)
8170#else
8171 #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__)
8172#endif
8173
8174#define LAPACK_chetrs_3_base LAPACK_GLOBAL(chetrs_3,CHETRS_3)
8175void LAPACK_chetrs_3_base(
8176 char const* uplo,
8177 lapack_int const* n, lapack_int const* nrhs,
8178 lapack_complex_float const* A, lapack_int const* lda,
8179 lapack_complex_float const* E, lapack_int const* ipiv,
8180 lapack_complex_float* B, lapack_int const* ldb,
8181 lapack_int* info
8182#ifdef LAPACK_FORTRAN_STRLEN_END
8183 , size_t
8184#endif
8185);
8186#ifdef LAPACK_FORTRAN_STRLEN_END
8187 #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__, 1)
8188#else
8189 #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__)
8190#endif
8191
8192#define LAPACK_zhetrs_3_base LAPACK_GLOBAL(zhetrs_3,ZHETRS_3)
8193void LAPACK_zhetrs_3_base(
8194 char const* uplo,
8195 lapack_int const* n, lapack_int const* nrhs,
8196 lapack_complex_double const* A, lapack_int const* lda,
8197 lapack_complex_double const* E, lapack_int const* ipiv,
8198 lapack_complex_double* B, lapack_int const* ldb,
8199 lapack_int* info
8200#ifdef LAPACK_FORTRAN_STRLEN_END
8201 , size_t
8202#endif
8203);
8204#ifdef LAPACK_FORTRAN_STRLEN_END
8205 #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__, 1)
8206#else
8207 #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__)
8208#endif
8209
8210#define LAPACK_chetrs_aa_base LAPACK_GLOBAL(chetrs_aa,CHETRS_AA)
8211void LAPACK_chetrs_aa_base(
8212 char const* uplo,
8213 lapack_int const* n, lapack_int const* nrhs,
8214 lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
8215 lapack_complex_float* B, lapack_int const* ldb,
8216 lapack_complex_float* work, lapack_int const* lwork,
8217 lapack_int* info
8218#ifdef LAPACK_FORTRAN_STRLEN_END
8219 , size_t
8220#endif
8221);
8222#ifdef LAPACK_FORTRAN_STRLEN_END
8223 #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__, 1)
8224#else
8225 #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__)
8226#endif
8227
8228#define LAPACK_zhetrs_aa_base LAPACK_GLOBAL(zhetrs_aa,ZHETRS_AA)
8229void LAPACK_zhetrs_aa_base(
8230 char const* uplo,
8231 lapack_int const* n, lapack_int const* nrhs,
8232 lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
8233 lapack_complex_double* B, lapack_int const* ldb,
8234 lapack_complex_double* work, lapack_int const* lwork,
8235 lapack_int* info
8236#ifdef LAPACK_FORTRAN_STRLEN_END
8237 , size_t
8238#endif
8239);
8240#ifdef LAPACK_FORTRAN_STRLEN_END
8241 #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__, 1)
8242#else
8243 #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__)
8244#endif
8245
8246#define LAPACK_chetrs_aa_2stage_base LAPACK_GLOBAL(chetrs_aa_2stage,CHETRS_AA_2STAGE)
8247void LAPACK_chetrs_aa_2stage_base(
8248 char const* uplo,
8249 lapack_int const* n, lapack_int const* nrhs,
8250 lapack_complex_float const* A, lapack_int const* lda,
8251 lapack_complex_float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
8252 lapack_complex_float* B, lapack_int const* ldb,
8253 lapack_int* info
8254#ifdef LAPACK_FORTRAN_STRLEN_END
8255 , size_t
8256#endif
8257);
8258#ifdef LAPACK_FORTRAN_STRLEN_END
8259 #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__, 1)
8260#else
8261 #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__)
8262#endif
8263
8264#define LAPACK_zhetrs_aa_2stage_base LAPACK_GLOBAL(zhetrs_aa_2stage,ZHETRS_AA_2STAGE)
8265void LAPACK_zhetrs_aa_2stage_base(
8266 char const* uplo,
8267 lapack_int const* n, lapack_int const* nrhs,
8268 lapack_complex_double const* A, lapack_int const* lda,
8269 lapack_complex_double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
8270 lapack_complex_double* B, lapack_int const* ldb,
8271 lapack_int* info
8272#ifdef LAPACK_FORTRAN_STRLEN_END
8273 , size_t
8274#endif
8275);
8276#ifdef LAPACK_FORTRAN_STRLEN_END
8277 #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__, 1)
8278#else
8279 #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__)
8280#endif
8281
8282#define LAPACK_chetrs_rook_base LAPACK_GLOBAL(chetrs_rook,CHETRS_ROOK)
8283void LAPACK_chetrs_rook_base(
8284 char const* uplo,
8285 lapack_int const* n, lapack_int const* nrhs,
8286 lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
8287 lapack_complex_float* B, lapack_int const* ldb,
8288 lapack_int* info
8289#ifdef LAPACK_FORTRAN_STRLEN_END
8290 , size_t
8291#endif
8292);
8293#ifdef LAPACK_FORTRAN_STRLEN_END
8294 #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__, 1)
8295#else
8296 #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__)
8297#endif
8298
8299#define LAPACK_zhetrs_rook_base LAPACK_GLOBAL(zhetrs_rook,ZHETRS_ROOK)
8300void LAPACK_zhetrs_rook_base(
8301 char const* uplo,
8302 lapack_int const* n, lapack_int const* nrhs,
8303 lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
8304 lapack_complex_double* B, lapack_int const* ldb,
8305 lapack_int* info
8306#ifdef LAPACK_FORTRAN_STRLEN_END
8307 , size_t
8308#endif
8309);
8310#ifdef LAPACK_FORTRAN_STRLEN_END
8311 #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__, 1)
8312#else
8313 #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__)
8314#endif
8315
8316#define LAPACK_chfrk_base LAPACK_GLOBAL(chfrk,CHFRK)
8317void LAPACK_chfrk_base(
8318 char const* transr, char const* uplo, char const* trans,
8319 lapack_int const* n, lapack_int const* k,
8320 float const* alpha,
8321 lapack_complex_float const* A, lapack_int const* lda,
8322 float const* beta,
8323 lapack_complex_float* C
8324#ifdef LAPACK_FORTRAN_STRLEN_END
8325 , size_t, size_t, size_t
8326#endif
8327);
8328#ifdef LAPACK_FORTRAN_STRLEN_END
8329 #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__, 1, 1, 1)
8330#else
8331 #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__)
8332#endif
8333
8334#define LAPACK_zhfrk_base LAPACK_GLOBAL(zhfrk,ZHFRK)
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,
8340 double const* beta,
8341 lapack_complex_double* C
8342#ifdef LAPACK_FORTRAN_STRLEN_END
8343 , size_t, size_t, size_t
8344#endif
8345);
8346#ifdef LAPACK_FORTRAN_STRLEN_END
8347 #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__, 1, 1, 1)
8348#else
8349 #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__)
8350#endif
8351
8352#define LAPACK_chgeqz_base LAPACK_GLOBAL(chgeqz,CHGEQZ)
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,
8363 float* rwork,
8364 lapack_int* info
8365#ifdef LAPACK_FORTRAN_STRLEN_END
8366 , size_t, size_t, size_t
8367#endif
8368);
8369#ifdef LAPACK_FORTRAN_STRLEN_END
8370 #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__, 1, 1, 1)
8371#else
8372 #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__)
8373#endif
8374
8375#define LAPACK_dhgeqz_base LAPACK_GLOBAL(dhgeqz,DHGEQZ)
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,
8381 double* alphar,
8382 double* alphai,
8383 double* beta,
8384 double* Q, lapack_int const* ldq,
8385 double* Z, lapack_int const* ldz,
8386 double* work, lapack_int const* lwork,
8387 lapack_int* info
8388#ifdef LAPACK_FORTRAN_STRLEN_END
8389 , size_t, size_t, size_t
8390#endif
8391);
8392#ifdef LAPACK_FORTRAN_STRLEN_END
8393 #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__, 1, 1, 1)
8394#else
8395 #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__)
8396#endif
8397
8398#define LAPACK_shgeqz_base LAPACK_GLOBAL(shgeqz,SHGEQZ)
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,
8404 float* alphar,
8405 float* alphai,
8406 float* beta,
8407 float* Q, lapack_int const* ldq,
8408 float* Z, lapack_int const* ldz,
8409 float* work, lapack_int const* lwork,
8410 lapack_int* info
8411#ifdef LAPACK_FORTRAN_STRLEN_END
8412 , size_t, size_t, size_t
8413#endif
8414);
8415#ifdef LAPACK_FORTRAN_STRLEN_END
8416 #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__, 1, 1, 1)
8417#else
8418 #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__)
8419#endif
8420
8421#define LAPACK_zhgeqz_base LAPACK_GLOBAL(zhgeqz,ZHGEQZ)
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,
8432 double* rwork,
8433 lapack_int* info
8434#ifdef LAPACK_FORTRAN_STRLEN_END
8435 , size_t, size_t, size_t
8436#endif
8437);
8438#ifdef LAPACK_FORTRAN_STRLEN_END
8439 #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__, 1, 1, 1)
8440#else
8441 #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__)
8442#endif
8443
8444#define LAPACK_chpcon_base LAPACK_GLOBAL(chpcon,CHPCON)
8445void LAPACK_chpcon_base(
8446 char const* uplo,
8447 lapack_int const* n,
8448 lapack_complex_float const* AP, lapack_int const* ipiv,
8449 float const* anorm,
8450 float* rcond,
8451 lapack_complex_float* work,
8452 lapack_int* info
8453#ifdef LAPACK_FORTRAN_STRLEN_END
8454 , size_t
8455#endif
8456);
8457#ifdef LAPACK_FORTRAN_STRLEN_END
8458 #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__, 1)
8459#else
8460 #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__)
8461#endif
8462
8463#define LAPACK_zhpcon_base LAPACK_GLOBAL(zhpcon,ZHPCON)
8464void LAPACK_zhpcon_base(
8465 char const* uplo,
8466 lapack_int const* n,
8467 lapack_complex_double const* AP, lapack_int const* ipiv,
8468 double const* anorm,
8469 double* rcond,
8470 lapack_complex_double* work,
8471 lapack_int* info
8472#ifdef LAPACK_FORTRAN_STRLEN_END
8473 , size_t
8474#endif
8475);
8476#ifdef LAPACK_FORTRAN_STRLEN_END
8477 #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__, 1)
8478#else
8479 #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__)
8480#endif
8481
8482#define LAPACK_chpev_base LAPACK_GLOBAL(chpev,CHPEV)
8483void LAPACK_chpev_base(
8484 char const* jobz, char const* uplo,
8485 lapack_int const* n,
8486 lapack_complex_float* AP,
8487 float* W,
8488 lapack_complex_float* Z, lapack_int const* ldz,
8489 lapack_complex_float* work,
8490 float* rwork,
8491 lapack_int* info
8492#ifdef LAPACK_FORTRAN_STRLEN_END
8493 , size_t, size_t
8494#endif
8495);
8496#ifdef LAPACK_FORTRAN_STRLEN_END
8497 #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__, 1, 1)
8498#else
8499 #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__)
8500#endif
8501
8502#define LAPACK_zhpev_base LAPACK_GLOBAL(zhpev,ZHPEV)
8503void LAPACK_zhpev_base(
8504 char const* jobz, char const* uplo,
8505 lapack_int const* n,
8506 lapack_complex_double* AP,
8507 double* W,
8508 lapack_complex_double* Z, lapack_int const* ldz,
8509 lapack_complex_double* work,
8510 double* rwork,
8511 lapack_int* info
8512#ifdef LAPACK_FORTRAN_STRLEN_END
8513 , size_t, size_t
8514#endif
8515);
8516#ifdef LAPACK_FORTRAN_STRLEN_END
8517 #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__, 1, 1)
8518#else
8519 #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__)
8520#endif
8521
8522#define LAPACK_chpevd_base LAPACK_GLOBAL(chpevd,CHPEVD)
8523void LAPACK_chpevd_base(
8524 char const* jobz, char const* uplo,
8525 lapack_int const* n,
8526 lapack_complex_float* AP,
8527 float* W,
8528 lapack_complex_float* Z, lapack_int const* ldz,
8529 lapack_complex_float* work, lapack_int const* lwork,
8530 float* rwork, lapack_int const* lrwork,
8531 lapack_int* iwork, lapack_int const* liwork,
8532 lapack_int* info
8533#ifdef LAPACK_FORTRAN_STRLEN_END
8534 , size_t, size_t
8535#endif
8536);
8537#ifdef LAPACK_FORTRAN_STRLEN_END
8538 #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__, 1, 1)
8539#else
8540 #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__)
8541#endif
8542
8543#define LAPACK_zhpevd_base LAPACK_GLOBAL(zhpevd,ZHPEVD)
8544void LAPACK_zhpevd_base(
8545 char const* jobz, char const* uplo,
8546 lapack_int const* n,
8547 lapack_complex_double* AP,
8548 double* W,
8549 lapack_complex_double* Z, lapack_int const* ldz,
8550 lapack_complex_double* work, lapack_int const* lwork,
8551 double* rwork, lapack_int const* lrwork,
8552 lapack_int* iwork, lapack_int const* liwork,
8553 lapack_int* info
8554#ifdef LAPACK_FORTRAN_STRLEN_END
8555 , size_t, size_t
8556#endif
8557);
8558#ifdef LAPACK_FORTRAN_STRLEN_END
8559 #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__, 1, 1)
8560#else
8561 #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__)
8562#endif
8563
8564#define LAPACK_chpevx_base LAPACK_GLOBAL(chpevx,CHPEVX)
8565void LAPACK_chpevx_base(
8566 char const* jobz, char const* range, char const* uplo,
8567 lapack_int const* n,
8568 lapack_complex_float* AP,
8569 float const* vl,
8570 float const* vu, lapack_int const* il, lapack_int const* iu,
8571 float const* abstol, lapack_int* m,
8572 float* W,
8573 lapack_complex_float* Z, lapack_int const* ldz,
8574 lapack_complex_float* work,
8575 float* rwork,
8576 lapack_int* iwork, lapack_int* IFAIL,
8577 lapack_int* info
8578#ifdef LAPACK_FORTRAN_STRLEN_END
8579 , size_t, size_t, size_t
8580#endif
8581);
8582#ifdef LAPACK_FORTRAN_STRLEN_END
8583 #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__, 1, 1, 1)
8584#else
8585 #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__)
8586#endif
8587
8588#define LAPACK_zhpevx_base LAPACK_GLOBAL(zhpevx,ZHPEVX)
8589void LAPACK_zhpevx_base(
8590 char const* jobz, char const* range, char const* uplo,
8591 lapack_int const* n,
8592 lapack_complex_double* AP,
8593 double const* vl,
8594 double const* vu, lapack_int const* il, lapack_int const* iu,
8595 double const* abstol, lapack_int* m,
8596 double* W,
8597 lapack_complex_double* Z, lapack_int const* ldz,
8598 lapack_complex_double* work,
8599 double* rwork,
8600 lapack_int* iwork, lapack_int* IFAIL,
8601 lapack_int* info
8602#ifdef LAPACK_FORTRAN_STRLEN_END
8603 , size_t, size_t, size_t
8604#endif
8605);
8606#ifdef LAPACK_FORTRAN_STRLEN_END
8607 #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__, 1, 1, 1)
8608#else
8609 #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__)
8610#endif
8611
8612#define LAPACK_chpgst_base LAPACK_GLOBAL(chpgst,CHPGST)
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,
8618 lapack_int* info
8619#ifdef LAPACK_FORTRAN_STRLEN_END
8620 , size_t
8621#endif
8622);
8623#ifdef LAPACK_FORTRAN_STRLEN_END
8624 #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__, 1)
8625#else
8626 #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__)
8627#endif
8628
8629#define LAPACK_zhpgst_base LAPACK_GLOBAL(zhpgst,ZHPGST)
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,
8635 lapack_int* info
8636#ifdef LAPACK_FORTRAN_STRLEN_END
8637 , size_t
8638#endif
8639);
8640#ifdef LAPACK_FORTRAN_STRLEN_END
8641 #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__, 1)
8642#else
8643 #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__)
8644#endif
8645
8646#define LAPACK_chpgv_base LAPACK_GLOBAL(chpgv,CHPGV)
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,
8652 float* W,
8653 lapack_complex_float* Z, lapack_int const* ldz,
8654 lapack_complex_float* work,
8655 float* rwork,
8656 lapack_int* info
8657#ifdef LAPACK_FORTRAN_STRLEN_END
8658 , size_t, size_t
8659#endif
8660);
8661#ifdef LAPACK_FORTRAN_STRLEN_END
8662 #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__, 1, 1)
8663#else
8664 #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__)
8665#endif
8666
8667#define LAPACK_zhpgv_base LAPACK_GLOBAL(zhpgv,ZHPGV)
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,
8673 double* W,
8674 lapack_complex_double* Z, lapack_int const* ldz,
8675 lapack_complex_double* work,
8676 double* rwork,
8677 lapack_int* info
8678#ifdef LAPACK_FORTRAN_STRLEN_END
8679 , size_t, size_t
8680#endif
8681);
8682#ifdef LAPACK_FORTRAN_STRLEN_END
8683 #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__, 1, 1)
8684#else
8685 #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__)
8686#endif
8687
8688#define LAPACK_chpgvd_base LAPACK_GLOBAL(chpgvd,CHPGVD)
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,
8694 float* W,
8695 lapack_complex_float* Z, lapack_int const* ldz,
8696 lapack_complex_float* work, lapack_int const* lwork,
8697 float* rwork, lapack_int const* lrwork,
8698 lapack_int* iwork, lapack_int const* liwork,
8699 lapack_int* info
8700#ifdef LAPACK_FORTRAN_STRLEN_END
8701 , size_t, size_t
8702#endif
8703);
8704#ifdef LAPACK_FORTRAN_STRLEN_END
8705 #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__, 1, 1)
8706#else
8707 #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__)
8708#endif
8709
8710#define LAPACK_zhpgvd_base LAPACK_GLOBAL(zhpgvd,ZHPGVD)
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,
8716 double* W,
8717 lapack_complex_double* Z, lapack_int const* ldz,
8718 lapack_complex_double* work, lapack_int const* lwork,
8719 double* rwork, lapack_int const* lrwork,
8720 lapack_int* iwork, lapack_int const* liwork,
8721 lapack_int* info
8722#ifdef LAPACK_FORTRAN_STRLEN_END
8723 , size_t, size_t
8724#endif
8725);
8726#ifdef LAPACK_FORTRAN_STRLEN_END
8727 #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__, 1, 1)
8728#else
8729 #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__)
8730#endif
8731
8732#define LAPACK_chpgvx_base LAPACK_GLOBAL(chpgvx,CHPGVX)
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,
8738 float const* vl,
8739 float const* vu, lapack_int const* il, lapack_int const* iu,
8740 float const* abstol, lapack_int* m,
8741 float* W,
8742 lapack_complex_float* Z, lapack_int const* ldz,
8743 lapack_complex_float* work,
8744 float* rwork,
8745 lapack_int* iwork, lapack_int* IFAIL,
8746 lapack_int* info
8747#ifdef LAPACK_FORTRAN_STRLEN_END
8748 , size_t, size_t, size_t
8749#endif
8750);
8751#ifdef LAPACK_FORTRAN_STRLEN_END
8752 #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__, 1, 1, 1)
8753#else
8754 #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__)
8755#endif
8756
8757#define LAPACK_zhpgvx_base LAPACK_GLOBAL(zhpgvx,ZHPGVX)
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,
8763 double const* vl,
8764 double const* vu, lapack_int const* il, lapack_int const* iu,
8765 double const* abstol, lapack_int* m,
8766 double* W,
8767 lapack_complex_double* Z, lapack_int const* ldz,
8768 lapack_complex_double* work,
8769 double* rwork,
8770 lapack_int* iwork, lapack_int* IFAIL,
8771 lapack_int* info
8772#ifdef LAPACK_FORTRAN_STRLEN_END
8773 , size_t, size_t, size_t
8774#endif
8775);
8776#ifdef LAPACK_FORTRAN_STRLEN_END
8777 #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__, 1, 1, 1)
8778#else
8779 #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__)
8780#endif
8781
8782#define LAPACK_chprfs_base LAPACK_GLOBAL(chprfs,CHPRFS)
8783void LAPACK_chprfs_base(
8784 char const* uplo,
8785 lapack_int const* n, lapack_int const* nrhs,
8786 lapack_complex_float const* AP,
8787 lapack_complex_float const* AFP, lapack_int const* ipiv,
8788 lapack_complex_float const* B, lapack_int const* ldb,
8789 lapack_complex_float* X, lapack_int const* ldx,
8790 float* ferr,
8791 float* berr,
8792 lapack_complex_float* work,
8793 float* rwork,
8794 lapack_int* info
8795#ifdef LAPACK_FORTRAN_STRLEN_END
8796 , size_t
8797#endif
8798);
8799#ifdef LAPACK_FORTRAN_STRLEN_END
8800 #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__, 1)
8801#else
8802 #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__)
8803#endif
8804
8805#define LAPACK_zhprfs_base LAPACK_GLOBAL(zhprfs,ZHPRFS)
8806void LAPACK_zhprfs_base(
8807 char const* uplo,
8808 lapack_int const* n, lapack_int const* nrhs,
8809 lapack_complex_double const* AP,
8810 lapack_complex_double const* AFP, lapack_int const* ipiv,
8811 lapack_complex_double const* B, lapack_int const* ldb,
8812 lapack_complex_double* X, lapack_int const* ldx,
8813 double* ferr,
8814 double* berr,
8815 lapack_complex_double* work,
8816 double* rwork,
8817 lapack_int* info
8818#ifdef LAPACK_FORTRAN_STRLEN_END
8819 , size_t
8820#endif
8821);
8822#ifdef LAPACK_FORTRAN_STRLEN_END
8823 #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__, 1)
8824#else
8825 #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__)
8826#endif
8827
8828#define LAPACK_chpsv_base LAPACK_GLOBAL(chpsv,CHPSV)
8829void LAPACK_chpsv_base(
8830 char const* uplo,
8831 lapack_int const* n, lapack_int const* nrhs,
8832 lapack_complex_float* AP, lapack_int* ipiv,
8833 lapack_complex_float* B, lapack_int const* ldb,
8834 lapack_int* info
8835#ifdef LAPACK_FORTRAN_STRLEN_END
8836 , size_t
8837#endif
8838);
8839#ifdef LAPACK_FORTRAN_STRLEN_END
8840 #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__, 1)
8841#else
8842 #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__)
8843#endif
8844
8845#define LAPACK_zhpsv_base LAPACK_GLOBAL(zhpsv,ZHPSV)
8846void LAPACK_zhpsv_base(
8847 char const* uplo,
8848 lapack_int const* n, lapack_int const* nrhs,
8849 lapack_complex_double* AP, lapack_int* ipiv,
8850 lapack_complex_double* B, lapack_int const* ldb,
8851 lapack_int* info
8852#ifdef LAPACK_FORTRAN_STRLEN_END
8853 , size_t
8854#endif
8855);
8856#ifdef LAPACK_FORTRAN_STRLEN_END
8857 #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__, 1)
8858#else
8859 #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__)
8860#endif
8861
8862#define LAPACK_chpsvx_base LAPACK_GLOBAL(chpsvx,CHPSVX)
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,
8870 float* rcond,
8871 float* ferr,
8872 float* berr,
8873 lapack_complex_float* work,
8874 float* rwork,
8875 lapack_int* info
8876#ifdef LAPACK_FORTRAN_STRLEN_END
8877 , size_t, size_t
8878#endif
8879);
8880#ifdef LAPACK_FORTRAN_STRLEN_END
8881 #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__, 1, 1)
8882#else
8883 #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__)
8884#endif
8885
8886#define LAPACK_zhpsvx_base LAPACK_GLOBAL(zhpsvx,ZHPSVX)
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,
8894 double* rcond,
8895 double* ferr,
8896 double* berr,
8897 lapack_complex_double* work,
8898 double* rwork,
8899 lapack_int* info
8900#ifdef LAPACK_FORTRAN_STRLEN_END
8901 , size_t, size_t
8902#endif
8903);
8904#ifdef LAPACK_FORTRAN_STRLEN_END
8905 #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__, 1, 1)
8906#else
8907 #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__)
8908#endif
8909
8910#define LAPACK_chptrd_base LAPACK_GLOBAL(chptrd,CHPTRD)
8911void LAPACK_chptrd_base(
8912 char const* uplo,
8913 lapack_int const* n,
8914 lapack_complex_float* AP,
8915 float* D,
8916 float* E,
8917 lapack_complex_float* tau,
8918 lapack_int* info
8919#ifdef LAPACK_FORTRAN_STRLEN_END
8920 , size_t
8921#endif
8922);
8923#ifdef LAPACK_FORTRAN_STRLEN_END
8924 #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__, 1)
8925#else
8926 #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__)
8927#endif
8928
8929#define LAPACK_zhptrd_base LAPACK_GLOBAL(zhptrd,ZHPTRD)
8930void LAPACK_zhptrd_base(
8931 char const* uplo,
8932 lapack_int const* n,
8933 lapack_complex_double* AP,
8934 double* D,
8935 double* E,
8936 lapack_complex_double* tau,
8937 lapack_int* info
8938#ifdef LAPACK_FORTRAN_STRLEN_END
8939 , size_t
8940#endif
8941);
8942#ifdef LAPACK_FORTRAN_STRLEN_END
8943 #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__, 1)
8944#else
8945 #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__)
8946#endif
8947
8948#define LAPACK_chptrf_base LAPACK_GLOBAL(chptrf,CHPTRF)
8949void LAPACK_chptrf_base(
8950 char const* uplo,
8951 lapack_int const* n,
8952 lapack_complex_float* AP, lapack_int* ipiv,
8953 lapack_int* info
8954#ifdef LAPACK_FORTRAN_STRLEN_END
8955 , size_t
8956#endif
8957);
8958#ifdef LAPACK_FORTRAN_STRLEN_END
8959 #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__, 1)
8960#else
8961 #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__)
8962#endif
8963
8964#define LAPACK_zhptrf_base LAPACK_GLOBAL(zhptrf,ZHPTRF)
8965void LAPACK_zhptrf_base(
8966 char const* uplo,
8967 lapack_int const* n,
8968 lapack_complex_double* AP, lapack_int* ipiv,
8969 lapack_int* info
8970#ifdef LAPACK_FORTRAN_STRLEN_END
8971 , size_t
8972#endif
8973);
8974#ifdef LAPACK_FORTRAN_STRLEN_END
8975 #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__, 1)
8976#else
8977 #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__)
8978#endif
8979
8980#define LAPACK_chptri_base LAPACK_GLOBAL(chptri,CHPTRI)
8981void LAPACK_chptri_base(
8982 char const* uplo,
8983 lapack_int const* n,
8984 lapack_complex_float* AP, lapack_int const* ipiv,
8985 lapack_complex_float* work,
8986 lapack_int* info
8987#ifdef LAPACK_FORTRAN_STRLEN_END
8988 , size_t
8989#endif
8990);
8991#ifdef LAPACK_FORTRAN_STRLEN_END
8992 #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__, 1)
8993#else
8994 #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__)
8995#endif
8996
8997#define LAPACK_zhptri_base LAPACK_GLOBAL(zhptri,ZHPTRI)
8998void LAPACK_zhptri_base(
8999 char const* uplo,
9000 lapack_int const* n,
9001 lapack_complex_double* AP, lapack_int const* ipiv,
9002 lapack_complex_double* work,
9003 lapack_int* info
9004#ifdef LAPACK_FORTRAN_STRLEN_END
9005 , size_t
9006#endif
9007);
9008#ifdef LAPACK_FORTRAN_STRLEN_END
9009 #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__, 1)
9010#else
9011 #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__)
9012#endif
9013
9014#define LAPACK_chptrs_base LAPACK_GLOBAL(chptrs,CHPTRS)
9015void LAPACK_chptrs_base(
9016 char const* uplo,
9017 lapack_int const* n, lapack_int const* nrhs,
9018 lapack_complex_float const* AP, lapack_int const* ipiv,
9019 lapack_complex_float* B, lapack_int const* ldb,
9020 lapack_int* info
9021#ifdef LAPACK_FORTRAN_STRLEN_END
9022 , size_t
9023#endif
9024);
9025#ifdef LAPACK_FORTRAN_STRLEN_END
9026 #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__, 1)
9027#else
9028 #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__)
9029#endif
9030
9031#define LAPACK_zhptrs_base LAPACK_GLOBAL(zhptrs,ZHPTRS)
9032void LAPACK_zhptrs_base(
9033 char const* uplo,
9034 lapack_int const* n, lapack_int const* nrhs,
9035 lapack_complex_double const* AP, lapack_int const* ipiv,
9036 lapack_complex_double* B, lapack_int const* ldb,
9037 lapack_int* info
9038#ifdef LAPACK_FORTRAN_STRLEN_END
9039 , size_t
9040#endif
9041);
9042#ifdef LAPACK_FORTRAN_STRLEN_END
9043 #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__, 1)
9044#else
9045 #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__)
9046#endif
9047
9048#define LAPACK_chsein_base LAPACK_GLOBAL(chsein,CHSEIN)
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,
9059 lapack_int* info
9060#ifdef LAPACK_FORTRAN_STRLEN_END
9061 , size_t, size_t, size_t
9062#endif
9063);
9064#ifdef LAPACK_FORTRAN_STRLEN_END
9065 #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__, 1, 1, 1)
9066#else
9067 #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__)
9068#endif
9069
9070#define LAPACK_dhsein_base LAPACK_GLOBAL(dhsein,DHSEIN)
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,
9076 double* WR,
9077 double const* WI,
9078 double* VL, lapack_int const* ldvl,
9079 double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
9080 double* work, lapack_int* IFAILL, lapack_int* IFAILR,
9081 lapack_int* info
9082#ifdef LAPACK_FORTRAN_STRLEN_END
9083 , size_t, size_t, size_t
9084#endif
9085);
9086#ifdef LAPACK_FORTRAN_STRLEN_END
9087 #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__, 1, 1, 1)
9088#else
9089 #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__)
9090#endif
9091
9092#define LAPACK_shsein_base LAPACK_GLOBAL(shsein,SHSEIN)
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,
9098 float* WR,
9099 float const* WI,
9100 float* VL, lapack_int const* ldvl,
9101 float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
9102 float* work, lapack_int* IFAILL, lapack_int* IFAILR,
9103 lapack_int* info
9104#ifdef LAPACK_FORTRAN_STRLEN_END
9105 , size_t, size_t, size_t
9106#endif
9107);
9108#ifdef LAPACK_FORTRAN_STRLEN_END
9109 #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__, 1, 1, 1)
9110#else
9111 #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__)
9112#endif
9113
9114#define LAPACK_zhsein_base LAPACK_GLOBAL(zhsein,ZHSEIN)
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,
9125 lapack_int* info
9126#ifdef LAPACK_FORTRAN_STRLEN_END
9127 , size_t, size_t, size_t
9128#endif
9129);
9130#ifdef LAPACK_FORTRAN_STRLEN_END
9131 #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__, 1, 1, 1)
9132#else
9133 #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__)
9134#endif
9135
9136#define LAPACK_chseqr_base LAPACK_GLOBAL(chseqr,CHSEQR)
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,
9144 lapack_int* info
9145#ifdef LAPACK_FORTRAN_STRLEN_END
9146 , size_t, size_t
9147#endif
9148);
9149#ifdef LAPACK_FORTRAN_STRLEN_END
9150 #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__, 1, 1)
9151#else
9152 #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__)
9153#endif
9154
9155#define LAPACK_dhseqr_base LAPACK_GLOBAL(dhseqr,DHSEQR)
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,
9160 double* WR,
9161 double* WI,
9162 double* Z, lapack_int const* ldz,
9163 double* work, lapack_int const* lwork,
9164 lapack_int* info
9165#ifdef LAPACK_FORTRAN_STRLEN_END
9166 , size_t, size_t
9167#endif
9168);
9169#ifdef LAPACK_FORTRAN_STRLEN_END
9170 #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__, 1, 1)
9171#else
9172 #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__)
9173#endif
9174
9175#define LAPACK_shseqr_base LAPACK_GLOBAL(shseqr,SHSEQR)
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,
9180 float* WR,
9181 float* WI,
9182 float* Z, lapack_int const* ldz,
9183 float* work, lapack_int const* lwork,
9184 lapack_int* info
9185#ifdef LAPACK_FORTRAN_STRLEN_END
9186 , size_t, size_t
9187#endif
9188);
9189#ifdef LAPACK_FORTRAN_STRLEN_END
9190 #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__, 1, 1)
9191#else
9192 #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__)
9193#endif
9194
9195#define LAPACK_zhseqr_base LAPACK_GLOBAL(zhseqr,ZHSEQR)
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,
9203 lapack_int* info
9204#ifdef LAPACK_FORTRAN_STRLEN_END
9205 , size_t, size_t
9206#endif
9207);
9208#ifdef LAPACK_FORTRAN_STRLEN_END
9209 #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__, 1, 1)
9210#else
9211 #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__)
9212#endif
9213
9214#define LAPACK_clacgv LAPACK_GLOBAL(clacgv,CLACGV)
9215void LAPACK_clacgv(
9216 lapack_int const* n,
9217 lapack_complex_float* X, lapack_int const* incx );
9218
9219#define LAPACK_zlacgv LAPACK_GLOBAL(zlacgv,ZLACGV)
9220void LAPACK_zlacgv(
9221 lapack_int const* n,
9222 lapack_complex_double* X, lapack_int const* incx );
9223
9224#define LAPACK_clacn2 LAPACK_GLOBAL(clacn2,CLACN2)
9225void LAPACK_clacn2(
9226 lapack_int const* n,
9227 lapack_complex_float* V,
9228 lapack_complex_float* X,
9229 float* est, lapack_int* kase, lapack_int* ISAVE );
9230
9231#define LAPACK_dlacn2 LAPACK_GLOBAL(dlacn2,DLACN2)
9232void LAPACK_dlacn2(
9233 lapack_int const* n,
9234 double* V,
9235 double* X, lapack_int* ISGN,
9236 double* est, lapack_int* kase, lapack_int* ISAVE );
9237
9238#define LAPACK_slacn2 LAPACK_GLOBAL(slacn2,SLACN2)
9239void LAPACK_slacn2(
9240 lapack_int const* n,
9241 float* V,
9242 float* X, lapack_int* ISGN,
9243 float* est, lapack_int* kase, lapack_int* ISAVE );
9244
9245#define LAPACK_zlacn2 LAPACK_GLOBAL(zlacn2,ZLACN2)
9246void LAPACK_zlacn2(
9247 lapack_int const* n,
9248 lapack_complex_double* V,
9249 lapack_complex_double* X,
9250 double* est, lapack_int* kase, lapack_int* ISAVE );
9251
9252#define LAPACK_clacp2_base LAPACK_GLOBAL(clacp2,CLACP2)
9253void LAPACK_clacp2_base(
9254 char const* uplo,
9255 lapack_int const* m, lapack_int const* n,
9256 float const* A, lapack_int const* lda,
9257 lapack_complex_float* B, lapack_int const* ldb
9258#ifdef LAPACK_FORTRAN_STRLEN_END
9259 , size_t
9260#endif
9261);
9262#ifdef LAPACK_FORTRAN_STRLEN_END
9263 #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__, 1)
9264#else
9265 #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__)
9266#endif
9267
9268#define LAPACK_zlacp2_base LAPACK_GLOBAL(zlacp2,ZLACP2)
9269void LAPACK_zlacp2_base(
9270 char const* uplo,
9271 lapack_int const* m, lapack_int const* n,
9272 double const* A, lapack_int const* lda,
9273 lapack_complex_double* B, lapack_int const* ldb
9274#ifdef LAPACK_FORTRAN_STRLEN_END
9275 , size_t
9276#endif
9277);
9278#ifdef LAPACK_FORTRAN_STRLEN_END
9279 #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__, 1)
9280#else
9281 #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__)
9282#endif
9283
9284#define LAPACK_clacpy_base LAPACK_GLOBAL(clacpy,CLACPY)
9285void LAPACK_clacpy_base(
9286 char const* uplo,
9287 lapack_int const* m, lapack_int const* n,
9288 lapack_complex_float const* A, lapack_int const* lda,
9289 lapack_complex_float* B, lapack_int const* ldb
9290#ifdef LAPACK_FORTRAN_STRLEN_END
9291 , size_t
9292#endif
9293);
9294#ifdef LAPACK_FORTRAN_STRLEN_END
9295 #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__, 1)
9296#else
9297 #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__)
9298#endif
9299
9300#define LAPACK_dlacpy_base LAPACK_GLOBAL(dlacpy,DLACPY)
9301void LAPACK_dlacpy_base(
9302 char const* uplo,
9303 lapack_int const* m, lapack_int const* n,
9304 double const* A, lapack_int const* lda,
9305 double* B, lapack_int const* ldb
9306#ifdef LAPACK_FORTRAN_STRLEN_END
9307 , size_t
9308#endif
9309);
9310#ifdef LAPACK_FORTRAN_STRLEN_END
9311 #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__, 1)
9312#else
9313 #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__)
9314#endif
9315
9316#define LAPACK_slacpy_base LAPACK_GLOBAL(slacpy,SLACPY)
9317void LAPACK_slacpy_base(
9318 char const* uplo,
9319 lapack_int const* m, lapack_int const* n,
9320 float const* A, lapack_int const* lda,
9321 float* B, lapack_int const* ldb
9322#ifdef LAPACK_FORTRAN_STRLEN_END
9323 , size_t
9324#endif
9325);
9326#ifdef LAPACK_FORTRAN_STRLEN_END
9327 #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__, 1)
9328#else
9329 #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__)
9330#endif
9331
9332#define LAPACK_zlacpy_base LAPACK_GLOBAL(zlacpy,ZLACPY)
9333void LAPACK_zlacpy_base(
9334 char const* uplo,
9335 lapack_int const* m, lapack_int const* n,
9336 lapack_complex_double const* A, lapack_int const* lda,
9337 lapack_complex_double* B, lapack_int const* ldb
9338#ifdef LAPACK_FORTRAN_STRLEN_END
9339 , size_t
9340#endif
9341);
9342#ifdef LAPACK_FORTRAN_STRLEN_END
9343 #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__, 1)
9344#else
9345 #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__)
9346#endif
9347
9348#define LAPACK_clacrm LAPACK_GLOBAL(clacrm,CLACRM)
9349void LAPACK_clacrm(
9350 lapack_int const* m, lapack_int const* n,
9351 lapack_complex_float const* A, lapack_int const* lda,
9352 float const* B, lapack_int const* ldb,
9353 lapack_complex_float* C, lapack_int const* ldc,
9354 float* rwork );
9355
9356#define LAPACK_zlacrm LAPACK_GLOBAL(zlacrm,ZLACRM)
9357void LAPACK_zlacrm(
9358 lapack_int const* m, lapack_int const* n,
9359 lapack_complex_double const* A, lapack_int const* lda,
9360 double const* B, lapack_int const* ldb,
9361 lapack_complex_double* C, lapack_int const* ldc,
9362 double* rwork );
9363
9364#define LAPACK_zlag2c LAPACK_GLOBAL(zlag2c,ZLAG2C)
9365void LAPACK_zlag2c(
9366 lapack_int const* m, lapack_int const* n,
9367 lapack_complex_double const* A, lapack_int const* lda,
9368 lapack_complex_float* SA, lapack_int const* ldsa,
9369 lapack_int* info );
9370
9371#define LAPACK_slag2d LAPACK_GLOBAL(slag2d,SLAG2D)
9372void LAPACK_slag2d(
9373 lapack_int const* m, lapack_int const* n,
9374 float const* SA, lapack_int const* ldsa,
9375 double* A, lapack_int const* lda,
9376 lapack_int* info );
9377
9378#define LAPACK_dlag2s LAPACK_GLOBAL(dlag2s,DLAG2S)
9379void LAPACK_dlag2s(
9380 lapack_int const* m, lapack_int const* n,
9381 double const* A, lapack_int const* lda,
9382 float* SA, lapack_int const* ldsa,
9383 lapack_int* info );
9384
9385#define LAPACK_clag2z LAPACK_GLOBAL(clag2z,CLAG2Z)
9386void LAPACK_clag2z(
9387 lapack_int const* m, lapack_int const* n,
9388 lapack_complex_float const* SA, lapack_int const* ldsa,
9389 lapack_complex_double* A, lapack_int const* lda,
9390 lapack_int* info );
9391
9392#define LAPACK_clagge LAPACK_GLOBAL(clagge,CLAGGE)
9393void LAPACK_clagge(
9394 lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9395 float const* D,
9396 lapack_complex_float* A, lapack_int const* lda, lapack_int* iseed,
9397 lapack_complex_float* work,
9398 lapack_int* info );
9399
9400#define LAPACK_dlagge LAPACK_GLOBAL(dlagge,DLAGGE)
9401void LAPACK_dlagge(
9402 lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9403 double const* D,
9404 double* A, lapack_int const* lda, lapack_int* iseed,
9405 double* work,
9406 lapack_int* info );
9407
9408#define LAPACK_slagge LAPACK_GLOBAL(slagge,SLAGGE)
9409void LAPACK_slagge(
9410 lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9411 float const* D,
9412 float* A, lapack_int const* lda, lapack_int* iseed,
9413 float* work,
9414 lapack_int* info );
9415
9416#define LAPACK_zlagge LAPACK_GLOBAL(zlagge,ZLAGGE)
9417void LAPACK_zlagge(
9418 lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9419 double const* D,
9420 lapack_complex_double* A, lapack_int const* lda, lapack_int* iseed,
9421 lapack_complex_double* work,
9422 lapack_int* info );
9423
9424#define LAPACK_claghe LAPACK_GLOBAL(claghe,CLAGHE)
9425void LAPACK_claghe(
9426 lapack_int const* n, lapack_int const* k,
9427 float const* D,
9428 lapack_complex_float* A, lapack_int const* lda, lapack_int* iseed,
9429 lapack_complex_float* work,
9430 lapack_int* info );
9431
9432#define LAPACK_zlaghe LAPACK_GLOBAL(zlaghe,ZLAGHE)
9433void LAPACK_zlaghe(
9434 lapack_int const* n, lapack_int const* k,
9435 double const* D,
9436 lapack_complex_double* A, lapack_int const* lda, lapack_int* iseed,
9437 lapack_complex_double* work,
9438 lapack_int* info );
9439
9440#define LAPACK_clagsy LAPACK_GLOBAL(clagsy,CLAGSY)
9441void LAPACK_clagsy(
9442 lapack_int const* n, lapack_int const* k,
9443 float const* D,
9444 lapack_complex_float* A, lapack_int const* lda, lapack_int* iseed,
9445 lapack_complex_float* work,
9446 lapack_int* info );
9447
9448#define LAPACK_dlagsy LAPACK_GLOBAL(dlagsy,DLAGSY)
9449void LAPACK_dlagsy(
9450 lapack_int const* n, lapack_int const* k,
9451 double const* D,
9452 double* A, lapack_int const* lda, lapack_int* iseed,
9453 double* work,
9454 lapack_int* info );
9455
9456#define LAPACK_slagsy LAPACK_GLOBAL(slagsy,SLAGSY)
9457void LAPACK_slagsy(
9458 lapack_int const* n, lapack_int const* k,
9459 float const* D,
9460 float* A, lapack_int const* lda, lapack_int* iseed,
9461 float* work,
9462 lapack_int* info );
9463
9464#define LAPACK_zlagsy LAPACK_GLOBAL(zlagsy,ZLAGSY)
9465void LAPACK_zlagsy(
9466 lapack_int const* n, lapack_int const* k,
9467 double const* D,
9468 lapack_complex_double* A, lapack_int const* lda, lapack_int* iseed,
9469 lapack_complex_double* work,
9470 lapack_int* info );
9471
9472#define LAPACK_dlamch_base LAPACK_GLOBAL(dlamch,DLAMCH)
9473double LAPACK_dlamch_base(
9474 char const* cmach
9475#ifdef LAPACK_FORTRAN_STRLEN_END
9476 , size_t
9477#endif
9478);
9479#ifdef LAPACK_FORTRAN_STRLEN_END
9480 #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__, 1)
9481#else
9482 #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__)
9483#endif
9484
9485#define LAPACK_slamch_base LAPACK_GLOBAL(slamch,SLAMCH)
9486lapack_float_return LAPACK_slamch_base(
9487 char const* cmach
9488#ifdef LAPACK_FORTRAN_STRLEN_END
9489 , size_t
9490#endif
9491);
9492#ifdef LAPACK_FORTRAN_STRLEN_END
9493 #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__, 1)
9494#else
9495 #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__)
9496#endif
9497
9498#define LAPACK_clangb_base LAPACK_GLOBAL(clangb,CLANGB)
9499lapack_float_return LAPACK_clangb_base(
9500 char const* norm,
9501 lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9502 lapack_complex_float const* AB, lapack_int const* ldab,
9503 float* work
9504#ifdef LAPACK_FORTRAN_STRLEN_END
9505 , size_t
9506#endif
9507);
9508#ifdef LAPACK_FORTRAN_STRLEN_END
9509 #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__, 1)
9510#else
9511 #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__)
9512#endif
9513
9514#define LAPACK_dlangb_base LAPACK_GLOBAL(dlangb,DLANGB)
9515double LAPACK_dlangb_base(
9516 char const* norm,
9517 lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9518 double const* AB, lapack_int const* ldab,
9519 double* work
9520#ifdef LAPACK_FORTRAN_STRLEN_END
9521 , size_t
9522#endif
9523);
9524#ifdef LAPACK_FORTRAN_STRLEN_END
9525 #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__, 1)
9526#else
9527 #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__)
9528#endif
9529
9530#define LAPACK_slangb_base LAPACK_GLOBAL(slangb,SLANGB)
9531lapack_float_return LAPACK_slangb_base(
9532 char const* norm,
9533 lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9534 float const* AB, lapack_int const* ldab,
9535 float* work
9536#ifdef LAPACK_FORTRAN_STRLEN_END
9537 , size_t
9538#endif
9539);
9540#ifdef LAPACK_FORTRAN_STRLEN_END
9541 #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__, 1)
9542#else
9543 #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__)
9544#endif
9545
9546#define LAPACK_zlangb_base LAPACK_GLOBAL(zlangb,ZLANGB)
9547double LAPACK_zlangb_base(
9548 char const* norm,
9549 lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9550 lapack_complex_double const* AB, lapack_int const* ldab,
9551 double* work
9552#ifdef LAPACK_FORTRAN_STRLEN_END
9553 , size_t
9554#endif
9555);
9556#ifdef LAPACK_FORTRAN_STRLEN_END
9557 #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__, 1)
9558#else
9559 #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__)
9560#endif
9561
9562#define LAPACK_clange_base LAPACK_GLOBAL(clange,CLANGE)
9563lapack_float_return LAPACK_clange_base(
9564 char const* norm,
9565 lapack_int const* m, lapack_int const* n,
9566 lapack_complex_float const* A, lapack_int const* lda,
9567 float* work
9568#ifdef LAPACK_FORTRAN_STRLEN_END
9569 , size_t
9570#endif
9571);
9572#ifdef LAPACK_FORTRAN_STRLEN_END
9573 #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__, 1)
9574#else
9575 #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__)
9576#endif
9577
9578#define LAPACK_dlange_base LAPACK_GLOBAL(dlange,DLANGE)
9579double LAPACK_dlange_base(
9580 char const* norm,
9581 lapack_int const* m, lapack_int const* n,
9582 double const* A, lapack_int const* lda,
9583 double* work
9584#ifdef LAPACK_FORTRAN_STRLEN_END
9585 , size_t
9586#endif
9587);
9588#ifdef LAPACK_FORTRAN_STRLEN_END
9589 #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__, 1)
9590#else
9591 #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__)
9592#endif
9593
9594#define LAPACK_slange_base LAPACK_GLOBAL(slange,SLANGE)
9595lapack_float_return LAPACK_slange_base(
9596 char const* norm,
9597 lapack_int const* m, lapack_int const* n,
9598 float const* A, lapack_int const* lda,
9599 float* work
9600#ifdef LAPACK_FORTRAN_STRLEN_END
9601 , size_t
9602#endif
9603);
9604#ifdef LAPACK_FORTRAN_STRLEN_END
9605 #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__, 1)
9606#else
9607 #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__)
9608#endif
9609
9610#define LAPACK_zlange_base LAPACK_GLOBAL(zlange,ZLANGE)
9611double LAPACK_zlange_base(
9612 char const* norm,
9613 lapack_int const* m, lapack_int const* n,
9614 lapack_complex_double const* A, lapack_int const* lda,
9615 double* work
9616#ifdef LAPACK_FORTRAN_STRLEN_END
9617 , size_t
9618#endif
9619);
9620#ifdef LAPACK_FORTRAN_STRLEN_END
9621 #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__, 1)
9622#else
9623 #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__)
9624#endif
9625
9626#define LAPACK_clangt_base LAPACK_GLOBAL(clangt,CLANGT)
9627lapack_float_return LAPACK_clangt_base(
9628 char const* norm,
9629 lapack_int const* n,
9630 lapack_complex_float const* DL,
9631 lapack_complex_float const* D,
9632 lapack_complex_float const* DU
9633#ifdef LAPACK_FORTRAN_STRLEN_END
9634 , size_t
9635#endif
9636);
9637#ifdef LAPACK_FORTRAN_STRLEN_END
9638 #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__, 1)
9639#else
9640 #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__)
9641#endif
9642
9643#define LAPACK_dlangt_base LAPACK_GLOBAL(dlangt,DLANGT)
9644double LAPACK_dlangt_base(
9645 char const* norm,
9646 lapack_int const* n,
9647 double const* DL,
9648 double const* D,
9649 double const* DU
9650#ifdef LAPACK_FORTRAN_STRLEN_END
9651 , size_t
9652#endif
9653);
9654#ifdef LAPACK_FORTRAN_STRLEN_END
9655 #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__, 1)
9656#else
9657 #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__)
9658#endif
9659
9660#define LAPACK_slangt_base LAPACK_GLOBAL(slangt,SLANGT)
9661lapack_float_return LAPACK_slangt_base(
9662 char const* norm,
9663 lapack_int const* n,
9664 float const* DL,
9665 float const* D,
9666 float const* DU
9667#ifdef LAPACK_FORTRAN_STRLEN_END
9668 , size_t
9669#endif
9670);
9671#ifdef LAPACK_FORTRAN_STRLEN_END
9672 #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__, 1)
9673#else
9674 #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__)
9675#endif
9676
9677#define LAPACK_zlangt_base LAPACK_GLOBAL(zlangt,ZLANGT)
9678double LAPACK_zlangt_base(
9679 char const* norm,
9680 lapack_int const* n,
9681 lapack_complex_double const* DL,
9682 lapack_complex_double const* D,
9683 lapack_complex_double const* DU
9684#ifdef LAPACK_FORTRAN_STRLEN_END
9685 , size_t
9686#endif
9687);
9688#ifdef LAPACK_FORTRAN_STRLEN_END
9689 #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__, 1)
9690#else
9691 #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__)
9692#endif
9693
9694#define LAPACK_clanhb_base LAPACK_GLOBAL(clanhb,CLANHB)
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,
9699 float* work
9700#ifdef LAPACK_FORTRAN_STRLEN_END
9701 , size_t, size_t
9702#endif
9703);
9704#ifdef LAPACK_FORTRAN_STRLEN_END
9705 #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__, 1, 1)
9706#else
9707 #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__)
9708#endif
9709
9710#define LAPACK_zlanhb_base LAPACK_GLOBAL(zlanhb,ZLANHB)
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,
9715 double* work
9716#ifdef LAPACK_FORTRAN_STRLEN_END
9717 , size_t, size_t
9718#endif
9719);
9720#ifdef LAPACK_FORTRAN_STRLEN_END
9721 #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__, 1, 1)
9722#else
9723 #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__)
9724#endif
9725
9726#define LAPACK_clanhe_base LAPACK_GLOBAL(clanhe,CLANHE)
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,
9731 float* work
9732#ifdef LAPACK_FORTRAN_STRLEN_END
9733 , size_t, size_t
9734#endif
9735);
9736#ifdef LAPACK_FORTRAN_STRLEN_END
9737 #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__, 1, 1)
9738#else
9739 #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__)
9740#endif
9741
9742#define LAPACK_zlanhe_base LAPACK_GLOBAL(zlanhe,ZLANHE)
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,
9747 double* work
9748#ifdef LAPACK_FORTRAN_STRLEN_END
9749 , size_t, size_t
9750#endif
9751);
9752#ifdef LAPACK_FORTRAN_STRLEN_END
9753 #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__, 1, 1)
9754#else
9755 #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__)
9756#endif
9757
9758#define LAPACK_clanhp_base LAPACK_GLOBAL(clanhp,CLANHP)
9759lapack_float_return LAPACK_clanhp_base(
9760 char const* norm, char const* uplo,
9761 lapack_int const* n,
9762 lapack_complex_float const* AP,
9763 float* work
9764#ifdef LAPACK_FORTRAN_STRLEN_END
9765 , size_t, size_t
9766#endif
9767);
9768#ifdef LAPACK_FORTRAN_STRLEN_END
9769 #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__, 1, 1)
9770#else
9771 #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__)
9772#endif
9773
9774#define LAPACK_zlanhp_base LAPACK_GLOBAL(zlanhp,ZLANHP)
9775double LAPACK_zlanhp_base(
9776 char const* norm, char const* uplo,
9777 lapack_int const* n,
9778 lapack_complex_double const* AP,
9779 double* work
9780#ifdef LAPACK_FORTRAN_STRLEN_END
9781 , size_t, size_t
9782#endif
9783);
9784#ifdef LAPACK_FORTRAN_STRLEN_END
9785 #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__, 1, 1)
9786#else
9787 #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__)
9788#endif
9789
9790#define LAPACK_clanhs_base LAPACK_GLOBAL(clanhs,CLANHS)
9791lapack_float_return LAPACK_clanhs_base(
9792 char const* norm,
9793 lapack_int const* n,
9794 lapack_complex_float const* A, lapack_int const* lda,
9795 float* work
9796#ifdef LAPACK_FORTRAN_STRLEN_END
9797 , size_t
9798#endif
9799);
9800#ifdef LAPACK_FORTRAN_STRLEN_END
9801 #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__, 1)
9802#else
9803 #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__)
9804#endif
9805
9806#define LAPACK_dlanhs_base LAPACK_GLOBAL(dlanhs,DLANHS)
9807double LAPACK_dlanhs_base(
9808 char const* norm,
9809 lapack_int const* n,
9810 double const* A, lapack_int const* lda,
9811 double* work
9812#ifdef LAPACK_FORTRAN_STRLEN_END
9813 , size_t
9814#endif
9815);
9816#ifdef LAPACK_FORTRAN_STRLEN_END
9817 #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__, 1)
9818#else
9819 #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__)
9820#endif
9821
9822#define LAPACK_slanhs_base LAPACK_GLOBAL(slanhs,SLANHS)
9823lapack_float_return LAPACK_slanhs_base(
9824 char const* norm,
9825 lapack_int const* n,
9826 float const* A, lapack_int const* lda,
9827 float* work
9828#ifdef LAPACK_FORTRAN_STRLEN_END
9829 , size_t
9830#endif
9831);
9832#ifdef LAPACK_FORTRAN_STRLEN_END
9833 #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__, 1)
9834#else
9835 #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__)
9836#endif
9837
9838#define LAPACK_zlanhs_base LAPACK_GLOBAL(zlanhs,ZLANHS)
9839double LAPACK_zlanhs_base(
9840 char const* norm,
9841 lapack_int const* n,
9842 lapack_complex_double const* A, lapack_int const* lda,
9843 double* work
9844#ifdef LAPACK_FORTRAN_STRLEN_END
9845 , size_t
9846#endif
9847);
9848#ifdef LAPACK_FORTRAN_STRLEN_END
9849 #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__, 1)
9850#else
9851 #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__)
9852#endif
9853
9854#define LAPACK_clanht_base LAPACK_GLOBAL(clanht,CLANHT)
9855lapack_float_return LAPACK_clanht_base(
9856 char const* norm,
9857 lapack_int const* n,
9858 float const* D,
9859 lapack_complex_float const* E
9860#ifdef LAPACK_FORTRAN_STRLEN_END
9861 , size_t
9862#endif
9863);
9864#ifdef LAPACK_FORTRAN_STRLEN_END
9865 #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__, 1)
9866#else
9867 #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__)
9868#endif
9869
9870#define LAPACK_zlanht_base LAPACK_GLOBAL(zlanht,ZLANHT)
9871double LAPACK_zlanht_base(
9872 char const* norm,
9873 lapack_int const* n,
9874 double const* D,
9875 lapack_complex_double const* E
9876#ifdef LAPACK_FORTRAN_STRLEN_END
9877 , size_t
9878#endif
9879);
9880#ifdef LAPACK_FORTRAN_STRLEN_END
9881 #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__, 1)
9882#else
9883 #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__)
9884#endif
9885
9886#define LAPACK_clansb_base LAPACK_GLOBAL(clansb,CLANSB)
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,
9891 float* work
9892#ifdef LAPACK_FORTRAN_STRLEN_END
9893 , size_t, size_t
9894#endif
9895);
9896#ifdef LAPACK_FORTRAN_STRLEN_END
9897 #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__, 1, 1)
9898#else
9899 #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__)
9900#endif
9901
9902#define LAPACK_dlansb_base LAPACK_GLOBAL(dlansb,DLANSB)
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,
9907 double* work
9908#ifdef LAPACK_FORTRAN_STRLEN_END
9909 , size_t, size_t
9910#endif
9911);
9912#ifdef LAPACK_FORTRAN_STRLEN_END
9913 #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__, 1, 1)
9914#else
9915 #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__)
9916#endif
9917
9918#define LAPACK_slansb_base LAPACK_GLOBAL(slansb,SLANSB)
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,
9923 float* work
9924#ifdef LAPACK_FORTRAN_STRLEN_END
9925 , size_t, size_t
9926#endif
9927);
9928#ifdef LAPACK_FORTRAN_STRLEN_END
9929 #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__, 1, 1)
9930#else
9931 #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__)
9932#endif
9933
9934#define LAPACK_zlansb_base LAPACK_GLOBAL(zlansb,ZLANSB)
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,
9939 double* work
9940#ifdef LAPACK_FORTRAN_STRLEN_END
9941 , size_t, size_t
9942#endif
9943);
9944#ifdef LAPACK_FORTRAN_STRLEN_END
9945 #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__, 1, 1)
9946#else
9947 #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__)
9948#endif
9949
9950#define LAPACK_clansp_base LAPACK_GLOBAL(clansp,CLANSP)
9951lapack_float_return LAPACK_clansp_base(
9952 char const* norm, char const* uplo,
9953 lapack_int const* n,
9954 lapack_complex_float const* AP,
9955 float* work
9956#ifdef LAPACK_FORTRAN_STRLEN_END
9957 , size_t, size_t
9958#endif
9959);
9960#ifdef LAPACK_FORTRAN_STRLEN_END
9961 #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__, 1, 1)
9962#else
9963 #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__)
9964#endif
9965
9966#define LAPACK_dlansp_base LAPACK_GLOBAL(dlansp,DLANSP)
9967double LAPACK_dlansp_base(
9968 char const* norm, char const* uplo,
9969 lapack_int const* n,
9970 double const* AP,
9971 double* work
9972#ifdef LAPACK_FORTRAN_STRLEN_END
9973 , size_t, size_t
9974#endif
9975);
9976#ifdef LAPACK_FORTRAN_STRLEN_END
9977 #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__, 1, 1)
9978#else
9979 #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__)
9980#endif
9981
9982#define LAPACK_slansp_base LAPACK_GLOBAL(slansp,SLANSP)
9983lapack_float_return LAPACK_slansp_base(
9984 char const* norm, char const* uplo,
9985 lapack_int const* n,
9986 float const* AP,
9987 float* work
9988#ifdef LAPACK_FORTRAN_STRLEN_END
9989 , size_t, size_t
9990#endif
9991);
9992#ifdef LAPACK_FORTRAN_STRLEN_END
9993 #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__, 1, 1)
9994#else
9995 #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__)
9996#endif
9997
9998#define LAPACK_zlansp_base LAPACK_GLOBAL(zlansp,ZLANSP)
9999double LAPACK_zlansp_base(
10000 char const* norm, char const* uplo,
10001 lapack_int const* n,
10002 lapack_complex_double const* AP,
10003 double* work
10004#ifdef LAPACK_FORTRAN_STRLEN_END
10005 , size_t, size_t
10006#endif
10007);
10008#ifdef LAPACK_FORTRAN_STRLEN_END
10009 #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__, 1, 1)
10010#else
10011 #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__)
10012#endif
10013
10014#define LAPACK_dlanst_base LAPACK_GLOBAL(dlanst,DLANST)
10015double LAPACK_dlanst_base(
10016 char const* norm,
10017 lapack_int const* n,
10018 double const* D,
10019 double const* E
10020#ifdef LAPACK_FORTRAN_STRLEN_END
10021 , size_t
10022#endif
10023);
10024#ifdef LAPACK_FORTRAN_STRLEN_END
10025 #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__, 1)
10026#else
10027 #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__)
10028#endif
10029
10030#define LAPACK_slanst_base LAPACK_GLOBAL(slanst,SLANST)
10031lapack_float_return LAPACK_slanst_base(
10032 char const* norm,
10033 lapack_int const* n,
10034 float const* D,
10035 float const* E
10036#ifdef LAPACK_FORTRAN_STRLEN_END
10037 , size_t
10038#endif
10039);
10040#ifdef LAPACK_FORTRAN_STRLEN_END
10041 #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__, 1)
10042#else
10043 #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__)
10044#endif
10045
10046#define LAPACK_clansy_base LAPACK_GLOBAL(clansy,CLANSY)
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,
10051 float* work
10052#ifdef LAPACK_FORTRAN_STRLEN_END
10053 , size_t, size_t
10054#endif
10055);
10056#ifdef LAPACK_FORTRAN_STRLEN_END
10057 #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__, 1, 1)
10058#else
10059 #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__)
10060#endif
10061
10062#define LAPACK_dlansy_base LAPACK_GLOBAL(dlansy,DLANSY)
10063double LAPACK_dlansy_base(
10064 char const* norm, char const* uplo,
10065 lapack_int const* n,
10066 double const* A, lapack_int const* lda,
10067 double* work
10068#ifdef LAPACK_FORTRAN_STRLEN_END
10069 , size_t, size_t
10070#endif
10071);
10072#ifdef LAPACK_FORTRAN_STRLEN_END
10073 #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__, 1, 1)
10074#else
10075 #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__)
10076#endif
10077
10078#define LAPACK_slansy_base LAPACK_GLOBAL(slansy,SLANSY)
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,
10083 float* work
10084#ifdef LAPACK_FORTRAN_STRLEN_END
10085 , size_t, size_t
10086#endif
10087);
10088#ifdef LAPACK_FORTRAN_STRLEN_END
10089 #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__, 1, 1)
10090#else
10091 #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__)
10092#endif
10093
10094#define LAPACK_zlansy_base LAPACK_GLOBAL(zlansy,ZLANSY)
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,
10099 double* work
10100#ifdef LAPACK_FORTRAN_STRLEN_END
10101 , size_t, size_t
10102#endif
10103);
10104#ifdef LAPACK_FORTRAN_STRLEN_END
10105 #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__, 1, 1)
10106#else
10107 #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__)
10108#endif
10109
10110#define LAPACK_clantb_base LAPACK_GLOBAL(clantb,CLANTB)
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,
10115 float* work
10116#ifdef LAPACK_FORTRAN_STRLEN_END
10117 , size_t, size_t, size_t
10118#endif
10119);
10120#ifdef LAPACK_FORTRAN_STRLEN_END
10121 #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__, 1, 1, 1)
10122#else
10123 #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__)
10124#endif
10125
10126#define LAPACK_dlantb_base LAPACK_GLOBAL(dlantb,DLANTB)
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,
10131 double* work
10132#ifdef LAPACK_FORTRAN_STRLEN_END
10133 , size_t, size_t, size_t
10134#endif
10135);
10136#ifdef LAPACK_FORTRAN_STRLEN_END
10137 #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__, 1, 1, 1)
10138#else
10139 #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__)
10140#endif
10141
10142#define LAPACK_slantb_base LAPACK_GLOBAL(slantb,SLANTB)
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,
10147 float* work
10148#ifdef LAPACK_FORTRAN_STRLEN_END
10149 , size_t, size_t, size_t
10150#endif
10151);
10152#ifdef LAPACK_FORTRAN_STRLEN_END
10153 #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__, 1, 1, 1)
10154#else
10155 #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__)
10156#endif
10157
10158#define LAPACK_zlantb_base LAPACK_GLOBAL(zlantb,ZLANTB)
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,
10163 double* work
10164#ifdef LAPACK_FORTRAN_STRLEN_END
10165 , size_t, size_t, size_t
10166#endif
10167);
10168#ifdef LAPACK_FORTRAN_STRLEN_END
10169 #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__, 1, 1, 1)
10170#else
10171 #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__)
10172#endif
10173
10174#define LAPACK_clantp_base LAPACK_GLOBAL(clantp,CLANTP)
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,
10179 float* work
10180#ifdef LAPACK_FORTRAN_STRLEN_END
10181 , size_t, size_t, size_t
10182#endif
10183);
10184#ifdef LAPACK_FORTRAN_STRLEN_END
10185 #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__, 1, 1, 1)
10186#else
10187 #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__)
10188#endif
10189
10190#define LAPACK_dlantp_base LAPACK_GLOBAL(dlantp,DLANTP)
10191double LAPACK_dlantp_base(
10192 char const* norm, char const* uplo, char const* diag,
10193 lapack_int const* n,
10194 double const* AP,
10195 double* work
10196#ifdef LAPACK_FORTRAN_STRLEN_END
10197 , size_t, size_t, size_t
10198#endif
10199);
10200#ifdef LAPACK_FORTRAN_STRLEN_END
10201 #define LAPACK_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__, 1, 1, 1)
10202#else
10203 #define LAPACK_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__)
10204#endif
10205
10206#define LAPACK_slantp_base LAPACK_GLOBAL(slantp,SLANTP)
10207lapack_float_return LAPACK_slantp_base(
10208 char const* norm, char const* uplo, char const* diag,
10209 lapack_int const* n,
10210 float const* AP,
10211 float* work
10212#ifdef LAPACK_FORTRAN_STRLEN_END
10213 , size_t, size_t, size_t
10214#endif
10215);
10216#ifdef LAPACK_FORTRAN_STRLEN_END
10217 #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__, 1, 1, 1)
10218#else
10219 #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__)
10220#endif
10221
10222#define LAPACK_zlantp_base LAPACK_GLOBAL(zlantp,ZLANTP)
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,
10227 double* work
10228#ifdef LAPACK_FORTRAN_STRLEN_END
10229 , size_t, size_t, size_t
10230#endif
10231);
10232#ifdef LAPACK_FORTRAN_STRLEN_END
10233 #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__, 1, 1, 1)
10234#else
10235 #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__)
10236#endif
10237
10238#define LAPACK_clantr_base LAPACK_GLOBAL(clantr,CLANTR)
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,
10243 float* work
10244#ifdef LAPACK_FORTRAN_STRLEN_END
10245 , size_t, size_t, size_t
10246#endif
10247);
10248#ifdef LAPACK_FORTRAN_STRLEN_END
10249 #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__, 1, 1, 1)
10250#else
10251 #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__)
10252#endif
10253
10254#define LAPACK_dlantr_base LAPACK_GLOBAL(dlantr,DLANTR)
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,
10259 double* work
10260#ifdef LAPACK_FORTRAN_STRLEN_END
10261 , size_t, size_t, size_t
10262#endif
10263);
10264#ifdef LAPACK_FORTRAN_STRLEN_END
10265 #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__, 1, 1, 1)
10266#else
10267 #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__)
10268#endif
10269
10270#define LAPACK_slantr_base LAPACK_GLOBAL(slantr,SLANTR)
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,
10275 float* work
10276#ifdef LAPACK_FORTRAN_STRLEN_END
10277 , size_t, size_t, size_t
10278#endif
10279);
10280#ifdef LAPACK_FORTRAN_STRLEN_END
10281 #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__, 1, 1, 1)
10282#else
10283 #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__)
10284#endif
10285
10286#define LAPACK_zlantr_base LAPACK_GLOBAL(zlantr,ZLANTR)
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,
10291 double* work
10292#ifdef LAPACK_FORTRAN_STRLEN_END
10293 , size_t, size_t, size_t
10294#endif
10295);
10296#ifdef LAPACK_FORTRAN_STRLEN_END
10297 #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__, 1, 1, 1)
10298#else
10299 #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__)
10300#endif
10301
10302#define LAPACK_clapmr LAPACK_GLOBAL(clapmr,CLAPMR)
10303void LAPACK_clapmr(
10304 lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10305 lapack_complex_float* X, lapack_int const* ldx, lapack_int* K );
10306
10307#define LAPACK_dlapmr LAPACK_GLOBAL(dlapmr,DLAPMR)
10308void LAPACK_dlapmr(
10309 lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10310 double* X, lapack_int const* ldx, lapack_int* K );
10311
10312#define LAPACK_slapmr LAPACK_GLOBAL(slapmr,SLAPMR)
10313void LAPACK_slapmr(
10314 lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10315 float* X, lapack_int const* ldx, lapack_int* K );
10316
10317#define LAPACK_zlapmr LAPACK_GLOBAL(zlapmr,ZLAPMR)
10318void LAPACK_zlapmr(
10319 lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10320 lapack_complex_double* X, lapack_int const* ldx, lapack_int* K );
10321
10322#define LAPACK_clapmt LAPACK_GLOBAL(clapmt,CLAPMT)
10323void LAPACK_clapmt(
10324 lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10325 lapack_complex_float* X, lapack_int const* ldx, lapack_int* K );
10326
10327#define LAPACK_dlapmt LAPACK_GLOBAL(dlapmt,DLAPMT)
10328void LAPACK_dlapmt(
10329 lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10330 double* X, lapack_int const* ldx, lapack_int* K );
10331
10332#define LAPACK_slapmt LAPACK_GLOBAL(slapmt,SLAPMT)
10333void LAPACK_slapmt(
10334 lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10335 float* X, lapack_int const* ldx, lapack_int* K );
10336
10337#define LAPACK_zlapmt LAPACK_GLOBAL(zlapmt,ZLAPMT)
10338void LAPACK_zlapmt(
10339 lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10340 lapack_complex_double* X, lapack_int const* ldx, lapack_int* K );
10341
10342#define LAPACK_dlapy2 LAPACK_GLOBAL(dlapy2,DLAPY2)
10343double LAPACK_dlapy2(
10344 double const* x,
10345 double const* y );
10346
10347#define LAPACK_slapy2 LAPACK_GLOBAL(slapy2,SLAPY2)
10348lapack_float_return LAPACK_slapy2(
10349 float const* x,
10350 float const* y );
10351
10352#define LAPACK_dlapy3 LAPACK_GLOBAL(dlapy3,DLAPY3)
10353double LAPACK_dlapy3(
10354 double const* x,
10355 double const* y,
10356 double const* z );
10357
10358#define LAPACK_slapy3 LAPACK_GLOBAL(slapy3,SLAPY3)
10359lapack_float_return LAPACK_slapy3(
10360 float const* x,
10361 float const* y,
10362 float const* z );
10363
10364#define LAPACK_clarcm LAPACK_GLOBAL(clarcm,CLARCM)
10365void LAPACK_clarcm(
10366 lapack_int const* m, lapack_int const* n,
10367 float const* A, lapack_int const* lda,
10368 lapack_complex_float const* B, lapack_int const* ldb,
10369 lapack_complex_float* C, lapack_int const* ldc,
10370 float* rwork );
10371
10372#define LAPACK_zlarcm LAPACK_GLOBAL(zlarcm,ZLARCM)
10373void LAPACK_zlarcm(
10374 lapack_int const* m, lapack_int const* n,
10375 double const* A, lapack_int const* lda,
10376 lapack_complex_double const* B, lapack_int const* ldb,
10377 lapack_complex_double* C, lapack_int const* ldc,
10378 double* rwork );
10379
10380#define LAPACK_clarf_base LAPACK_GLOBAL(clarf,CLARF)
10381void LAPACK_clarf_base(
10382 char const* side,
10383 lapack_int const* m, lapack_int const* n,
10384 lapack_complex_float const* V, lapack_int const* incv,
10385 lapack_complex_float const* tau,
10386 lapack_complex_float* C, lapack_int const* ldc,
10387 lapack_complex_float* work
10388#ifdef LAPACK_FORTRAN_STRLEN_END
10389 , size_t
10390#endif
10391);
10392#ifdef LAPACK_FORTRAN_STRLEN_END
10393 #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__, 1)
10394#else
10395 #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__)
10396#endif
10397
10398#define LAPACK_dlarf_base LAPACK_GLOBAL(dlarf,DLARF)
10399void LAPACK_dlarf_base(
10400 char const* side,
10401 lapack_int const* m, lapack_int const* n,
10402 double const* V, lapack_int const* incv,
10403 double const* tau,
10404 double* C, lapack_int const* ldc,
10405 double* work
10406#ifdef LAPACK_FORTRAN_STRLEN_END
10407 , size_t
10408#endif
10409);
10410#ifdef LAPACK_FORTRAN_STRLEN_END
10411 #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__, 1)
10412#else
10413 #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__)
10414#endif
10415
10416#define LAPACK_slarf_base LAPACK_GLOBAL(slarf,SLARF)
10417void LAPACK_slarf_base(
10418 char const* side,
10419 lapack_int const* m, lapack_int const* n,
10420 float const* V, lapack_int const* incv,
10421 float const* tau,
10422 float* C, lapack_int const* ldc,
10423 float* work
10424#ifdef LAPACK_FORTRAN_STRLEN_END
10425 , size_t
10426#endif
10427);
10428#ifdef LAPACK_FORTRAN_STRLEN_END
10429 #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__, 1)
10430#else
10431 #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__)
10432#endif
10433
10434#define LAPACK_zlarf_base LAPACK_GLOBAL(zlarf,ZLARF)
10435void LAPACK_zlarf_base(
10436 char const* side,
10437 lapack_int const* m, lapack_int const* n,
10438 lapack_complex_double const* V, lapack_int const* incv,
10439 lapack_complex_double const* tau,
10440 lapack_complex_double* C, lapack_int const* ldc,
10441 lapack_complex_double* work
10442#ifdef LAPACK_FORTRAN_STRLEN_END
10443 , size_t
10444#endif
10445);
10446#ifdef LAPACK_FORTRAN_STRLEN_END
10447 #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__, 1)
10448#else
10449 #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__)
10450#endif
10451
10452#define LAPACK_clarfb_base LAPACK_GLOBAL(clarfb,CLARFB)
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
10462#endif
10463);
10464#ifdef LAPACK_FORTRAN_STRLEN_END
10465 #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10466#else
10467 #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__)
10468#endif
10469
10470#define LAPACK_dlarfb_base LAPACK_GLOBAL(dlarfb,DLARFB)
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
10480#endif
10481);
10482#ifdef LAPACK_FORTRAN_STRLEN_END
10483 #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10484#else
10485 #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__)
10486#endif
10487
10488#define LAPACK_slarfb_base LAPACK_GLOBAL(slarfb,SLARFB)
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
10498#endif
10499);
10500#ifdef LAPACK_FORTRAN_STRLEN_END
10501 #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10502#else
10503 #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__)
10504#endif
10505
10506#define LAPACK_zlarfb_base LAPACK_GLOBAL(zlarfb,ZLARFB)
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
10516#endif
10517);
10518#ifdef LAPACK_FORTRAN_STRLEN_END
10519 #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10520#else
10521 #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__)
10522#endif
10523
10524#define LAPACK_clarfg LAPACK_GLOBAL(clarfg,CLARFG)
10525void LAPACK_clarfg(
10526 lapack_int const* n,
10527 lapack_complex_float* alpha,
10528 lapack_complex_float* X, lapack_int const* incx,
10529 lapack_complex_float* tau );
10530
10531#define LAPACK_dlarfg LAPACK_GLOBAL(dlarfg,DLARFG)
10532void LAPACK_dlarfg(
10533 lapack_int const* n,
10534 double* alpha,
10535 double* X, lapack_int const* incx,
10536 double* tau );
10537
10538#define LAPACK_slarfg LAPACK_GLOBAL(slarfg,SLARFG)
10539void LAPACK_slarfg(
10540 lapack_int const* n,
10541 float* alpha,
10542 float* X, lapack_int const* incx,
10543 float* tau );
10544
10545#define LAPACK_zlarfg LAPACK_GLOBAL(zlarfg,ZLARFG)
10546void LAPACK_zlarfg(
10547 lapack_int const* n,
10548 lapack_complex_double* alpha,
10549 lapack_complex_double* X, lapack_int const* incx,
10550 lapack_complex_double* tau );
10551
10552#define LAPACK_clarft_base LAPACK_GLOBAL(clarft,CLARFT)
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
10560 , size_t, size_t
10561#endif
10562);
10563#ifdef LAPACK_FORTRAN_STRLEN_END
10564 #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__, 1, 1)
10565#else
10566 #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__)
10567#endif
10568
10569#define LAPACK_dlarft_base LAPACK_GLOBAL(dlarft,DLARFT)
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,
10574 double const* tau,
10575 double* T, lapack_int const* ldt
10576#ifdef LAPACK_FORTRAN_STRLEN_END
10577 , size_t, size_t
10578#endif
10579);
10580#ifdef LAPACK_FORTRAN_STRLEN_END
10581 #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__, 1, 1)
10582#else
10583 #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__)
10584#endif
10585
10586#define LAPACK_slarft_base LAPACK_GLOBAL(slarft,SLARFT)
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,
10591 float const* tau,
10592 float* T, lapack_int const* ldt
10593#ifdef LAPACK_FORTRAN_STRLEN_END
10594 , size_t, size_t
10595#endif
10596);
10597#ifdef LAPACK_FORTRAN_STRLEN_END
10598 #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__, 1, 1)
10599#else
10600 #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__)
10601#endif
10602
10603#define LAPACK_zlarft_base LAPACK_GLOBAL(zlarft,ZLARFT)
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
10611 , size_t, size_t
10612#endif
10613);
10614#ifdef LAPACK_FORTRAN_STRLEN_END
10615 #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__, 1, 1)
10616#else
10617 #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__)
10618#endif
10619
10620#define LAPACK_clarfx_base LAPACK_GLOBAL(clarfx,CLARFX)
10621void LAPACK_clarfx_base(
10622 char const* side,
10623 lapack_int const* m, lapack_int const* n,
10624 lapack_complex_float const* V,
10625 lapack_complex_float const* tau,
10626 lapack_complex_float* C, lapack_int const* ldc,
10627 lapack_complex_float* work
10628#ifdef LAPACK_FORTRAN_STRLEN_END
10629 , size_t
10630#endif
10631);
10632#ifdef LAPACK_FORTRAN_STRLEN_END
10633 #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__, 1)
10634#else
10635 #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__)
10636#endif
10637
10638#define LAPACK_dlarfx_base LAPACK_GLOBAL(dlarfx,DLARFX)
10639void LAPACK_dlarfx_base(
10640 char const* side,
10641 lapack_int const* m, lapack_int const* n,
10642 double const* V,
10643 double const* tau,
10644 double* C, lapack_int const* ldc,
10645 double* work
10646#ifdef LAPACK_FORTRAN_STRLEN_END
10647 , size_t
10648#endif
10649);
10650#ifdef LAPACK_FORTRAN_STRLEN_END
10651 #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__, 1)
10652#else
10653 #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__)
10654#endif
10655
10656#define LAPACK_slarfx_base LAPACK_GLOBAL(slarfx,SLARFX)
10657void LAPACK_slarfx_base(
10658 char const* side,
10659 lapack_int const* m, lapack_int const* n,
10660 float const* V,
10661 float const* tau,
10662 float* C, lapack_int const* ldc,
10663 float* work
10664#ifdef LAPACK_FORTRAN_STRLEN_END
10665 , size_t
10666#endif
10667);
10668#ifdef LAPACK_FORTRAN_STRLEN_END
10669 #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__, 1)
10670#else
10671 #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__)
10672#endif
10673
10674#define LAPACK_zlarfx_base LAPACK_GLOBAL(zlarfx,ZLARFX)
10675void LAPACK_zlarfx_base(
10676 char const* side,
10677 lapack_int const* m, lapack_int const* n,
10678 lapack_complex_double const* V,
10679 lapack_complex_double const* tau,
10680 lapack_complex_double* C, lapack_int const* ldc,
10681 lapack_complex_double* work
10682#ifdef LAPACK_FORTRAN_STRLEN_END
10683 , size_t
10684#endif
10685);
10686#ifdef LAPACK_FORTRAN_STRLEN_END
10687 #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__, 1)
10688#else
10689 #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__)
10690#endif
10691
10692#define LAPACK_clarnv LAPACK_GLOBAL(clarnv,CLARNV)
10693void LAPACK_clarnv(
10694 lapack_int const* idist, lapack_int* iseed, lapack_int const* n,
10695 lapack_complex_float* X );
10696
10697#define LAPACK_dlarnv LAPACK_GLOBAL(dlarnv,DLARNV)
10698void LAPACK_dlarnv(
10699 lapack_int const* idist, lapack_int* iseed, lapack_int const* n,
10700 double* X );
10701
10702#define LAPACK_slarnv LAPACK_GLOBAL(slarnv,SLARNV)
10703void LAPACK_slarnv(
10704 lapack_int const* idist, lapack_int* iseed, lapack_int const* n,
10705 float* X );
10706
10707#define LAPACK_zlarnv LAPACK_GLOBAL(zlarnv,ZLARNV)
10708void LAPACK_zlarnv(
10709 lapack_int const* idist, lapack_int* iseed, lapack_int const* n,
10710 lapack_complex_double* X );
10711
10712#define LAPACK_dlartgp LAPACK_GLOBAL(dlartgp,DLARTGP)
10713void LAPACK_dlartgp(
10714 double const* f,
10715 double const* g,
10716 double* cs,
10717 double* sn,
10718 double* r );
10719
10720#define LAPACK_slartgp LAPACK_GLOBAL(slartgp,SLARTGP)
10721void LAPACK_slartgp(
10722 float const* f,
10723 float const* g,
10724 float* cs,
10725 float* sn,
10726 float* r );
10727
10728#define LAPACK_dlartgs LAPACK_GLOBAL(dlartgs,DLARTGS)
10729void LAPACK_dlartgs(
10730 double const* x,
10731 double const* y,
10732 double const* sigma,
10733 double* cs,
10734 double* sn );
10735
10736#define LAPACK_slartgs LAPACK_GLOBAL(slartgs,SLARTGS)
10737void LAPACK_slartgs(
10738 float const* x,
10739 float const* y,
10740 float const* sigma,
10741 float* cs,
10742 float* sn );
10743
10744#define LAPACK_clascl_base LAPACK_GLOBAL(clascl,CLASCL)
10745void LAPACK_clascl_base(
10746 char const* type,
10747 lapack_int const* kl, lapack_int const* ku,
10748 float const* cfrom,
10749 float const* cto, lapack_int const* m, lapack_int const* n,
10750 lapack_complex_float* A, lapack_int const* lda,
10751 lapack_int* info
10752#ifdef LAPACK_FORTRAN_STRLEN_END
10753 , size_t
10754#endif
10755);
10756#ifdef LAPACK_FORTRAN_STRLEN_END
10757 #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__, 1)
10758#else
10759 #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__)
10760#endif
10761
10762#define LAPACK_dlascl_base LAPACK_GLOBAL(dlascl,DLASCL)
10763void LAPACK_dlascl_base(
10764 char const* type,
10765 lapack_int const* kl, lapack_int const* ku,
10766 double const* cfrom,
10767 double const* cto, lapack_int const* m, lapack_int const* n,
10768 double* A, lapack_int const* lda,
10769 lapack_int* info
10770#ifdef LAPACK_FORTRAN_STRLEN_END
10771 , size_t
10772#endif
10773);
10774#ifdef LAPACK_FORTRAN_STRLEN_END
10775 #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__, 1)
10776#else
10777 #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__)
10778#endif
10779
10780#define LAPACK_slascl_base LAPACK_GLOBAL(slascl,SLASCL)
10781void LAPACK_slascl_base(
10782 char const* type,
10783 lapack_int const* kl, lapack_int const* ku,
10784 float const* cfrom,
10785 float const* cto, lapack_int const* m, lapack_int const* n,
10786 float* A, lapack_int const* lda,
10787 lapack_int* info
10788#ifdef LAPACK_FORTRAN_STRLEN_END
10789 , size_t
10790#endif
10791);
10792#ifdef LAPACK_FORTRAN_STRLEN_END
10793 #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__, 1)
10794#else
10795 #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__)
10796#endif
10797
10798#define LAPACK_zlascl_base LAPACK_GLOBAL(zlascl,ZLASCL)
10799void LAPACK_zlascl_base(
10800 char const* type,
10801 lapack_int const* kl, lapack_int const* ku,
10802 double const* cfrom,
10803 double const* cto, lapack_int const* m, lapack_int const* n,
10804 lapack_complex_double* A, lapack_int const* lda,
10805 lapack_int* info
10806#ifdef LAPACK_FORTRAN_STRLEN_END
10807 , size_t
10808#endif
10809);
10810#ifdef LAPACK_FORTRAN_STRLEN_END
10811 #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__, 1)
10812#else
10813 #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__)
10814#endif
10815
10816#define LAPACK_claset_base LAPACK_GLOBAL(claset,CLASET)
10817void LAPACK_claset_base(
10818 char const* uplo,
10819 lapack_int const* m, lapack_int const* n,
10820 lapack_complex_float const* alpha,
10821 lapack_complex_float const* beta,
10822 lapack_complex_float* A, lapack_int const* lda
10823#ifdef LAPACK_FORTRAN_STRLEN_END
10824 , size_t
10825#endif
10826);
10827#ifdef LAPACK_FORTRAN_STRLEN_END
10828 #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__, 1)
10829#else
10830 #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__)
10831#endif
10832
10833#define LAPACK_dlaset_base LAPACK_GLOBAL(dlaset,DLASET)
10834void LAPACK_dlaset_base(
10835 char const* uplo,
10836 lapack_int const* m, lapack_int const* n,
10837 double const* alpha,
10838 double const* beta,
10839 double* A, lapack_int const* lda
10840#ifdef LAPACK_FORTRAN_STRLEN_END
10841 , size_t
10842#endif
10843);
10844#ifdef LAPACK_FORTRAN_STRLEN_END
10845 #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__, 1)
10846#else
10847 #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__)
10848#endif
10849
10850#define LAPACK_slaset_base LAPACK_GLOBAL(slaset,SLASET)
10851void LAPACK_slaset_base(
10852 char const* uplo,
10853 lapack_int const* m, lapack_int const* n,
10854 float const* alpha,
10855 float const* beta,
10856 float* A, lapack_int const* lda
10857#ifdef LAPACK_FORTRAN_STRLEN_END
10858 , size_t
10859#endif
10860);
10861#ifdef LAPACK_FORTRAN_STRLEN_END
10862 #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__, 1)
10863#else
10864 #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__)
10865#endif
10866
10867#define LAPACK_zlaset_base LAPACK_GLOBAL(zlaset,ZLASET)
10868void LAPACK_zlaset_base(
10869 char const* uplo,
10870 lapack_int const* m, lapack_int const* n,
10871 lapack_complex_double const* alpha,
10872 lapack_complex_double const* beta,
10873 lapack_complex_double* A, lapack_int const* lda
10874#ifdef LAPACK_FORTRAN_STRLEN_END
10875 , size_t
10876#endif
10877);
10878#ifdef LAPACK_FORTRAN_STRLEN_END
10879 #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__, 1)
10880#else
10881 #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__)
10882#endif
10883
10884#define LAPACK_dlasrt_base LAPACK_GLOBAL(dlasrt,DLASRT)
10885void LAPACK_dlasrt_base(
10886 char const* id,
10887 lapack_int const* n,
10888 double* D,
10889 lapack_int* info
10890#ifdef LAPACK_FORTRAN_STRLEN_END
10891 , size_t
10892#endif
10893);
10894#ifdef LAPACK_FORTRAN_STRLEN_END
10895 #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__, 1)
10896#else
10897 #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__)
10898#endif
10899
10900#define LAPACK_slasrt_base LAPACK_GLOBAL(slasrt,SLASRT)
10901void LAPACK_slasrt_base(
10902 char const* id,
10903 lapack_int const* n,
10904 float* D,
10905 lapack_int* info
10906#ifdef LAPACK_FORTRAN_STRLEN_END
10907 , size_t
10908#endif
10909);
10910#ifdef LAPACK_FORTRAN_STRLEN_END
10911 #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__, 1)
10912#else
10913 #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__)
10914#endif
10915
10916#define LAPACK_classq LAPACK_GLOBAL(classq,CLASSQ)
10917void LAPACK_classq(
10918 lapack_int const* n,
10919 lapack_complex_float const* X, lapack_int const* incx,
10920 float* scale,
10921 float* sumsq );
10922
10923#define LAPACK_dlassq LAPACK_GLOBAL(dlassq,DLASSQ)
10924void LAPACK_dlassq(
10925 lapack_int const* n,
10926 double const* X, lapack_int const* incx,
10927 double* scale,
10928 double* sumsq );
10929
10930#define LAPACK_slassq LAPACK_GLOBAL(slassq,SLASSQ)
10931void LAPACK_slassq(
10932 lapack_int const* n,
10933 float const* X, lapack_int const* incx,
10934 float* scale,
10935 float* sumsq );
10936
10937#define LAPACK_zlassq LAPACK_GLOBAL(zlassq,ZLASSQ)
10938void LAPACK_zlassq(
10939 lapack_int const* n,
10940 lapack_complex_double const* X, lapack_int const* incx,
10941 double* scale,
10942 double* sumsq );
10943
10944#define LAPACK_claswp LAPACK_GLOBAL(claswp,CLASWP)
10945void LAPACK_claswp(
10946 lapack_int const* n,
10947 lapack_complex_float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
10948
10949#define LAPACK_dlaswp LAPACK_GLOBAL(dlaswp,DLASWP)
10950void LAPACK_dlaswp(
10951 lapack_int const* n,
10952 double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
10953
10954#define LAPACK_slaswp LAPACK_GLOBAL(slaswp,SLASWP)
10955void LAPACK_slaswp(
10956 lapack_int const* n,
10957 float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
10958
10959#define LAPACK_zlaswp LAPACK_GLOBAL(zlaswp,ZLASWP)
10960void LAPACK_zlaswp(
10961 lapack_int const* n,
10962 lapack_complex_double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
10963
10964#define LAPACK_clatms_base LAPACK_GLOBAL(clatms,CLATMS)
10965void LAPACK_clatms_base(
10966 lapack_int const* m, lapack_int const* n, char const* dist,
10967 lapack_int* iseed, char const* sym,
10968 float* D,
10969 lapack_int const* mode,
10970 float const* cond,
10971 float const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack,
10972 lapack_complex_float* A,
10973 lapack_int const* lda,
10974 lapack_complex_float* work,
10975 lapack_int* info
10976#ifdef LAPACK_FORTRAN_STRLEN_END
10977 , size_t, size_t, size_t
10978#endif
10979);
10980#ifdef LAPACK_FORTRAN_STRLEN_END
10981 #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__, 1, 1, 1)
10982#else
10983 #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__)
10984#endif
10985
10986#define LAPACK_dlatms_base LAPACK_GLOBAL(dlatms,DLATMS)
10987void LAPACK_dlatms_base(
10988 lapack_int const* m, lapack_int const* n, char const* dist,
10989 lapack_int* iseed, char const* sym,
10990 double* D,
10991 lapack_int const* mode,
10992 double const* cond,
10993 double const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack,
10994 double* A,
10995 lapack_int const* lda,
10996 double* work,
10997 lapack_int* info
10998#ifdef LAPACK_FORTRAN_STRLEN_END
10999 , size_t, size_t, size_t
11000#endif
11001);
11002#ifdef LAPACK_FORTRAN_STRLEN_END
11003 #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__, 1, 1, 1)
11004#else
11005 #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__)
11006#endif
11007
11008#define LAPACK_slatms_base LAPACK_GLOBAL(slatms,SLATMS)
11009void LAPACK_slatms_base(
11010 lapack_int const* m, lapack_int const* n, char const* dist,
11011 lapack_int* iseed, char const* sym,
11012 float* D,
11013 lapack_int const* mode,
11014 float const* cond,
11015 float const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack,
11016 float* A,
11017 lapack_int const* lda,
11018 float* work,
11019 lapack_int* info
11020#ifdef LAPACK_FORTRAN_STRLEN_END
11021 , size_t, size_t, size_t
11022#endif
11023);
11024#ifdef LAPACK_FORTRAN_STRLEN_END
11025 #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__, 1, 1, 1)
11026#else
11027 #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__)
11028#endif
11029
11030#define LAPACK_zlatms_base LAPACK_GLOBAL(zlatms,ZLATMS)
11031void LAPACK_zlatms_base(
11032 lapack_int const* m, lapack_int const* n, char const* dist,
11033 lapack_int* iseed, char const* sym,
11034 double* D,
11035 lapack_int const* mode,
11036 double const* cond,
11037 double const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack,
11038 lapack_complex_double* A,
11039 lapack_int const* lda,
11040 lapack_complex_double* work,
11041 lapack_int* info
11042#ifdef LAPACK_FORTRAN_STRLEN_END
11043 , size_t, size_t, size_t
11044#endif
11045);
11046#ifdef LAPACK_FORTRAN_STRLEN_END
11047 #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__, 1, 1, 1)
11048#else
11049 #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__)
11050#endif
11051
11052#define LAPACK_clauum_base LAPACK_GLOBAL(clauum,CLAUUM)
11053void LAPACK_clauum_base(
11054 char const* uplo,
11055 lapack_int const* n,
11056 lapack_complex_float* A, lapack_int const* lda,
11057 lapack_int* info
11058#ifdef LAPACK_FORTRAN_STRLEN_END
11059 , size_t
11060#endif
11061);
11062#ifdef LAPACK_FORTRAN_STRLEN_END
11063 #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__, 1)
11064#else
11065 #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__)
11066#endif
11067
11068#define LAPACK_dlauum_base LAPACK_GLOBAL(dlauum,DLAUUM)
11069void LAPACK_dlauum_base(
11070 char const* uplo,
11071 lapack_int const* n,
11072 double* A, lapack_int const* lda,
11073 lapack_int* info
11074#ifdef LAPACK_FORTRAN_STRLEN_END
11075 , size_t
11076#endif
11077);
11078#ifdef LAPACK_FORTRAN_STRLEN_END
11079 #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__, 1)
11080#else
11081 #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__)
11082#endif
11083
11084#define LAPACK_slauum_base LAPACK_GLOBAL(slauum,SLAUUM)
11085void LAPACK_slauum_base(
11086 char const* uplo,
11087 lapack_int const* n,
11088 float* A, lapack_int const* lda,
11089 lapack_int* info
11090#ifdef LAPACK_FORTRAN_STRLEN_END
11091 , size_t
11092#endif
11093);
11094#ifdef LAPACK_FORTRAN_STRLEN_END
11095 #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__, 1)
11096#else
11097 #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__)
11098#endif
11099
11100#define LAPACK_zlauum_base LAPACK_GLOBAL(zlauum,ZLAUUM)
11101void LAPACK_zlauum_base(
11102 char const* uplo,
11103 lapack_int const* n,
11104 lapack_complex_double* A, lapack_int const* lda,
11105 lapack_int* info
11106#ifdef LAPACK_FORTRAN_STRLEN_END
11107 , size_t
11108#endif
11109);
11110#ifdef LAPACK_FORTRAN_STRLEN_END
11111 #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__, 1)
11112#else
11113 #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__)
11114#endif
11115
11116#define LAPACK_ilaver LAPACK_GLOBAL(ilaver,ILAVER)
11117void LAPACK_ilaver(
11118 lapack_int* vers_major, lapack_int* vers_minor, lapack_int* vers_patch );
11119
11120#define LAPACK_dopgtr_base LAPACK_GLOBAL(dopgtr,DOPGTR)
11121void LAPACK_dopgtr_base(
11122 char const* uplo,
11123 lapack_int const* n,
11124 double const* AP,
11125 double const* tau,
11126 double* Q, lapack_int const* ldq,
11127 double* work,
11128 lapack_int* info
11129#ifdef LAPACK_FORTRAN_STRLEN_END
11130 , size_t
11131#endif
11132);
11133#ifdef LAPACK_FORTRAN_STRLEN_END
11134 #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__, 1)
11135#else
11136 #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__)
11137#endif
11138
11139#define LAPACK_sopgtr_base LAPACK_GLOBAL(sopgtr,SOPGTR)
11140void LAPACK_sopgtr_base(
11141 char const* uplo,
11142 lapack_int const* n,
11143 float const* AP,
11144 float const* tau,
11145 float* Q, lapack_int const* ldq,
11146 float* work,
11147 lapack_int* info
11148#ifdef LAPACK_FORTRAN_STRLEN_END
11149 , size_t
11150#endif
11151);
11152#ifdef LAPACK_FORTRAN_STRLEN_END
11153 #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__, 1)
11154#else
11155 #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__)
11156#endif
11157
11158#define LAPACK_dopmtr_base LAPACK_GLOBAL(dopmtr,DOPMTR)
11159void LAPACK_dopmtr_base(
11160 char const* side, char const* uplo, char const* trans,
11161 lapack_int const* m, lapack_int const* n,
11162 double const* AP,
11163 double const* tau,
11164 double* C, lapack_int const* ldc,
11165 double* work,
11166 lapack_int* info
11167#ifdef LAPACK_FORTRAN_STRLEN_END
11168 , size_t, size_t, size_t
11169#endif
11170);
11171#ifdef LAPACK_FORTRAN_STRLEN_END
11172 #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__, 1, 1, 1)
11173#else
11174 #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__)
11175#endif
11176
11177#define LAPACK_sopmtr_base LAPACK_GLOBAL(sopmtr,SOPMTR)
11178void LAPACK_sopmtr_base(
11179 char const* side, char const* uplo, char const* trans,
11180 lapack_int const* m, lapack_int const* n,
11181 float const* AP,
11182 float const* tau,
11183 float* C, lapack_int const* ldc,
11184 float* work,
11185 lapack_int* info
11186#ifdef LAPACK_FORTRAN_STRLEN_END
11187 , size_t, size_t, size_t
11188#endif
11189);
11190#ifdef LAPACK_FORTRAN_STRLEN_END
11191 #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__, 1, 1, 1)
11192#else
11193 #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__)
11194#endif
11195
11196#define LAPACK_dorbdb_base LAPACK_GLOBAL(dorbdb,DORBDB)
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,
11204 double* theta,
11205 double* phi,
11206 double* TAUP1,
11207 double* TAUP2,
11208 double* TAUQ1,
11209 double* TAUQ2,
11210 double* work, lapack_int const* lwork,
11211 lapack_int* info
11212#ifdef LAPACK_FORTRAN_STRLEN_END
11213 , size_t, size_t
11214#endif
11215);
11216#ifdef LAPACK_FORTRAN_STRLEN_END
11217 #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__, 1, 1)
11218#else
11219 #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__)
11220#endif
11221
11222#define LAPACK_sorbdb_base LAPACK_GLOBAL(sorbdb,SORBDB)
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,
11230 float* theta,
11231 float* phi,
11232 float* TAUP1,
11233 float* TAUP2,
11234 float* TAUQ1,
11235 float* TAUQ2,
11236 float* work, lapack_int const* lwork,
11237 lapack_int* info
11238#ifdef LAPACK_FORTRAN_STRLEN_END
11239 , size_t, size_t
11240#endif
11241);
11242#ifdef LAPACK_FORTRAN_STRLEN_END
11243 #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__, 1, 1)
11244#else
11245 #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__)
11246#endif
11247
11248#define LAPACK_dorcsd_base LAPACK_GLOBAL(dorcsd,DORCSD)
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,
11256 double* theta,
11257 double* U1, lapack_int const* ldu1,
11258 double* U2, lapack_int const* ldu2,
11259 double* V1T, lapack_int const* ldv1t,
11260 double* V2T, lapack_int const* ldv2t,
11261 double* work, lapack_int const* lwork,
11262 lapack_int* iwork,
11263 lapack_int* info
11264#ifdef LAPACK_FORTRAN_STRLEN_END
11265 , size_t, size_t, size_t, size_t, size_t, size_t
11266#endif
11267);
11268#ifdef LAPACK_FORTRAN_STRLEN_END
11269 #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
11270#else
11271 #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__)
11272#endif
11273
11274#define LAPACK_sorcsd_base LAPACK_GLOBAL(sorcsd,SORCSD)
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,
11282 float* theta,
11283 float* U1, lapack_int const* ldu1,
11284 float* U2, lapack_int const* ldu2,
11285 float* V1T, lapack_int const* ldv1t,
11286 float* V2T, lapack_int const* ldv2t,
11287 float* work, lapack_int const* lwork,
11288 lapack_int* iwork,
11289 lapack_int* info
11290#ifdef LAPACK_FORTRAN_STRLEN_END
11291 , size_t, size_t, size_t, size_t, size_t, size_t
11292#endif
11293);
11294#ifdef LAPACK_FORTRAN_STRLEN_END
11295 #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
11296#else
11297 #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__)
11298#endif
11299
11300#define LAPACK_dorcsd2by1_base LAPACK_GLOBAL(dorcsd2by1,DORCSD2BY1)
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,
11306 double* theta,
11307 double* U1, lapack_int const* ldu1,
11308 double* U2, lapack_int const* ldu2,
11309 double* V1T, lapack_int const* ldv1t,
11310 double* work, lapack_int const* lwork,
11311 lapack_int* iwork,
11312 lapack_int* info
11313#ifdef LAPACK_FORTRAN_STRLEN_END
11314 , size_t, size_t, size_t
11315#endif
11316);
11317#ifdef LAPACK_FORTRAN_STRLEN_END
11318 #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__, 1, 1, 1)
11319#else
11320 #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__)
11321#endif
11322
11323#define LAPACK_sorcsd2by1_base LAPACK_GLOBAL(sorcsd2by1,SORCSD2BY1)
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,
11329 float* theta,
11330 float* U1, lapack_int const* ldu1,
11331 float* U2, lapack_int const* ldu2,
11332 float* V1T, lapack_int const* ldv1t,
11333 float* work, lapack_int const* lwork,
11334 lapack_int* iwork,
11335 lapack_int* info
11336#ifdef LAPACK_FORTRAN_STRLEN_END
11337 , size_t, size_t, size_t
11338#endif
11339);
11340#ifdef LAPACK_FORTRAN_STRLEN_END
11341 #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__, 1, 1, 1)
11342#else
11343 #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__)
11344#endif
11345
11346#define LAPACK_dorgbr_base LAPACK_GLOBAL(dorgbr,DORGBR)
11347void LAPACK_dorgbr_base(
11348 char const* vect,
11349 lapack_int const* m, lapack_int const* n, lapack_int const* k,
11350 double* A, lapack_int const* lda,
11351 double const* tau,
11352 double* work, lapack_int const* lwork,
11353 lapack_int* info
11354#ifdef LAPACK_FORTRAN_STRLEN_END
11355 , size_t
11356#endif
11357);
11358#ifdef LAPACK_FORTRAN_STRLEN_END
11359 #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__, 1)
11360#else
11361 #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__)
11362#endif
11363
11364#define LAPACK_sorgbr_base LAPACK_GLOBAL(sorgbr,SORGBR)
11365void LAPACK_sorgbr_base(
11366 char const* vect,
11367 lapack_int const* m, lapack_int const* n, lapack_int const* k,
11368 float* A, lapack_int const* lda,
11369 float const* tau,
11370 float* work, lapack_int const* lwork,
11371 lapack_int* info
11372#ifdef LAPACK_FORTRAN_STRLEN_END
11373 , size_t
11374#endif
11375);
11376#ifdef LAPACK_FORTRAN_STRLEN_END
11377 #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__, 1)
11378#else
11379 #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__)
11380#endif
11381
11382#define LAPACK_dorghr LAPACK_GLOBAL(dorghr,DORGHR)
11383void LAPACK_dorghr(
11384 lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
11385 double* A, lapack_int const* lda,
11386 double const* tau,
11387 double* work, lapack_int const* lwork,
11388 lapack_int* info );
11389
11390#define LAPACK_sorghr LAPACK_GLOBAL(sorghr,SORGHR)
11391void LAPACK_sorghr(
11392 lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
11393 float* A, lapack_int const* lda,
11394 float const* tau,
11395 float* work, lapack_int const* lwork,
11396 lapack_int* info );
11397
11398#define LAPACK_dorglq LAPACK_GLOBAL(dorglq,DORGLQ)
11399void LAPACK_dorglq(
11400 lapack_int const* m, lapack_int const* n, lapack_int const* k,
11401 double* A, lapack_int const* lda,
11402 double const* tau,
11403 double* work, lapack_int const* lwork,
11404 lapack_int* info );
11405
11406#define LAPACK_sorglq LAPACK_GLOBAL(sorglq,SORGLQ)
11407void LAPACK_sorglq(
11408 lapack_int const* m, lapack_int const* n, lapack_int const* k,
11409 float* A, lapack_int const* lda,
11410 float const* tau,
11411 float* work, lapack_int const* lwork,
11412 lapack_int* info );
11413
11414#define LAPACK_dorgql LAPACK_GLOBAL(dorgql,DORGQL)
11415void LAPACK_dorgql(
11416 lapack_int const* m, lapack_int const* n, lapack_int const* k,
11417 double* A, lapack_int const* lda,
11418 double const* tau,
11419 double* work, lapack_int const* lwork,
11420 lapack_int* info );
11421
11422#define LAPACK_sorgql LAPACK_GLOBAL(sorgql,SORGQL)
11423void LAPACK_sorgql(
11424 lapack_int const* m, lapack_int const* n, lapack_int const* k,
11425 float* A, lapack_int const* lda,
11426 float const* tau,
11427 float* work, lapack_int const* lwork,
11428 lapack_int* info );
11429
11430#define LAPACK_dorgqr LAPACK_GLOBAL(dorgqr,DORGQR)
11431void LAPACK_dorgqr(
11432 lapack_int const* m, lapack_int const* n, lapack_int const* k,
11433 double* A, lapack_int const* lda,
11434 double const* tau,
11435 double* work, lapack_int const* lwork,
11436 lapack_int* info );
11437
11438#define LAPACK_sorgqr LAPACK_GLOBAL(sorgqr,SORGQR)
11439void LAPACK_sorgqr(
11440 lapack_int const* m, lapack_int const* n, lapack_int const* k,
11441 float* A, lapack_int const* lda,
11442 float const* tau,
11443 float* work, lapack_int const* lwork,
11444 lapack_int* info );
11445
11446#define LAPACK_dorgrq LAPACK_GLOBAL(dorgrq,DORGRQ)
11447void LAPACK_dorgrq(
11448 lapack_int const* m, lapack_int const* n, lapack_int const* k,
11449 double* A, lapack_int const* lda,
11450 double const* tau,
11451 double* work, lapack_int const* lwork,
11452 lapack_int* info );
11453
11454#define LAPACK_sorgrq LAPACK_GLOBAL(sorgrq,SORGRQ)
11455void LAPACK_sorgrq(
11456 lapack_int const* m, lapack_int const* n, lapack_int const* k,
11457 float* A, lapack_int const* lda,
11458 float const* tau,
11459 float* work, lapack_int const* lwork,
11460 lapack_int* info );
11461
11462#define LAPACK_dorgtr_base LAPACK_GLOBAL(dorgtr,DORGTR)
11463void LAPACK_dorgtr_base(
11464 char const* uplo,
11465 lapack_int const* n,
11466 double* A, lapack_int const* lda,
11467 double const* tau,
11468 double* work, lapack_int const* lwork,
11469 lapack_int* info
11470#ifdef LAPACK_FORTRAN_STRLEN_END
11471 , size_t
11472#endif
11473);
11474#ifdef LAPACK_FORTRAN_STRLEN_END
11475 #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__, 1)
11476#else
11477 #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__)
11478#endif
11479
11480#define LAPACK_sorgtr_base LAPACK_GLOBAL(sorgtr,SORGTR)
11481void LAPACK_sorgtr_base(
11482 char const* uplo,
11483 lapack_int const* n,
11484 float* A, lapack_int const* lda,
11485 float const* tau,
11486 float* work, lapack_int const* lwork,
11487 lapack_int* info
11488#ifdef LAPACK_FORTRAN_STRLEN_END
11489 , size_t
11490#endif
11491);
11492#ifdef LAPACK_FORTRAN_STRLEN_END
11493 #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__, 1)
11494#else
11495 #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__)
11496#endif
11497
11498#define LAPACK_dorgtsqr_row LAPACK_GLOBAL(dorgtsqr_row,DORGTSQR_ROW)
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 );
11506
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 );
11515
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,
11521 double const* tau,
11522 double* C, lapack_int const* ldc,
11523 double* work, lapack_int const* lwork,
11524 lapack_int* info
11525#ifdef LAPACK_FORTRAN_STRLEN_END
11526 , size_t, size_t, size_t
11527#endif
11528);
11529#ifdef LAPACK_FORTRAN_STRLEN_END
11530 #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__, 1, 1, 1)
11531#else
11532 #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__)
11533#endif
11534
11535#define LAPACK_sormbr_base LAPACK_GLOBAL(sormbr,SORMBR)
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,
11540 float const* tau,
11541 float* C, lapack_int const* ldc,
11542 float* work, lapack_int const* lwork,
11543 lapack_int* info
11544#ifdef LAPACK_FORTRAN_STRLEN_END
11545 , size_t, size_t, size_t
11546#endif
11547);
11548#ifdef LAPACK_FORTRAN_STRLEN_END
11549 #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__, 1, 1, 1)
11550#else
11551 #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__)
11552#endif
11553
11554#define LAPACK_dormhr_base LAPACK_GLOBAL(dormhr,DORMHR)
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,
11559 double const* tau,
11560 double* C, lapack_int const* ldc,
11561 double* work, lapack_int const* lwork,
11562 lapack_int* info
11563#ifdef LAPACK_FORTRAN_STRLEN_END
11564 , size_t, size_t
11565#endif
11566);
11567#ifdef LAPACK_FORTRAN_STRLEN_END
11568 #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__, 1, 1)
11569#else
11570 #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__)
11571#endif
11572
11573#define LAPACK_sormhr_base LAPACK_GLOBAL(sormhr,SORMHR)
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,
11578 float const* tau,
11579 float* C, lapack_int const* ldc,
11580 float* work, lapack_int const* lwork,
11581 lapack_int* info
11582#ifdef LAPACK_FORTRAN_STRLEN_END
11583 , size_t, size_t
11584#endif
11585);
11586#ifdef LAPACK_FORTRAN_STRLEN_END
11587 #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__, 1, 1)
11588#else
11589 #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__)
11590#endif
11591
11592#define LAPACK_dormlq_base LAPACK_GLOBAL(dormlq,DORMLQ)
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,
11597 double const* tau,
11598 double* C, lapack_int const* ldc,
11599 double* work, lapack_int const* lwork,
11600 lapack_int* info
11601#ifdef LAPACK_FORTRAN_STRLEN_END
11602 , size_t, size_t
11603#endif
11604);
11605#ifdef LAPACK_FORTRAN_STRLEN_END
11606 #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__, 1, 1)
11607#else
11608 #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__)
11609#endif
11610
11611#define LAPACK_sormlq_base LAPACK_GLOBAL(sormlq,SORMLQ)
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,
11616 float const* tau,
11617 float* C, lapack_int const* ldc,
11618 float* work, lapack_int const* lwork,
11619 lapack_int* info
11620#ifdef LAPACK_FORTRAN_STRLEN_END
11621 , size_t, size_t
11622#endif
11623);
11624#ifdef LAPACK_FORTRAN_STRLEN_END
11625 #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__, 1, 1)
11626#else
11627 #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__)
11628#endif
11629
11630#define LAPACK_dormql_base LAPACK_GLOBAL(dormql,DORMQL)
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,
11635 double const* tau,
11636 double* C, lapack_int const* ldc,
11637 double* work, lapack_int const* lwork,
11638 lapack_int* info
11639#ifdef LAPACK_FORTRAN_STRLEN_END
11640 , size_t, size_t
11641#endif
11642);
11643#ifdef LAPACK_FORTRAN_STRLEN_END
11644 #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__, 1, 1)
11645#else
11646 #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__)
11647#endif
11648
11649#define LAPACK_sormql_base LAPACK_GLOBAL(sormql,SORMQL)
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,
11654 float const* tau,
11655 float* C, lapack_int const* ldc,
11656 float* work, lapack_int const* lwork,
11657 lapack_int* info
11658#ifdef LAPACK_FORTRAN_STRLEN_END
11659 , size_t, size_t
11660#endif
11661);
11662#ifdef LAPACK_FORTRAN_STRLEN_END
11663 #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__, 1, 1)
11664#else
11665 #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__)
11666#endif
11667
11668#define LAPACK_dormqr_base LAPACK_GLOBAL(dormqr,DORMQR)
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,
11673 double const* tau,
11674 double* C, lapack_int const* ldc,
11675 double* work, lapack_int const* lwork,
11676 lapack_int* info
11677#ifdef LAPACK_FORTRAN_STRLEN_END
11678 , size_t, size_t
11679#endif
11680);
11681#ifdef LAPACK_FORTRAN_STRLEN_END
11682 #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__, 1, 1)
11683#else
11684 #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__)
11685#endif
11686
11687#define LAPACK_sormqr_base LAPACK_GLOBAL(sormqr,SORMQR)
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,
11692 float const* tau,
11693 float* C, lapack_int const* ldc,
11694 float* work, lapack_int const* lwork,
11695 lapack_int* info
11696#ifdef LAPACK_FORTRAN_STRLEN_END
11697 , size_t, size_t
11698#endif
11699);
11700#ifdef LAPACK_FORTRAN_STRLEN_END
11701 #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__, 1, 1)
11702#else
11703 #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__)
11704#endif
11705
11706#define LAPACK_dormrq_base LAPACK_GLOBAL(dormrq,DORMRQ)
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,
11711 double const* tau,
11712 double* C, lapack_int const* ldc,
11713 double* work, lapack_int const* lwork,
11714 lapack_int* info
11715#ifdef LAPACK_FORTRAN_STRLEN_END
11716 , size_t, size_t
11717#endif
11718);
11719#ifdef LAPACK_FORTRAN_STRLEN_END
11720 #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__, 1, 1)
11721#else
11722 #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__)
11723#endif
11724
11725#define LAPACK_sormrq_base LAPACK_GLOBAL(sormrq,SORMRQ)
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,
11730 float const* tau,
11731 float* C, lapack_int const* ldc,
11732 float* work, lapack_int const* lwork,
11733 lapack_int* info
11734#ifdef LAPACK_FORTRAN_STRLEN_END
11735 , size_t, size_t
11736#endif
11737);
11738#ifdef LAPACK_FORTRAN_STRLEN_END
11739 #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__, 1, 1)
11740#else
11741 #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__)
11742#endif
11743
11744#define LAPACK_dormrz_base LAPACK_GLOBAL(dormrz,DORMRZ)
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,
11749 double const* tau,
11750 double* C, lapack_int const* ldc,
11751 double* work, lapack_int const* lwork,
11752 lapack_int* info
11753#ifdef LAPACK_FORTRAN_STRLEN_END
11754 , size_t, size_t
11755#endif
11756);
11757#ifdef LAPACK_FORTRAN_STRLEN_END
11758 #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__, 1, 1)
11759#else
11760 #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__)
11761#endif
11762
11763#define LAPACK_sormrz_base LAPACK_GLOBAL(sormrz,SORMRZ)
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,
11768 float const* tau,
11769 float* C, lapack_int const* ldc,
11770 float* work, lapack_int const* lwork,
11771 lapack_int* info
11772#ifdef LAPACK_FORTRAN_STRLEN_END
11773 , size_t, size_t
11774#endif
11775);
11776#ifdef LAPACK_FORTRAN_STRLEN_END
11777 #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__, 1, 1)
11778#else
11779 #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__)
11780#endif
11781
11782#define LAPACK_dormtr_base LAPACK_GLOBAL(dormtr,DORMTR)
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,
11787 double const* tau,
11788 double* C, lapack_int const* ldc,
11789 double* work, lapack_int const* lwork,
11790 lapack_int* info
11791#ifdef LAPACK_FORTRAN_STRLEN_END
11792 , size_t, size_t, size_t
11793#endif
11794);
11795#ifdef LAPACK_FORTRAN_STRLEN_END
11796 #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__, 1, 1, 1)
11797#else
11798 #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__)
11799#endif
11800
11801#define LAPACK_sormtr_base LAPACK_GLOBAL(sormtr,SORMTR)
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,
11806 float const* tau,
11807 float* C, lapack_int const* ldc,
11808 float* work, lapack_int const* lwork,
11809 lapack_int* info
11810#ifdef LAPACK_FORTRAN_STRLEN_END
11811 , size_t, size_t, size_t
11812#endif
11813);
11814#ifdef LAPACK_FORTRAN_STRLEN_END
11815 #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__, 1, 1, 1)
11816#else
11817 #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__)
11818#endif
11819
11820#define LAPACK_cpbcon_base LAPACK_GLOBAL(cpbcon,CPBCON)
11821void LAPACK_cpbcon_base(
11822 char const* uplo,
11823 lapack_int const* n, lapack_int const* kd,
11824 lapack_complex_float const* AB, lapack_int const* ldab,
11825 float const* anorm,
11826 float* rcond,
11827 lapack_complex_float* work,
11828 float* rwork,
11829 lapack_int* info
11830#ifdef LAPACK_FORTRAN_STRLEN_END
11831 , size_t
11832#endif
11833);
11834#ifdef LAPACK_FORTRAN_STRLEN_END
11835 #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__, 1)
11836#else
11837 #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__)
11838#endif
11839
11840#define LAPACK_dpbcon_base LAPACK_GLOBAL(dpbcon,DPBCON)
11841void LAPACK_dpbcon_base(
11842 char const* uplo,
11843 lapack_int const* n, lapack_int const* kd,
11844 double const* AB, lapack_int const* ldab,
11845 double const* anorm,
11846 double* rcond,
11847 double* work,
11848 lapack_int* iwork,
11849 lapack_int* info
11850#ifdef LAPACK_FORTRAN_STRLEN_END
11851 , size_t
11852#endif
11853);
11854#ifdef LAPACK_FORTRAN_STRLEN_END
11855 #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__, 1)
11856#else
11857 #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__)
11858#endif
11859
11860#define LAPACK_spbcon_base LAPACK_GLOBAL(spbcon,SPBCON)
11861void LAPACK_spbcon_base(
11862 char const* uplo,
11863 lapack_int const* n, lapack_int const* kd,
11864 float const* AB, lapack_int const* ldab,
11865 float const* anorm,
11866 float* rcond,
11867 float* work,
11868 lapack_int* iwork,
11869 lapack_int* info
11870#ifdef LAPACK_FORTRAN_STRLEN_END
11871 , size_t
11872#endif
11873);
11874#ifdef LAPACK_FORTRAN_STRLEN_END
11875 #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__, 1)
11876#else
11877 #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__)
11878#endif
11879
11880#define LAPACK_zpbcon_base LAPACK_GLOBAL(zpbcon,ZPBCON)
11881void LAPACK_zpbcon_base(
11882 char const* uplo,
11883 lapack_int const* n, lapack_int const* kd,
11884 lapack_complex_double const* AB, lapack_int const* ldab,
11885 double const* anorm,
11886 double* rcond,
11887 lapack_complex_double* work,
11888 double* rwork,
11889 lapack_int* info
11890#ifdef LAPACK_FORTRAN_STRLEN_END
11891 , size_t
11892#endif
11893);
11894#ifdef LAPACK_FORTRAN_STRLEN_END
11895 #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__, 1)
11896#else
11897 #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__)
11898#endif
11899
11900#define LAPACK_cpbequ_base LAPACK_GLOBAL(cpbequ,CPBEQU)
11901void LAPACK_cpbequ_base(
11902 char const* uplo,
11903 lapack_int const* n, lapack_int const* kd,
11904 lapack_complex_float const* AB, lapack_int const* ldab,
11905 float* S,
11906 float* scond,
11907 float* amax,
11908 lapack_int* info
11909#ifdef LAPACK_FORTRAN_STRLEN_END
11910 , size_t
11911#endif
11912);
11913#ifdef LAPACK_FORTRAN_STRLEN_END
11914 #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__, 1)
11915#else
11916 #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__)
11917#endif
11918
11919#define LAPACK_dpbequ_base LAPACK_GLOBAL(dpbequ,DPBEQU)
11920void LAPACK_dpbequ_base(
11921 char const* uplo,
11922 lapack_int const* n, lapack_int const* kd,
11923 double const* AB, lapack_int const* ldab,
11924 double* S,
11925 double* scond,
11926 double* amax,
11927 lapack_int* info
11928#ifdef LAPACK_FORTRAN_STRLEN_END
11929 , size_t
11930#endif
11931);
11932#ifdef LAPACK_FORTRAN_STRLEN_END
11933 #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__, 1)
11934#else
11935 #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__)
11936#endif
11937
11938#define LAPACK_spbequ_base LAPACK_GLOBAL(spbequ,SPBEQU)
11939void LAPACK_spbequ_base(
11940 char const* uplo,
11941 lapack_int const* n, lapack_int const* kd,
11942 float const* AB, lapack_int const* ldab,
11943 float* S,
11944 float* scond,
11945 float* amax,
11946 lapack_int* info
11947#ifdef LAPACK_FORTRAN_STRLEN_END
11948 , size_t
11949#endif
11950);
11951#ifdef LAPACK_FORTRAN_STRLEN_END
11952 #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__, 1)
11953#else
11954 #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__)
11955#endif
11956
11957#define LAPACK_zpbequ_base LAPACK_GLOBAL(zpbequ,ZPBEQU)
11958void LAPACK_zpbequ_base(
11959 char const* uplo,
11960 lapack_int const* n, lapack_int const* kd,
11961 lapack_complex_double const* AB, lapack_int const* ldab,
11962 double* S,
11963 double* scond,
11964 double* amax,
11965 lapack_int* info
11966#ifdef LAPACK_FORTRAN_STRLEN_END
11967 , size_t
11968#endif
11969);
11970#ifdef LAPACK_FORTRAN_STRLEN_END
11971 #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__, 1)
11972#else
11973 #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__)
11974#endif
11975
11976#define LAPACK_cpbrfs_base LAPACK_GLOBAL(cpbrfs,CPBRFS)
11977void LAPACK_cpbrfs_base(
11978 char const* uplo,
11979 lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
11980 lapack_complex_float const* AB, lapack_int const* ldab,
11981 lapack_complex_float const* AFB, lapack_int const* ldafb,
11982 lapack_complex_float const* B, lapack_int const* ldb,
11983 lapack_complex_float* X, lapack_int const* ldx,
11984 float* ferr,
11985 float* berr,
11986 lapack_complex_float* work,
11987 float* rwork,
11988 lapack_int* info
11989#ifdef LAPACK_FORTRAN_STRLEN_END
11990 , size_t
11991#endif
11992);
11993#ifdef LAPACK_FORTRAN_STRLEN_END
11994 #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__, 1)
11995#else
11996 #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__)
11997#endif
11998
11999#define LAPACK_dpbrfs_base LAPACK_GLOBAL(dpbrfs,DPBRFS)
12000void LAPACK_dpbrfs_base(
12001 char const* uplo,
12002 lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12003 double const* AB, lapack_int const* ldab,
12004 double const* AFB, lapack_int const* ldafb,
12005 double const* B, lapack_int const* ldb,
12006 double* X, lapack_int const* ldx,
12007 double* ferr,
12008 double* berr,
12009 double* work,
12010 lapack_int* iwork,
12011 lapack_int* info
12012#ifdef LAPACK_FORTRAN_STRLEN_END
12013 , size_t
12014#endif
12015);
12016#ifdef LAPACK_FORTRAN_STRLEN_END
12017 #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__, 1)
12018#else
12019 #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__)
12020#endif
12021
12022#define LAPACK_spbrfs_base LAPACK_GLOBAL(spbrfs,SPBRFS)
12023void LAPACK_spbrfs_base(
12024 char const* uplo,
12025 lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12026 float const* AB, lapack_int const* ldab,
12027 float const* AFB, lapack_int const* ldafb,
12028 float const* B, lapack_int const* ldb,
12029 float* X, lapack_int const* ldx,
12030 float* ferr,
12031 float* berr,
12032 float* work,
12033 lapack_int* iwork,
12034 lapack_int* info
12035#ifdef LAPACK_FORTRAN_STRLEN_END
12036 , size_t
12037#endif
12038);
12039#ifdef LAPACK_FORTRAN_STRLEN_END
12040 #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__, 1)
12041#else
12042 #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__)
12043#endif
12044
12045#define LAPACK_zpbrfs_base LAPACK_GLOBAL(zpbrfs,ZPBRFS)
12046void LAPACK_zpbrfs_base(
12047 char const* uplo,
12048 lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12049 lapack_complex_double const* AB, lapack_int const* ldab,
12050 lapack_complex_double const* AFB, lapack_int const* ldafb,
12051 lapack_complex_double const* B, lapack_int const* ldb,
12052 lapack_complex_double* X, lapack_int const* ldx,
12053 double* ferr,
12054 double* berr,
12055 lapack_complex_double* work,
12056 double* rwork,
12057 lapack_int* info
12058#ifdef LAPACK_FORTRAN_STRLEN_END
12059 , size_t
12060#endif
12061);
12062#ifdef LAPACK_FORTRAN_STRLEN_END
12063 #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__, 1)
12064#else
12065 #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__)
12066#endif
12067
12068#define LAPACK_cpbstf_base LAPACK_GLOBAL(cpbstf,CPBSTF)
12069void LAPACK_cpbstf_base(
12070 char const* uplo,
12071 lapack_int const* n, lapack_int const* kd,
12072 lapack_complex_float* AB, lapack_int const* ldab,
12073 lapack_int* info
12074#ifdef LAPACK_FORTRAN_STRLEN_END
12075 , size_t
12076#endif
12077);
12078#ifdef LAPACK_FORTRAN_STRLEN_END
12079 #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__, 1)
12080#else
12081 #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__)
12082#endif
12083
12084#define LAPACK_dpbstf_base LAPACK_GLOBAL(dpbstf,DPBSTF)
12085void LAPACK_dpbstf_base(
12086 char const* uplo,
12087 lapack_int const* n, lapack_int const* kd,
12088 double* AB, lapack_int const* ldab,
12089 lapack_int* info
12090#ifdef LAPACK_FORTRAN_STRLEN_END
12091 , size_t
12092#endif
12093);
12094#ifdef LAPACK_FORTRAN_STRLEN_END
12095 #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__, 1)
12096#else
12097 #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__)
12098#endif
12099
12100#define LAPACK_spbstf_base LAPACK_GLOBAL(spbstf,SPBSTF)
12101void LAPACK_spbstf_base(
12102 char const* uplo,
12103 lapack_int const* n, lapack_int const* kd,
12104 float* AB, lapack_int const* ldab,
12105 lapack_int* info
12106#ifdef LAPACK_FORTRAN_STRLEN_END
12107 , size_t
12108#endif
12109);
12110#ifdef LAPACK_FORTRAN_STRLEN_END
12111 #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__, 1)
12112#else
12113 #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__)
12114#endif
12115
12116#define LAPACK_zpbstf_base LAPACK_GLOBAL(zpbstf,ZPBSTF)
12117void LAPACK_zpbstf_base(
12118 char const* uplo,
12119 lapack_int const* n, lapack_int const* kd,
12120 lapack_complex_double* AB, lapack_int const* ldab,
12121 lapack_int* info
12122#ifdef LAPACK_FORTRAN_STRLEN_END
12123 , size_t
12124#endif
12125);
12126#ifdef LAPACK_FORTRAN_STRLEN_END
12127 #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__, 1)
12128#else
12129 #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__)
12130#endif
12131
12132#define LAPACK_cpbsv_base LAPACK_GLOBAL(cpbsv,CPBSV)
12133void LAPACK_cpbsv_base(
12134 char const* uplo,
12135 lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12136 lapack_complex_float* AB, lapack_int const* ldab,
12137 lapack_complex_float* B, lapack_int const* ldb,
12138 lapack_int* info
12139#ifdef LAPACK_FORTRAN_STRLEN_END
12140 , size_t
12141#endif
12142);
12143#ifdef LAPACK_FORTRAN_STRLEN_END
12144 #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__, 1)
12145#else
12146 #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__)
12147#endif
12148
12149#define LAPACK_dpbsv_base LAPACK_GLOBAL(dpbsv,DPBSV)
12150void LAPACK_dpbsv_base(
12151 char const* uplo,
12152 lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12153 double* AB, lapack_int const* ldab,
12154 double* B, lapack_int const* ldb,
12155 lapack_int* info
12156#ifdef LAPACK_FORTRAN_STRLEN_END
12157 , size_t
12158#endif
12159);
12160#ifdef LAPACK_FORTRAN_STRLEN_END
12161 #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__, 1)
12162#else
12163 #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__)
12164#endif
12165
12166#define LAPACK_spbsv_base LAPACK_GLOBAL(spbsv,SPBSV)
12167void LAPACK_spbsv_base(
12168 char const* uplo,
12169 lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12170 float* AB, lapack_int const* ldab,
12171 float* B, lapack_int const* ldb,
12172 lapack_int* info
12173#ifdef LAPACK_FORTRAN_STRLEN_END
12174 , size_t
12175#endif
12176);
12177#ifdef LAPACK_FORTRAN_STRLEN_END
12178 #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__, 1)
12179#else
12180 #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__)
12181#endif
12182
12183#define LAPACK_zpbsv_base LAPACK_GLOBAL(zpbsv,ZPBSV)
12184void LAPACK_zpbsv_base(
12185 char const* uplo,
12186 lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12187 lapack_complex_double* AB, lapack_int const* ldab,
12188 lapack_complex_double* B, lapack_int const* ldb,
12189 lapack_int* info
12190#ifdef LAPACK_FORTRAN_STRLEN_END
12191 , size_t
12192#endif
12193);
12194#ifdef LAPACK_FORTRAN_STRLEN_END
12195 #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__, 1)
12196#else
12197 #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__)
12198#endif
12199
12200#define LAPACK_cpbsvx_base LAPACK_GLOBAL(cpbsvx,CPBSVX)
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,
12206 float* S,
12207 lapack_complex_float* B,
12208 lapack_int const* ldb,
12209 lapack_complex_float* X, lapack_int const* ldx,
12210 float* rcond,
12211 float* ferr,
12212 float* berr,
12213 lapack_complex_float* work,
12214 float* rwork,
12215 lapack_int* info
12216#ifdef LAPACK_FORTRAN_STRLEN_END
12217 , size_t, size_t, size_t
12218#endif
12219);
12220#ifdef LAPACK_FORTRAN_STRLEN_END
12221 #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__, 1, 1, 1)
12222#else
12223 #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__)
12224#endif
12225
12226#define LAPACK_dpbsvx_base LAPACK_GLOBAL(dpbsvx,DPBSVX)
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,
12232 double* S,
12233 double* B,
12234 lapack_int const* ldb,
12235 double* X, lapack_int const* ldx,
12236 double* rcond,
12237 double* ferr,
12238 double* berr,
12239 double* work,
12240 lapack_int* iwork,
12241 lapack_int* info
12242#ifdef LAPACK_FORTRAN_STRLEN_END
12243 , size_t, size_t, size_t
12244#endif
12245);
12246#ifdef LAPACK_FORTRAN_STRLEN_END
12247 #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__, 1, 1, 1)
12248#else
12249 #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__)
12250#endif
12251
12252#define LAPACK_spbsvx_base LAPACK_GLOBAL(spbsvx,SPBSVX)
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,
12258 float* S,
12259 float* B,
12260 lapack_int const* ldb,
12261 float* X, lapack_int const* ldx,
12262 float* rcond,
12263 float* ferr,
12264 float* berr,
12265 float* work,
12266 lapack_int* iwork,
12267 lapack_int* info
12268#ifdef LAPACK_FORTRAN_STRLEN_END
12269 , size_t, size_t, size_t
12270#endif
12271);
12272#ifdef LAPACK_FORTRAN_STRLEN_END
12273 #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__, 1, 1, 1)
12274#else
12275 #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__)
12276#endif
12277
12278#define LAPACK_zpbsvx_base LAPACK_GLOBAL(zpbsvx,ZPBSVX)
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,
12284 double* S,
12285 lapack_complex_double* B,
12286 lapack_int const* ldb,
12287 lapack_complex_double* X, lapack_int const* ldx,
12288 double* rcond,
12289 double* ferr,
12290 double* berr,
12291 lapack_complex_double* work,
12292 double* rwork,
12293 lapack_int* info
12294#ifdef LAPACK_FORTRAN_STRLEN_END
12295 , size_t, size_t, size_t
12296#endif
12297);
12298#ifdef LAPACK_FORTRAN_STRLEN_END
12299 #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__, 1, 1, 1)
12300#else
12301 #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__)
12302#endif
12303
12304#define LAPACK_cpbtrf_base LAPACK_GLOBAL(cpbtrf,CPBTRF)
12305void LAPACK_cpbtrf_base(
12306 char const* uplo,
12307 lapack_int const* n, lapack_int const* kd,
12308 lapack_complex_float* AB, lapack_int const* ldab,
12309 lapack_int* info
12310#ifdef LAPACK_FORTRAN_STRLEN_END
12311 , size_t
12312#endif
12313);
12314#ifdef LAPACK_FORTRAN_STRLEN_END
12315 #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__, 1)
12316#else
12317 #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__)
12318#endif
12319
12320#define LAPACK_dpbtrf_base LAPACK_GLOBAL(dpbtrf,DPBTRF)
12321void LAPACK_dpbtrf_base(
12322 char const* uplo,
12323 lapack_int const* n, lapack_int const* kd,
12324 double* AB, lapack_int const* ldab,
12325 lapack_int* info
12326#ifdef LAPACK_FORTRAN_STRLEN_END
12327 , size_t
12328#endif
12329);
12330#ifdef LAPACK_FORTRAN_STRLEN_END
12331 #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__, 1)
12332#else
12333 #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__)
12334#endif
12335
12336#define LAPACK_spbtrf_base LAPACK_GLOBAL(spbtrf,SPBTRF)
12337void LAPACK_spbtrf_base(
12338 char const* uplo,
12339 lapack_int const* n, lapack_int const* kd,
12340 float* AB, lapack_int const* ldab,
12341 lapack_int* info
12342#ifdef LAPACK_FORTRAN_STRLEN_END
12343 , size_t
12344#endif
12345);
12346#ifdef LAPACK_FORTRAN_STRLEN_END
12347 #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__, 1)
12348#else
12349 #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__)
12350#endif
12351
12352#define LAPACK_zpbtrf_base LAPACK_GLOBAL(zpbtrf,ZPBTRF)
12353void LAPACK_zpbtrf_base(
12354 char const* uplo,
12355 lapack_int const* n, lapack_int const* kd,
12356 lapack_complex_double* AB, lapack_int const* ldab,
12357 lapack_int* info
12358#ifdef LAPACK_FORTRAN_STRLEN_END
12359 , size_t
12360#endif
12361);
12362#ifdef LAPACK_FORTRAN_STRLEN_END
12363 #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__, 1)
12364#else
12365 #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__)
12366#endif
12367
12368#define LAPACK_cpbtrs_base LAPACK_GLOBAL(cpbtrs,CPBTRS)
12369void LAPACK_cpbtrs_base(
12370 char const* uplo,
12371 lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12372 lapack_complex_float const* AB, lapack_int const* ldab,
12373 lapack_complex_float* B, lapack_int const* ldb,
12374 lapack_int* info
12375#ifdef LAPACK_FORTRAN_STRLEN_END
12376 , size_t
12377#endif
12378);
12379#ifdef LAPACK_FORTRAN_STRLEN_END
12380 #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__, 1)
12381#else
12382 #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__)
12383#endif
12384
12385#define LAPACK_dpbtrs_base LAPACK_GLOBAL(dpbtrs,DPBTRS)
12386void LAPACK_dpbtrs_base(
12387 char const* uplo,
12388 lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12389 double const* AB, lapack_int const* ldab,
12390 double* B, lapack_int const* ldb,
12391 lapack_int* info
12392#ifdef LAPACK_FORTRAN_STRLEN_END
12393 , size_t
12394#endif
12395);
12396#ifdef LAPACK_FORTRAN_STRLEN_END
12397 #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__, 1)
12398#else
12399 #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__)
12400#endif
12401
12402#define LAPACK_spbtrs_base LAPACK_GLOBAL(spbtrs,SPBTRS)
12403void LAPACK_spbtrs_base(
12404 char const* uplo,
12405 lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12406 float const* AB, lapack_int const* ldab,
12407 float* B, lapack_int const* ldb,
12408 lapack_int* info
12409#ifdef LAPACK_FORTRAN_STRLEN_END
12410 , size_t
12411#endif
12412);
12413#ifdef LAPACK_FORTRAN_STRLEN_END
12414 #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__, 1)
12415#else
12416 #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__)
12417#endif
12418
12419#define LAPACK_zpbtrs_base LAPACK_GLOBAL(zpbtrs,ZPBTRS)
12420void LAPACK_zpbtrs_base(
12421 char const* uplo,
12422 lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12423 lapack_complex_double const* AB, lapack_int const* ldab,
12424 lapack_complex_double* B, lapack_int const* ldb,
12425 lapack_int* info
12426#ifdef LAPACK_FORTRAN_STRLEN_END
12427 , size_t
12428#endif
12429);
12430#ifdef LAPACK_FORTRAN_STRLEN_END
12431 #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__, 1)
12432#else
12433 #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__)
12434#endif
12435
12436#define LAPACK_cpftrf_base LAPACK_GLOBAL(cpftrf,CPFTRF)
12437void LAPACK_cpftrf_base(
12438 char const* transr, char const* uplo,
12439 lapack_int const* n,
12440 lapack_complex_float* A,
12441 lapack_int* info
12442#ifdef LAPACK_FORTRAN_STRLEN_END
12443 , size_t, size_t
12444#endif
12445);
12446#ifdef LAPACK_FORTRAN_STRLEN_END
12447 #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__, 1, 1)
12448#else
12449 #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__)
12450#endif
12451
12452#define LAPACK_dpftrf_base LAPACK_GLOBAL(dpftrf,DPFTRF)
12453void LAPACK_dpftrf_base(
12454 char const* transr, char const* uplo,
12455 lapack_int const* n,
12456 double* A,
12457 lapack_int* info
12458#ifdef LAPACK_FORTRAN_STRLEN_END
12459 , size_t, size_t
12460#endif
12461);
12462#ifdef LAPACK_FORTRAN_STRLEN_END
12463 #define LAPACK_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__, 1, 1)
12464#else
12465 #define LAPACK_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__)
12466#endif
12467
12468#define LAPACK_spftrf_base LAPACK_GLOBAL(spftrf,SPFTRF)
12469void LAPACK_spftrf_base(
12470 char const* transr, char const* uplo,
12471 lapack_int const* n,
12472 float* A,
12473 lapack_int* info
12474#ifdef LAPACK_FORTRAN_STRLEN_END
12475 , size_t, size_t
12476#endif
12477);
12478#ifdef LAPACK_FORTRAN_STRLEN_END
12479 #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__, 1, 1)
12480#else
12481 #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__)
12482#endif
12483
12484#define LAPACK_zpftrf_base LAPACK_GLOBAL(zpftrf,ZPFTRF)
12485void LAPACK_zpftrf_base(
12486 char const* transr, char const* uplo,
12487 lapack_int const* n,
12488 lapack_complex_double* A,
12489 lapack_int* info
12490#ifdef LAPACK_FORTRAN_STRLEN_END
12491 , size_t, size_t
12492#endif
12493);
12494#ifdef LAPACK_FORTRAN_STRLEN_END
12495 #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__, 1, 1)
12496#else
12497 #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__)
12498#endif
12499
12500#define LAPACK_cpftri_base LAPACK_GLOBAL(cpftri,CPFTRI)
12501void LAPACK_cpftri_base(
12502 char const* transr, char const* uplo,
12503 lapack_int const* n,
12504 lapack_complex_float* A,
12505 lapack_int* info
12506#ifdef LAPACK_FORTRAN_STRLEN_END
12507 , size_t, size_t
12508#endif
12509);
12510#ifdef LAPACK_FORTRAN_STRLEN_END
12511 #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__, 1, 1)
12512#else
12513 #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__)
12514#endif
12515
12516#define LAPACK_dpftri_base LAPACK_GLOBAL(dpftri,DPFTRI)
12517void LAPACK_dpftri_base(
12518 char const* transr, char const* uplo,
12519 lapack_int const* n,
12520 double* A,
12521 lapack_int* info
12522#ifdef LAPACK_FORTRAN_STRLEN_END
12523 , size_t, size_t
12524#endif
12525);
12526#ifdef LAPACK_FORTRAN_STRLEN_END
12527 #define LAPACK_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__, 1, 1)
12528#else
12529 #define LAPACK_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__)
12530#endif
12531
12532#define LAPACK_spftri_base LAPACK_GLOBAL(spftri,SPFTRI)
12533void LAPACK_spftri_base(
12534 char const* transr, char const* uplo,
12535 lapack_int const* n,
12536 float* A,
12537 lapack_int* info
12538#ifdef LAPACK_FORTRAN_STRLEN_END
12539 , size_t, size_t
12540#endif
12541);
12542#ifdef LAPACK_FORTRAN_STRLEN_END
12543 #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__, 1, 1)
12544#else
12545 #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__)
12546#endif
12547
12548#define LAPACK_zpftri_base LAPACK_GLOBAL(zpftri,ZPFTRI)
12549void LAPACK_zpftri_base(
12550 char const* transr, char const* uplo,
12551 lapack_int const* n,
12552 lapack_complex_double* A,
12553 lapack_int* info
12554#ifdef LAPACK_FORTRAN_STRLEN_END
12555 , size_t, size_t
12556#endif
12557);
12558#ifdef LAPACK_FORTRAN_STRLEN_END
12559 #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__, 1, 1)
12560#else
12561 #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__)
12562#endif
12563
12564#define LAPACK_cpftrs_base LAPACK_GLOBAL(cpftrs,CPFTRS)
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,
12570 lapack_int* info
12571#ifdef LAPACK_FORTRAN_STRLEN_END
12572 , size_t, size_t
12573#endif
12574);
12575#ifdef LAPACK_FORTRAN_STRLEN_END
12576 #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__, 1, 1)
12577#else
12578 #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__)
12579#endif
12580
12581#define LAPACK_dpftrs_base LAPACK_GLOBAL(dpftrs,DPFTRS)
12582void LAPACK_dpftrs_base(
12583 char const* transr, char const* uplo,
12584 lapack_int const* n, lapack_int const* nrhs,
12585 double const* A,
12586 double* B, lapack_int const* ldb,
12587 lapack_int* info
12588#ifdef LAPACK_FORTRAN_STRLEN_END
12589 , size_t, size_t
12590#endif
12591);
12592#ifdef LAPACK_FORTRAN_STRLEN_END
12593 #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__, 1, 1)
12594#else
12595 #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__)
12596#endif
12597
12598#define LAPACK_spftrs_base LAPACK_GLOBAL(spftrs,SPFTRS)
12599void LAPACK_spftrs_base(
12600 char const* transr, char const* uplo,
12601 lapack_int const* n, lapack_int const* nrhs,
12602 float const* A,
12603 float* B, lapack_int const* ldb,
12604 lapack_int* info
12605#ifdef LAPACK_FORTRAN_STRLEN_END
12606 , size_t, size_t
12607#endif
12608);
12609#ifdef LAPACK_FORTRAN_STRLEN_END
12610 #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__, 1, 1)
12611#else
12612 #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__)
12613#endif
12614
12615#define LAPACK_zpftrs_base LAPACK_GLOBAL(zpftrs,ZPFTRS)
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,
12621 lapack_int* info
12622#ifdef LAPACK_FORTRAN_STRLEN_END
12623 , size_t, size_t
12624#endif
12625);
12626#ifdef LAPACK_FORTRAN_STRLEN_END
12627 #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__, 1, 1)
12628#else
12629 #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__)
12630#endif
12631
12632#define LAPACK_cpocon_base LAPACK_GLOBAL(cpocon,CPOCON)
12633void LAPACK_cpocon_base(
12634 char const* uplo,
12635 lapack_int const* n,
12636 lapack_complex_float const* A, lapack_int const* lda,
12637 float const* anorm,
12638 float* rcond,
12639 lapack_complex_float* work,
12640 float* rwork,
12641 lapack_int* info
12642#ifdef LAPACK_FORTRAN_STRLEN_END
12643 , size_t
12644#endif
12645);
12646#ifdef LAPACK_FORTRAN_STRLEN_END
12647 #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__, 1)
12648#else
12649 #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__)
12650#endif
12651
12652#define LAPACK_dpocon_base LAPACK_GLOBAL(dpocon,DPOCON)
12653void LAPACK_dpocon_base(
12654 char const* uplo,
12655 lapack_int const* n,
12656 double const* A, lapack_int const* lda,
12657 double const* anorm,
12658 double* rcond,
12659 double* work,
12660 lapack_int* iwork,
12661 lapack_int* info
12662#ifdef LAPACK_FORTRAN_STRLEN_END
12663 , size_t
12664#endif
12665);
12666#ifdef LAPACK_FORTRAN_STRLEN_END
12667 #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__, 1)
12668#else
12669 #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__)
12670#endif
12671
12672#define LAPACK_spocon_base LAPACK_GLOBAL(spocon,SPOCON)
12673void LAPACK_spocon_base(
12674 char const* uplo,
12675 lapack_int const* n,
12676 float const* A, lapack_int const* lda,
12677 float const* anorm,
12678 float* rcond,
12679 float* work,
12680 lapack_int* iwork,
12681 lapack_int* info
12682#ifdef LAPACK_FORTRAN_STRLEN_END
12683 , size_t
12684#endif
12685);
12686#ifdef LAPACK_FORTRAN_STRLEN_END
12687 #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__, 1)
12688#else
12689 #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__)
12690#endif
12691
12692#define LAPACK_zpocon_base LAPACK_GLOBAL(zpocon,ZPOCON)
12693void LAPACK_zpocon_base(
12694 char const* uplo,
12695 lapack_int const* n,
12696 lapack_complex_double const* A, lapack_int const* lda,
12697 double const* anorm,
12698 double* rcond,
12699 lapack_complex_double* work,
12700 double* rwork,
12701 lapack_int* info
12702#ifdef LAPACK_FORTRAN_STRLEN_END
12703 , size_t
12704#endif
12705);
12706#ifdef LAPACK_FORTRAN_STRLEN_END
12707 #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__, 1)
12708#else
12709 #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__)
12710#endif
12711
12712#define LAPACK_cpoequ LAPACK_GLOBAL(cpoequ,CPOEQU)
12713void LAPACK_cpoequ(
12714 lapack_int const* n,
12715 lapack_complex_float const* A, lapack_int const* lda,
12716 float* S,
12717 float* scond,
12718 float* amax,
12719 lapack_int* info );
12720
12721#define LAPACK_dpoequ LAPACK_GLOBAL(dpoequ,DPOEQU)
12722void LAPACK_dpoequ(
12723 lapack_int const* n,
12724 double const* A, lapack_int const* lda,
12725 double* S,
12726 double* scond,
12727 double* amax,
12728 lapack_int* info );
12729
12730#define LAPACK_spoequ LAPACK_GLOBAL(spoequ,SPOEQU)
12731void LAPACK_spoequ(
12732 lapack_int const* n,
12733 float const* A, lapack_int const* lda,
12734 float* S,
12735 float* scond,
12736 float* amax,
12737 lapack_int* info );
12738
12739#define LAPACK_zpoequ LAPACK_GLOBAL(zpoequ,ZPOEQU)
12740void LAPACK_zpoequ(
12741 lapack_int const* n,
12742 lapack_complex_double const* A, lapack_int const* lda,
12743 double* S,
12744 double* scond,
12745 double* amax,
12746 lapack_int* info );
12747
12748#define LAPACK_cpoequb LAPACK_GLOBAL(cpoequb,CPOEQUB)
12749void LAPACK_cpoequb(
12750 lapack_int const* n,
12751 lapack_complex_float const* A, lapack_int const* lda,
12752 float* S,
12753 float* scond,
12754 float* amax,
12755 lapack_int* info );
12756
12757#define LAPACK_dpoequb LAPACK_GLOBAL(dpoequb,DPOEQUB)
12758void LAPACK_dpoequb(
12759 lapack_int const* n,
12760 double const* A, lapack_int const* lda,
12761 double* S,
12762 double* scond,
12763 double* amax,
12764 lapack_int* info );
12765
12766#define LAPACK_spoequb LAPACK_GLOBAL(spoequb,SPOEQUB)
12767void LAPACK_spoequb(
12768 lapack_int const* n,
12769 float const* A, lapack_int const* lda,
12770 float* S,
12771 float* scond,
12772 float* amax,
12773 lapack_int* info );
12774
12775#define LAPACK_zpoequb LAPACK_GLOBAL(zpoequb,ZPOEQUB)
12776void LAPACK_zpoequb(
12777 lapack_int const* n,
12778 lapack_complex_double const* A, lapack_int const* lda,
12779 double* S,
12780 double* scond,
12781 double* amax,
12782 lapack_int* info );
12783
12784#define LAPACK_cporfs_base LAPACK_GLOBAL(cporfs,CPORFS)
12785void LAPACK_cporfs_base(
12786 char const* uplo,
12787 lapack_int const* n, lapack_int const* nrhs,
12788 lapack_complex_float const* A, lapack_int const* lda,
12789 lapack_complex_float const* AF, lapack_int const* ldaf,
12790 lapack_complex_float const* B, lapack_int const* ldb,
12791 lapack_complex_float* X, lapack_int const* ldx,
12792 float* ferr,
12793 float* berr,
12794 lapack_complex_float* work,
12795 float* rwork,
12796 lapack_int* info
12797#ifdef LAPACK_FORTRAN_STRLEN_END
12798 , size_t
12799#endif
12800);
12801#ifdef LAPACK_FORTRAN_STRLEN_END
12802 #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__, 1)
12803#else
12804 #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__)
12805#endif
12806
12807#define LAPACK_dporfs_base LAPACK_GLOBAL(dporfs,DPORFS)
12808void LAPACK_dporfs_base(
12809 char const* uplo,
12810 lapack_int const* n, lapack_int const* nrhs,
12811 double const* A, lapack_int const* lda,
12812 double const* AF, lapack_int const* ldaf,
12813 double const* B, lapack_int const* ldb,
12814 double* X, lapack_int const* ldx,
12815 double* ferr,
12816 double* berr,
12817 double* work,
12818 lapack_int* iwork,
12819 lapack_int* info
12820#ifdef LAPACK_FORTRAN_STRLEN_END
12821 , size_t
12822#endif
12823);
12824#ifdef LAPACK_FORTRAN_STRLEN_END
12825 #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__, 1)
12826#else
12827 #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__)
12828#endif
12829
12830#define LAPACK_sporfs_base LAPACK_GLOBAL(sporfs,SPORFS)
12831void LAPACK_sporfs_base(
12832 char const* uplo,
12833 lapack_int const* n, lapack_int const* nrhs,
12834 float const* A, lapack_int const* lda,
12835 float const* AF, lapack_int const* ldaf,
12836 float const* B, lapack_int const* ldb,
12837 float* X, lapack_int const* ldx,
12838 float* ferr,
12839 float* berr,
12840 float* work,
12841 lapack_int* iwork,
12842 lapack_int* info
12843#ifdef LAPACK_FORTRAN_STRLEN_END
12844 , size_t
12845#endif
12846);
12847#ifdef LAPACK_FORTRAN_STRLEN_END
12848 #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__, 1)
12849#else
12850 #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__)
12851#endif
12852
12853#define LAPACK_zporfs_base LAPACK_GLOBAL(zporfs,ZPORFS)
12854void LAPACK_zporfs_base(
12855 char const* uplo,
12856 lapack_int const* n, lapack_int const* nrhs,
12857 lapack_complex_double const* A, lapack_int const* lda,
12858 lapack_complex_double const* AF, lapack_int const* ldaf,
12859 lapack_complex_double const* B, lapack_int const* ldb,
12860 lapack_complex_double* X, lapack_int const* ldx,
12861 double* ferr,
12862 double* berr,
12863 lapack_complex_double* work,
12864 double* rwork,
12865 lapack_int* info
12866#ifdef LAPACK_FORTRAN_STRLEN_END
12867 , size_t
12868#endif
12869);
12870#ifdef LAPACK_FORTRAN_STRLEN_END
12871 #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__, 1)
12872#else
12873 #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__)
12874#endif
12875
12876#define LAPACK_cporfsx_base LAPACK_GLOBAL(cporfsx,CPORFSX)
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,
12882 const float* S,
12883 lapack_complex_float const* B, lapack_int const* ldb,
12884 lapack_complex_float* X, lapack_int const* ldx,
12885 float* rcond,
12886 float* berr, lapack_int const* n_err_bnds,
12887 float* err_bnds_norm,
12888 float* err_bnds_comp, lapack_int const* nparams,
12889 float* params,
12890 lapack_complex_float* work,
12891 float* rwork,
12892 lapack_int* info
12893#ifdef LAPACK_FORTRAN_STRLEN_END
12894 , size_t, size_t
12895#endif
12896);
12897#ifdef LAPACK_FORTRAN_STRLEN_END
12898 #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__, 1, 1)
12899#else
12900 #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__)
12901#endif
12902
12903#define LAPACK_dporfsx_base LAPACK_GLOBAL(dporfsx,DPORFSX)
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,
12909 const double* S,
12910 double const* B, lapack_int const* ldb,
12911 double* X, lapack_int const* ldx,
12912 double* rcond,
12913 double* berr, lapack_int const* n_err_bnds,
12914 double* err_bnds_norm,
12915 double* err_bnds_comp, lapack_int const* nparams,
12916 double* params,
12917 double* work,
12918 lapack_int* iwork,
12919 lapack_int* info
12920#ifdef LAPACK_FORTRAN_STRLEN_END
12921 , size_t, size_t
12922#endif
12923);
12924#ifdef LAPACK_FORTRAN_STRLEN_END
12925 #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__, 1, 1)
12926#else
12927 #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__)
12928#endif
12929
12930#define LAPACK_sporfsx_base LAPACK_GLOBAL(sporfsx,SPORFSX)
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,
12936 const float* S,
12937 float const* B, lapack_int const* ldb,
12938 float* X, lapack_int const* ldx,
12939 float* rcond,
12940 float* berr, lapack_int const* n_err_bnds,
12941 float* err_bnds_norm,
12942 float* err_bnds_comp, lapack_int const* nparams,
12943 float* params,
12944 float* work,
12945 lapack_int* iwork,
12946 lapack_int* info
12947#ifdef LAPACK_FORTRAN_STRLEN_END
12948 , size_t, size_t
12949#endif
12950);
12951#ifdef LAPACK_FORTRAN_STRLEN_END
12952 #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__, 1, 1)
12953#else
12954 #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__)
12955#endif
12956
12957#define LAPACK_zporfsx_base LAPACK_GLOBAL(zporfsx,ZPORFSX)
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,
12963 const double* S,
12964 lapack_complex_double const* B, lapack_int const* ldb,
12965 lapack_complex_double* X, lapack_int const* ldx,
12966 double* rcond,
12967 double* berr, lapack_int const* n_err_bnds,
12968 double* err_bnds_norm,
12969 double* err_bnds_comp, lapack_int const* nparams,
12970 double* params,
12971 lapack_complex_double* work,
12972 double* rwork,
12973 lapack_int* info
12974#ifdef LAPACK_FORTRAN_STRLEN_END
12975 , size_t, size_t
12976#endif
12977);
12978#ifdef LAPACK_FORTRAN_STRLEN_END
12979 #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__, 1, 1)
12980#else
12981 #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__)
12982#endif
12983
12984#define LAPACK_cposv_base LAPACK_GLOBAL(cposv,CPOSV)
12985void LAPACK_cposv_base(
12986 char const* uplo,
12987 lapack_int const* n, lapack_int const* nrhs,
12988 lapack_complex_float* A, lapack_int const* lda,
12989 lapack_complex_float* B, lapack_int const* ldb,
12990 lapack_int* info
12991#ifdef LAPACK_FORTRAN_STRLEN_END
12992 , size_t
12993#endif
12994);
12995#ifdef LAPACK_FORTRAN_STRLEN_END
12996 #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__, 1)
12997#else
12998 #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__)
12999#endif
13000
13001#define LAPACK_dposv_base LAPACK_GLOBAL(dposv,DPOSV)
13002void LAPACK_dposv_base(
13003 char const* uplo,
13004 lapack_int const* n, lapack_int const* nrhs,
13005 double* A, lapack_int const* lda,
13006 double* B, lapack_int const* ldb,
13007 lapack_int* info
13008#ifdef LAPACK_FORTRAN_STRLEN_END
13009 , size_t
13010#endif
13011);
13012#ifdef LAPACK_FORTRAN_STRLEN_END
13013 #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__, 1)
13014#else
13015 #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__)
13016#endif
13017
13018#define LAPACK_sposv_base LAPACK_GLOBAL(sposv,SPOSV)
13019void LAPACK_sposv_base(
13020 char const* uplo,
13021 lapack_int const* n, lapack_int const* nrhs,
13022 float* A, lapack_int const* lda,
13023 float* B, lapack_int const* ldb,
13024 lapack_int* info
13025#ifdef LAPACK_FORTRAN_STRLEN_END
13026 , size_t
13027#endif
13028);
13029#ifdef LAPACK_FORTRAN_STRLEN_END
13030 #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__, 1)
13031#else
13032 #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__)
13033#endif
13034
13035#define LAPACK_zposv_base LAPACK_GLOBAL(zposv,ZPOSV)
13036void LAPACK_zposv_base(
13037 char const* uplo,
13038 lapack_int const* n, lapack_int const* nrhs,
13039 lapack_complex_double* A, lapack_int const* lda,
13040 lapack_complex_double* B, lapack_int const* ldb,
13041 lapack_int* info
13042#ifdef LAPACK_FORTRAN_STRLEN_END
13043 , size_t
13044#endif
13045);
13046#ifdef LAPACK_FORTRAN_STRLEN_END
13047 #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__, 1)
13048#else
13049 #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__)
13050#endif
13051
13052#define LAPACK_dsposv_base LAPACK_GLOBAL(dsposv,DSPOSV)
13053void LAPACK_dsposv_base(
13054 char const* uplo,
13055 lapack_int const* n, lapack_int const* nrhs,
13056 double* A, lapack_int const* lda,
13057 double const* B, lapack_int const* ldb,
13058 double* X, lapack_int const* ldx,
13059 double* work,
13060 float* swork, lapack_int* iter,
13061 lapack_int* info
13062#ifdef LAPACK_FORTRAN_STRLEN_END
13063 , size_t
13064#endif
13065);
13066#ifdef LAPACK_FORTRAN_STRLEN_END
13067 #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__, 1)
13068#else
13069 #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__)
13070#endif
13071
13072#define LAPACK_zcposv_base LAPACK_GLOBAL(zcposv,ZCPOSV)
13073void LAPACK_zcposv_base(
13074 char const* uplo,
13075 lapack_int const* n, lapack_int const* nrhs,
13076 lapack_complex_double* A, lapack_int const* lda,
13077 lapack_complex_double const* B, lapack_int const* ldb,
13078 lapack_complex_double* X, lapack_int const* ldx,
13079 lapack_complex_double* work,
13080 lapack_complex_float* swork,
13081 double* rwork, lapack_int* iter,
13082 lapack_int* info
13083#ifdef LAPACK_FORTRAN_STRLEN_END
13084 , size_t
13085#endif
13086);
13087#ifdef LAPACK_FORTRAN_STRLEN_END
13088 #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__, 1)
13089#else
13090 #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__)
13091#endif
13092
13093#define LAPACK_cposvx_base LAPACK_GLOBAL(cposvx,CPOSVX)
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,
13099 float* S,
13100 lapack_complex_float* B,
13101 lapack_int const* ldb,
13102 lapack_complex_float* X, lapack_int const* ldx,
13103 float* rcond,
13104 float* ferr,
13105 float* berr,
13106 lapack_complex_float* work,
13107 float* rwork,
13108 lapack_int* info
13109#ifdef LAPACK_FORTRAN_STRLEN_END
13110 , size_t, size_t, size_t
13111#endif
13112);
13113#ifdef LAPACK_FORTRAN_STRLEN_END
13114 #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__, 1, 1, 1)
13115#else
13116 #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__)
13117#endif
13118
13119#define LAPACK_dposvx_base LAPACK_GLOBAL(dposvx,DPOSVX)
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,
13125 double* S,
13126 double* B,
13127 lapack_int const* ldb,
13128 double* X, lapack_int const* ldx,
13129 double* rcond,
13130 double* ferr,
13131 double* berr,
13132 double* work,
13133 lapack_int* iwork,
13134 lapack_int* info
13135#ifdef LAPACK_FORTRAN_STRLEN_END
13136 , size_t, size_t, size_t
13137#endif
13138);
13139#ifdef LAPACK_FORTRAN_STRLEN_END
13140 #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__, 1, 1, 1)
13141#else
13142 #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__)
13143#endif
13144
13145#define LAPACK_sposvx_base LAPACK_GLOBAL(sposvx,SPOSVX)
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,
13151 float* S,
13152 float* B,
13153 lapack_int const* ldb,
13154 float* X, lapack_int const* ldx,
13155 float* rcond,
13156 float* ferr,
13157 float* berr,
13158 float* work,
13159 lapack_int* iwork,
13160 lapack_int* info
13161#ifdef LAPACK_FORTRAN_STRLEN_END
13162 , size_t, size_t, size_t
13163#endif
13164);
13165#ifdef LAPACK_FORTRAN_STRLEN_END
13166 #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__, 1, 1, 1)
13167#else
13168 #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__)
13169#endif
13170
13171#define LAPACK_zposvx_base LAPACK_GLOBAL(zposvx,ZPOSVX)
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,
13177 double* S,
13178 lapack_complex_double* B,
13179 lapack_int const* ldb,
13180 lapack_complex_double* X, lapack_int const* ldx,
13181 double* rcond,
13182 double* ferr,
13183 double* berr,
13184 lapack_complex_double* work,
13185 double* rwork,
13186 lapack_int* info
13187#ifdef LAPACK_FORTRAN_STRLEN_END
13188 , size_t, size_t, size_t
13189#endif
13190);
13191#ifdef LAPACK_FORTRAN_STRLEN_END
13192 #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__, 1, 1, 1)
13193#else
13194 #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__)
13195#endif
13196
13197#define LAPACK_cposvxx_base LAPACK_GLOBAL(cposvxx,CPOSVXX)
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,
13203 float* S,
13204 lapack_complex_float* B,
13205 lapack_int const* ldb,
13206 lapack_complex_float* X, lapack_int const* ldx,
13207 float* rcond,
13208 float* rpvgrw,
13209 float* berr, lapack_int const* n_err_bnds,
13210 float* err_bnds_norm,
13211 float* err_bnds_comp, lapack_int const* nparams,
13212 float* params,
13213 lapack_complex_float* work,
13214 float* rwork,
13215 lapack_int* info
13216#ifdef LAPACK_FORTRAN_STRLEN_END
13217 , size_t, size_t, size_t
13218#endif
13219);
13220#ifdef LAPACK_FORTRAN_STRLEN_END
13221 #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__, 1, 1, 1)
13222#else
13223 #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__)
13224#endif
13225
13226#define LAPACK_dposvxx_base LAPACK_GLOBAL(dposvxx,DPOSVXX)
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,
13232 double* S,
13233 double* B,
13234 lapack_int const* ldb,
13235 double* X, lapack_int const* ldx,
13236 double* rcond,
13237 double* rpvgrw,
13238 double* berr, lapack_int const* n_err_bnds,
13239 double* err_bnds_norm,
13240 double* err_bnds_comp, lapack_int const* nparams,
13241 double* params,
13242 double* work,
13243 lapack_int* iwork,
13244 lapack_int* info
13245#ifdef LAPACK_FORTRAN_STRLEN_END
13246 , size_t, size_t, size_t
13247#endif
13248);
13249#ifdef LAPACK_FORTRAN_STRLEN_END
13250 #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__, 1, 1, 1)
13251#else
13252 #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__)
13253#endif
13254
13255#define LAPACK_sposvxx_base LAPACK_GLOBAL(sposvxx,SPOSVXX)
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,
13261 float* S,
13262 float* B,
13263 lapack_int const* ldb,
13264 float* X, lapack_int const* ldx,
13265 float* rcond,
13266 float* rpvgrw,
13267 float* berr, lapack_int const* n_err_bnds,
13268 float* err_bnds_norm,
13269 float* err_bnds_comp, lapack_int const* nparams,
13270 float* params,
13271 float* work,
13272 lapack_int* iwork,
13273 lapack_int* info
13274#ifdef LAPACK_FORTRAN_STRLEN_END
13275 , size_t, size_t, size_t
13276#endif
13277);
13278#ifdef LAPACK_FORTRAN_STRLEN_END
13279 #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__, 1, 1, 1)
13280#else
13281 #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__)
13282#endif
13283
13284#define LAPACK_zposvxx_base LAPACK_GLOBAL(zposvxx,ZPOSVXX)
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,
13290 double* S,
13291 lapack_complex_double* B,
13292 lapack_int const* ldb,
13293 lapack_complex_double* X, lapack_int const* ldx,
13294 double* rcond,
13295 double* rpvgrw,
13296 double* berr, lapack_int const* n_err_bnds,
13297 double* err_bnds_norm,
13298 double* err_bnds_comp, lapack_int const* nparams,
13299 double* params,
13300 lapack_complex_double* work,
13301 double* rwork,
13302 lapack_int* info
13303#ifdef LAPACK_FORTRAN_STRLEN_END
13304 , size_t, size_t, size_t
13305#endif
13306);
13307#ifdef LAPACK_FORTRAN_STRLEN_END
13308 #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__, 1, 1, 1)
13309#else
13310 #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__)
13311#endif
13312
13313#define LAPACK_cpotf2_base LAPACK_GLOBAL(cpotf2,CPOTF2)
13314void LAPACK_cpotf2_base(
13315 char const* uplo,
13316 lapack_int const* n,
13317 lapack_complex_float* A, lapack_int const* lda,
13318 lapack_int* info
13319#ifdef LAPACK_FORTRAN_STRLEN_END
13320 , size_t
13321#endif
13322);
13323#ifdef LAPACK_FORTRAN_STRLEN_END
13324 #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__, 1)
13325#else
13326 #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__)
13327#endif
13328
13329#define LAPACK_dpotf2_base LAPACK_GLOBAL(dpotf2,DPOTF2)
13330void LAPACK_dpotf2_base(
13331 char const* uplo,
13332 lapack_int const* n,
13333 double* A, lapack_int const* lda,
13334 lapack_int* info
13335#ifdef LAPACK_FORTRAN_STRLEN_END
13336 , size_t
13337#endif
13338);
13339#ifdef LAPACK_FORTRAN_STRLEN_END
13340 #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__, 1)
13341#else
13342 #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__)
13343#endif
13344
13345#define LAPACK_spotf2_base LAPACK_GLOBAL(spotf2,SPOTF2)
13346void LAPACK_spotf2_base(
13347 char const* uplo,
13348 lapack_int const* n,
13349 float* A, lapack_int const* lda,
13350 lapack_int* info
13351#ifdef LAPACK_FORTRAN_STRLEN_END
13352 , size_t
13353#endif
13354);
13355#ifdef LAPACK_FORTRAN_STRLEN_END
13356 #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__, 1)
13357#else
13358 #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__)
13359#endif
13360
13361#define LAPACK_zpotf2_base LAPACK_GLOBAL(zpotf2,ZPOTF2)
13362void LAPACK_zpotf2_base(
13363 char const* uplo,
13364 lapack_int const* n,
13365 lapack_complex_double* A, lapack_int const* lda,
13366 lapack_int* info
13367#ifdef LAPACK_FORTRAN_STRLEN_END
13368 , size_t
13369#endif
13370);
13371#ifdef LAPACK_FORTRAN_STRLEN_END
13372 #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__, 1)
13373#else
13374 #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__)
13375#endif
13376
13377#define LAPACK_cpotrf_base LAPACK_GLOBAL(cpotrf,CPOTRF)
13378void LAPACK_cpotrf_base(
13379 char const* uplo,
13380 lapack_int const* n,
13381 lapack_complex_float* A, lapack_int const* lda,
13382 lapack_int* info
13383#ifdef LAPACK_FORTRAN_STRLEN_END
13384 , size_t
13385#endif
13386);
13387#ifdef LAPACK_FORTRAN_STRLEN_END
13388 #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__, 1)
13389#else
13390 #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__)
13391#endif
13392
13393#define LAPACK_dpotrf_base LAPACK_GLOBAL(dpotrf,DPOTRF)
13394void LAPACK_dpotrf_base(
13395 char const* uplo,
13396 lapack_int const* n,
13397 double* A, lapack_int const* lda,
13398 lapack_int* info
13399#ifdef LAPACK_FORTRAN_STRLEN_END
13400 , size_t
13401#endif
13402);
13403#ifdef LAPACK_FORTRAN_STRLEN_END
13404 #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__, 1)
13405#else
13406 #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__)
13407#endif
13408
13409#define LAPACK_spotrf_base LAPACK_GLOBAL(spotrf,SPOTRF)
13410void LAPACK_spotrf_base(
13411 char const* uplo,
13412 lapack_int const* n,
13413 float* A, lapack_int const* lda,
13414 lapack_int* info
13415#ifdef LAPACK_FORTRAN_STRLEN_END
13416 , size_t
13417#endif
13418);
13419#ifdef LAPACK_FORTRAN_STRLEN_END
13420 #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__, 1)
13421#else
13422 #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__)
13423#endif
13424
13425#define LAPACK_zpotrf_base LAPACK_GLOBAL(zpotrf,ZPOTRF)
13426void LAPACK_zpotrf_base(
13427 char const* uplo,
13428 lapack_int const* n,
13429 lapack_complex_double* A, lapack_int const* lda,
13430 lapack_int* info
13431#ifdef LAPACK_FORTRAN_STRLEN_END
13432 , size_t
13433#endif
13434);
13435#ifdef LAPACK_FORTRAN_STRLEN_END
13436 #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__, 1)
13437#else
13438 #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__)
13439#endif
13440
13441#define LAPACK_cpotrf2_base LAPACK_GLOBAL(cpotrf2,CPOTRF2)
13442void LAPACK_cpotrf2_base(
13443 char const* uplo,
13444 lapack_int const* n,
13445 lapack_complex_float* A, lapack_int const* lda,
13446 lapack_int* info
13447#ifdef LAPACK_FORTRAN_STRLEN_END
13448 , size_t
13449#endif
13450);
13451#ifdef LAPACK_FORTRAN_STRLEN_END
13452 #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__, 1)
13453#else
13454 #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__)
13455#endif
13456
13457#define LAPACK_dpotrf2_base LAPACK_GLOBAL(dpotrf2,DPOTRF2)
13458void LAPACK_dpotrf2_base(
13459 char const* uplo,
13460 lapack_int const* n,
13461 double* A, lapack_int const* lda,
13462 lapack_int* info
13463#ifdef LAPACK_FORTRAN_STRLEN_END
13464 , size_t
13465#endif
13466);
13467#ifdef LAPACK_FORTRAN_STRLEN_END
13468 #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__, 1)
13469#else
13470 #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__)
13471#endif
13472
13473#define LAPACK_spotrf2_base LAPACK_GLOBAL(spotrf2,SPOTRF2)
13474void LAPACK_spotrf2_base(
13475 char const* uplo,
13476 lapack_int const* n,
13477 float* A, lapack_int const* lda,
13478 lapack_int* info
13479#ifdef LAPACK_FORTRAN_STRLEN_END
13480 , size_t
13481#endif
13482);
13483#ifdef LAPACK_FORTRAN_STRLEN_END
13484 #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__, 1)
13485#else
13486 #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__)
13487#endif
13488
13489#define LAPACK_zpotrf2_base LAPACK_GLOBAL(zpotrf2,ZPOTRF2)
13490void LAPACK_zpotrf2_base(
13491 char const* uplo,
13492 lapack_int const* n,
13493 lapack_complex_double* A, lapack_int const* lda,
13494 lapack_int* info
13495#ifdef LAPACK_FORTRAN_STRLEN_END
13496 , size_t
13497#endif
13498);
13499#ifdef LAPACK_FORTRAN_STRLEN_END
13500 #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__, 1)
13501#else
13502 #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__)
13503#endif
13504
13505#define LAPACK_cpotri_base LAPACK_GLOBAL(cpotri,CPOTRI)
13506void LAPACK_cpotri_base(
13507 char const* uplo,
13508 lapack_int const* n,
13509 lapack_complex_float* A, lapack_int const* lda,
13510 lapack_int* info
13511#ifdef LAPACK_FORTRAN_STRLEN_END
13512 , size_t
13513#endif
13514);
13515#ifdef LAPACK_FORTRAN_STRLEN_END
13516 #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__, 1)
13517#else
13518 #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__)
13519#endif
13520
13521#define LAPACK_dpotri_base LAPACK_GLOBAL(dpotri,DPOTRI)
13522void LAPACK_dpotri_base(
13523 char const* uplo,
13524 lapack_int const* n,
13525 double* A, lapack_int const* lda,
13526 lapack_int* info
13527#ifdef LAPACK_FORTRAN_STRLEN_END
13528 , size_t
13529#endif
13530);
13531#ifdef LAPACK_FORTRAN_STRLEN_END
13532 #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__, 1)
13533#else
13534 #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__)
13535#endif
13536
13537#define LAPACK_spotri_base LAPACK_GLOBAL(spotri,SPOTRI)
13538void LAPACK_spotri_base(
13539 char const* uplo,
13540 lapack_int const* n,
13541 float* A, lapack_int const* lda,
13542 lapack_int* info
13543#ifdef LAPACK_FORTRAN_STRLEN_END
13544 , size_t
13545#endif
13546);
13547#ifdef LAPACK_FORTRAN_STRLEN_END
13548 #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__, 1)
13549#else
13550 #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__)
13551#endif
13552
13553#define LAPACK_zpotri_base LAPACK_GLOBAL(zpotri,ZPOTRI)
13554void LAPACK_zpotri_base(
13555 char const* uplo,
13556 lapack_int const* n,
13557 lapack_complex_double* A, lapack_int const* lda,
13558 lapack_int* info
13559#ifdef LAPACK_FORTRAN_STRLEN_END
13560 , size_t
13561#endif
13562);
13563#ifdef LAPACK_FORTRAN_STRLEN_END
13564 #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__, 1)
13565#else
13566 #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__)
13567#endif
13568
13569#define LAPACK_cpotrs_base LAPACK_GLOBAL(cpotrs,CPOTRS)
13570void LAPACK_cpotrs_base(
13571 char const* uplo,
13572 lapack_int const* n, lapack_int const* nrhs,
13573 lapack_complex_float const* A, lapack_int const* lda,
13574 lapack_complex_float* B, lapack_int const* ldb,
13575 lapack_int* info
13576#ifdef LAPACK_FORTRAN_STRLEN_END
13577 , size_t
13578#endif
13579);
13580#ifdef LAPACK_FORTRAN_STRLEN_END
13581 #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__, 1)
13582#else
13583 #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__)
13584#endif
13585
13586#define LAPACK_dpotrs_base LAPACK_GLOBAL(dpotrs,DPOTRS)
13587void LAPACK_dpotrs_base(
13588 char const* uplo,
13589 lapack_int const* n, lapack_int const* nrhs,
13590 double const* A, lapack_int const* lda,
13591 double* B, lapack_int const* ldb,
13592 lapack_int* info
13593#ifdef LAPACK_FORTRAN_STRLEN_END
13594 , size_t
13595#endif
13596);
13597#ifdef LAPACK_FORTRAN_STRLEN_END
13598 #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__, 1)
13599#else
13600 #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__)
13601#endif
13602
13603#define LAPACK_spotrs_base LAPACK_GLOBAL(spotrs,SPOTRS)
13604void LAPACK_spotrs_base(
13605 char const* uplo,
13606 lapack_int const* n, lapack_int const* nrhs,
13607 float const* A, lapack_int const* lda,
13608 float* B, lapack_int const* ldb,
13609 lapack_int* info
13610#ifdef LAPACK_FORTRAN_STRLEN_END
13611 , size_t
13612#endif
13613);
13614#ifdef LAPACK_FORTRAN_STRLEN_END
13615 #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__, 1)
13616#else
13617 #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__)
13618#endif
13619
13620#define LAPACK_zpotrs_base LAPACK_GLOBAL(zpotrs,ZPOTRS)
13621void LAPACK_zpotrs_base(
13622 char const* uplo,
13623 lapack_int const* n, lapack_int const* nrhs,
13624 lapack_complex_double const* A, lapack_int const* lda,
13625 lapack_complex_double* B, lapack_int const* ldb,
13626 lapack_int* info
13627#ifdef LAPACK_FORTRAN_STRLEN_END
13628 , size_t
13629#endif
13630);
13631#ifdef LAPACK_FORTRAN_STRLEN_END
13632 #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__, 1)
13633#else
13634 #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__)
13635#endif
13636
13637#define LAPACK_cppcon_base LAPACK_GLOBAL(cppcon,CPPCON)
13638void LAPACK_cppcon_base(
13639 char const* uplo,
13640 lapack_int const* n,
13641 lapack_complex_float const* AP,
13642 float const* anorm,
13643 float* rcond,
13644 lapack_complex_float* work,
13645 float* rwork,
13646 lapack_int* info
13647#ifdef LAPACK_FORTRAN_STRLEN_END
13648 , size_t
13649#endif
13650);
13651#ifdef LAPACK_FORTRAN_STRLEN_END
13652 #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__, 1)
13653#else
13654 #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__)
13655#endif
13656
13657#define LAPACK_dppcon_base LAPACK_GLOBAL(dppcon,DPPCON)
13658void LAPACK_dppcon_base(
13659 char const* uplo,
13660 lapack_int const* n,
13661 double const* AP,
13662 double const* anorm,
13663 double* rcond,
13664 double* work,
13665 lapack_int* iwork,
13666 lapack_int* info
13667#ifdef LAPACK_FORTRAN_STRLEN_END
13668 , size_t
13669#endif
13670);
13671#ifdef LAPACK_FORTRAN_STRLEN_END
13672 #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__, 1)
13673#else
13674 #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__)
13675#endif
13676
13677#define LAPACK_sppcon_base LAPACK_GLOBAL(sppcon,SPPCON)
13678void LAPACK_sppcon_base(
13679 char const* uplo,
13680 lapack_int const* n,
13681 float const* AP,
13682 float const* anorm,
13683 float* rcond,
13684 float* work,
13685 lapack_int* iwork,
13686 lapack_int* info
13687#ifdef LAPACK_FORTRAN_STRLEN_END
13688 , size_t
13689#endif
13690);
13691#ifdef LAPACK_FORTRAN_STRLEN_END
13692 #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__, 1)
13693#else
13694 #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__)
13695#endif
13696
13697#define LAPACK_zppcon_base LAPACK_GLOBAL(zppcon,ZPPCON)
13698void LAPACK_zppcon_base(
13699 char const* uplo,
13700 lapack_int const* n,
13701 lapack_complex_double const* AP,
13702 double const* anorm,
13703 double* rcond,
13704 lapack_complex_double* work,
13705 double* rwork,
13706 lapack_int* info
13707#ifdef LAPACK_FORTRAN_STRLEN_END
13708 , size_t
13709#endif
13710);
13711#ifdef LAPACK_FORTRAN_STRLEN_END
13712 #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__, 1)
13713#else
13714 #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__)
13715#endif
13716
13717#define LAPACK_cppequ_base LAPACK_GLOBAL(cppequ,CPPEQU)
13718void LAPACK_cppequ_base(
13719 char const* uplo,
13720 lapack_int const* n,
13721 lapack_complex_float const* AP,
13722 float* S,
13723 float* scond,
13724 float* amax,
13725 lapack_int* info
13726#ifdef LAPACK_FORTRAN_STRLEN_END
13727 , size_t
13728#endif
13729);
13730#ifdef LAPACK_FORTRAN_STRLEN_END
13731 #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__, 1)
13732#else
13733 #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__)
13734#endif
13735
13736#define LAPACK_dppequ_base LAPACK_GLOBAL(dppequ,DPPEQU)
13737void LAPACK_dppequ_base(
13738 char const* uplo,
13739 lapack_int const* n,
13740 double const* AP,
13741 double* S,
13742 double* scond,
13743 double* amax,
13744 lapack_int* info
13745#ifdef LAPACK_FORTRAN_STRLEN_END
13746 , size_t
13747#endif
13748);
13749#ifdef LAPACK_FORTRAN_STRLEN_END
13750 #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__, 1)
13751#else
13752 #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__)
13753#endif
13754
13755#define LAPACK_sppequ_base LAPACK_GLOBAL(sppequ,SPPEQU)
13756void LAPACK_sppequ_base(
13757 char const* uplo,
13758 lapack_int const* n,
13759 float const* AP,
13760 float* S,
13761 float* scond,
13762 float* amax,
13763 lapack_int* info
13764#ifdef LAPACK_FORTRAN_STRLEN_END
13765 , size_t
13766#endif
13767);
13768#ifdef LAPACK_FORTRAN_STRLEN_END
13769 #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__, 1)
13770#else
13771 #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__)
13772#endif
13773
13774#define LAPACK_zppequ_base LAPACK_GLOBAL(zppequ,ZPPEQU)
13775void LAPACK_zppequ_base(
13776 char const* uplo,
13777 lapack_int const* n,
13778 lapack_complex_double const* AP,
13779 double* S,
13780 double* scond,
13781 double* amax,
13782 lapack_int* info
13783#ifdef LAPACK_FORTRAN_STRLEN_END
13784 , size_t
13785#endif
13786);
13787#ifdef LAPACK_FORTRAN_STRLEN_END
13788 #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__, 1)
13789#else
13790 #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__)
13791#endif
13792
13793#define LAPACK_cpprfs_base LAPACK_GLOBAL(cpprfs,CPPRFS)
13794void LAPACK_cpprfs_base(
13795 char const* uplo,
13796 lapack_int const* n, lapack_int const* nrhs,
13797 lapack_complex_float const* AP,
13798 lapack_complex_float const* AFP,
13799 lapack_complex_float const* B, lapack_int const* ldb,
13800 lapack_complex_float* X, lapack_int const* ldx,
13801 float* ferr,
13802 float* berr,
13803 lapack_complex_float* work,
13804 float* rwork,
13805 lapack_int* info
13806#ifdef LAPACK_FORTRAN_STRLEN_END
13807 , size_t
13808#endif
13809);
13810#ifdef LAPACK_FORTRAN_STRLEN_END
13811 #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__, 1)
13812#else
13813 #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__)
13814#endif
13815
13816#define LAPACK_dpprfs_base LAPACK_GLOBAL(dpprfs,DPPRFS)
13817void LAPACK_dpprfs_base(
13818 char const* uplo,
13819 lapack_int const* n, lapack_int const* nrhs,
13820 double const* AP,
13821 double const* AFP,
13822 double const* B, lapack_int const* ldb,
13823 double* X, lapack_int const* ldx,
13824 double* ferr,
13825 double* berr,
13826 double* work,
13827 lapack_int* iwork,
13828 lapack_int* info
13829#ifdef LAPACK_FORTRAN_STRLEN_END
13830 , size_t
13831#endif
13832);
13833#ifdef LAPACK_FORTRAN_STRLEN_END
13834 #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__, 1)
13835#else
13836 #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__)
13837#endif
13838
13839#define LAPACK_spprfs_base LAPACK_GLOBAL(spprfs,SPPRFS)
13840void LAPACK_spprfs_base(
13841 char const* uplo,
13842 lapack_int const* n, lapack_int const* nrhs,
13843 float const* AP,
13844 float const* AFP,
13845 float const* B, lapack_int const* ldb,
13846 float* X, lapack_int const* ldx,
13847 float* ferr,
13848 float* berr,
13849 float* work,
13850 lapack_int* iwork,
13851 lapack_int* info
13852#ifdef LAPACK_FORTRAN_STRLEN_END
13853 , size_t
13854#endif
13855);
13856#ifdef LAPACK_FORTRAN_STRLEN_END
13857 #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__, 1)
13858#else
13859 #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__)
13860#endif
13861
13862#define LAPACK_zpprfs_base LAPACK_GLOBAL(zpprfs,ZPPRFS)
13863void LAPACK_zpprfs_base(
13864 char const* uplo,
13865 lapack_int const* n, lapack_int const* nrhs,
13866 lapack_complex_double const* AP,
13867 lapack_complex_double const* AFP,
13868 lapack_complex_double const* B, lapack_int const* ldb,
13869 lapack_complex_double* X, lapack_int const* ldx,
13870 double* ferr,
13871 double* berr,
13872 lapack_complex_double* work,
13873 double* rwork,
13874 lapack_int* info
13875#ifdef LAPACK_FORTRAN_STRLEN_END
13876 , size_t
13877#endif
13878);
13879#ifdef LAPACK_FORTRAN_STRLEN_END
13880 #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__, 1)
13881#else
13882 #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__)
13883#endif
13884
13885#define LAPACK_cppsv_base LAPACK_GLOBAL(cppsv,CPPSV)
13886void LAPACK_cppsv_base(
13887 char const* uplo,
13888 lapack_int const* n, lapack_int const* nrhs,
13889 lapack_complex_float* AP,
13890 lapack_complex_float* B, lapack_int const* ldb,
13891 lapack_int* info
13892#ifdef LAPACK_FORTRAN_STRLEN_END
13893 , size_t
13894#endif
13895);
13896#ifdef LAPACK_FORTRAN_STRLEN_END
13897 #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__, 1)
13898#else
13899 #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__)
13900#endif
13901
13902#define LAPACK_dppsv_base LAPACK_GLOBAL(dppsv,DPPSV)
13903void LAPACK_dppsv_base(
13904 char const* uplo,
13905 lapack_int const* n, lapack_int const* nrhs,
13906 double* AP,
13907 double* B, lapack_int const* ldb,
13908 lapack_int* info
13909#ifdef LAPACK_FORTRAN_STRLEN_END
13910 , size_t
13911#endif
13912);
13913#ifdef LAPACK_FORTRAN_STRLEN_END
13914 #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__, 1)
13915#else
13916 #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__)
13917#endif
13918
13919#define LAPACK_sppsv_base LAPACK_GLOBAL(sppsv,SPPSV)
13920void LAPACK_sppsv_base(
13921 char const* uplo,
13922 lapack_int const* n, lapack_int const* nrhs,
13923 float* AP,
13924 float* B, lapack_int const* ldb,
13925 lapack_int* info
13926#ifdef LAPACK_FORTRAN_STRLEN_END
13927 , size_t
13928#endif
13929);
13930#ifdef LAPACK_FORTRAN_STRLEN_END
13931 #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__, 1)
13932#else
13933 #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__)
13934#endif
13935
13936#define LAPACK_zppsv_base LAPACK_GLOBAL(zppsv,ZPPSV)
13937void LAPACK_zppsv_base(
13938 char const* uplo,
13939 lapack_int const* n, lapack_int const* nrhs,
13940 lapack_complex_double* AP,
13941 lapack_complex_double* B, lapack_int const* ldb,
13942 lapack_int* info
13943#ifdef LAPACK_FORTRAN_STRLEN_END
13944 , size_t
13945#endif
13946);
13947#ifdef LAPACK_FORTRAN_STRLEN_END
13948 #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__, 1)
13949#else
13950 #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__)
13951#endif
13952
13953#define LAPACK_cppsvx_base LAPACK_GLOBAL(cppsvx,CPPSVX)
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,
13959 float* S,
13960 lapack_complex_float* B,
13961 lapack_int const* ldb,
13962 lapack_complex_float* X, lapack_int const* ldx,
13963 float* rcond,
13964 float* ferr,
13965 float* berr,
13966 lapack_complex_float* work,
13967 float* rwork,
13968 lapack_int* info
13969#ifdef LAPACK_FORTRAN_STRLEN_END
13970 , size_t, size_t, size_t
13971#endif
13972);
13973#ifdef LAPACK_FORTRAN_STRLEN_END
13974 #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__, 1, 1, 1)
13975#else
13976 #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__)
13977#endif
13978
13979#define LAPACK_dppsvx_base LAPACK_GLOBAL(dppsvx,DPPSVX)
13980void LAPACK_dppsvx_base(
13981 char const* fact, char const* uplo,
13982 lapack_int const* n, lapack_int const* nrhs,
13983 double* AP,
13984 double* AFP, char* equed,
13985 double* S,
13986 double* B,
13987 lapack_int const* ldb,
13988 double* X, lapack_int const* ldx,
13989 double* rcond,
13990 double* ferr,
13991 double* berr,
13992 double* work,
13993 lapack_int* iwork,
13994 lapack_int* info
13995#ifdef LAPACK_FORTRAN_STRLEN_END
13996 , size_t, size_t, size_t
13997#endif
13998);
13999#ifdef LAPACK_FORTRAN_STRLEN_END
14000 #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__, 1, 1, 1)
14001#else
14002 #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__)
14003#endif
14004
14005#define LAPACK_sppsvx_base LAPACK_GLOBAL(sppsvx,SPPSVX)
14006void LAPACK_sppsvx_base(
14007 char const* fact, char const* uplo,
14008 lapack_int const* n, lapack_int const* nrhs,
14009 float* AP,
14010 float* AFP, char* equed,
14011 float* S,
14012 float* B,
14013 lapack_int const* ldb,
14014 float* X, lapack_int const* ldx,
14015 float* rcond,
14016 float* ferr,
14017 float* berr,
14018 float* work,
14019 lapack_int* iwork,
14020 lapack_int* info
14021#ifdef LAPACK_FORTRAN_STRLEN_END
14022 , size_t, size_t, size_t
14023#endif
14024);
14025#ifdef LAPACK_FORTRAN_STRLEN_END
14026 #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__, 1, 1, 1)
14027#else
14028 #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__)
14029#endif
14030
14031#define LAPACK_zppsvx_base LAPACK_GLOBAL(zppsvx,ZPPSVX)
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,
14037 double* S,
14038 lapack_complex_double* B,
14039 lapack_int const* ldb,
14040 lapack_complex_double* X, lapack_int const* ldx,
14041 double* rcond,
14042 double* ferr,
14043 double* berr,
14044 lapack_complex_double* work,
14045 double* rwork,
14046 lapack_int* info
14047#ifdef LAPACK_FORTRAN_STRLEN_END
14048 , size_t, size_t, size_t
14049#endif
14050);
14051#ifdef LAPACK_FORTRAN_STRLEN_END
14052 #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__, 1, 1, 1)
14053#else
14054 #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__)
14055#endif
14056
14057#define LAPACK_cpptrf_base LAPACK_GLOBAL(cpptrf,CPPTRF)
14058void LAPACK_cpptrf_base(
14059 char const* uplo,
14060 lapack_int const* n,
14061 lapack_complex_float* AP,
14062 lapack_int* info
14063#ifdef LAPACK_FORTRAN_STRLEN_END
14064 , size_t
14065#endif
14066);
14067#ifdef LAPACK_FORTRAN_STRLEN_END
14068 #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__, 1)
14069#else
14070 #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__)
14071#endif
14072
14073#define LAPACK_dpptrf_base LAPACK_GLOBAL(dpptrf,DPPTRF)
14074void LAPACK_dpptrf_base(
14075 char const* uplo,
14076 lapack_int const* n,
14077 double* AP,
14078 lapack_int* info
14079#ifdef LAPACK_FORTRAN_STRLEN_END
14080 , size_t
14081#endif
14082);
14083#ifdef LAPACK_FORTRAN_STRLEN_END
14084 #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__, 1)
14085#else
14086 #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__)
14087#endif
14088
14089#define LAPACK_spptrf_base LAPACK_GLOBAL(spptrf,SPPTRF)
14090void LAPACK_spptrf_base(
14091 char const* uplo,
14092 lapack_int const* n,
14093 float* AP,
14094 lapack_int* info
14095#ifdef LAPACK_FORTRAN_STRLEN_END
14096 , size_t
14097#endif
14098);
14099#ifdef LAPACK_FORTRAN_STRLEN_END
14100 #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__, 1)
14101#else
14102 #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__)
14103#endif
14104
14105#define LAPACK_zpptrf_base LAPACK_GLOBAL(zpptrf,ZPPTRF)
14106void LAPACK_zpptrf_base(
14107 char const* uplo,
14108 lapack_int const* n,
14109 lapack_complex_double* AP,
14110 lapack_int* info
14111#ifdef LAPACK_FORTRAN_STRLEN_END
14112 , size_t
14113#endif
14114);
14115#ifdef LAPACK_FORTRAN_STRLEN_END
14116 #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__, 1)
14117#else
14118 #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__)
14119#endif
14120
14121#define LAPACK_cpptri_base LAPACK_GLOBAL(cpptri,CPPTRI)
14122void LAPACK_cpptri_base(
14123 char const* uplo,
14124 lapack_int const* n,
14125 lapack_complex_float* AP,
14126 lapack_int* info
14127#ifdef LAPACK_FORTRAN_STRLEN_END
14128 , size_t
14129#endif
14130);
14131#ifdef LAPACK_FORTRAN_STRLEN_END
14132 #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__, 1)
14133#else
14134 #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__)
14135#endif
14136
14137#define LAPACK_dpptri_base LAPACK_GLOBAL(dpptri,DPPTRI)
14138void LAPACK_dpptri_base(
14139 char const* uplo,
14140 lapack_int const* n,
14141 double* AP,
14142 lapack_int* info
14143#ifdef LAPACK_FORTRAN_STRLEN_END
14144 , size_t
14145#endif
14146);
14147#ifdef LAPACK_FORTRAN_STRLEN_END
14148 #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__, 1)
14149#else
14150 #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__)
14151#endif
14152
14153#define LAPACK_spptri_base LAPACK_GLOBAL(spptri,SPPTRI)
14154void LAPACK_spptri_base(
14155 char const* uplo,
14156 lapack_int const* n,
14157 float* AP,
14158 lapack_int* info
14159#ifdef LAPACK_FORTRAN_STRLEN_END
14160 , size_t
14161#endif
14162);
14163#ifdef LAPACK_FORTRAN_STRLEN_END
14164 #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__, 1)
14165#else
14166 #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__)
14167#endif
14168
14169#define LAPACK_zpptri_base LAPACK_GLOBAL(zpptri,ZPPTRI)
14170void LAPACK_zpptri_base(
14171 char const* uplo,
14172 lapack_int const* n,
14173 lapack_complex_double* AP,
14174 lapack_int* info
14175#ifdef LAPACK_FORTRAN_STRLEN_END
14176 , size_t
14177#endif
14178);
14179#ifdef LAPACK_FORTRAN_STRLEN_END
14180 #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__, 1)
14181#else
14182 #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__)
14183#endif
14184
14185#define LAPACK_cpptrs_base LAPACK_GLOBAL(cpptrs,CPPTRS)
14186void LAPACK_cpptrs_base(
14187 char const* uplo,
14188 lapack_int const* n, lapack_int const* nrhs,
14189 lapack_complex_float const* AP,
14190 lapack_complex_float* B, lapack_int const* ldb,
14191 lapack_int* info
14192#ifdef LAPACK_FORTRAN_STRLEN_END
14193 , size_t
14194#endif
14195);
14196#ifdef LAPACK_FORTRAN_STRLEN_END
14197 #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__, 1)
14198#else
14199 #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__)
14200#endif
14201
14202#define LAPACK_dpptrs_base LAPACK_GLOBAL(dpptrs,DPPTRS)
14203void LAPACK_dpptrs_base(
14204 char const* uplo,
14205 lapack_int const* n, lapack_int const* nrhs,
14206 double const* AP,
14207 double* B, lapack_int const* ldb,
14208 lapack_int* info
14209#ifdef LAPACK_FORTRAN_STRLEN_END
14210 , size_t
14211#endif
14212);
14213#ifdef LAPACK_FORTRAN_STRLEN_END
14214 #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__, 1)
14215#else
14216 #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__)
14217#endif
14218
14219#define LAPACK_spptrs_base LAPACK_GLOBAL(spptrs,SPPTRS)
14220void LAPACK_spptrs_base(
14221 char const* uplo,
14222 lapack_int const* n, lapack_int const* nrhs,
14223 float const* AP,
14224 float* B, lapack_int const* ldb,
14225 lapack_int* info
14226#ifdef LAPACK_FORTRAN_STRLEN_END
14227 , size_t
14228#endif
14229);
14230#ifdef LAPACK_FORTRAN_STRLEN_END
14231 #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__, 1)
14232#else
14233 #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__)
14234#endif
14235
14236#define LAPACK_zpptrs_base LAPACK_GLOBAL(zpptrs,ZPPTRS)
14237void LAPACK_zpptrs_base(
14238 char const* uplo,
14239 lapack_int const* n, lapack_int const* nrhs,
14240 lapack_complex_double const* AP,
14241 lapack_complex_double* B, lapack_int const* ldb,
14242 lapack_int* info
14243#ifdef LAPACK_FORTRAN_STRLEN_END
14244 , size_t
14245#endif
14246);
14247#ifdef LAPACK_FORTRAN_STRLEN_END
14248 #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__, 1)
14249#else
14250 #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__)
14251#endif
14252
14253#define LAPACK_cpstrf_base LAPACK_GLOBAL(cpstrf,CPSTRF)
14254void LAPACK_cpstrf_base(
14255 char const* uplo,
14256 lapack_int const* n,
14257 lapack_complex_float* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank,
14258 float const* tol,
14259 float* work,
14260 lapack_int* info
14261#ifdef LAPACK_FORTRAN_STRLEN_END
14262 , size_t
14263#endif
14264);
14265#ifdef LAPACK_FORTRAN_STRLEN_END
14266 #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__, 1)
14267#else
14268 #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__)
14269#endif
14270
14271#define LAPACK_dpstrf_base LAPACK_GLOBAL(dpstrf,DPSTRF)
14272void LAPACK_dpstrf_base(
14273 char const* uplo,
14274 lapack_int const* n,
14275 double* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank,
14276 double const* tol,
14277 double* work,
14278 lapack_int* info
14279#ifdef LAPACK_FORTRAN_STRLEN_END
14280 , size_t
14281#endif
14282);
14283#ifdef LAPACK_FORTRAN_STRLEN_END
14284 #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__, 1)
14285#else
14286 #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__)
14287#endif
14288
14289#define LAPACK_spstrf_base LAPACK_GLOBAL(spstrf,SPSTRF)
14290void LAPACK_spstrf_base(
14291 char const* uplo,
14292 lapack_int const* n,
14293 float* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank,
14294 float const* tol,
14295 float* work,
14296 lapack_int* info
14297#ifdef LAPACK_FORTRAN_STRLEN_END
14298 , size_t
14299#endif
14300);
14301#ifdef LAPACK_FORTRAN_STRLEN_END
14302 #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__, 1)
14303#else
14304 #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__)
14305#endif
14306
14307#define LAPACK_zpstrf_base LAPACK_GLOBAL(zpstrf,ZPSTRF)
14308void LAPACK_zpstrf_base(
14309 char const* uplo,
14310 lapack_int const* n,
14311 lapack_complex_double* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank,
14312 double const* tol,
14313 double* work,
14314 lapack_int* info
14315#ifdef LAPACK_FORTRAN_STRLEN_END
14316 , size_t
14317#endif
14318);
14319#ifdef LAPACK_FORTRAN_STRLEN_END
14320 #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__, 1)
14321#else
14322 #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__)
14323#endif
14324
14325#define LAPACK_cptcon LAPACK_GLOBAL(cptcon,CPTCON)
14326void LAPACK_cptcon(
14327 lapack_int const* n,
14328 float const* D,
14329 lapack_complex_float const* E,
14330 float const* anorm,
14331 float* rcond,
14332 float* rwork,
14333 lapack_int* info );
14334
14335#define LAPACK_dptcon LAPACK_GLOBAL(dptcon,DPTCON)
14336void LAPACK_dptcon(
14337 lapack_int const* n,
14338 double const* D,
14339 double const* E,
14340 double const* anorm,
14341 double* rcond,
14342 double* work,
14343 lapack_int* info );
14344
14345#define LAPACK_sptcon LAPACK_GLOBAL(sptcon,SPTCON)
14346void LAPACK_sptcon(
14347 lapack_int const* n,
14348 float const* D,
14349 float const* E,
14350 float const* anorm,
14351 float* rcond,
14352 float* work,
14353 lapack_int* info );
14354
14355#define LAPACK_zptcon LAPACK_GLOBAL(zptcon,ZPTCON)
14356void LAPACK_zptcon(
14357 lapack_int const* n,
14358 double const* D,
14359 lapack_complex_double const* E,
14360 double const* anorm,
14361 double* rcond,
14362 double* rwork,
14363 lapack_int* info );
14364
14365#define LAPACK_cpteqr_base LAPACK_GLOBAL(cpteqr,CPTEQR)
14366void LAPACK_cpteqr_base(
14367 char const* compz,
14368 lapack_int const* n,
14369 float* D,
14370 float* E,
14371 lapack_complex_float* Z, lapack_int const* ldz,
14372 float* work,
14373 lapack_int* info
14374#ifdef LAPACK_FORTRAN_STRLEN_END
14375 , size_t
14376#endif
14377);
14378#ifdef LAPACK_FORTRAN_STRLEN_END
14379 #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__, 1)
14380#else
14381 #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__)
14382#endif
14383
14384#define LAPACK_dpteqr_base LAPACK_GLOBAL(dpteqr,DPTEQR)
14385void LAPACK_dpteqr_base(
14386 char const* compz,
14387 lapack_int const* n,
14388 double* D,
14389 double* E,
14390 double* Z, lapack_int const* ldz,
14391 double* work,
14392 lapack_int* info
14393#ifdef LAPACK_FORTRAN_STRLEN_END
14394 , size_t
14395#endif
14396);
14397#ifdef LAPACK_FORTRAN_STRLEN_END
14398 #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__, 1)
14399#else
14400 #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__)
14401#endif
14402
14403#define LAPACK_spteqr_base LAPACK_GLOBAL(spteqr,SPTEQR)
14404void LAPACK_spteqr_base(
14405 char const* compz,
14406 lapack_int const* n,
14407 float* D,
14408 float* E,
14409 float* Z, lapack_int const* ldz,
14410 float* work,
14411 lapack_int* info
14412#ifdef LAPACK_FORTRAN_STRLEN_END
14413 , size_t
14414#endif
14415);
14416#ifdef LAPACK_FORTRAN_STRLEN_END
14417 #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__, 1)
14418#else
14419 #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__)
14420#endif
14421
14422#define LAPACK_zpteqr_base LAPACK_GLOBAL(zpteqr,ZPTEQR)
14423void LAPACK_zpteqr_base(
14424 char const* compz,
14425 lapack_int const* n,
14426 double* D,
14427 double* E,
14428 lapack_complex_double* Z, lapack_int const* ldz,
14429 double* work,
14430 lapack_int* info
14431#ifdef LAPACK_FORTRAN_STRLEN_END
14432 , size_t
14433#endif
14434);
14435#ifdef LAPACK_FORTRAN_STRLEN_END
14436 #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__, 1)
14437#else
14438 #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__)
14439#endif
14440
14441#define LAPACK_cptrfs_base LAPACK_GLOBAL(cptrfs,CPTRFS)
14442void LAPACK_cptrfs_base(
14443 char const* uplo,
14444 lapack_int const* n, lapack_int const* nrhs,
14445 float const* D,
14446 lapack_complex_float const* E,
14447 float const* DF,
14448 lapack_complex_float const* EF,
14449 lapack_complex_float const* B, lapack_int const* ldb,
14450 lapack_complex_float* X, lapack_int const* ldx,
14451 float* ferr,
14452 float* berr,
14453 lapack_complex_float* work,
14454 float* rwork,
14455 lapack_int* info
14456#ifdef LAPACK_FORTRAN_STRLEN_END
14457 , size_t
14458#endif
14459);
14460#ifdef LAPACK_FORTRAN_STRLEN_END
14461 #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__, 1)
14462#else
14463 #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__)
14464#endif
14465
14466#define LAPACK_dptrfs LAPACK_GLOBAL(dptrfs,DPTRFS)
14467void LAPACK_dptrfs(
14468 lapack_int const* n, lapack_int const* nrhs,
14469 double const* D,
14470 double const* E,
14471 double const* DF,
14472 double const* EF,
14473 double const* B, lapack_int const* ldb,
14474 double* X, lapack_int const* ldx,
14475 double* ferr,
14476 double* berr,
14477 double* work,
14478 lapack_int* info );
14479
14480#define LAPACK_sptrfs LAPACK_GLOBAL(sptrfs,SPTRFS)
14481void LAPACK_sptrfs(
14482 lapack_int const* n, lapack_int const* nrhs,
14483 float const* D,
14484 float const* E,
14485 float const* DF,
14486 float const* EF,
14487 float const* B, lapack_int const* ldb,
14488 float* X, lapack_int const* ldx,
14489 float* ferr,
14490 float* berr,
14491 float* work,
14492 lapack_int* info );
14493
14494#define LAPACK_zptrfs_base LAPACK_GLOBAL(zptrfs,ZPTRFS)
14495void LAPACK_zptrfs_base(
14496 char const* uplo,
14497 lapack_int const* n, lapack_int const* nrhs,
14498 double const* D,
14499 lapack_complex_double const* E,
14500 double const* DF,
14501 lapack_complex_double const* EF,
14502 lapack_complex_double const* B, lapack_int const* ldb,
14503 lapack_complex_double* X, lapack_int const* ldx,
14504 double* ferr,
14505 double* berr,
14506 lapack_complex_double* work,
14507 double* rwork,
14508 lapack_int* info
14509#ifdef LAPACK_FORTRAN_STRLEN_END
14510 , size_t
14511#endif
14512);
14513#ifdef LAPACK_FORTRAN_STRLEN_END
14514 #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__, 1)
14515#else
14516 #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__)
14517#endif
14518
14519#define LAPACK_cptsv LAPACK_GLOBAL(cptsv,CPTSV)
14520void LAPACK_cptsv(
14521 lapack_int const* n, lapack_int const* nrhs,
14522 float* D,
14523 lapack_complex_float* E,
14524 lapack_complex_float* B, lapack_int const* ldb,
14525 lapack_int* info );
14526
14527#define LAPACK_dptsv LAPACK_GLOBAL(dptsv,DPTSV)
14528void LAPACK_dptsv(
14529 lapack_int const* n, lapack_int const* nrhs,
14530 double* D,
14531 double* E,
14532 double* B, lapack_int const* ldb,
14533 lapack_int* info );
14534
14535#define LAPACK_sptsv LAPACK_GLOBAL(sptsv,SPTSV)
14536void LAPACK_sptsv(
14537 lapack_int const* n, lapack_int const* nrhs,
14538 float* D,
14539 float* E,
14540 float* B, lapack_int const* ldb,
14541 lapack_int* info );
14542
14543#define LAPACK_zptsv LAPACK_GLOBAL(zptsv,ZPTSV)
14544void LAPACK_zptsv(
14545 lapack_int const* n, lapack_int const* nrhs,
14546 double* D,
14547 lapack_complex_double* E,
14548 lapack_complex_double* B, lapack_int const* ldb,
14549 lapack_int* info );
14550
14551#define LAPACK_cptsvx_base LAPACK_GLOBAL(cptsvx,CPTSVX)
14552void LAPACK_cptsvx_base(
14553 char const* fact,
14554 lapack_int const* n, lapack_int const* nrhs,
14555 float const* D,
14556 lapack_complex_float const* E,
14557 float* DF,
14558 lapack_complex_float* EF,
14559 lapack_complex_float const* B, lapack_int const* ldb,
14560 lapack_complex_float* X, lapack_int const* ldx,
14561 float* rcond,
14562 float* ferr,
14563 float* berr,
14564 lapack_complex_float* work,
14565 float* rwork,
14566 lapack_int* info
14567#ifdef LAPACK_FORTRAN_STRLEN_END
14568 , size_t
14569#endif
14570);
14571#ifdef LAPACK_FORTRAN_STRLEN_END
14572 #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__, 1)
14573#else
14574 #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__)
14575#endif
14576
14577#define LAPACK_dptsvx_base LAPACK_GLOBAL(dptsvx,DPTSVX)
14578void LAPACK_dptsvx_base(
14579 char const* fact,
14580 lapack_int const* n, lapack_int const* nrhs,
14581 double const* D,
14582 double const* E,
14583 double* DF,
14584 double* EF,
14585 double const* B, lapack_int const* ldb,
14586 double* X, lapack_int const* ldx,
14587 double* rcond,
14588 double* ferr,
14589 double* berr,
14590 double* work,
14591 lapack_int* info
14592#ifdef LAPACK_FORTRAN_STRLEN_END
14593 , size_t
14594#endif
14595);
14596#ifdef LAPACK_FORTRAN_STRLEN_END
14597 #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__, 1)
14598#else
14599 #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__)
14600#endif
14601
14602#define LAPACK_sptsvx_base LAPACK_GLOBAL(sptsvx,SPTSVX)
14603void LAPACK_sptsvx_base(
14604 char const* fact,
14605 lapack_int const* n, lapack_int const* nrhs,
14606 float const* D,
14607 float const* E,
14608 float* DF,
14609 float* EF,
14610 float const* B, lapack_int const* ldb,
14611 float* X, lapack_int const* ldx,
14612 float* rcond,
14613 float* ferr,
14614 float* berr,
14615 float* work,
14616 lapack_int* info
14617#ifdef LAPACK_FORTRAN_STRLEN_END
14618 , size_t
14619#endif
14620);
14621#ifdef LAPACK_FORTRAN_STRLEN_END
14622 #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__, 1)
14623#else
14624 #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__)
14625#endif
14626
14627#define LAPACK_zptsvx_base LAPACK_GLOBAL(zptsvx,ZPTSVX)
14628void LAPACK_zptsvx_base(
14629 char const* fact,
14630 lapack_int const* n, lapack_int const* nrhs,
14631 double const* D,
14632 lapack_complex_double const* E,
14633 double* DF,
14634 lapack_complex_double* EF,
14635 lapack_complex_double const* B, lapack_int const* ldb,
14636 lapack_complex_double* X, lapack_int const* ldx,
14637 double* rcond,
14638 double* ferr,
14639 double* berr,
14640 lapack_complex_double* work,
14641 double* rwork,
14642 lapack_int* info
14643#ifdef LAPACK_FORTRAN_STRLEN_END
14644 , size_t
14645#endif
14646);
14647#ifdef LAPACK_FORTRAN_STRLEN_END
14648 #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__, 1)
14649#else
14650 #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__)
14651#endif
14652
14653#define LAPACK_cpttrf LAPACK_GLOBAL(cpttrf,CPTTRF)
14654void LAPACK_cpttrf(
14655 lapack_int const* n,
14656 float* D,
14657 lapack_complex_float* E,
14658 lapack_int* info );
14659
14660#define LAPACK_dpttrf LAPACK_GLOBAL(dpttrf,DPTTRF)
14661void LAPACK_dpttrf(
14662 lapack_int const* n,
14663 double* D,
14664 double* E,
14665 lapack_int* info );
14666
14667#define LAPACK_spttrf LAPACK_GLOBAL(spttrf,SPTTRF)
14668void LAPACK_spttrf(
14669 lapack_int const* n,
14670 float* D,
14671 float* E,
14672 lapack_int* info );
14673
14674#define LAPACK_zpttrf LAPACK_GLOBAL(zpttrf,ZPTTRF)
14675void LAPACK_zpttrf(
14676 lapack_int const* n,
14677 double* D,
14678 lapack_complex_double* E,
14679 lapack_int* info );
14680
14681#define LAPACK_cpttrs_base LAPACK_GLOBAL(cpttrs,CPTTRS)
14682void LAPACK_cpttrs_base(
14683 char const* uplo,
14684 lapack_int const* n, lapack_int const* nrhs,
14685 float const* D,
14686 lapack_complex_float const* E,
14687 lapack_complex_float* B, lapack_int const* ldb,
14688 lapack_int* info
14689#ifdef LAPACK_FORTRAN_STRLEN_END
14690 , size_t
14691#endif
14692);
14693#ifdef LAPACK_FORTRAN_STRLEN_END
14694 #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__, 1)
14695#else
14696 #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__)
14697#endif
14698
14699#define LAPACK_dpttrs LAPACK_GLOBAL(dpttrs,DPTTRS)
14700void LAPACK_dpttrs(
14701 lapack_int const* n, lapack_int const* nrhs,
14702 double const* D,
14703 double const* E,
14704 double* B, lapack_int const* ldb,
14705 lapack_int* info );
14706
14707#define LAPACK_spttrs LAPACK_GLOBAL(spttrs,SPTTRS)
14708void LAPACK_spttrs(
14709 lapack_int const* n, lapack_int const* nrhs,
14710 float const* D,
14711 float const* E,
14712 float* B, lapack_int const* ldb,
14713 lapack_int* info );
14714
14715#define LAPACK_zpttrs_base LAPACK_GLOBAL(zpttrs,ZPTTRS)
14716void LAPACK_zpttrs_base(
14717 char const* uplo,
14718 lapack_int const* n, lapack_int const* nrhs,
14719 double const* D,
14720 lapack_complex_double const* E,
14721 lapack_complex_double* B, lapack_int const* ldb,
14722 lapack_int* info
14723#ifdef LAPACK_FORTRAN_STRLEN_END
14724 , size_t
14725#endif
14726);
14727#ifdef LAPACK_FORTRAN_STRLEN_END
14728 #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__, 1)
14729#else
14730 #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__)
14731#endif
14732
14733#define LAPACK_dsbev_base LAPACK_GLOBAL(dsbev,DSBEV)
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,
14738 double* W,
14739 double* Z, lapack_int const* ldz,
14740 double* work,
14741 lapack_int* info
14742#ifdef LAPACK_FORTRAN_STRLEN_END
14743 , size_t, size_t
14744#endif
14745);
14746#ifdef LAPACK_FORTRAN_STRLEN_END
14747 #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__, 1, 1)
14748#else
14749 #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__)
14750#endif
14751
14752#define LAPACK_ssbev_base LAPACK_GLOBAL(ssbev,SSBEV)
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,
14757 float* W,
14758 float* Z, lapack_int const* ldz,
14759 float* work,
14760 lapack_int* info
14761#ifdef LAPACK_FORTRAN_STRLEN_END
14762 , size_t, size_t
14763#endif
14764);
14765#ifdef LAPACK_FORTRAN_STRLEN_END
14766 #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__, 1, 1)
14767#else
14768 #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__)
14769#endif
14770
14771#define LAPACK_dsbev_2stage_base LAPACK_GLOBAL(dsbev_2stage,DSBEV_2STAGE)
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,
14776 double* W,
14777 double* Z, lapack_int const* ldz,
14778 double* work, lapack_int const* lwork,
14779 lapack_int* info
14780#ifdef LAPACK_FORTRAN_STRLEN_END
14781 , size_t, size_t
14782#endif
14783);
14784#ifdef LAPACK_FORTRAN_STRLEN_END
14785 #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__, 1, 1)
14786#else
14787 #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__)
14788#endif
14789
14790#define LAPACK_ssbev_2stage_base LAPACK_GLOBAL(ssbev_2stage,SSBEV_2STAGE)
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,
14795 float* W,
14796 float* Z, lapack_int const* ldz,
14797 float* work, lapack_int const* lwork,
14798 lapack_int* info
14799#ifdef LAPACK_FORTRAN_STRLEN_END
14800 , size_t, size_t
14801#endif
14802);
14803#ifdef LAPACK_FORTRAN_STRLEN_END
14804 #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__, 1, 1)
14805#else
14806 #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__)
14807#endif
14808
14809#define LAPACK_dsbevd_base LAPACK_GLOBAL(dsbevd,DSBEVD)
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,
14814 double* W,
14815 double* Z, lapack_int const* ldz,
14816 double* work, lapack_int const* lwork,
14817 lapack_int* iwork, lapack_int const* liwork,
14818 lapack_int* info
14819#ifdef LAPACK_FORTRAN_STRLEN_END
14820 , size_t, size_t
14821#endif
14822);
14823#ifdef LAPACK_FORTRAN_STRLEN_END
14824 #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__, 1, 1)
14825#else
14826 #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__)
14827#endif
14828
14829#define LAPACK_ssbevd_base LAPACK_GLOBAL(ssbevd,SSBEVD)
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,
14834 float* W,
14835 float* Z, lapack_int const* ldz,
14836 float* work, lapack_int const* lwork,
14837 lapack_int* iwork, lapack_int const* liwork,
14838 lapack_int* info
14839#ifdef LAPACK_FORTRAN_STRLEN_END
14840 , size_t, size_t
14841#endif
14842);
14843#ifdef LAPACK_FORTRAN_STRLEN_END
14844 #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__, 1, 1)
14845#else
14846 #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__)
14847#endif
14848
14849#define LAPACK_dsbevd_2stage_base LAPACK_GLOBAL(dsbevd_2stage,DSBEVD_2STAGE)
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,
14854 double* W,
14855 double* Z, lapack_int const* ldz,
14856 double* work, lapack_int const* lwork,
14857 lapack_int* iwork, lapack_int const* liwork,
14858 lapack_int* info
14859#ifdef LAPACK_FORTRAN_STRLEN_END
14860 , size_t, size_t
14861#endif
14862);
14863#ifdef LAPACK_FORTRAN_STRLEN_END
14864 #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__, 1, 1)
14865#else
14866 #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__)
14867#endif
14868
14869#define LAPACK_ssbevd_2stage_base LAPACK_GLOBAL(ssbevd_2stage,SSBEVD_2STAGE)
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,
14874 float* W,
14875 float* Z, lapack_int const* ldz,
14876 float* work, lapack_int const* lwork,
14877 lapack_int* iwork, lapack_int const* liwork,
14878 lapack_int* info
14879#ifdef LAPACK_FORTRAN_STRLEN_END
14880 , size_t, size_t
14881#endif
14882);
14883#ifdef LAPACK_FORTRAN_STRLEN_END
14884 #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__, 1, 1)
14885#else
14886 #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__)
14887#endif
14888
14889#define LAPACK_dsbevx_base LAPACK_GLOBAL(dsbevx,DSBEVX)
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,
14895 double const* vl,
14896 double const* vu, lapack_int const* il, lapack_int const* iu,
14897 double const* abstol, lapack_int* m,
14898 double* W,
14899 double* Z, lapack_int const* ldz,
14900 double* work,
14901 lapack_int* iwork, lapack_int* IFAIL,
14902 lapack_int* info
14903#ifdef LAPACK_FORTRAN_STRLEN_END
14904 , size_t, size_t, size_t
14905#endif
14906);
14907#ifdef LAPACK_FORTRAN_STRLEN_END
14908 #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__, 1, 1, 1)
14909#else
14910 #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__)
14911#endif
14912
14913#define LAPACK_ssbevx_base LAPACK_GLOBAL(ssbevx,SSBEVX)
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,
14919 float const* vl,
14920 float const* vu, lapack_int const* il, lapack_int const* iu,
14921 float const* abstol, lapack_int* m,
14922 float* W,
14923 float* Z, lapack_int const* ldz,
14924 float* work,
14925 lapack_int* iwork, lapack_int* IFAIL,
14926 lapack_int* info
14927#ifdef LAPACK_FORTRAN_STRLEN_END
14928 , size_t, size_t, size_t
14929#endif
14930);
14931#ifdef LAPACK_FORTRAN_STRLEN_END
14932 #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__, 1, 1, 1)
14933#else
14934 #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__)
14935#endif
14936
14937#define LAPACK_dsbevx_2stage_base LAPACK_GLOBAL(dsbevx_2stage,DSBEVX_2STAGE)
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,
14943 double const* vl,
14944 double const* vu, lapack_int const* il, lapack_int const* iu,
14945 double const* abstol, lapack_int* m,
14946 double* W,
14947 double* Z, lapack_int const* ldz,
14948 double* work, lapack_int const* lwork,
14949 lapack_int* iwork, lapack_int* IFAIL,
14950 lapack_int* info
14951#ifdef LAPACK_FORTRAN_STRLEN_END
14952 , size_t, size_t, size_t
14953#endif
14954);
14955#ifdef LAPACK_FORTRAN_STRLEN_END
14956 #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
14957#else
14958 #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__)
14959#endif
14960
14961#define LAPACK_ssbevx_2stage_base LAPACK_GLOBAL(ssbevx_2stage,SSBEVX_2STAGE)
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,
14967 float const* vl,
14968 float const* vu, lapack_int const* il, lapack_int const* iu,
14969 float const* abstol, lapack_int* m,
14970 float* W,
14971 float* Z, lapack_int const* ldz,
14972 float* work, lapack_int const* lwork,
14973 lapack_int* iwork, lapack_int* IFAIL,
14974 lapack_int* info
14975#ifdef LAPACK_FORTRAN_STRLEN_END
14976 , size_t, size_t, size_t
14977#endif
14978);
14979#ifdef LAPACK_FORTRAN_STRLEN_END
14980 #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
14981#else
14982 #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__)
14983#endif
14984
14985#define LAPACK_dsbgst_base LAPACK_GLOBAL(dsbgst,DSBGST)
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,
14992 double* work,
14993 lapack_int* info
14994#ifdef LAPACK_FORTRAN_STRLEN_END
14995 , size_t, size_t
14996#endif
14997);
14998#ifdef LAPACK_FORTRAN_STRLEN_END
14999 #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__, 1, 1)
15000#else
15001 #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__)
15002#endif
15003
15004#define LAPACK_ssbgst_base LAPACK_GLOBAL(ssbgst,SSBGST)
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,
15011 float* work,
15012 lapack_int* info
15013#ifdef LAPACK_FORTRAN_STRLEN_END
15014 , size_t, size_t
15015#endif
15016);
15017#ifdef LAPACK_FORTRAN_STRLEN_END
15018 #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__, 1, 1)
15019#else
15020 #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__)
15021#endif
15022
15023#define LAPACK_dsbgv_base LAPACK_GLOBAL(dsbgv,DSBGV)
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,
15029 double* W,
15030 double* Z, lapack_int const* ldz,
15031 double* work,
15032 lapack_int* info
15033#ifdef LAPACK_FORTRAN_STRLEN_END
15034 , size_t, size_t
15035#endif
15036);
15037#ifdef LAPACK_FORTRAN_STRLEN_END
15038 #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__, 1, 1)
15039#else
15040 #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__)
15041#endif
15042
15043#define LAPACK_ssbgv_base LAPACK_GLOBAL(ssbgv,SSBGV)
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,
15049 float* W,
15050 float* Z, lapack_int const* ldz,
15051 float* work,
15052 lapack_int* info
15053#ifdef LAPACK_FORTRAN_STRLEN_END
15054 , size_t, size_t
15055#endif
15056);
15057#ifdef LAPACK_FORTRAN_STRLEN_END
15058 #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__, 1, 1)
15059#else
15060 #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__)
15061#endif
15062
15063#define LAPACK_dsbgvd_base LAPACK_GLOBAL(dsbgvd,DSBGVD)
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,
15069 double* W,
15070 double* Z, lapack_int const* ldz,
15071 double* work, lapack_int const* lwork,
15072 lapack_int* iwork, lapack_int const* liwork,
15073 lapack_int* info
15074#ifdef LAPACK_FORTRAN_STRLEN_END
15075 , size_t, size_t
15076#endif
15077);
15078#ifdef LAPACK_FORTRAN_STRLEN_END
15079 #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__, 1, 1)
15080#else
15081 #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__)
15082#endif
15083
15084#define LAPACK_ssbgvd_base LAPACK_GLOBAL(ssbgvd,SSBGVD)
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,
15090 float* W,
15091 float* Z, lapack_int const* ldz,
15092 float* work, lapack_int const* lwork,
15093 lapack_int* iwork, lapack_int const* liwork,
15094 lapack_int* info
15095#ifdef LAPACK_FORTRAN_STRLEN_END
15096 , size_t, size_t
15097#endif
15098);
15099#ifdef LAPACK_FORTRAN_STRLEN_END
15100 #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__, 1, 1)
15101#else
15102 #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__)
15103#endif
15104
15105#define LAPACK_dsbgvx_base LAPACK_GLOBAL(dsbgvx,DSBGVX)
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,
15112 double const* vl,
15113 double const* vu, lapack_int const* il, lapack_int const* iu,
15114 double const* abstol, lapack_int* m,
15115 double* W,
15116 double* Z, lapack_int const* ldz,
15117 double* work,
15118 lapack_int* iwork, lapack_int* IFAIL,
15119 lapack_int* info
15120#ifdef LAPACK_FORTRAN_STRLEN_END
15121 , size_t, size_t, size_t
15122#endif
15123);
15124#ifdef LAPACK_FORTRAN_STRLEN_END
15125 #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__, 1, 1, 1)
15126#else
15127 #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__)
15128#endif
15129
15130#define LAPACK_ssbgvx_base LAPACK_GLOBAL(ssbgvx,SSBGVX)
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,
15137 float const* vl,
15138 float const* vu, lapack_int const* il, lapack_int const* iu,
15139 float const* abstol, lapack_int* m,
15140 float* W,
15141 float* Z, lapack_int const* ldz,
15142 float* work,
15143 lapack_int* iwork, lapack_int* IFAIL,
15144 lapack_int* info
15145#ifdef LAPACK_FORTRAN_STRLEN_END
15146 , size_t, size_t, size_t
15147#endif
15148);
15149#ifdef LAPACK_FORTRAN_STRLEN_END
15150 #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__, 1, 1, 1)
15151#else
15152 #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__)
15153#endif
15154
15155#define LAPACK_dsbtrd_base LAPACK_GLOBAL(dsbtrd,DSBTRD)
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,
15160 double* D,
15161 double* E,
15162 double* Q, lapack_int const* ldq,
15163 double* work,
15164 lapack_int* info
15165#ifdef LAPACK_FORTRAN_STRLEN_END
15166 , size_t, size_t
15167#endif
15168);
15169#ifdef LAPACK_FORTRAN_STRLEN_END
15170 #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__, 1, 1)
15171#else
15172 #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__)
15173#endif
15174
15175#define LAPACK_ssbtrd_base LAPACK_GLOBAL(ssbtrd,SSBTRD)
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,
15180 float* D,
15181 float* E,
15182 float* Q, lapack_int const* ldq,
15183 float* work,
15184 lapack_int* info
15185#ifdef LAPACK_FORTRAN_STRLEN_END
15186 , size_t, size_t
15187#endif
15188);
15189#ifdef LAPACK_FORTRAN_STRLEN_END
15190 #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__, 1, 1)
15191#else
15192 #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__)
15193#endif
15194
15195#define LAPACK_dsfrk_base LAPACK_GLOBAL(dsfrk,DSFRK)
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,
15202 double* C
15203#ifdef LAPACK_FORTRAN_STRLEN_END
15204 , size_t, size_t, size_t
15205#endif
15206);
15207#ifdef LAPACK_FORTRAN_STRLEN_END
15208 #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__, 1, 1, 1)
15209#else
15210 #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__)
15211#endif
15212
15213#define LAPACK_ssfrk_base LAPACK_GLOBAL(ssfrk,SSFRK)
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,
15219 float const* beta,
15220 float* C
15221#ifdef LAPACK_FORTRAN_STRLEN_END
15222 , size_t, size_t, size_t
15223#endif
15224);
15225#ifdef LAPACK_FORTRAN_STRLEN_END
15226 #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__, 1, 1, 1)
15227#else
15228 #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__)
15229#endif
15230
15231#define LAPACK_cspcon_base LAPACK_GLOBAL(cspcon,CSPCON)
15232void LAPACK_cspcon_base(
15233 char const* uplo,
15234 lapack_int const* n,
15235 lapack_complex_float const* AP, lapack_int const* ipiv,
15236 float const* anorm,
15237 float* rcond,
15238 lapack_complex_float* work,
15239 lapack_int* info
15240#ifdef LAPACK_FORTRAN_STRLEN_END
15241 , size_t
15242#endif
15243);
15244#ifdef LAPACK_FORTRAN_STRLEN_END
15245 #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__, 1)
15246#else
15247 #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__)
15248#endif
15249
15250#define LAPACK_dspcon_base LAPACK_GLOBAL(dspcon,DSPCON)
15251void LAPACK_dspcon_base(
15252 char const* uplo,
15253 lapack_int const* n,
15254 double const* AP, lapack_int const* ipiv,
15255 double const* anorm,
15256 double* rcond,
15257 double* work,
15258 lapack_int* iwork,
15259 lapack_int* info
15260#ifdef LAPACK_FORTRAN_STRLEN_END
15261 , size_t
15262#endif
15263);
15264#ifdef LAPACK_FORTRAN_STRLEN_END
15265 #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__, 1)
15266#else
15267 #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__)
15268#endif
15269
15270#define LAPACK_sspcon_base LAPACK_GLOBAL(sspcon,SSPCON)
15271void LAPACK_sspcon_base(
15272 char const* uplo,
15273 lapack_int const* n,
15274 float const* AP, lapack_int const* ipiv,
15275 float const* anorm,
15276 float* rcond,
15277 float* work,
15278 lapack_int* iwork,
15279 lapack_int* info
15280#ifdef LAPACK_FORTRAN_STRLEN_END
15281 , size_t
15282#endif
15283);
15284#ifdef LAPACK_FORTRAN_STRLEN_END
15285 #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__, 1)
15286#else
15287 #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__)
15288#endif
15289
15290#define LAPACK_zspcon_base LAPACK_GLOBAL(zspcon,ZSPCON)
15291void LAPACK_zspcon_base(
15292 char const* uplo,
15293 lapack_int const* n,
15294 lapack_complex_double const* AP, lapack_int const* ipiv,
15295 double const* anorm,
15296 double* rcond,
15297 lapack_complex_double* work,
15298 lapack_int* info
15299#ifdef LAPACK_FORTRAN_STRLEN_END
15300 , size_t
15301#endif
15302);
15303#ifdef LAPACK_FORTRAN_STRLEN_END
15304 #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__, 1)
15305#else
15306 #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__)
15307#endif
15308
15309#define LAPACK_dspev_base LAPACK_GLOBAL(dspev,DSPEV)
15310void LAPACK_dspev_base(
15311 char const* jobz, char const* uplo,
15312 lapack_int const* n,
15313 double* AP,
15314 double* W,
15315 double* Z, lapack_int const* ldz,
15316 double* work,
15317 lapack_int* info
15318#ifdef LAPACK_FORTRAN_STRLEN_END
15319 , size_t, size_t
15320#endif
15321);
15322#ifdef LAPACK_FORTRAN_STRLEN_END
15323 #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__, 1, 1)
15324#else
15325 #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__)
15326#endif
15327
15328#define LAPACK_sspev_base LAPACK_GLOBAL(sspev,SSPEV)
15329void LAPACK_sspev_base(
15330 char const* jobz, char const* uplo,
15331 lapack_int const* n,
15332 float* AP,
15333 float* W,
15334 float* Z, lapack_int const* ldz,
15335 float* work,
15336 lapack_int* info
15337#ifdef LAPACK_FORTRAN_STRLEN_END
15338 , size_t, size_t
15339#endif
15340);
15341#ifdef LAPACK_FORTRAN_STRLEN_END
15342 #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__, 1, 1)
15343#else
15344 #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__)
15345#endif
15346
15347#define LAPACK_dspevd_base LAPACK_GLOBAL(dspevd,DSPEVD)
15348void LAPACK_dspevd_base(
15349 char const* jobz, char const* uplo,
15350 lapack_int const* n,
15351 double* AP,
15352 double* W,
15353 double* Z, lapack_int const* ldz,
15354 double* work, lapack_int const* lwork,
15355 lapack_int* iwork, lapack_int const* liwork,
15356 lapack_int* info
15357#ifdef LAPACK_FORTRAN_STRLEN_END
15358 , size_t, size_t
15359#endif
15360);
15361#ifdef LAPACK_FORTRAN_STRLEN_END
15362 #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__, 1, 1)
15363#else
15364 #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__)
15365#endif
15366
15367#define LAPACK_sspevd_base LAPACK_GLOBAL(sspevd,SSPEVD)
15368void LAPACK_sspevd_base(
15369 char const* jobz, char const* uplo,
15370 lapack_int const* n,
15371 float* AP,
15372 float* W,
15373 float* Z, lapack_int const* ldz,
15374 float* work, lapack_int const* lwork,
15375 lapack_int* iwork, lapack_int const* liwork,
15376 lapack_int* info
15377#ifdef LAPACK_FORTRAN_STRLEN_END
15378 , size_t, size_t
15379#endif
15380);
15381#ifdef LAPACK_FORTRAN_STRLEN_END
15382 #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__, 1, 1)
15383#else
15384 #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__)
15385#endif
15386
15387#define LAPACK_dspevx_base LAPACK_GLOBAL(dspevx,DSPEVX)
15388void LAPACK_dspevx_base(
15389 char const* jobz, char const* range, char const* uplo,
15390 lapack_int const* n,
15391 double* AP,
15392 double const* vl,
15393 double const* vu, lapack_int const* il, lapack_int const* iu,
15394 double const* abstol, lapack_int* m,
15395 double* W,
15396 double* Z, lapack_int const* ldz,
15397 double* work,
15398 lapack_int* iwork, lapack_int* IFAIL,
15399 lapack_int* info
15400#ifdef LAPACK_FORTRAN_STRLEN_END
15401 , size_t, size_t, size_t
15402#endif
15403);
15404#ifdef LAPACK_FORTRAN_STRLEN_END
15405 #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__, 1, 1, 1)
15406#else
15407 #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__)
15408#endif
15409
15410#define LAPACK_sspevx_base LAPACK_GLOBAL(sspevx,SSPEVX)
15411void LAPACK_sspevx_base(
15412 char const* jobz, char const* range, char const* uplo,
15413 lapack_int const* n,
15414 float* AP,
15415 float const* vl,
15416 float const* vu, lapack_int const* il, lapack_int const* iu,
15417 float const* abstol, lapack_int* m,
15418 float* W,
15419 float* Z, lapack_int const* ldz,
15420 float* work,
15421 lapack_int* iwork, lapack_int* IFAIL,
15422 lapack_int* info
15423#ifdef LAPACK_FORTRAN_STRLEN_END
15424 , size_t, size_t, size_t
15425#endif
15426);
15427#ifdef LAPACK_FORTRAN_STRLEN_END
15428 #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__, 1, 1, 1)
15429#else
15430 #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__)
15431#endif
15432
15433#define LAPACK_dspgst_base LAPACK_GLOBAL(dspgst,DSPGST)
15434void LAPACK_dspgst_base(
15435 lapack_int const* itype, char const* uplo,
15436 lapack_int const* n,
15437 double* AP,
15438 double const* BP,
15439 lapack_int* info
15440#ifdef LAPACK_FORTRAN_STRLEN_END
15441 , size_t
15442#endif
15443);
15444#ifdef LAPACK_FORTRAN_STRLEN_END
15445 #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__, 1)
15446#else
15447 #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__)
15448#endif
15449
15450#define LAPACK_sspgst_base LAPACK_GLOBAL(sspgst,SSPGST)
15451void LAPACK_sspgst_base(
15452 lapack_int const* itype, char const* uplo,
15453 lapack_int const* n,
15454 float* AP,
15455 float const* BP,
15456 lapack_int* info
15457#ifdef LAPACK_FORTRAN_STRLEN_END
15458 , size_t
15459#endif
15460);
15461#ifdef LAPACK_FORTRAN_STRLEN_END
15462 #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__, 1)
15463#else
15464 #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__)
15465#endif
15466
15467#define LAPACK_dspgv_base LAPACK_GLOBAL(dspgv,DSPGV)
15468void LAPACK_dspgv_base(
15469 lapack_int const* itype, char const* jobz, char const* uplo,
15470 lapack_int const* n,
15471 double* AP,
15472 double* BP,
15473 double* W,
15474 double* Z, lapack_int const* ldz,
15475 double* work,
15476 lapack_int* info
15477#ifdef LAPACK_FORTRAN_STRLEN_END
15478 , size_t, size_t
15479#endif
15480);
15481#ifdef LAPACK_FORTRAN_STRLEN_END
15482 #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__, 1, 1)
15483#else
15484 #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__)
15485#endif
15486
15487#define LAPACK_sspgv_base LAPACK_GLOBAL(sspgv,SSPGV)
15488void LAPACK_sspgv_base(
15489 lapack_int const* itype, char const* jobz, char const* uplo,
15490 lapack_int const* n,
15491 float* AP,
15492 float* BP,
15493 float* W,
15494 float* Z, lapack_int const* ldz,
15495 float* work,
15496 lapack_int* info
15497#ifdef LAPACK_FORTRAN_STRLEN_END
15498 , size_t, size_t
15499#endif
15500);
15501#ifdef LAPACK_FORTRAN_STRLEN_END
15502 #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__, 1, 1)
15503#else
15504 #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__)
15505#endif
15506
15507#define LAPACK_dspgvd_base LAPACK_GLOBAL(dspgvd,DSPGVD)
15508void LAPACK_dspgvd_base(
15509 lapack_int const* itype, char const* jobz, char const* uplo,
15510 lapack_int const* n,
15511 double* AP,
15512 double* BP,
15513 double* W,
15514 double* Z, lapack_int const* ldz,
15515 double* work, lapack_int const* lwork,
15516 lapack_int* iwork, lapack_int const* liwork,
15517 lapack_int* info
15518#ifdef LAPACK_FORTRAN_STRLEN_END
15519 , size_t, size_t
15520#endif
15521);
15522#ifdef LAPACK_FORTRAN_STRLEN_END
15523 #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__, 1, 1)
15524#else
15525 #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__)
15526#endif
15527
15528#define LAPACK_sspgvd_base LAPACK_GLOBAL(sspgvd,SSPGVD)
15529void LAPACK_sspgvd_base(
15530 lapack_int const* itype, char const* jobz, char const* uplo,
15531 lapack_int const* n,
15532 float* AP,
15533 float* BP,
15534 float* W,
15535 float* Z, lapack_int const* ldz,
15536 float* work, lapack_int const* lwork,
15537 lapack_int* iwork, lapack_int const* liwork,
15538 lapack_int* info
15539#ifdef LAPACK_FORTRAN_STRLEN_END
15540 , size_t, size_t
15541#endif
15542);
15543#ifdef LAPACK_FORTRAN_STRLEN_END
15544 #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__, 1, 1)
15545#else
15546 #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__)
15547#endif
15548
15549#define LAPACK_dspgvx_base LAPACK_GLOBAL(dspgvx,DSPGVX)
15550void LAPACK_dspgvx_base(
15551 lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
15552 lapack_int const* n,
15553 double* AP,
15554 double* BP,
15555 double const* vl,
15556 double const* vu, lapack_int const* il, lapack_int const* iu,
15557 double const* abstol, lapack_int* m,
15558 double* W,
15559 double* Z, lapack_int const* ldz,
15560 double* work,
15561 lapack_int* iwork, lapack_int* IFAIL,
15562 lapack_int* info
15563#ifdef LAPACK_FORTRAN_STRLEN_END
15564 , size_t, size_t, size_t
15565#endif
15566);
15567#ifdef LAPACK_FORTRAN_STRLEN_END
15568 #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__, 1, 1, 1)
15569#else
15570 #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__)
15571#endif
15572
15573#define LAPACK_sspgvx_base LAPACK_GLOBAL(sspgvx,SSPGVX)
15574void LAPACK_sspgvx_base(
15575 lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
15576 lapack_int const* n,
15577 float* AP,
15578 float* BP,
15579 float const* vl,
15580 float const* vu, lapack_int const* il, lapack_int const* iu,
15581 float const* abstol, lapack_int* m,
15582 float* W,
15583 float* Z, lapack_int const* ldz,
15584 float* work,
15585 lapack_int* iwork, lapack_int* IFAIL,
15586 lapack_int* info
15587#ifdef LAPACK_FORTRAN_STRLEN_END
15588 , size_t, size_t, size_t
15589#endif
15590);
15591#ifdef LAPACK_FORTRAN_STRLEN_END
15592 #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__, 1, 1, 1)
15593#else
15594 #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__)
15595#endif
15596
15597#define LAPACK_csprfs_base LAPACK_GLOBAL(csprfs,CSPRFS)
15598void LAPACK_csprfs_base(
15599 char const* uplo,
15600 lapack_int const* n, lapack_int const* nrhs,
15601 lapack_complex_float const* AP,
15602 lapack_complex_float const* AFP, lapack_int const* ipiv,
15603 lapack_complex_float const* B, lapack_int const* ldb,
15604 lapack_complex_float* X, lapack_int const* ldx,
15605 float* ferr,
15606 float* berr,
15607 lapack_complex_float* work,
15608 float* rwork,
15609 lapack_int* info
15610#ifdef LAPACK_FORTRAN_STRLEN_END
15611 , size_t
15612#endif
15613);
15614#ifdef LAPACK_FORTRAN_STRLEN_END
15615 #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__, 1)
15616#else
15617 #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__)
15618#endif
15619
15620#define LAPACK_dsprfs_base LAPACK_GLOBAL(dsprfs,DSPRFS)
15621void LAPACK_dsprfs_base(
15622 char const* uplo,
15623 lapack_int const* n, lapack_int const* nrhs,
15624 double const* AP,
15625 double const* AFP, lapack_int const* ipiv,
15626 double const* B, lapack_int const* ldb,
15627 double* X, lapack_int const* ldx,
15628 double* ferr,
15629 double* berr,
15630 double* work,
15631 lapack_int* iwork,
15632 lapack_int* info
15633#ifdef LAPACK_FORTRAN_STRLEN_END
15634 , size_t
15635#endif
15636);
15637#ifdef LAPACK_FORTRAN_STRLEN_END
15638 #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__, 1)
15639#else
15640 #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__)
15641#endif
15642
15643#define LAPACK_ssprfs_base LAPACK_GLOBAL(ssprfs,SSPRFS)
15644void LAPACK_ssprfs_base(
15645 char const* uplo,
15646 lapack_int const* n, lapack_int const* nrhs,
15647 float const* AP,
15648 float const* AFP, lapack_int const* ipiv,
15649 float const* B, lapack_int const* ldb,
15650 float* X, lapack_int const* ldx,
15651 float* ferr,
15652 float* berr,
15653 float* work,
15654 lapack_int* iwork,
15655 lapack_int* info
15656#ifdef LAPACK_FORTRAN_STRLEN_END
15657 , size_t
15658#endif
15659);
15660#ifdef LAPACK_FORTRAN_STRLEN_END
15661 #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__, 1)
15662#else
15663 #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__)
15664#endif
15665
15666#define LAPACK_zsprfs_base LAPACK_GLOBAL(zsprfs,ZSPRFS)
15667void LAPACK_zsprfs_base(
15668 char const* uplo,
15669 lapack_int const* n, lapack_int const* nrhs,
15670 lapack_complex_double const* AP,
15671 lapack_complex_double const* AFP, lapack_int const* ipiv,
15672 lapack_complex_double const* B, lapack_int const* ldb,
15673 lapack_complex_double* X, lapack_int const* ldx,
15674 double* ferr,
15675 double* berr,
15676 lapack_complex_double* work,
15677 double* rwork,
15678 lapack_int* info
15679#ifdef LAPACK_FORTRAN_STRLEN_END
15680 , size_t
15681#endif
15682);
15683#ifdef LAPACK_FORTRAN_STRLEN_END
15684 #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__, 1)
15685#else
15686 #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__)
15687#endif
15688
15689#define LAPACK_cspsv_base LAPACK_GLOBAL(cspsv,CSPSV)
15690void LAPACK_cspsv_base(
15691 char const* uplo,
15692 lapack_int const* n, lapack_int const* nrhs,
15693 lapack_complex_float* AP, lapack_int* ipiv,
15694 lapack_complex_float* B, lapack_int const* ldb,
15695 lapack_int* info
15696#ifdef LAPACK_FORTRAN_STRLEN_END
15697 , size_t
15698#endif
15699);
15700#ifdef LAPACK_FORTRAN_STRLEN_END
15701 #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__, 1)
15702#else
15703 #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__)
15704#endif
15705
15706#define LAPACK_dspsv_base LAPACK_GLOBAL(dspsv,DSPSV)
15707void LAPACK_dspsv_base(
15708 char const* uplo,
15709 lapack_int const* n, lapack_int const* nrhs,
15710 double* AP, lapack_int* ipiv,
15711 double* B, lapack_int const* ldb,
15712 lapack_int* info
15713#ifdef LAPACK_FORTRAN_STRLEN_END
15714 , size_t
15715#endif
15716);
15717#ifdef LAPACK_FORTRAN_STRLEN_END
15718 #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__, 1)
15719#else
15720 #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__)
15721#endif
15722
15723#define LAPACK_sspsv_base LAPACK_GLOBAL(sspsv,SSPSV)
15724void LAPACK_sspsv_base(
15725 char const* uplo,
15726 lapack_int const* n, lapack_int const* nrhs,
15727 float* AP, lapack_int* ipiv,
15728 float* B, lapack_int const* ldb,
15729 lapack_int* info
15730#ifdef LAPACK_FORTRAN_STRLEN_END
15731 , size_t
15732#endif
15733);
15734#ifdef LAPACK_FORTRAN_STRLEN_END
15735 #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__, 1)
15736#else
15737 #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__)
15738#endif
15739
15740#define LAPACK_zspsv_base LAPACK_GLOBAL(zspsv,ZSPSV)
15741void LAPACK_zspsv_base(
15742 char const* uplo,
15743 lapack_int const* n, lapack_int const* nrhs,
15744 lapack_complex_double* AP, lapack_int* ipiv,
15745 lapack_complex_double* B, lapack_int const* ldb,
15746 lapack_int* info
15747#ifdef LAPACK_FORTRAN_STRLEN_END
15748 , size_t
15749#endif
15750);
15751#ifdef LAPACK_FORTRAN_STRLEN_END
15752 #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__, 1)
15753#else
15754 #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__)
15755#endif
15756
15757#define LAPACK_cspsvx_base LAPACK_GLOBAL(cspsvx,CSPSVX)
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,
15765 float* rcond,
15766 float* ferr,
15767 float* berr,
15768 lapack_complex_float* work,
15769 float* rwork,
15770 lapack_int* info
15771#ifdef LAPACK_FORTRAN_STRLEN_END
15772 , size_t, size_t
15773#endif
15774);
15775#ifdef LAPACK_FORTRAN_STRLEN_END
15776 #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__, 1, 1)
15777#else
15778 #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__)
15779#endif
15780
15781#define LAPACK_dspsvx_base LAPACK_GLOBAL(dspsvx,DSPSVX)
15782void LAPACK_dspsvx_base(
15783 char const* fact, char const* uplo,
15784 lapack_int const* n, lapack_int const* nrhs,
15785 double const* AP,
15786 double* AFP, lapack_int* ipiv,
15787 double const* B, lapack_int const* ldb,
15788 double* X, lapack_int const* ldx,
15789 double* rcond,
15790 double* ferr,
15791 double* berr,
15792 double* work,
15793 lapack_int* iwork,
15794 lapack_int* info
15795#ifdef LAPACK_FORTRAN_STRLEN_END
15796 , size_t, size_t
15797#endif
15798);
15799#ifdef LAPACK_FORTRAN_STRLEN_END
15800 #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__, 1, 1)
15801#else
15802 #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__)
15803#endif
15804
15805#define LAPACK_sspsvx_base LAPACK_GLOBAL(sspsvx,SSPSVX)
15806void LAPACK_sspsvx_base(
15807 char const* fact, char const* uplo,
15808 lapack_int const* n, lapack_int const* nrhs,
15809 float const* AP,
15810 float* AFP, lapack_int* ipiv,
15811 float const* B, lapack_int const* ldb,
15812 float* X, lapack_int const* ldx,
15813 float* rcond,
15814 float* ferr,
15815 float* berr,
15816 float* work,
15817 lapack_int* iwork,
15818 lapack_int* info
15819#ifdef LAPACK_FORTRAN_STRLEN_END
15820 , size_t, size_t
15821#endif
15822);
15823#ifdef LAPACK_FORTRAN_STRLEN_END
15824 #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__, 1, 1)
15825#else
15826 #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__)
15827#endif
15828
15829#define LAPACK_zspsvx_base LAPACK_GLOBAL(zspsvx,ZSPSVX)
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,
15837 double* rcond,
15838 double* ferr,
15839 double* berr,
15840 lapack_complex_double* work,
15841 double* rwork,
15842 lapack_int* info
15843#ifdef LAPACK_FORTRAN_STRLEN_END
15844 , size_t, size_t
15845#endif
15846);
15847#ifdef LAPACK_FORTRAN_STRLEN_END
15848 #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__, 1, 1)
15849#else
15850 #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__)
15851#endif
15852
15853#define LAPACK_dsptrd_base LAPACK_GLOBAL(dsptrd,DSPTRD)
15854void LAPACK_dsptrd_base(
15855 char const* uplo,
15856 lapack_int const* n,
15857 double* AP,
15858 double* D,
15859 double* E,
15860 double* tau,
15861 lapack_int* info
15862#ifdef LAPACK_FORTRAN_STRLEN_END
15863 , size_t
15864#endif
15865);
15866#ifdef LAPACK_FORTRAN_STRLEN_END
15867 #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__, 1)
15868#else
15869 #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__)
15870#endif
15871
15872#define LAPACK_ssptrd_base LAPACK_GLOBAL(ssptrd,SSPTRD)
15873void LAPACK_ssptrd_base(
15874 char const* uplo,
15875 lapack_int const* n,
15876 float* AP,
15877 float* D,
15878 float* E,
15879 float* tau,
15880 lapack_int* info
15881#ifdef LAPACK_FORTRAN_STRLEN_END
15882 , size_t
15883#endif
15884);
15885#ifdef LAPACK_FORTRAN_STRLEN_END
15886 #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__, 1)
15887#else
15888 #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__)
15889#endif
15890
15891#define LAPACK_csptrf_base LAPACK_GLOBAL(csptrf,CSPTRF)
15892void LAPACK_csptrf_base(
15893 char const* uplo,
15894 lapack_int const* n,
15895 lapack_complex_float* AP, lapack_int* ipiv,
15896 lapack_int* info
15897#ifdef LAPACK_FORTRAN_STRLEN_END
15898 , size_t
15899#endif
15900);
15901#ifdef LAPACK_FORTRAN_STRLEN_END
15902 #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__, 1)
15903#else
15904 #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__)
15905#endif
15906
15907#define LAPACK_dsptrf_base LAPACK_GLOBAL(dsptrf,DSPTRF)
15908void LAPACK_dsptrf_base(
15909 char const* uplo,
15910 lapack_int const* n,
15911 double* AP, lapack_int* ipiv,
15912 lapack_int* info
15913#ifdef LAPACK_FORTRAN_STRLEN_END
15914 , size_t
15915#endif
15916);
15917#ifdef LAPACK_FORTRAN_STRLEN_END
15918 #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__, 1)
15919#else
15920 #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__)
15921#endif
15922
15923#define LAPACK_ssptrf_base LAPACK_GLOBAL(ssptrf,SSPTRF)
15924void LAPACK_ssptrf_base(
15925 char const* uplo,
15926 lapack_int const* n,
15927 float* AP, lapack_int* ipiv,
15928 lapack_int* info
15929#ifdef LAPACK_FORTRAN_STRLEN_END
15930 , size_t
15931#endif
15932);
15933#ifdef LAPACK_FORTRAN_STRLEN_END
15934 #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__, 1)
15935#else
15936 #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__)
15937#endif
15938
15939#define LAPACK_zsptrf_base LAPACK_GLOBAL(zsptrf,ZSPTRF)
15940void LAPACK_zsptrf_base(
15941 char const* uplo,
15942 lapack_int const* n,
15943 lapack_complex_double* AP, lapack_int* ipiv,
15944 lapack_int* info
15945#ifdef LAPACK_FORTRAN_STRLEN_END
15946 , size_t
15947#endif
15948);
15949#ifdef LAPACK_FORTRAN_STRLEN_END
15950 #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__, 1)
15951#else
15952 #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__)
15953#endif
15954
15955#define LAPACK_csptri_base LAPACK_GLOBAL(csptri,CSPTRI)
15956void LAPACK_csptri_base(
15957 char const* uplo,
15958 lapack_int const* n,
15959 lapack_complex_float* AP, lapack_int const* ipiv,
15960 lapack_complex_float* work,
15961 lapack_int* info
15962#ifdef LAPACK_FORTRAN_STRLEN_END
15963 , size_t
15964#endif
15965);
15966#ifdef LAPACK_FORTRAN_STRLEN_END
15967 #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__, 1)
15968#else
15969 #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__)
15970#endif
15971
15972#define LAPACK_dsptri_base LAPACK_GLOBAL(dsptri,DSPTRI)
15973void LAPACK_dsptri_base(
15974 char const* uplo,
15975 lapack_int const* n,
15976 double* AP, lapack_int const* ipiv,
15977 double* work,
15978 lapack_int* info
15979#ifdef LAPACK_FORTRAN_STRLEN_END
15980 , size_t
15981#endif
15982);
15983#ifdef LAPACK_FORTRAN_STRLEN_END
15984 #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__, 1)
15985#else
15986 #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__)
15987#endif
15988
15989#define LAPACK_ssptri_base LAPACK_GLOBAL(ssptri,SSPTRI)
15990void LAPACK_ssptri_base(
15991 char const* uplo,
15992 lapack_int const* n,
15993 float* AP, lapack_int const* ipiv,
15994 float* work,
15995 lapack_int* info
15996#ifdef LAPACK_FORTRAN_STRLEN_END
15997 , size_t
15998#endif
15999);
16000#ifdef LAPACK_FORTRAN_STRLEN_END
16001 #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__, 1)
16002#else
16003 #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__)
16004#endif
16005
16006#define LAPACK_zsptri_base LAPACK_GLOBAL(zsptri,ZSPTRI)
16007void LAPACK_zsptri_base(
16008 char const* uplo,
16009 lapack_int const* n,
16010 lapack_complex_double* AP, lapack_int const* ipiv,
16011 lapack_complex_double* work,
16012 lapack_int* info
16013#ifdef LAPACK_FORTRAN_STRLEN_END
16014 , size_t
16015#endif
16016);
16017#ifdef LAPACK_FORTRAN_STRLEN_END
16018 #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__, 1)
16019#else
16020 #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__)
16021#endif
16022
16023#define LAPACK_csptrs_base LAPACK_GLOBAL(csptrs,CSPTRS)
16024void LAPACK_csptrs_base(
16025 char const* uplo,
16026 lapack_int const* n, lapack_int const* nrhs,
16027 lapack_complex_float const* AP, lapack_int const* ipiv,
16028 lapack_complex_float* B, lapack_int const* ldb,
16029 lapack_int* info
16030#ifdef LAPACK_FORTRAN_STRLEN_END
16031 , size_t
16032#endif
16033);
16034#ifdef LAPACK_FORTRAN_STRLEN_END
16035 #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__, 1)
16036#else
16037 #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__)
16038#endif
16039
16040#define LAPACK_dsptrs_base LAPACK_GLOBAL(dsptrs,DSPTRS)
16041void LAPACK_dsptrs_base(
16042 char const* uplo,
16043 lapack_int const* n, lapack_int const* nrhs,
16044 double const* AP, lapack_int const* ipiv,
16045 double* B, lapack_int const* ldb,
16046 lapack_int* info
16047#ifdef LAPACK_FORTRAN_STRLEN_END
16048 , size_t
16049#endif
16050);
16051#ifdef LAPACK_FORTRAN_STRLEN_END
16052 #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__, 1)
16053#else
16054 #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__)
16055#endif
16056
16057#define LAPACK_ssptrs_base LAPACK_GLOBAL(ssptrs,SSPTRS)
16058void LAPACK_ssptrs_base(
16059 char const* uplo,
16060 lapack_int const* n, lapack_int const* nrhs,
16061 float const* AP, lapack_int const* ipiv,
16062 float* B, lapack_int const* ldb,
16063 lapack_int* info
16064#ifdef LAPACK_FORTRAN_STRLEN_END
16065 , size_t
16066#endif
16067);
16068#ifdef LAPACK_FORTRAN_STRLEN_END
16069 #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__, 1)
16070#else
16071 #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__)
16072#endif
16073
16074#define LAPACK_zsptrs_base LAPACK_GLOBAL(zsptrs,ZSPTRS)
16075void LAPACK_zsptrs_base(
16076 char const* uplo,
16077 lapack_int const* n, lapack_int const* nrhs,
16078 lapack_complex_double const* AP, lapack_int const* ipiv,
16079 lapack_complex_double* B, lapack_int const* ldb,
16080 lapack_int* info
16081#ifdef LAPACK_FORTRAN_STRLEN_END
16082 , size_t
16083#endif
16084);
16085#ifdef LAPACK_FORTRAN_STRLEN_END
16086 #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__, 1)
16087#else
16088 #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__)
16089#endif
16090
16091#define LAPACK_dstebz_base LAPACK_GLOBAL(dstebz,DSTEBZ)
16092void LAPACK_dstebz_base(
16093 char const* range, char const* order,
16094 lapack_int const* n,
16095 double const* vl,
16096 double const* vu, lapack_int const* il, lapack_int const* iu,
16097 double const* abstol,
16098 double const* D,
16099 double const* E, lapack_int* m, lapack_int* nsplit,
16100 double* W, lapack_int* IBLOCK, lapack_int* ISPLIT,
16101 double* work,
16102 lapack_int* iwork,
16103 lapack_int* info
16104#ifdef LAPACK_FORTRAN_STRLEN_END
16105 , size_t, size_t
16106#endif
16107);
16108#ifdef LAPACK_FORTRAN_STRLEN_END
16109 #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__, 1, 1)
16110#else
16111 #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__)
16112#endif
16113
16114#define LAPACK_sstebz_base LAPACK_GLOBAL(sstebz,SSTEBZ)
16115void LAPACK_sstebz_base(
16116 char const* range, char const* order,
16117 lapack_int const* n,
16118 float const* vl,
16119 float const* vu, lapack_int const* il, lapack_int const* iu,
16120 float const* abstol,
16121 float const* D,
16122 float const* E, lapack_int* m, lapack_int* nsplit,
16123 float* W, lapack_int* IBLOCK, lapack_int* ISPLIT,
16124 float* work,
16125 lapack_int* iwork,
16126 lapack_int* info
16127#ifdef LAPACK_FORTRAN_STRLEN_END
16128 , size_t, size_t
16129#endif
16130);
16131#ifdef LAPACK_FORTRAN_STRLEN_END
16132 #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__, 1, 1)
16133#else
16134 #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__)
16135#endif
16136
16137#define LAPACK_cstedc_base LAPACK_GLOBAL(cstedc,CSTEDC)
16138void LAPACK_cstedc_base(
16139 char const* compz,
16140 lapack_int const* n,
16141 float* D,
16142 float* E,
16143 lapack_complex_float* Z, lapack_int const* ldz,
16144 lapack_complex_float* work, lapack_int const* lwork,
16145 float* rwork, lapack_int const* lrwork,
16146 lapack_int* iwork, lapack_int const* liwork,
16147 lapack_int* info
16148#ifdef LAPACK_FORTRAN_STRLEN_END
16149 , size_t
16150#endif
16151);
16152#ifdef LAPACK_FORTRAN_STRLEN_END
16153 #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__, 1)
16154#else
16155 #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__)
16156#endif
16157
16158#define LAPACK_dstedc_base LAPACK_GLOBAL(dstedc,DSTEDC)
16159void LAPACK_dstedc_base(
16160 char const* compz,
16161 lapack_int const* n,
16162 double* D,
16163 double* E,
16164 double* Z, lapack_int const* ldz,
16165 double* work, lapack_int const* lwork,
16166 lapack_int* iwork, lapack_int const* liwork,
16167 lapack_int* info
16168#ifdef LAPACK_FORTRAN_STRLEN_END
16169 , size_t
16170#endif
16171);
16172#ifdef LAPACK_FORTRAN_STRLEN_END
16173 #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__, 1)
16174#else
16175 #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__)
16176#endif
16177
16178#define LAPACK_sstedc_base LAPACK_GLOBAL(sstedc,SSTEDC)
16179void LAPACK_sstedc_base(
16180 char const* compz,
16181 lapack_int const* n,
16182 float* D,
16183 float* E,
16184 float* Z, lapack_int const* ldz,
16185 float* work, lapack_int const* lwork,
16186 lapack_int* iwork, lapack_int const* liwork,
16187 lapack_int* info
16188#ifdef LAPACK_FORTRAN_STRLEN_END
16189 , size_t
16190#endif
16191);
16192#ifdef LAPACK_FORTRAN_STRLEN_END
16193 #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__, 1)
16194#else
16195 #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__)
16196#endif
16197
16198#define LAPACK_zstedc_base LAPACK_GLOBAL(zstedc,ZSTEDC)
16199void LAPACK_zstedc_base(
16200 char const* compz,
16201 lapack_int const* n,
16202 double* D,
16203 double* E,
16204 lapack_complex_double* Z, lapack_int const* ldz,
16205 lapack_complex_double* work, lapack_int const* lwork,
16206 double* rwork, lapack_int const* lrwork,
16207 lapack_int* iwork, lapack_int const* liwork,
16208 lapack_int* info
16209#ifdef LAPACK_FORTRAN_STRLEN_END
16210 , size_t
16211#endif
16212);
16213#ifdef LAPACK_FORTRAN_STRLEN_END
16214 #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__, 1)
16215#else
16216 #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__)
16217#endif
16218
16219#define LAPACK_cstegr_base LAPACK_GLOBAL(cstegr,CSTEGR)
16220void LAPACK_cstegr_base(
16221 char const* jobz, char const* range,
16222 lapack_int const* n,
16223 float* D,
16224 float* E,
16225 float const* vl,
16226 float const* vu, lapack_int const* il, lapack_int const* iu,
16227 float const* abstol, lapack_int* m,
16228 float* W,
16229 lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16230 float* work, lapack_int const* lwork,
16231 lapack_int* iwork, lapack_int const* liwork,
16232 lapack_int* info
16233#ifdef LAPACK_FORTRAN_STRLEN_END
16234 , size_t, size_t
16235#endif
16236);
16237#ifdef LAPACK_FORTRAN_STRLEN_END
16238 #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__, 1, 1)
16239#else
16240 #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__)
16241#endif
16242
16243#define LAPACK_dstegr_base LAPACK_GLOBAL(dstegr,DSTEGR)
16244void LAPACK_dstegr_base(
16245 char const* jobz, char const* range,
16246 lapack_int const* n,
16247 double* D,
16248 double* E,
16249 double const* vl,
16250 double const* vu, lapack_int const* il, lapack_int const* iu,
16251 double const* abstol, lapack_int* m,
16252 double* W,
16253 double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16254 double* work, lapack_int const* lwork,
16255 lapack_int* iwork, lapack_int const* liwork,
16256 lapack_int* info
16257#ifdef LAPACK_FORTRAN_STRLEN_END
16258 , size_t, size_t
16259#endif
16260);
16261#ifdef LAPACK_FORTRAN_STRLEN_END
16262 #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__, 1, 1)
16263#else
16264 #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__)
16265#endif
16266
16267#define LAPACK_sstegr_base LAPACK_GLOBAL(sstegr,SSTEGR)
16268void LAPACK_sstegr_base(
16269 char const* jobz, char const* range,
16270 lapack_int const* n,
16271 float* D,
16272 float* E,
16273 float const* vl,
16274 float const* vu, lapack_int const* il, lapack_int const* iu,
16275 float const* abstol, lapack_int* m,
16276 float* W,
16277 float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16278 float* work, lapack_int const* lwork,
16279 lapack_int* iwork, lapack_int const* liwork,
16280 lapack_int* info
16281#ifdef LAPACK_FORTRAN_STRLEN_END
16282 , size_t, size_t
16283#endif
16284);
16285#ifdef LAPACK_FORTRAN_STRLEN_END
16286 #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__, 1, 1)
16287#else
16288 #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__)
16289#endif
16290
16291#define LAPACK_zstegr_base LAPACK_GLOBAL(zstegr,ZSTEGR)
16292void LAPACK_zstegr_base(
16293 char const* jobz, char const* range,
16294 lapack_int const* n,
16295 double* D,
16296 double* E,
16297 double const* vl,
16298 double const* vu, lapack_int const* il, lapack_int const* iu,
16299 double const* abstol, lapack_int* m,
16300 double* W,
16301 lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16302 double* work, lapack_int const* lwork,
16303 lapack_int* iwork, lapack_int const* liwork,
16304 lapack_int* info
16305#ifdef LAPACK_FORTRAN_STRLEN_END
16306 , size_t, size_t
16307#endif
16308);
16309#ifdef LAPACK_FORTRAN_STRLEN_END
16310 #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__, 1, 1)
16311#else
16312 #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__)
16313#endif
16314
16315#define LAPACK_cstein LAPACK_GLOBAL(cstein,CSTEIN)
16316void LAPACK_cstein(
16317 lapack_int const* n,
16318 float const* D,
16319 float const* E, lapack_int const* m,
16320 float const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT,
16321 lapack_complex_float* Z, lapack_int const* ldz,
16322 float* work,
16323 lapack_int* iwork, lapack_int* IFAIL,
16324 lapack_int* info );
16325
16326#define LAPACK_dstein LAPACK_GLOBAL(dstein,DSTEIN)
16327void LAPACK_dstein(
16328 lapack_int const* n,
16329 double const* D,
16330 double const* E, lapack_int const* m,
16331 double const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT,
16332 double* Z, lapack_int const* ldz,
16333 double* work,
16334 lapack_int* iwork, lapack_int* IFAIL,
16335 lapack_int* info );
16336
16337#define LAPACK_sstein LAPACK_GLOBAL(sstein,SSTEIN)
16338void LAPACK_sstein(
16339 lapack_int const* n,
16340 float const* D,
16341 float const* E, lapack_int const* m,
16342 float const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT,
16343 float* Z, lapack_int const* ldz,
16344 float* work,
16345 lapack_int* iwork, lapack_int* IFAIL,
16346 lapack_int* info );
16347
16348#define LAPACK_zstein LAPACK_GLOBAL(zstein,ZSTEIN)
16349void LAPACK_zstein(
16350 lapack_int const* n,
16351 double const* D,
16352 double const* E, lapack_int const* m,
16353 double const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT,
16354 lapack_complex_double* Z, lapack_int const* ldz,
16355 double* work,
16356 lapack_int* iwork, lapack_int* IFAIL,
16357 lapack_int* info );
16358
16359#define LAPACK_cstemr_base LAPACK_GLOBAL(cstemr,CSTEMR)
16360void LAPACK_cstemr_base(
16361 char const* jobz, char const* range,
16362 lapack_int const* n,
16363 float* D,
16364 float* E,
16365 float const* vl,
16366 float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m,
16367 float* W,
16368 lapack_complex_float* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16369 float* work, lapack_int const* lwork,
16370 lapack_int* iwork, lapack_int const* liwork,
16371 lapack_int* info
16372#ifdef LAPACK_FORTRAN_STRLEN_END
16373 , size_t, size_t
16374#endif
16375);
16376#ifdef LAPACK_FORTRAN_STRLEN_END
16377 #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__, 1, 1)
16378#else
16379 #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__)
16380#endif
16381
16382#define LAPACK_dstemr_base LAPACK_GLOBAL(dstemr,DSTEMR)
16383void LAPACK_dstemr_base(
16384 char const* jobz, char const* range,
16385 lapack_int const* n,
16386 double* D,
16387 double* E,
16388 double const* vl,
16389 double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m,
16390 double* W,
16391 double* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16392 double* work, lapack_int const* lwork,
16393 lapack_int* iwork, lapack_int const* liwork,
16394 lapack_int* info
16395#ifdef LAPACK_FORTRAN_STRLEN_END
16396 , size_t, size_t
16397#endif
16398);
16399#ifdef LAPACK_FORTRAN_STRLEN_END
16400 #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__, 1, 1)
16401#else
16402 #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__)
16403#endif
16404
16405#define LAPACK_sstemr_base LAPACK_GLOBAL(sstemr,SSTEMR)
16406void LAPACK_sstemr_base(
16407 char const* jobz, char const* range,
16408 lapack_int const* n,
16409 float* D,
16410 float* E,
16411 float const* vl,
16412 float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m,
16413 float* W,
16414 float* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16415 float* work, lapack_int const* lwork,
16416 lapack_int* iwork, lapack_int const* liwork,
16417 lapack_int* info
16418#ifdef LAPACK_FORTRAN_STRLEN_END
16419 , size_t, size_t
16420#endif
16421);
16422#ifdef LAPACK_FORTRAN_STRLEN_END
16423 #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__, 1, 1)
16424#else
16425 #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__)
16426#endif
16427
16428#define LAPACK_zstemr_base LAPACK_GLOBAL(zstemr,ZSTEMR)
16429void LAPACK_zstemr_base(
16430 char const* jobz, char const* range,
16431 lapack_int const* n,
16432 double* D,
16433 double* E,
16434 double const* vl,
16435 double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m,
16436 double* W,
16437 lapack_complex_double* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16438 double* work, lapack_int const* lwork,
16439 lapack_int* iwork, lapack_int const* liwork,
16440 lapack_int* info
16441#ifdef LAPACK_FORTRAN_STRLEN_END
16442 , size_t, size_t
16443#endif
16444);
16445#ifdef LAPACK_FORTRAN_STRLEN_END
16446 #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__, 1, 1)
16447#else
16448 #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__)
16449#endif
16450
16451#define LAPACK_csteqr_base LAPACK_GLOBAL(csteqr,CSTEQR)
16452void LAPACK_csteqr_base(
16453 char const* compz,
16454 lapack_int const* n,
16455 float* D,
16456 float* E,
16457 lapack_complex_float* Z, lapack_int const* ldz,
16458 float* work,
16459 lapack_int* info
16460#ifdef LAPACK_FORTRAN_STRLEN_END
16461 , size_t
16462#endif
16463);
16464#ifdef LAPACK_FORTRAN_STRLEN_END
16465 #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__, 1)
16466#else
16467 #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__)
16468#endif
16469
16470#define LAPACK_dsteqr_base LAPACK_GLOBAL(dsteqr,DSTEQR)
16471void LAPACK_dsteqr_base(
16472 char const* compz,
16473 lapack_int const* n,
16474 double* D,
16475 double* E,
16476 double* Z, lapack_int const* ldz,
16477 double* work,
16478 lapack_int* info
16479#ifdef LAPACK_FORTRAN_STRLEN_END
16480 , size_t
16481#endif
16482);
16483#ifdef LAPACK_FORTRAN_STRLEN_END
16484 #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__, 1)
16485#else
16486 #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__)
16487#endif
16488
16489#define LAPACK_ssteqr_base LAPACK_GLOBAL(ssteqr,SSTEQR)
16490void LAPACK_ssteqr_base(
16491 char const* compz,
16492 lapack_int const* n,
16493 float* D,
16494 float* E,
16495 float* Z, lapack_int const* ldz,
16496 float* work,
16497 lapack_int* info
16498#ifdef LAPACK_FORTRAN_STRLEN_END
16499 , size_t
16500#endif
16501);
16502#ifdef LAPACK_FORTRAN_STRLEN_END
16503 #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__, 1)
16504#else
16505 #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__)
16506#endif
16507
16508#define LAPACK_zsteqr_base LAPACK_GLOBAL(zsteqr,ZSTEQR)
16509void LAPACK_zsteqr_base(
16510 char const* compz,
16511 lapack_int const* n,
16512 double* D,
16513 double* E,
16514 lapack_complex_double* Z, lapack_int const* ldz,
16515 double* work,
16516 lapack_int* info
16517#ifdef LAPACK_FORTRAN_STRLEN_END
16518 , size_t
16519#endif
16520);
16521#ifdef LAPACK_FORTRAN_STRLEN_END
16522 #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__, 1)
16523#else
16524 #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__)
16525#endif
16526
16527#define LAPACK_dsterf LAPACK_GLOBAL(dsterf,DSTERF)
16528void LAPACK_dsterf(
16529 lapack_int const* n,
16530 double* D,
16531 double* E,
16532 lapack_int* info );
16533
16534#define LAPACK_ssterf LAPACK_GLOBAL(ssterf,SSTERF)
16535void LAPACK_ssterf(
16536 lapack_int const* n,
16537 float* D,
16538 float* E,
16539 lapack_int* info );
16540
16541#define LAPACK_dstev_base LAPACK_GLOBAL(dstev,DSTEV)
16542void LAPACK_dstev_base(
16543 char const* jobz,
16544 lapack_int const* n,
16545 double* D,
16546 double* E,
16547 double* Z, lapack_int const* ldz,
16548 double* work,
16549 lapack_int* info
16550#ifdef LAPACK_FORTRAN_STRLEN_END
16551 , size_t
16552#endif
16553);
16554#ifdef LAPACK_FORTRAN_STRLEN_END
16555 #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__, 1)
16556#else
16557 #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__)
16558#endif
16559
16560#define LAPACK_sstev_base LAPACK_GLOBAL(sstev,SSTEV)
16561void LAPACK_sstev_base(
16562 char const* jobz,
16563 lapack_int const* n,
16564 float* D,
16565 float* E,
16566 float* Z, lapack_int const* ldz,
16567 float* work,
16568 lapack_int* info
16569#ifdef LAPACK_FORTRAN_STRLEN_END
16570 , size_t
16571#endif
16572);
16573#ifdef LAPACK_FORTRAN_STRLEN_END
16574 #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__, 1)
16575#else
16576 #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__)
16577#endif
16578
16579#define LAPACK_dstevd_base LAPACK_GLOBAL(dstevd,DSTEVD)
16580void LAPACK_dstevd_base(
16581 char const* jobz,
16582 lapack_int const* n,
16583 double* D,
16584 double* E,
16585 double* Z, lapack_int const* ldz,
16586 double* work, lapack_int const* lwork,
16587 lapack_int* iwork, lapack_int const* liwork,
16588 lapack_int* info
16589#ifdef LAPACK_FORTRAN_STRLEN_END
16590 , size_t
16591#endif
16592);
16593#ifdef LAPACK_FORTRAN_STRLEN_END
16594 #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__, 1)
16595#else
16596 #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__)
16597#endif
16598
16599#define LAPACK_sstevd_base LAPACK_GLOBAL(sstevd,SSTEVD)
16600void LAPACK_sstevd_base(
16601 char const* jobz,
16602 lapack_int const* n,
16603 float* D,
16604 float* E,
16605 float* Z, lapack_int const* ldz,
16606 float* work, lapack_int const* lwork,
16607 lapack_int* iwork, lapack_int const* liwork,
16608 lapack_int* info
16609#ifdef LAPACK_FORTRAN_STRLEN_END
16610 , size_t
16611#endif
16612);
16613#ifdef LAPACK_FORTRAN_STRLEN_END
16614 #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__, 1)
16615#else
16616 #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__)
16617#endif
16618
16619#define LAPACK_dstevr_base LAPACK_GLOBAL(dstevr,DSTEVR)
16620void LAPACK_dstevr_base(
16621 char const* jobz, char const* range,
16622 lapack_int const* n,
16623 double* D,
16624 double* E,
16625 double const* vl,
16626 double const* vu, lapack_int const* il, lapack_int const* iu,
16627 double const* abstol, lapack_int* m,
16628 double* W,
16629 double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16630 double* work, lapack_int const* lwork,
16631 lapack_int* iwork, lapack_int const* liwork,
16632 lapack_int* info
16633#ifdef LAPACK_FORTRAN_STRLEN_END
16634 , size_t, size_t
16635#endif
16636);
16637#ifdef LAPACK_FORTRAN_STRLEN_END
16638 #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__, 1, 1)
16639#else
16640 #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__)
16641#endif
16642
16643#define LAPACK_sstevr_base LAPACK_GLOBAL(sstevr,SSTEVR)
16644void LAPACK_sstevr_base(
16645 char const* jobz, char const* range,
16646 lapack_int const* n,
16647 float* D,
16648 float* E,
16649 float const* vl,
16650 float const* vu, lapack_int const* il, lapack_int const* iu,
16651 float const* abstol, lapack_int* m,
16652 float* W,
16653 float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16654 float* work, lapack_int const* lwork,
16655 lapack_int* iwork, lapack_int const* liwork,
16656 lapack_int* info
16657#ifdef LAPACK_FORTRAN_STRLEN_END
16658 , size_t, size_t
16659#endif
16660);
16661#ifdef LAPACK_FORTRAN_STRLEN_END
16662 #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__, 1, 1)
16663#else
16664 #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__)
16665#endif
16666
16667#define LAPACK_dstevx_base LAPACK_GLOBAL(dstevx,DSTEVX)
16668void LAPACK_dstevx_base(
16669 char const* jobz, char const* range,
16670 lapack_int const* n,
16671 double* D,
16672 double* E,
16673 double const* vl,
16674 double const* vu, lapack_int const* il, lapack_int const* iu,
16675 double const* abstol, lapack_int* m,
16676 double* W,
16677 double* Z, lapack_int const* ldz,
16678 double* work,
16679 lapack_int* iwork, lapack_int* IFAIL,
16680 lapack_int* info
16681#ifdef LAPACK_FORTRAN_STRLEN_END
16682 , size_t, size_t
16683#endif
16684);
16685#ifdef LAPACK_FORTRAN_STRLEN_END
16686 #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__, 1, 1)
16687#else
16688 #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__)
16689#endif
16690
16691#define LAPACK_sstevx_base LAPACK_GLOBAL(sstevx,SSTEVX)
16692void LAPACK_sstevx_base(
16693 char const* jobz, char const* range,
16694 lapack_int const* n,
16695 float* D,
16696 float* E,
16697 float const* vl,
16698 float const* vu, lapack_int const* il, lapack_int const* iu,
16699 float const* abstol, lapack_int* m,
16700 float* W,
16701 float* Z, lapack_int const* ldz,
16702 float* work,
16703 lapack_int* iwork, lapack_int* IFAIL,
16704 lapack_int* info
16705#ifdef LAPACK_FORTRAN_STRLEN_END
16706 , size_t, size_t
16707#endif
16708);
16709#ifdef LAPACK_FORTRAN_STRLEN_END
16710 #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__, 1, 1)
16711#else
16712 #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__)
16713#endif
16714
16715#define LAPACK_csycon_base LAPACK_GLOBAL(csycon,CSYCON)
16716void LAPACK_csycon_base(
16717 char const* uplo,
16718 lapack_int const* n,
16719 lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
16720 float const* anorm,
16721 float* rcond,
16722 lapack_complex_float* work,
16723 lapack_int* info
16724#ifdef LAPACK_FORTRAN_STRLEN_END
16725 , size_t
16726#endif
16727);
16728#ifdef LAPACK_FORTRAN_STRLEN_END
16729 #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__, 1)
16730#else
16731 #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__)
16732#endif
16733
16734#define LAPACK_dsycon_base LAPACK_GLOBAL(dsycon,DSYCON)
16735void LAPACK_dsycon_base(
16736 char const* uplo,
16737 lapack_int const* n,
16738 double const* A, lapack_int const* lda, lapack_int const* ipiv,
16739 double const* anorm,
16740 double* rcond,
16741 double* work,
16742 lapack_int* iwork,
16743 lapack_int* info
16744#ifdef LAPACK_FORTRAN_STRLEN_END
16745 , size_t
16746#endif
16747);
16748#ifdef LAPACK_FORTRAN_STRLEN_END
16749 #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__, 1)
16750#else
16751 #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__)
16752#endif
16753
16754#define LAPACK_ssycon_base LAPACK_GLOBAL(ssycon,SSYCON)
16755void LAPACK_ssycon_base(
16756 char const* uplo,
16757 lapack_int const* n,
16758 float const* A, lapack_int const* lda, lapack_int const* ipiv,
16759 float const* anorm,
16760 float* rcond,
16761 float* work,
16762 lapack_int* iwork,
16763 lapack_int* info
16764#ifdef LAPACK_FORTRAN_STRLEN_END
16765 , size_t
16766#endif
16767);
16768#ifdef LAPACK_FORTRAN_STRLEN_END
16769 #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__, 1)
16770#else
16771 #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__)
16772#endif
16773
16774#define LAPACK_zsycon_base LAPACK_GLOBAL(zsycon,ZSYCON)
16775void LAPACK_zsycon_base(
16776 char const* uplo,
16777 lapack_int const* n,
16778 lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
16779 double const* anorm,
16780 double* rcond,
16781 lapack_complex_double* work,
16782 lapack_int* info
16783#ifdef LAPACK_FORTRAN_STRLEN_END
16784 , size_t
16785#endif
16786);
16787#ifdef LAPACK_FORTRAN_STRLEN_END
16788 #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__, 1)
16789#else
16790 #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__)
16791#endif
16792
16793#define LAPACK_csycon_3_base LAPACK_GLOBAL(csycon_3,CSYCON_3)
16794void LAPACK_csycon_3_base(
16795 char const* uplo,
16796 lapack_int const* n,
16797 lapack_complex_float const* A, lapack_int const* lda,
16798 lapack_complex_float const* E, lapack_int const* ipiv,
16799 float const* anorm,
16800 float* rcond,
16801 lapack_complex_float* work,
16802 lapack_int* info
16803#ifdef LAPACK_FORTRAN_STRLEN_END
16804 , size_t
16805#endif
16806);
16807#ifdef LAPACK_FORTRAN_STRLEN_END
16808 #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__, 1)
16809#else
16810 #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__)
16811#endif
16812
16813#define LAPACK_dsycon_3_base LAPACK_GLOBAL(dsycon_3,DSYCON_3)
16814void LAPACK_dsycon_3_base(
16815 char const* uplo,
16816 lapack_int const* n,
16817 double const* A, lapack_int const* lda,
16818 double const* E, lapack_int const* ipiv,
16819 double const* anorm,
16820 double* rcond,
16821 double* work,
16822 lapack_int* iwork,
16823 lapack_int* info
16824#ifdef LAPACK_FORTRAN_STRLEN_END
16825 , size_t
16826#endif
16827);
16828#ifdef LAPACK_FORTRAN_STRLEN_END
16829 #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__, 1)
16830#else
16831 #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__)
16832#endif
16833
16834#define LAPACK_ssycon_3_base LAPACK_GLOBAL(ssycon_3,SSYCON_3)
16835void LAPACK_ssycon_3_base(
16836 char const* uplo,
16837 lapack_int const* n,
16838 float const* A, lapack_int const* lda,
16839 float const* E, lapack_int const* ipiv,
16840 float const* anorm,
16841 float* rcond,
16842 float* work,
16843 lapack_int* iwork,
16844 lapack_int* info
16845#ifdef LAPACK_FORTRAN_STRLEN_END
16846 , size_t
16847#endif
16848);
16849#ifdef LAPACK_FORTRAN_STRLEN_END
16850 #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__, 1)
16851#else
16852 #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__)
16853#endif
16854
16855#define LAPACK_zsycon_3_base LAPACK_GLOBAL(zsycon_3,ZSYCON_3)
16856void LAPACK_zsycon_3_base(
16857 char const* uplo,
16858 lapack_int const* n,
16859 lapack_complex_double const* A, lapack_int const* lda,
16860 lapack_complex_double const* E, lapack_int const* ipiv,
16861 double const* anorm,
16862 double* rcond,
16863 lapack_complex_double* work,
16864 lapack_int* info
16865#ifdef LAPACK_FORTRAN_STRLEN_END
16866 , size_t
16867#endif
16868);
16869#ifdef LAPACK_FORTRAN_STRLEN_END
16870 #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__, 1)
16871#else
16872 #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__)
16873#endif
16874
16875#define LAPACK_csyconv_base LAPACK_GLOBAL(csyconv,CSYCONV)
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,
16881 lapack_int* info
16882#ifdef LAPACK_FORTRAN_STRLEN_END
16883 , size_t, size_t
16884#endif
16885);
16886#ifdef LAPACK_FORTRAN_STRLEN_END
16887 #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__, 1, 1)
16888#else
16889 #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__)
16890#endif
16891
16892#define LAPACK_dsyconv_base LAPACK_GLOBAL(dsyconv,DSYCONV)
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,
16897 double* E,
16898 lapack_int* info
16899#ifdef LAPACK_FORTRAN_STRLEN_END
16900 , size_t, size_t
16901#endif
16902);
16903#ifdef LAPACK_FORTRAN_STRLEN_END
16904 #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__, 1, 1)
16905#else
16906 #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__)
16907#endif
16908
16909#define LAPACK_ssyconv_base LAPACK_GLOBAL(ssyconv,SSYCONV)
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,
16914 float* E,
16915 lapack_int* info
16916#ifdef LAPACK_FORTRAN_STRLEN_END
16917 , size_t, size_t
16918#endif
16919);
16920#ifdef LAPACK_FORTRAN_STRLEN_END
16921 #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__, 1, 1)
16922#else
16923 #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__)
16924#endif
16925
16926#define LAPACK_zsyconv_base LAPACK_GLOBAL(zsyconv,ZSYCONV)
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,
16932 lapack_int* info
16933#ifdef LAPACK_FORTRAN_STRLEN_END
16934 , size_t, size_t
16935#endif
16936);
16937#ifdef LAPACK_FORTRAN_STRLEN_END
16938 #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__, 1, 1)
16939#else
16940 #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__)
16941#endif
16942
16943#define LAPACK_csyequb_base LAPACK_GLOBAL(csyequb,CSYEQUB)
16944void LAPACK_csyequb_base(
16945 char const* uplo,
16946 lapack_int const* n,
16947 lapack_complex_float const* A, lapack_int const* lda,
16948 float* S,
16949 float* scond,
16950 float* amax,
16951 lapack_complex_float* work,
16952 lapack_int* info
16953#ifdef LAPACK_FORTRAN_STRLEN_END
16954 , size_t
16955#endif
16956);
16957#ifdef LAPACK_FORTRAN_STRLEN_END
16958 #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__, 1)
16959#else
16960 #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__)
16961#endif
16962
16963#define LAPACK_dsyequb_base LAPACK_GLOBAL(dsyequb,DSYEQUB)
16964void LAPACK_dsyequb_base(
16965 char const* uplo,
16966 lapack_int const* n,
16967 double const* A, lapack_int const* lda,
16968 double* S,
16969 double* scond,
16970 double* amax,
16971 double* work,
16972 lapack_int* info
16973#ifdef LAPACK_FORTRAN_STRLEN_END
16974 , size_t
16975#endif
16976);
16977#ifdef LAPACK_FORTRAN_STRLEN_END
16978 #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__, 1)
16979#else
16980 #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__)
16981#endif
16982
16983#define LAPACK_ssyequb_base LAPACK_GLOBAL(ssyequb,SSYEQUB)
16984void LAPACK_ssyequb_base(
16985 char const* uplo,
16986 lapack_int const* n,
16987 float const* A, lapack_int const* lda,
16988 float* S,
16989 float* scond,
16990 float* amax,
16991 float* work,
16992 lapack_int* info
16993#ifdef LAPACK_FORTRAN_STRLEN_END
16994 , size_t
16995#endif
16996);
16997#ifdef LAPACK_FORTRAN_STRLEN_END
16998 #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__, 1)
16999#else
17000 #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__)
17001#endif
17002
17003#define LAPACK_zsyequb_base LAPACK_GLOBAL(zsyequb,ZSYEQUB)
17004void LAPACK_zsyequb_base(
17005 char const* uplo,
17006 lapack_int const* n,
17007 lapack_complex_double const* A, lapack_int const* lda,
17008 double* S,
17009 double* scond,
17010 double* amax,
17011 lapack_complex_double* work,
17012 lapack_int* info
17013#ifdef LAPACK_FORTRAN_STRLEN_END
17014 , size_t
17015#endif
17016);
17017#ifdef LAPACK_FORTRAN_STRLEN_END
17018 #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__, 1)
17019#else
17020 #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__)
17021#endif
17022
17023#define LAPACK_dsyev_base LAPACK_GLOBAL(dsyev,DSYEV)
17024void LAPACK_dsyev_base(
17025 char const* jobz, char const* uplo,
17026 lapack_int const* n,
17027 double* A, lapack_int const* lda,
17028 double* W,
17029 double* work, lapack_int const* lwork,
17030 lapack_int* info
17031#ifdef LAPACK_FORTRAN_STRLEN_END
17032 , size_t, size_t
17033#endif
17034);
17035#ifdef LAPACK_FORTRAN_STRLEN_END
17036 #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__, 1, 1)
17037#else
17038 #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__)
17039#endif
17040
17041#define LAPACK_ssyev_base LAPACK_GLOBAL(ssyev,SSYEV)
17042void LAPACK_ssyev_base(
17043 char const* jobz, char const* uplo,
17044 lapack_int const* n,
17045 float* A, lapack_int const* lda,
17046 float* W,
17047 float* work, lapack_int const* lwork,
17048 lapack_int* info
17049#ifdef LAPACK_FORTRAN_STRLEN_END
17050 , size_t, size_t
17051#endif
17052);
17053#ifdef LAPACK_FORTRAN_STRLEN_END
17054 #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__, 1, 1)
17055#else
17056 #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__)
17057#endif
17058
17059#define LAPACK_dsyev_2stage_base LAPACK_GLOBAL(dsyev_2stage,DSYEV_2STAGE)
17060void LAPACK_dsyev_2stage_base(
17061 char const* jobz, char const* uplo,
17062 lapack_int const* n,
17063 double* A, lapack_int const* lda,
17064 double* W,
17065 double* work, lapack_int const* lwork,
17066 lapack_int* info
17067#ifdef LAPACK_FORTRAN_STRLEN_END
17068 , size_t, size_t
17069#endif
17070);
17071#ifdef LAPACK_FORTRAN_STRLEN_END
17072 #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__, 1, 1)
17073#else
17074 #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__)
17075#endif
17076
17077#define LAPACK_ssyev_2stage_base LAPACK_GLOBAL(ssyev_2stage,SSYEV_2STAGE)
17078void LAPACK_ssyev_2stage_base(
17079 char const* jobz, char const* uplo,
17080 lapack_int const* n,
17081 float* A, lapack_int const* lda,
17082 float* W,
17083 float* work, lapack_int const* lwork,
17084 lapack_int* info
17085#ifdef LAPACK_FORTRAN_STRLEN_END
17086 , size_t, size_t
17087#endif
17088);
17089#ifdef LAPACK_FORTRAN_STRLEN_END
17090 #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__, 1, 1)
17091#else
17092 #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__)
17093#endif
17094
17095#define LAPACK_dsyevd_base LAPACK_GLOBAL(dsyevd,DSYEVD)
17096void LAPACK_dsyevd_base(
17097 char const* jobz, char const* uplo,
17098 lapack_int const* n,
17099 double* A, lapack_int const* lda,
17100 double* W,
17101 double* work, lapack_int const* lwork,
17102 lapack_int* iwork, lapack_int const* liwork,
17103 lapack_int* info
17104#ifdef LAPACK_FORTRAN_STRLEN_END
17105 , size_t, size_t
17106#endif
17107);
17108#ifdef LAPACK_FORTRAN_STRLEN_END
17109 #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__, 1, 1)
17110#else
17111 #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__)
17112#endif
17113
17114#define LAPACK_ssyevd_base LAPACK_GLOBAL(ssyevd,SSYEVD)
17115void LAPACK_ssyevd_base(
17116 char const* jobz, char const* uplo,
17117 lapack_int const* n,
17118 float* A, lapack_int const* lda,
17119 float* W,
17120 float* work, lapack_int const* lwork,
17121 lapack_int* iwork, lapack_int const* liwork,
17122 lapack_int* info
17123#ifdef LAPACK_FORTRAN_STRLEN_END
17124 , size_t, size_t
17125#endif
17126);
17127#ifdef LAPACK_FORTRAN_STRLEN_END
17128 #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__, 1, 1)
17129#else
17130 #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__)
17131#endif
17132
17133#define LAPACK_dsyevd_2stage_base LAPACK_GLOBAL(dsyevd_2stage,DSYEVD_2STAGE)
17134void LAPACK_dsyevd_2stage_base(
17135 char const* jobz, char const* uplo,
17136 lapack_int const* n,
17137 double* A, lapack_int const* lda,
17138 double* W,
17139 double* work, lapack_int const* lwork,
17140 lapack_int* iwork, lapack_int const* liwork,
17141 lapack_int* info
17142#ifdef LAPACK_FORTRAN_STRLEN_END
17143 , size_t, size_t
17144#endif
17145);
17146#ifdef LAPACK_FORTRAN_STRLEN_END
17147 #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__, 1, 1)
17148#else
17149 #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__)
17150#endif
17151
17152#define LAPACK_ssyevd_2stage_base LAPACK_GLOBAL(ssyevd_2stage,SSYEVD_2STAGE)
17153void LAPACK_ssyevd_2stage_base(
17154 char const* jobz, char const* uplo,
17155 lapack_int const* n,
17156 float* A, lapack_int const* lda,
17157 float* W,
17158 float* work, lapack_int const* lwork,
17159 lapack_int* iwork, lapack_int const* liwork,
17160 lapack_int* info
17161#ifdef LAPACK_FORTRAN_STRLEN_END
17162 , size_t, size_t
17163#endif
17164);
17165#ifdef LAPACK_FORTRAN_STRLEN_END
17166 #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__, 1, 1)
17167#else
17168 #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__)
17169#endif
17170
17171#define LAPACK_dsyevr_base LAPACK_GLOBAL(dsyevr,DSYEVR)
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,
17176 double const* vl,
17177 double const* vu, lapack_int const* il, lapack_int const* iu,
17178 double const* abstol, lapack_int* m,
17179 double* W,
17180 double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
17181 double* work, lapack_int const* lwork,
17182 lapack_int* iwork, lapack_int const* liwork,
17183 lapack_int* info
17184#ifdef LAPACK_FORTRAN_STRLEN_END
17185 , size_t, size_t, size_t
17186#endif
17187);
17188#ifdef LAPACK_FORTRAN_STRLEN_END
17189 #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__, 1, 1, 1)
17190#else
17191 #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__)
17192#endif
17193
17194#define LAPACK_ssyevr_base LAPACK_GLOBAL(ssyevr,SSYEVR)
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,
17199 float const* vl,
17200 float const* vu, lapack_int const* il, lapack_int const* iu,
17201 float const* abstol, lapack_int* m,
17202 float* W,
17203 float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
17204 float* work, lapack_int const* lwork,
17205 lapack_int* iwork, lapack_int const* liwork,
17206 lapack_int* info
17207#ifdef LAPACK_FORTRAN_STRLEN_END
17208 , size_t, size_t, size_t
17209#endif
17210);
17211#ifdef LAPACK_FORTRAN_STRLEN_END
17212 #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__, 1, 1, 1)
17213#else
17214 #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__)
17215#endif
17216
17217#define LAPACK_dsyevr_2stage_base LAPACK_GLOBAL(dsyevr_2stage,DSYEVR_2STAGE)
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,
17222 double const* vl,
17223 double const* vu, lapack_int const* il, lapack_int const* iu,
17224 double const* abstol, lapack_int* m,
17225 double* W,
17226 double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
17227 double* work, lapack_int const* lwork,
17228 lapack_int* iwork, lapack_int const* liwork,
17229 lapack_int* info
17230#ifdef LAPACK_FORTRAN_STRLEN_END
17231 , size_t, size_t, size_t
17232#endif
17233);
17234#ifdef LAPACK_FORTRAN_STRLEN_END
17235 #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__, 1, 1, 1)
17236#else
17237 #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__)
17238#endif
17239
17240#define LAPACK_ssyevr_2stage_base LAPACK_GLOBAL(ssyevr_2stage,SSYEVR_2STAGE)
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,
17245 float const* vl,
17246 float const* vu, lapack_int const* il, lapack_int const* iu,
17247 float const* abstol, lapack_int* m,
17248 float* W,
17249 float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
17250 float* work, lapack_int const* lwork,
17251 lapack_int* iwork, lapack_int const* liwork,
17252 lapack_int* info
17253#ifdef LAPACK_FORTRAN_STRLEN_END
17254 , size_t, size_t, size_t
17255#endif
17256);
17257#ifdef LAPACK_FORTRAN_STRLEN_END
17258 #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__, 1, 1, 1)
17259#else
17260 #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__)
17261#endif
17262
17263#define LAPACK_dsyevx_base LAPACK_GLOBAL(dsyevx,DSYEVX)
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,
17268 double const* vl,
17269 double const* vu, lapack_int const* il, lapack_int const* iu,
17270 double const* abstol, lapack_int* m,
17271 double* W,
17272 double* Z, lapack_int const* ldz,
17273 double* work, lapack_int const* lwork,
17274 lapack_int* iwork, lapack_int* IFAIL,
17275 lapack_int* info
17276#ifdef LAPACK_FORTRAN_STRLEN_END
17277 , size_t, size_t, size_t
17278#endif
17279);
17280#ifdef LAPACK_FORTRAN_STRLEN_END
17281 #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__, 1, 1, 1)
17282#else
17283 #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__)
17284#endif
17285
17286#define LAPACK_ssyevx_base LAPACK_GLOBAL(ssyevx,SSYEVX)
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,
17291 float const* vl,
17292 float const* vu, lapack_int const* il, lapack_int const* iu,
17293 float const* abstol, lapack_int* m,
17294 float* W,
17295 float* Z, lapack_int const* ldz,
17296 float* work, lapack_int const* lwork,
17297 lapack_int* iwork, lapack_int* IFAIL,
17298 lapack_int* info
17299#ifdef LAPACK_FORTRAN_STRLEN_END
17300 , size_t, size_t, size_t
17301#endif
17302);
17303#ifdef LAPACK_FORTRAN_STRLEN_END
17304 #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__, 1, 1, 1)
17305#else
17306 #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__)
17307#endif
17308
17309#define LAPACK_dsyevx_2stage_base LAPACK_GLOBAL(dsyevx_2stage,DSYEVX_2STAGE)
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,
17314 double const* vl,
17315 double const* vu, lapack_int const* il, lapack_int const* iu,
17316 double const* abstol, lapack_int* m,
17317 double* W,
17318 double* Z, lapack_int const* ldz,
17319 double* work, lapack_int const* lwork,
17320 lapack_int* iwork, lapack_int* IFAIL,
17321 lapack_int* info
17322#ifdef LAPACK_FORTRAN_STRLEN_END
17323 , size_t, size_t, size_t
17324#endif
17325);
17326#ifdef LAPACK_FORTRAN_STRLEN_END
17327 #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__, 1, 1, 1)
17328#else
17329 #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__)
17330#endif
17331
17332#define LAPACK_ssyevx_2stage_base LAPACK_GLOBAL(ssyevx_2stage,SSYEVX_2STAGE)
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,
17337 float const* vl,
17338 float const* vu, lapack_int const* il, lapack_int const* iu,
17339 float const* abstol, lapack_int* m,
17340 float* W,
17341 float* Z, lapack_int const* ldz,
17342 float* work, lapack_int const* lwork,
17343 lapack_int* iwork, lapack_int* IFAIL,
17344 lapack_int* info
17345#ifdef LAPACK_FORTRAN_STRLEN_END
17346 , size_t, size_t, size_t
17347#endif
17348);
17349#ifdef LAPACK_FORTRAN_STRLEN_END
17350 #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__, 1, 1, 1)
17351#else
17352 #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__)
17353#endif
17354
17355#define LAPACK_dsygst_base LAPACK_GLOBAL(dsygst,DSYGST)
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,
17361 lapack_int* info
17362#ifdef LAPACK_FORTRAN_STRLEN_END
17363 , size_t
17364#endif
17365);
17366#ifdef LAPACK_FORTRAN_STRLEN_END
17367 #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__, 1)
17368#else
17369 #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__)
17370#endif
17371
17372#define LAPACK_ssygst_base LAPACK_GLOBAL(ssygst,SSYGST)
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,
17378 lapack_int* info
17379#ifdef LAPACK_FORTRAN_STRLEN_END
17380 , size_t
17381#endif
17382);
17383#ifdef LAPACK_FORTRAN_STRLEN_END
17384 #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__, 1)
17385#else
17386 #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__)
17387#endif
17388
17389#define LAPACK_dsygv_base LAPACK_GLOBAL(dsygv,DSYGV)
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,
17395 double* W,
17396 double* work, lapack_int const* lwork,
17397 lapack_int* info
17398#ifdef LAPACK_FORTRAN_STRLEN_END
17399 , size_t, size_t
17400#endif
17401);
17402#ifdef LAPACK_FORTRAN_STRLEN_END
17403 #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__, 1, 1)
17404#else
17405 #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__)
17406#endif
17407
17408#define LAPACK_ssygv_base LAPACK_GLOBAL(ssygv,SSYGV)
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,
17414 float* W,
17415 float* work, lapack_int const* lwork,
17416 lapack_int* info
17417#ifdef LAPACK_FORTRAN_STRLEN_END
17418 , size_t, size_t
17419#endif
17420);
17421#ifdef LAPACK_FORTRAN_STRLEN_END
17422 #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__, 1, 1)
17423#else
17424 #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__)
17425#endif
17426
17427#define LAPACK_dsygv_2stage_base LAPACK_GLOBAL(dsygv_2stage,DSYGV_2STAGE)
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,
17433 double* W,
17434 double* work, lapack_int const* lwork,
17435 lapack_int* info
17436#ifdef LAPACK_FORTRAN_STRLEN_END
17437 , size_t, size_t
17438#endif
17439);
17440#ifdef LAPACK_FORTRAN_STRLEN_END
17441 #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__, 1, 1)
17442#else
17443 #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__)
17444#endif
17445
17446#define LAPACK_ssygv_2stage_base LAPACK_GLOBAL(ssygv_2stage,SSYGV_2STAGE)
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,
17452 float* W,
17453 float* work, lapack_int const* lwork,
17454 lapack_int* info
17455#ifdef LAPACK_FORTRAN_STRLEN_END
17456 , size_t, size_t
17457#endif
17458);
17459#ifdef LAPACK_FORTRAN_STRLEN_END
17460 #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__, 1, 1)
17461#else
17462 #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__)
17463#endif
17464
17465#define LAPACK_dsygvd_base LAPACK_GLOBAL(dsygvd,DSYGVD)
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,
17471 double* W,
17472 double* work, lapack_int const* lwork,
17473 lapack_int* iwork, lapack_int const* liwork,
17474 lapack_int* info
17475#ifdef LAPACK_FORTRAN_STRLEN_END
17476 , size_t, size_t
17477#endif
17478);
17479#ifdef LAPACK_FORTRAN_STRLEN_END
17480 #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__, 1, 1)
17481#else
17482 #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__)
17483#endif
17484
17485#define LAPACK_ssygvd_base LAPACK_GLOBAL(ssygvd,SSYGVD)
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,
17491 float* W,
17492 float* work, lapack_int const* lwork,
17493 lapack_int* iwork, lapack_int const* liwork,
17494 lapack_int* info
17495#ifdef LAPACK_FORTRAN_STRLEN_END
17496 , size_t, size_t
17497#endif
17498);
17499#ifdef LAPACK_FORTRAN_STRLEN_END
17500 #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__, 1, 1)
17501#else
17502 #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__)
17503#endif
17504
17505#define LAPACK_dsygvx_base LAPACK_GLOBAL(dsygvx,DSYGVX)
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,
17511 double const* vl,
17512 double const* vu, lapack_int const* il, lapack_int const* iu,
17513 double const* abstol, lapack_int* m,
17514 double* W,
17515 double* Z, lapack_int const* ldz,
17516 double* work, lapack_int const* lwork,
17517 lapack_int* iwork, lapack_int* IFAIL,
17518 lapack_int* info
17519#ifdef LAPACK_FORTRAN_STRLEN_END
17520 , size_t, size_t, size_t
17521#endif
17522);
17523#ifdef LAPACK_FORTRAN_STRLEN_END
17524 #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__, 1, 1, 1)
17525#else
17526 #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__)
17527#endif
17528
17529#define LAPACK_ssygvx_base LAPACK_GLOBAL(ssygvx,SSYGVX)
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,
17535 float const* vl,
17536 float const* vu, lapack_int const* il, lapack_int const* iu,
17537 float const* abstol, lapack_int* m,
17538 float* W,
17539 float* Z, lapack_int const* ldz,
17540 float* work, lapack_int const* lwork,
17541 lapack_int* iwork, lapack_int* IFAIL,
17542 lapack_int* info
17543#ifdef LAPACK_FORTRAN_STRLEN_END
17544 , size_t, size_t, size_t
17545#endif
17546);
17547#ifdef LAPACK_FORTRAN_STRLEN_END
17548 #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__, 1, 1, 1)
17549#else
17550 #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__)
17551#endif
17552
17553#define LAPACK_csyr_base LAPACK_GLOBAL(csyr,CSYR)
17554void LAPACK_csyr_base(
17555 char const* uplo,
17556 lapack_int const* n,
17557 lapack_complex_float const* alpha,
17558 lapack_complex_float const* X, lapack_int const* incx,
17559 lapack_complex_float* A, lapack_int const* lda
17560#ifdef LAPACK_FORTRAN_STRLEN_END
17561 , size_t
17562#endif
17563);
17564#ifdef LAPACK_FORTRAN_STRLEN_END
17565 #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__, 1)
17566#else
17567 #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__)
17568#endif
17569
17570#define LAPACK_zsyr_base LAPACK_GLOBAL(zsyr,ZSYR)
17571void LAPACK_zsyr_base(
17572 char const* uplo,
17573 lapack_int const* n,
17574 lapack_complex_double const* alpha,
17575 lapack_complex_double const* X, lapack_int const* incx,
17576 lapack_complex_double* A, lapack_int const* lda
17577#ifdef LAPACK_FORTRAN_STRLEN_END
17578 , size_t
17579#endif
17580);
17581#ifdef LAPACK_FORTRAN_STRLEN_END
17582 #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__, 1)
17583#else
17584 #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__)
17585#endif
17586
17587#define LAPACK_csyrfs_base LAPACK_GLOBAL(csyrfs,CSYRFS)
17588void LAPACK_csyrfs_base(
17589 char const* uplo,
17590 lapack_int const* n, lapack_int const* nrhs,
17591 lapack_complex_float const* A, lapack_int const* lda,
17592 lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17593 lapack_complex_float const* B, lapack_int const* ldb,
17594 lapack_complex_float* X, lapack_int const* ldx,
17595 float* ferr,
17596 float* berr,
17597 lapack_complex_float* work,
17598 float* rwork,
17599 lapack_int* info
17600#ifdef LAPACK_FORTRAN_STRLEN_END
17601 , size_t
17602#endif
17603);
17604#ifdef LAPACK_FORTRAN_STRLEN_END
17605 #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__, 1)
17606#else
17607 #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__)
17608#endif
17609
17610#define LAPACK_dsyrfs_base LAPACK_GLOBAL(dsyrfs,DSYRFS)
17611void LAPACK_dsyrfs_base(
17612 char const* uplo,
17613 lapack_int const* n, lapack_int const* nrhs,
17614 double const* A, lapack_int const* lda,
17615 double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17616 double const* B, lapack_int const* ldb,
17617 double* X, lapack_int const* ldx,
17618 double* ferr,
17619 double* berr,
17620 double* work,
17621 lapack_int* iwork,
17622 lapack_int* info
17623#ifdef LAPACK_FORTRAN_STRLEN_END
17624 , size_t
17625#endif
17626);
17627#ifdef LAPACK_FORTRAN_STRLEN_END
17628 #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__, 1)
17629#else
17630 #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__)
17631#endif
17632
17633#define LAPACK_ssyrfs_base LAPACK_GLOBAL(ssyrfs,SSYRFS)
17634void LAPACK_ssyrfs_base(
17635 char const* uplo,
17636 lapack_int const* n, lapack_int const* nrhs,
17637 float const* A, lapack_int const* lda,
17638 float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17639 float const* B, lapack_int const* ldb,
17640 float* X, lapack_int const* ldx,
17641 float* ferr,
17642 float* berr,
17643 float* work,
17644 lapack_int* iwork,
17645 lapack_int* info
17646#ifdef LAPACK_FORTRAN_STRLEN_END
17647 , size_t
17648#endif
17649);
17650#ifdef LAPACK_FORTRAN_STRLEN_END
17651 #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__, 1)
17652#else
17653 #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__)
17654#endif
17655
17656#define LAPACK_zsyrfs_base LAPACK_GLOBAL(zsyrfs,ZSYRFS)
17657void LAPACK_zsyrfs_base(
17658 char const* uplo,
17659 lapack_int const* n, lapack_int const* nrhs,
17660 lapack_complex_double const* A, lapack_int const* lda,
17661 lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17662 lapack_complex_double const* B, lapack_int const* ldb,
17663 lapack_complex_double* X, lapack_int const* ldx,
17664 double* ferr,
17665 double* berr,
17666 lapack_complex_double* work,
17667 double* rwork,
17668 lapack_int* info
17669#ifdef LAPACK_FORTRAN_STRLEN_END
17670 , size_t
17671#endif
17672);
17673#ifdef LAPACK_FORTRAN_STRLEN_END
17674 #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__, 1)
17675#else
17676 #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__)
17677#endif
17678
17679#define LAPACK_csyrfsx_base LAPACK_GLOBAL(csyrfsx,CSYRFSX)
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,
17685 const float* S,
17686 lapack_complex_float const* B, lapack_int const* ldb,
17687 lapack_complex_float* X, lapack_int const* ldx,
17688 float* rcond,
17689 float* berr, lapack_int const* n_err_bnds,
17690 float* err_bnds_norm,
17691 float* err_bnds_comp, lapack_int const* nparams,
17692 float* params,
17693 lapack_complex_float* work,
17694 float* rwork,
17695 lapack_int* info
17696#ifdef LAPACK_FORTRAN_STRLEN_END
17697 , size_t, size_t
17698#endif
17699);
17700#ifdef LAPACK_FORTRAN_STRLEN_END
17701 #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__, 1, 1)
17702#else
17703 #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__)
17704#endif
17705
17706#define LAPACK_dsyrfsx_base LAPACK_GLOBAL(dsyrfsx,DSYRFSX)
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,
17712 const double* S,
17713 double const* B, lapack_int const* ldb,
17714 double* X, lapack_int const* ldx,
17715 double* rcond,
17716 double* berr, lapack_int const* n_err_bnds,
17717 double* err_bnds_norm,
17718 double* err_bnds_comp, lapack_int const* nparams,
17719 double* params,
17720 double* work,
17721 lapack_int* iwork,
17722 lapack_int* info
17723#ifdef LAPACK_FORTRAN_STRLEN_END
17724 , size_t, size_t
17725#endif
17726);
17727#ifdef LAPACK_FORTRAN_STRLEN_END
17728 #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__, 1, 1)
17729#else
17730 #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__)
17731#endif
17732
17733#define LAPACK_ssyrfsx_base LAPACK_GLOBAL(ssyrfsx,SSYRFSX)
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,
17739 const float* S,
17740 float const* B, lapack_int const* ldb,
17741 float* X, lapack_int const* ldx,
17742 float* rcond,
17743 float* berr, lapack_int const* n_err_bnds,
17744 float* err_bnds_norm,
17745 float* err_bnds_comp, lapack_int const* nparams,
17746 float* params,
17747 float* work,
17748 lapack_int* iwork,
17749 lapack_int* info
17750#ifdef LAPACK_FORTRAN_STRLEN_END
17751 , size_t, size_t
17752#endif
17753);
17754#ifdef LAPACK_FORTRAN_STRLEN_END
17755 #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__, 1, 1)
17756#else
17757 #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__)
17758#endif
17759
17760#define LAPACK_zsyrfsx_base LAPACK_GLOBAL(zsyrfsx,ZSYRFSX)
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,
17766 const double* S,
17767 lapack_complex_double const* B, lapack_int const* ldb,
17768 lapack_complex_double* X, lapack_int const* ldx,
17769 double* rcond,
17770 double* berr, lapack_int const* n_err_bnds,
17771 double* err_bnds_norm,
17772 double* err_bnds_comp, lapack_int const* nparams,
17773 double* params,
17774 lapack_complex_double* work,
17775 double* rwork,
17776 lapack_int* info
17777#ifdef LAPACK_FORTRAN_STRLEN_END
17778 , size_t, size_t
17779#endif
17780);
17781#ifdef LAPACK_FORTRAN_STRLEN_END
17782 #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__, 1, 1)
17783#else
17784 #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__)
17785#endif
17786
17787#define LAPACK_csysv_base LAPACK_GLOBAL(csysv,CSYSV)
17788void LAPACK_csysv_base(
17789 char const* uplo,
17790 lapack_int const* n, lapack_int const* nrhs,
17791 lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
17792 lapack_complex_float* B, lapack_int const* ldb,
17793 lapack_complex_float* work, lapack_int const* lwork,
17794 lapack_int* info
17795#ifdef LAPACK_FORTRAN_STRLEN_END
17796 , size_t
17797#endif
17798);
17799#ifdef LAPACK_FORTRAN_STRLEN_END
17800 #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__, 1)
17801#else
17802 #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__)
17803#endif
17804
17805#define LAPACK_dsysv_base LAPACK_GLOBAL(dsysv,DSYSV)
17806void LAPACK_dsysv_base(
17807 char const* uplo,
17808 lapack_int const* n, lapack_int const* nrhs,
17809 double* A, lapack_int const* lda, lapack_int* ipiv,
17810 double* B, lapack_int const* ldb,
17811 double* work, lapack_int const* lwork,
17812 lapack_int* info
17813#ifdef LAPACK_FORTRAN_STRLEN_END
17814 , size_t
17815#endif
17816);
17817#ifdef LAPACK_FORTRAN_STRLEN_END
17818 #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__, 1)
17819#else
17820 #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__)
17821#endif
17822
17823#define LAPACK_ssysv_base LAPACK_GLOBAL(ssysv,SSYSV)
17824void LAPACK_ssysv_base(
17825 char const* uplo,
17826 lapack_int const* n, lapack_int const* nrhs,
17827 float* A, lapack_int const* lda, lapack_int* ipiv,
17828 float* B, lapack_int const* ldb,
17829 float* work, lapack_int const* lwork,
17830 lapack_int* info
17831#ifdef LAPACK_FORTRAN_STRLEN_END
17832 , size_t
17833#endif
17834);
17835#ifdef LAPACK_FORTRAN_STRLEN_END
17836 #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__, 1)
17837#else
17838 #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__)
17839#endif
17840
17841#define LAPACK_zsysv_base LAPACK_GLOBAL(zsysv,ZSYSV)
17842void LAPACK_zsysv_base(
17843 char const* uplo,
17844 lapack_int const* n, lapack_int const* nrhs,
17845 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
17846 lapack_complex_double* B, lapack_int const* ldb,
17847 lapack_complex_double* work, lapack_int const* lwork,
17848 lapack_int* info
17849#ifdef LAPACK_FORTRAN_STRLEN_END
17850 , size_t
17851#endif
17852);
17853#ifdef LAPACK_FORTRAN_STRLEN_END
17854 #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__, 1)
17855#else
17856 #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__)
17857#endif
17858
17859#define LAPACK_csysv_aa_base LAPACK_GLOBAL(csysv_aa,CSYSV_AA)
17860void LAPACK_csysv_aa_base(
17861 char const* uplo,
17862 lapack_int const* n, lapack_int const* nrhs,
17863 lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
17864 lapack_complex_float* B, lapack_int const* ldb,
17865 lapack_complex_float* work, lapack_int const* lwork,
17866 lapack_int* info
17867#ifdef LAPACK_FORTRAN_STRLEN_END
17868 , size_t
17869#endif
17870);
17871#ifdef LAPACK_FORTRAN_STRLEN_END
17872 #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__, 1)
17873#else
17874 #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__)
17875#endif
17876
17877#define LAPACK_dsysv_aa_base LAPACK_GLOBAL(dsysv_aa,DSYSV_AA)
17878void LAPACK_dsysv_aa_base(
17879 char const* uplo,
17880 lapack_int const* n, lapack_int const* nrhs,
17881 double* A, lapack_int const* lda, lapack_int* ipiv,
17882 double* B, lapack_int const* ldb,
17883 double* work, lapack_int const* lwork,
17884 lapack_int* info
17885#ifdef LAPACK_FORTRAN_STRLEN_END
17886 , size_t
17887#endif
17888);
17889#ifdef LAPACK_FORTRAN_STRLEN_END
17890 #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__, 1)
17891#else
17892 #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__)
17893#endif
17894
17895#define LAPACK_ssysv_aa_base LAPACK_GLOBAL(ssysv_aa,SSYSV_AA)
17896void LAPACK_ssysv_aa_base(
17897 char const* uplo,
17898 lapack_int const* n, lapack_int const* nrhs,
17899 float* A, lapack_int const* lda, lapack_int* ipiv,
17900 float* B, lapack_int const* ldb,
17901 float* work, lapack_int const* lwork,
17902 lapack_int* info
17903#ifdef LAPACK_FORTRAN_STRLEN_END
17904 , size_t
17905#endif
17906);
17907#ifdef LAPACK_FORTRAN_STRLEN_END
17908 #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__, 1)
17909#else
17910 #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__)
17911#endif
17912
17913#define LAPACK_zsysv_aa_base LAPACK_GLOBAL(zsysv_aa,ZSYSV_AA)
17914void LAPACK_zsysv_aa_base(
17915 char const* uplo,
17916 lapack_int const* n, lapack_int const* nrhs,
17917 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
17918 lapack_complex_double* B, lapack_int const* ldb,
17919 lapack_complex_double* work, lapack_int const* lwork,
17920 lapack_int* info
17921#ifdef LAPACK_FORTRAN_STRLEN_END
17922 , size_t
17923#endif
17924);
17925#ifdef LAPACK_FORTRAN_STRLEN_END
17926 #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__, 1)
17927#else
17928 #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__)
17929#endif
17930
17931#define LAPACK_csysv_aa_2stage_base LAPACK_GLOBAL(csysv_aa_2stage,CSYSV_AA_2STAGE)
17932void LAPACK_csysv_aa_2stage_base(
17933 char const* uplo,
17934 lapack_int const* n, lapack_int const* nrhs,
17935 lapack_complex_float* A, lapack_int const* lda,
17936 lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17937 lapack_complex_float* B, lapack_int const* ldb,
17938 lapack_complex_float* work, lapack_int const* lwork,
17939 lapack_int* info
17940#ifdef LAPACK_FORTRAN_STRLEN_END
17941 , size_t
17942#endif
17943);
17944#ifdef LAPACK_FORTRAN_STRLEN_END
17945 #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__, 1)
17946#else
17947 #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__)
17948#endif
17949
17950#define LAPACK_dsysv_aa_2stage_base LAPACK_GLOBAL(dsysv_aa_2stage,DSYSV_AA_2STAGE)
17951void LAPACK_dsysv_aa_2stage_base(
17952 char const* uplo,
17953 lapack_int const* n, lapack_int const* nrhs,
17954 double* A, lapack_int const* lda,
17955 double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17956 double* B, lapack_int const* ldb,
17957 double* work, lapack_int const* lwork,
17958 lapack_int* info
17959#ifdef LAPACK_FORTRAN_STRLEN_END
17960 , size_t
17961#endif
17962);
17963#ifdef LAPACK_FORTRAN_STRLEN_END
17964 #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__, 1)
17965#else
17966 #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__)
17967#endif
17968
17969#define LAPACK_ssysv_aa_2stage_base LAPACK_GLOBAL(ssysv_aa_2stage,SSYSV_AA_2STAGE)
17970void LAPACK_ssysv_aa_2stage_base(
17971 char const* uplo,
17972 lapack_int const* n, lapack_int const* nrhs,
17973 float* A, lapack_int const* lda,
17974 float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17975 float* B, lapack_int const* ldb,
17976 float* work, lapack_int const* lwork,
17977 lapack_int* info
17978#ifdef LAPACK_FORTRAN_STRLEN_END
17979 , size_t
17980#endif
17981);
17982#ifdef LAPACK_FORTRAN_STRLEN_END
17983 #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__, 1)
17984#else
17985 #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__)
17986#endif
17987
17988#define LAPACK_zsysv_aa_2stage_base LAPACK_GLOBAL(zsysv_aa_2stage,ZSYSV_AA_2STAGE)
17989void LAPACK_zsysv_aa_2stage_base(
17990 char const* uplo,
17991 lapack_int const* n, lapack_int const* nrhs,
17992 lapack_complex_double* A, lapack_int const* lda,
17993 lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17994 lapack_complex_double* B, lapack_int const* ldb,
17995 lapack_complex_double* work, lapack_int const* lwork,
17996 lapack_int* info
17997#ifdef LAPACK_FORTRAN_STRLEN_END
17998 , size_t
17999#endif
18000);
18001#ifdef LAPACK_FORTRAN_STRLEN_END
18002 #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__, 1)
18003#else
18004 #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__)
18005#endif
18006
18007#define LAPACK_csysv_rk_base LAPACK_GLOBAL(csysv_rk,CSYSV_RK)
18008void LAPACK_csysv_rk_base(
18009 char const* uplo,
18010 lapack_int const* n, lapack_int const* nrhs,
18011 lapack_complex_float* A, lapack_int const* lda,
18012 lapack_complex_float* E, lapack_int* ipiv,
18013 lapack_complex_float* B, lapack_int const* ldb,
18014 lapack_complex_float* work, lapack_int const* lwork,
18015 lapack_int* info
18016#ifdef LAPACK_FORTRAN_STRLEN_END
18017 , size_t
18018#endif
18019);
18020#ifdef LAPACK_FORTRAN_STRLEN_END
18021 #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__, 1)
18022#else
18023 #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__)
18024#endif
18025
18026#define LAPACK_dsysv_rk_base LAPACK_GLOBAL(dsysv_rk,DSYSV_RK)
18027void LAPACK_dsysv_rk_base(
18028 char const* uplo,
18029 lapack_int const* n, lapack_int const* nrhs,
18030 double* A, lapack_int const* lda,
18031 double* E, lapack_int* ipiv,
18032 double* B, lapack_int const* ldb,
18033 double* work, lapack_int const* lwork,
18034 lapack_int* info
18035#ifdef LAPACK_FORTRAN_STRLEN_END
18036 , size_t
18037#endif
18038);
18039#ifdef LAPACK_FORTRAN_STRLEN_END
18040 #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__, 1)
18041#else
18042 #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__)
18043#endif
18044
18045#define LAPACK_ssysv_rk_base LAPACK_GLOBAL(ssysv_rk,SSYSV_RK)
18046void LAPACK_ssysv_rk_base(
18047 char const* uplo,
18048 lapack_int const* n, lapack_int const* nrhs,
18049 float* A, lapack_int const* lda,
18050 float* E, lapack_int* ipiv,
18051 float* B, lapack_int const* ldb,
18052 float* work, lapack_int const* lwork,
18053 lapack_int* info
18054#ifdef LAPACK_FORTRAN_STRLEN_END
18055 , size_t
18056#endif
18057);
18058#ifdef LAPACK_FORTRAN_STRLEN_END
18059 #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__, 1)
18060#else
18061 #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__)
18062#endif
18063
18064#define LAPACK_zsysv_rk_base LAPACK_GLOBAL(zsysv_rk,ZSYSV_RK)
18065void LAPACK_zsysv_rk_base(
18066 char const* uplo,
18067 lapack_int const* n, lapack_int const* nrhs,
18068 lapack_complex_double* A, lapack_int const* lda,
18069 lapack_complex_double* E, lapack_int* ipiv,
18070 lapack_complex_double* B, lapack_int const* ldb,
18071 lapack_complex_double* work, lapack_int const* lwork,
18072 lapack_int* info
18073#ifdef LAPACK_FORTRAN_STRLEN_END
18074 , size_t
18075#endif
18076);
18077#ifdef LAPACK_FORTRAN_STRLEN_END
18078 #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__, 1)
18079#else
18080 #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__)
18081#endif
18082
18083#define LAPACK_csysv_rook_base LAPACK_GLOBAL(csysv_rook,CSYSV_ROOK)
18084void LAPACK_csysv_rook_base(
18085 char const* uplo,
18086 lapack_int const* n, lapack_int const* nrhs,
18087 lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18088 lapack_complex_float* B, lapack_int const* ldb,
18089 lapack_complex_float* work, lapack_int const* lwork,
18090 lapack_int* info
18091#ifdef LAPACK_FORTRAN_STRLEN_END
18092 , size_t
18093#endif
18094);
18095#ifdef LAPACK_FORTRAN_STRLEN_END
18096 #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__, 1)
18097#else
18098 #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__)
18099#endif
18100
18101#define LAPACK_dsysv_rook_base LAPACK_GLOBAL(dsysv_rook,DSYSV_ROOK)
18102void LAPACK_dsysv_rook_base(
18103 char const* uplo,
18104 lapack_int const* n, lapack_int const* nrhs,
18105 double* A, lapack_int const* lda, lapack_int* ipiv,
18106 double* B, lapack_int const* ldb,
18107 double* work, lapack_int const* lwork,
18108 lapack_int* info
18109#ifdef LAPACK_FORTRAN_STRLEN_END
18110 , size_t
18111#endif
18112);
18113#ifdef LAPACK_FORTRAN_STRLEN_END
18114 #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__, 1)
18115#else
18116 #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__)
18117#endif
18118
18119#define LAPACK_ssysv_rook_base LAPACK_GLOBAL(ssysv_rook,SSYSV_ROOK)
18120void LAPACK_ssysv_rook_base(
18121 char const* uplo,
18122 lapack_int const* n, lapack_int const* nrhs,
18123 float* A, lapack_int const* lda, lapack_int* ipiv,
18124 float* B, lapack_int const* ldb,
18125 float* work, lapack_int const* lwork,
18126 lapack_int* info
18127#ifdef LAPACK_FORTRAN_STRLEN_END
18128 , size_t
18129#endif
18130);
18131#ifdef LAPACK_FORTRAN_STRLEN_END
18132 #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__, 1)
18133#else
18134 #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__)
18135#endif
18136
18137#define LAPACK_zsysv_rook_base LAPACK_GLOBAL(zsysv_rook,ZSYSV_ROOK)
18138void LAPACK_zsysv_rook_base(
18139 char const* uplo,
18140 lapack_int const* n, lapack_int const* nrhs,
18141 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18142 lapack_complex_double* B, lapack_int const* ldb,
18143 lapack_complex_double* work, lapack_int const* lwork,
18144 lapack_int* info
18145#ifdef LAPACK_FORTRAN_STRLEN_END
18146 , size_t
18147#endif
18148);
18149#ifdef LAPACK_FORTRAN_STRLEN_END
18150 #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__, 1)
18151#else
18152 #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__)
18153#endif
18154
18155#define LAPACK_csysvx_base LAPACK_GLOBAL(csysvx,CSYSVX)
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,
18163 float* rcond,
18164 float* ferr,
18165 float* berr,
18166 lapack_complex_float* work, lapack_int const* lwork,
18167 float* rwork,
18168 lapack_int* info
18169#ifdef LAPACK_FORTRAN_STRLEN_END
18170 , size_t, size_t
18171#endif
18172);
18173#ifdef LAPACK_FORTRAN_STRLEN_END
18174 #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__, 1, 1)
18175#else
18176 #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__)
18177#endif
18178
18179#define LAPACK_dsysvx_base LAPACK_GLOBAL(dsysvx,DSYSVX)
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,
18187 double* rcond,
18188 double* ferr,
18189 double* berr,
18190 double* work, lapack_int const* lwork,
18191 lapack_int* iwork,
18192 lapack_int* info
18193#ifdef LAPACK_FORTRAN_STRLEN_END
18194 , size_t, size_t
18195#endif
18196);
18197#ifdef LAPACK_FORTRAN_STRLEN_END
18198 #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__, 1, 1)
18199#else
18200 #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__)
18201#endif
18202
18203#define LAPACK_ssysvx_base LAPACK_GLOBAL(ssysvx,SSYSVX)
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,
18211 float* rcond,
18212 float* ferr,
18213 float* berr,
18214 float* work, lapack_int const* lwork,
18215 lapack_int* iwork,
18216 lapack_int* info
18217#ifdef LAPACK_FORTRAN_STRLEN_END
18218 , size_t, size_t
18219#endif
18220);
18221#ifdef LAPACK_FORTRAN_STRLEN_END
18222 #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__, 1, 1)
18223#else
18224 #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__)
18225#endif
18226
18227#define LAPACK_zsysvx_base LAPACK_GLOBAL(zsysvx,ZSYSVX)
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,
18235 double* rcond,
18236 double* ferr,
18237 double* berr,
18238 lapack_complex_double* work, lapack_int const* lwork,
18239 double* rwork,
18240 lapack_int* info
18241#ifdef LAPACK_FORTRAN_STRLEN_END
18242 , size_t, size_t
18243#endif
18244);
18245#ifdef LAPACK_FORTRAN_STRLEN_END
18246 #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__, 1, 1)
18247#else
18248 #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__)
18249#endif
18250
18251#define LAPACK_csysvxx_base LAPACK_GLOBAL(csysvxx,CSYSVXX)
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,
18257 float* S,
18258 lapack_complex_float* B,
18259 lapack_int const* ldb,
18260 lapack_complex_float* X, lapack_int const* ldx,
18261 float* rcond,
18262 float* rpvgrw,
18263 float* berr, lapack_int const* n_err_bnds,
18264 float* err_bnds_norm,
18265 float* err_bnds_comp, lapack_int const* nparams,
18266 float* params,
18267 lapack_complex_float* work,
18268 float* rwork,
18269 lapack_int* info
18270#ifdef LAPACK_FORTRAN_STRLEN_END
18271 , size_t, size_t, size_t
18272#endif
18273);
18274#ifdef LAPACK_FORTRAN_STRLEN_END
18275 #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__, 1, 1, 1)
18276#else
18277 #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__)
18278#endif
18279
18280#define LAPACK_dsysvxx_base LAPACK_GLOBAL(dsysvxx,DSYSVXX)
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,
18286 double* S,
18287 double* B,
18288 lapack_int const* ldb,
18289 double* X, lapack_int const* ldx,
18290 double* rcond,
18291 double* rpvgrw,
18292 double* berr, lapack_int const* n_err_bnds,
18293 double* err_bnds_norm,
18294 double* err_bnds_comp, lapack_int const* nparams,
18295 double* params,
18296 double* work,
18297 lapack_int* iwork,
18298 lapack_int* info
18299#ifdef LAPACK_FORTRAN_STRLEN_END
18300 , size_t, size_t, size_t
18301#endif
18302);
18303#ifdef LAPACK_FORTRAN_STRLEN_END
18304 #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__, 1, 1, 1)
18305#else
18306 #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__)
18307#endif
18308
18309#define LAPACK_ssysvxx_base LAPACK_GLOBAL(ssysvxx,SSYSVXX)
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,
18315 float* S,
18316 float* B,
18317 lapack_int const* ldb,
18318 float* X, lapack_int const* ldx,
18319 float* rcond,
18320 float* rpvgrw,
18321 float* berr, lapack_int const* n_err_bnds,
18322 float* err_bnds_norm,
18323 float* err_bnds_comp, lapack_int const* nparams,
18324 float* params,
18325 float* work,
18326 lapack_int* iwork,
18327 lapack_int* info
18328#ifdef LAPACK_FORTRAN_STRLEN_END
18329 , size_t, size_t, size_t
18330#endif
18331);
18332#ifdef LAPACK_FORTRAN_STRLEN_END
18333 #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__, 1, 1, 1)
18334#else
18335 #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__)
18336#endif
18337
18338#define LAPACK_zsysvxx_base LAPACK_GLOBAL(zsysvxx,ZSYSVXX)
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,
18344 double* S,
18345 lapack_complex_double* B,
18346 lapack_int const* ldb,
18347 lapack_complex_double* X, lapack_int const* ldx,
18348 double* rcond,
18349 double* rpvgrw,
18350 double* berr, lapack_int const* n_err_bnds,
18351 double* err_bnds_norm,
18352 double* err_bnds_comp, lapack_int const* nparams,
18353 double* params,
18354 lapack_complex_double* work,
18355 double* rwork,
18356 lapack_int* info
18357#ifdef LAPACK_FORTRAN_STRLEN_END
18358 , size_t, size_t, size_t
18359#endif
18360);
18361#ifdef LAPACK_FORTRAN_STRLEN_END
18362 #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__, 1, 1, 1)
18363#else
18364 #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__)
18365#endif
18366
18367#define LAPACK_csyswapr_base LAPACK_GLOBAL(csyswapr,CSYSWAPR)
18368void LAPACK_csyswapr_base(
18369 char const* uplo,
18370 lapack_int const* n,
18371 lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
18372#ifdef LAPACK_FORTRAN_STRLEN_END
18373 , size_t
18374#endif
18375);
18376#ifdef LAPACK_FORTRAN_STRLEN_END
18377 #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__, 1)
18378#else
18379 #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__)
18380#endif
18381
18382#define LAPACK_dsyswapr_base LAPACK_GLOBAL(dsyswapr,DSYSWAPR)
18383void LAPACK_dsyswapr_base(
18384 char const* uplo,
18385 lapack_int const* n,
18386 double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
18387#ifdef LAPACK_FORTRAN_STRLEN_END
18388 , size_t
18389#endif
18390);
18391#ifdef LAPACK_FORTRAN_STRLEN_END
18392 #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__, 1)
18393#else
18394 #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__)
18395#endif
18396
18397#define LAPACK_ssyswapr_base LAPACK_GLOBAL(ssyswapr,SSYSWAPR)
18398void LAPACK_ssyswapr_base(
18399 char const* uplo,
18400 lapack_int const* n,
18401 float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
18402#ifdef LAPACK_FORTRAN_STRLEN_END
18403 , size_t
18404#endif
18405);
18406#ifdef LAPACK_FORTRAN_STRLEN_END
18407 #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__, 1)
18408#else
18409 #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__)
18410#endif
18411
18412#define LAPACK_zsyswapr_base LAPACK_GLOBAL(zsyswapr,ZSYSWAPR)
18413void LAPACK_zsyswapr_base(
18414 char const* uplo,
18415 lapack_int const* n,
18416 lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
18417#ifdef LAPACK_FORTRAN_STRLEN_END
18418 , size_t
18419#endif
18420);
18421#ifdef LAPACK_FORTRAN_STRLEN_END
18422 #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__, 1)
18423#else
18424 #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__)
18425#endif
18426
18427#define LAPACK_dsytrd_base LAPACK_GLOBAL(dsytrd,DSYTRD)
18428void LAPACK_dsytrd_base(
18429 char const* uplo,
18430 lapack_int const* n,
18431 double* A, lapack_int const* lda,
18432 double* D,
18433 double* E,
18434 double* tau,
18435 double* work, lapack_int const* lwork,
18436 lapack_int* info
18437#ifdef LAPACK_FORTRAN_STRLEN_END
18438 , size_t
18439#endif
18440);
18441#ifdef LAPACK_FORTRAN_STRLEN_END
18442 #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__, 1)
18443#else
18444 #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__)
18445#endif
18446
18447#define LAPACK_ssytrd_base LAPACK_GLOBAL(ssytrd,SSYTRD)
18448void LAPACK_ssytrd_base(
18449 char const* uplo,
18450 lapack_int const* n,
18451 float* A, lapack_int const* lda,
18452 float* D,
18453 float* E,
18454 float* tau,
18455 float* work, lapack_int const* lwork,
18456 lapack_int* info
18457#ifdef LAPACK_FORTRAN_STRLEN_END
18458 , size_t
18459#endif
18460);
18461#ifdef LAPACK_FORTRAN_STRLEN_END
18462 #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__, 1)
18463#else
18464 #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__)
18465#endif
18466
18467#define LAPACK_dsytrd_2stage_base LAPACK_GLOBAL(dsytrd_2stage,DSYTRD_2STAGE)
18468void LAPACK_dsytrd_2stage_base(
18469 char const* vect, char const* uplo,
18470 lapack_int const* n,
18471 double* A, lapack_int const* lda,
18472 double* D,
18473 double* E,
18474 double* tau,
18475 double* HOUS2, lapack_int const* lhous2,
18476 double* work, lapack_int const* lwork,
18477 lapack_int* info
18478#ifdef LAPACK_FORTRAN_STRLEN_END
18479 , size_t, size_t
18480#endif
18481);
18482#ifdef LAPACK_FORTRAN_STRLEN_END
18483 #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__, 1, 1)
18484#else
18485 #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__)
18486#endif
18487
18488#define LAPACK_ssytrd_2stage_base LAPACK_GLOBAL(ssytrd_2stage,SSYTRD_2STAGE)
18489void LAPACK_ssytrd_2stage_base(
18490 char const* vect, char const* uplo,
18491 lapack_int const* n,
18492 float* A, lapack_int const* lda,
18493 float* D,
18494 float* E,
18495 float* tau,
18496 float* HOUS2, lapack_int const* lhous2,
18497 float* work, lapack_int const* lwork,
18498 lapack_int* info
18499#ifdef LAPACK_FORTRAN_STRLEN_END
18500 , size_t, size_t
18501#endif
18502);
18503#ifdef LAPACK_FORTRAN_STRLEN_END
18504 #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__, 1, 1)
18505#else
18506 #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__)
18507#endif
18508
18509#define LAPACK_csytrf_base LAPACK_GLOBAL(csytrf,CSYTRF)
18510void LAPACK_csytrf_base(
18511 char const* uplo,
18512 lapack_int const* n,
18513 lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18514 lapack_complex_float* work, lapack_int const* lwork,
18515 lapack_int* info
18516#ifdef LAPACK_FORTRAN_STRLEN_END
18517 , size_t
18518#endif
18519);
18520#ifdef LAPACK_FORTRAN_STRLEN_END
18521 #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__, 1)
18522#else
18523 #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__)
18524#endif
18525
18526#define LAPACK_dsytrf_base LAPACK_GLOBAL(dsytrf,DSYTRF)
18527void LAPACK_dsytrf_base(
18528 char const* uplo,
18529 lapack_int const* n,
18530 double* A, lapack_int const* lda, lapack_int* ipiv,
18531 double* work, lapack_int const* lwork,
18532 lapack_int* info
18533#ifdef LAPACK_FORTRAN_STRLEN_END
18534 , size_t
18535#endif
18536);
18537#ifdef LAPACK_FORTRAN_STRLEN_END
18538 #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__, 1)
18539#else
18540 #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__)
18541#endif
18542
18543#define LAPACK_ssytrf_base LAPACK_GLOBAL(ssytrf,SSYTRF)
18544void LAPACK_ssytrf_base(
18545 char const* uplo,
18546 lapack_int const* n,
18547 float* A, lapack_int const* lda, lapack_int* ipiv,
18548 float* work, lapack_int const* lwork,
18549 lapack_int* info
18550#ifdef LAPACK_FORTRAN_STRLEN_END
18551 , size_t
18552#endif
18553);
18554#ifdef LAPACK_FORTRAN_STRLEN_END
18555 #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__, 1)
18556#else
18557 #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__)
18558#endif
18559
18560#define LAPACK_zsytrf_base LAPACK_GLOBAL(zsytrf,ZSYTRF)
18561void LAPACK_zsytrf_base(
18562 char const* uplo,
18563 lapack_int const* n,
18564 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18565 lapack_complex_double* work, lapack_int const* lwork,
18566 lapack_int* info
18567#ifdef LAPACK_FORTRAN_STRLEN_END
18568 , size_t
18569#endif
18570);
18571#ifdef LAPACK_FORTRAN_STRLEN_END
18572 #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__, 1)
18573#else
18574 #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__)
18575#endif
18576
18577#define LAPACK_csytrf_aa_base LAPACK_GLOBAL(csytrf_aa,CSYTRF_AA)
18578void LAPACK_csytrf_aa_base(
18579 char const* uplo,
18580 lapack_int const* n,
18581 lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18582 lapack_complex_float* work, lapack_int const* lwork,
18583 lapack_int* info
18584#ifdef LAPACK_FORTRAN_STRLEN_END
18585 , size_t
18586#endif
18587);
18588#ifdef LAPACK_FORTRAN_STRLEN_END
18589 #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__, 1)
18590#else
18591 #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__)
18592#endif
18593
18594#define LAPACK_dsytrf_aa_base LAPACK_GLOBAL(dsytrf_aa,DSYTRF_AA)
18595void LAPACK_dsytrf_aa_base(
18596 char const* uplo,
18597 lapack_int const* n,
18598 double* A, lapack_int const* lda, lapack_int* ipiv,
18599 double* work, lapack_int const* lwork,
18600 lapack_int* info
18601#ifdef LAPACK_FORTRAN_STRLEN_END
18602 , size_t
18603#endif
18604);
18605#ifdef LAPACK_FORTRAN_STRLEN_END
18606 #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__, 1)
18607#else
18608 #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__)
18609#endif
18610
18611#define LAPACK_ssytrf_aa_base LAPACK_GLOBAL(ssytrf_aa,SSYTRF_AA)
18612void LAPACK_ssytrf_aa_base(
18613 char const* uplo,
18614 lapack_int const* n,
18615 float* A, lapack_int const* lda, lapack_int* ipiv,
18616 float* work, lapack_int const* lwork,
18617 lapack_int* info
18618#ifdef LAPACK_FORTRAN_STRLEN_END
18619 , size_t
18620#endif
18621);
18622#ifdef LAPACK_FORTRAN_STRLEN_END
18623 #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__, 1)
18624#else
18625 #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__)
18626#endif
18627
18628#define LAPACK_zsytrf_aa_base LAPACK_GLOBAL(zsytrf_aa,ZSYTRF_AA)
18629void LAPACK_zsytrf_aa_base(
18630 char const* uplo,
18631 lapack_int const* n,
18632 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18633 lapack_complex_double* work, lapack_int const* lwork,
18634 lapack_int* info
18635#ifdef LAPACK_FORTRAN_STRLEN_END
18636 , size_t
18637#endif
18638);
18639#ifdef LAPACK_FORTRAN_STRLEN_END
18640 #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__, 1)
18641#else
18642 #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__)
18643#endif
18644
18645#define LAPACK_csytrf_aa_2stage_base LAPACK_GLOBAL(csytrf_aa_2stage,CSYTRF_AA_2STAGE)
18646void LAPACK_csytrf_aa_2stage_base(
18647 char const* uplo,
18648 lapack_int const* n,
18649 lapack_complex_float* A, lapack_int const* lda,
18650 lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18651 lapack_complex_float* work, lapack_int const* lwork,
18652 lapack_int* info
18653#ifdef LAPACK_FORTRAN_STRLEN_END
18654 , size_t
18655#endif
18656);
18657#ifdef LAPACK_FORTRAN_STRLEN_END
18658 #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__, 1)
18659#else
18660 #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__)
18661#endif
18662
18663#define LAPACK_dsytrf_aa_2stage_base LAPACK_GLOBAL(dsytrf_aa_2stage,DSYTRF_AA_2STAGE)
18664void LAPACK_dsytrf_aa_2stage_base(
18665 char const* uplo,
18666 lapack_int const* n,
18667 double* A, lapack_int const* lda,
18668 double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18669 double* work, lapack_int const* lwork,
18670 lapack_int* info
18671#ifdef LAPACK_FORTRAN_STRLEN_END
18672 , size_t
18673#endif
18674);
18675#ifdef LAPACK_FORTRAN_STRLEN_END
18676 #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__, 1)
18677#else
18678 #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__)
18679#endif
18680
18681#define LAPACK_ssytrf_aa_2stage_base LAPACK_GLOBAL(ssytrf_aa_2stage,SSYTRF_AA_2STAGE)
18682void LAPACK_ssytrf_aa_2stage_base(
18683 char const* uplo,
18684 lapack_int const* n,
18685 float* A, lapack_int const* lda,
18686 float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18687 float* work, lapack_int const* lwork,
18688 lapack_int* info
18689#ifdef LAPACK_FORTRAN_STRLEN_END
18690 , size_t
18691#endif
18692);
18693#ifdef LAPACK_FORTRAN_STRLEN_END
18694 #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__, 1)
18695#else
18696 #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__)
18697#endif
18698
18699#define LAPACK_zsytrf_aa_2stage_base LAPACK_GLOBAL(zsytrf_aa_2stage,ZSYTRF_AA_2STAGE)
18700void LAPACK_zsytrf_aa_2stage_base(
18701 char const* uplo,
18702 lapack_int const* n,
18703 lapack_complex_double* A, lapack_int const* lda,
18704 lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18705 lapack_complex_double* work, lapack_int const* lwork,
18706 lapack_int* info
18707#ifdef LAPACK_FORTRAN_STRLEN_END
18708 , size_t
18709#endif
18710);
18711#ifdef LAPACK_FORTRAN_STRLEN_END
18712 #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__, 1)
18713#else
18714 #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__)
18715#endif
18716
18717#define LAPACK_csytrf_rk_base LAPACK_GLOBAL(csytrf_rk,CSYTRF_RK)
18718void LAPACK_csytrf_rk_base(
18719 char const* uplo,
18720 lapack_int const* n,
18721 lapack_complex_float* A, lapack_int const* lda,
18722 lapack_complex_float* E, lapack_int* ipiv,
18723 lapack_complex_float* work, lapack_int const* lwork,
18724 lapack_int* info
18725#ifdef LAPACK_FORTRAN_STRLEN_END
18726 , size_t
18727#endif
18728);
18729#ifdef LAPACK_FORTRAN_STRLEN_END
18730 #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__, 1)
18731#else
18732 #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__)
18733#endif
18734
18735#define LAPACK_dsytrf_rk_base LAPACK_GLOBAL(dsytrf_rk,DSYTRF_RK)
18736void LAPACK_dsytrf_rk_base(
18737 char const* uplo,
18738 lapack_int const* n,
18739 double* A, lapack_int const* lda,
18740 double* E, lapack_int* ipiv,
18741 double* work, lapack_int const* lwork,
18742 lapack_int* info
18743#ifdef LAPACK_FORTRAN_STRLEN_END
18744 , size_t
18745#endif
18746);
18747#ifdef LAPACK_FORTRAN_STRLEN_END
18748 #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__, 1)
18749#else
18750 #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__)
18751#endif
18752
18753#define LAPACK_ssytrf_rk_base LAPACK_GLOBAL(ssytrf_rk,SSYTRF_RK)
18754void LAPACK_ssytrf_rk_base(
18755 char const* uplo,
18756 lapack_int const* n,
18757 float* A, lapack_int const* lda,
18758 float* E, lapack_int* ipiv,
18759 float* work, lapack_int const* lwork,
18760 lapack_int* info
18761#ifdef LAPACK_FORTRAN_STRLEN_END
18762 , size_t
18763#endif
18764);
18765#ifdef LAPACK_FORTRAN_STRLEN_END
18766 #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__, 1)
18767#else
18768 #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__)
18769#endif
18770
18771#define LAPACK_zsytrf_rk_base LAPACK_GLOBAL(zsytrf_rk,ZSYTRF_RK)
18772void LAPACK_zsytrf_rk_base(
18773 char const* uplo,
18774 lapack_int const* n,
18775 lapack_complex_double* A, lapack_int const* lda,
18776 lapack_complex_double* E, lapack_int* ipiv,
18777 lapack_complex_double* work, lapack_int const* lwork,
18778 lapack_int* info
18779#ifdef LAPACK_FORTRAN_STRLEN_END
18780 , size_t
18781#endif
18782);
18783#ifdef LAPACK_FORTRAN_STRLEN_END
18784 #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__, 1)
18785#else
18786 #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__)
18787#endif
18788
18789#define LAPACK_csytrf_rook_base LAPACK_GLOBAL(csytrf_rook,CSYTRF_ROOK)
18790void LAPACK_csytrf_rook_base(
18791 char const* uplo,
18792 lapack_int const* n,
18793 lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18794 lapack_complex_float* work, lapack_int const* lwork,
18795 lapack_int* info
18796#ifdef LAPACK_FORTRAN_STRLEN_END
18797 , size_t
18798#endif
18799);
18800#ifdef LAPACK_FORTRAN_STRLEN_END
18801 #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__, 1)
18802#else
18803 #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__)
18804#endif
18805
18806#define LAPACK_dsytrf_rook_base LAPACK_GLOBAL(dsytrf_rook,DSYTRF_ROOK)
18807void LAPACK_dsytrf_rook_base(
18808 char const* uplo,
18809 lapack_int const* n,
18810 double* A, lapack_int const* lda, lapack_int* ipiv,
18811 double* work, lapack_int const* lwork,
18812 lapack_int* info
18813#ifdef LAPACK_FORTRAN_STRLEN_END
18814 , size_t
18815#endif
18816);
18817#ifdef LAPACK_FORTRAN_STRLEN_END
18818 #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__, 1)
18819#else
18820 #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__)
18821#endif
18822
18823#define LAPACK_ssytrf_rook_base LAPACK_GLOBAL(ssytrf_rook,SSYTRF_ROOK)
18824void LAPACK_ssytrf_rook_base(
18825 char const* uplo,
18826 lapack_int const* n,
18827 float* A, lapack_int const* lda, lapack_int* ipiv,
18828 float* work, lapack_int const* lwork,
18829 lapack_int* info
18830#ifdef LAPACK_FORTRAN_STRLEN_END
18831 , size_t
18832#endif
18833);
18834#ifdef LAPACK_FORTRAN_STRLEN_END
18835 #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__, 1)
18836#else
18837 #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__)
18838#endif
18839
18840#define LAPACK_zsytrf_rook_base LAPACK_GLOBAL(zsytrf_rook,ZSYTRF_ROOK)
18841void LAPACK_zsytrf_rook_base(
18842 char const* uplo,
18843 lapack_int const* n,
18844 lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18845 lapack_complex_double* work, lapack_int const* lwork,
18846 lapack_int* info
18847#ifdef LAPACK_FORTRAN_STRLEN_END
18848 , size_t
18849#endif
18850);
18851#ifdef LAPACK_FORTRAN_STRLEN_END
18852 #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__, 1)
18853#else
18854 #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__)
18855#endif
18856
18857#define LAPACK_csytri_base LAPACK_GLOBAL(csytri,CSYTRI)
18858void LAPACK_csytri_base(
18859 char const* uplo,
18860 lapack_int const* n,
18861 lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
18862 lapack_complex_float* work,
18863 lapack_int* info
18864#ifdef LAPACK_FORTRAN_STRLEN_END
18865 , size_t
18866#endif
18867);
18868#ifdef LAPACK_FORTRAN_STRLEN_END
18869 #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__, 1)
18870#else
18871 #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__)
18872#endif
18873
18874#define LAPACK_dsytri_base LAPACK_GLOBAL(dsytri,DSYTRI)
18875void LAPACK_dsytri_base(
18876 char const* uplo,
18877 lapack_int const* n,
18878 double* A, lapack_int const* lda, lapack_int const* ipiv,
18879 double* work,
18880 lapack_int* info
18881#ifdef LAPACK_FORTRAN_STRLEN_END
18882 , size_t
18883#endif
18884);
18885#ifdef LAPACK_FORTRAN_STRLEN_END
18886 #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__, 1)
18887#else
18888 #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__)
18889#endif
18890
18891#define LAPACK_ssytri_base LAPACK_GLOBAL(ssytri,SSYTRI)
18892void LAPACK_ssytri_base(
18893 char const* uplo,
18894 lapack_int const* n,
18895 float* A, lapack_int const* lda, lapack_int const* ipiv,
18896 float* work,
18897 lapack_int* info
18898#ifdef LAPACK_FORTRAN_STRLEN_END
18899 , size_t
18900#endif
18901);
18902#ifdef LAPACK_FORTRAN_STRLEN_END
18903 #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__, 1)
18904#else
18905 #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__)
18906#endif
18907
18908#define LAPACK_zsytri_base LAPACK_GLOBAL(zsytri,ZSYTRI)
18909void LAPACK_zsytri_base(
18910 char const* uplo,
18911 lapack_int const* n,
18912 lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
18913 lapack_complex_double* work,
18914 lapack_int* info
18915#ifdef LAPACK_FORTRAN_STRLEN_END
18916 , size_t
18917#endif
18918);
18919#ifdef LAPACK_FORTRAN_STRLEN_END
18920 #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__, 1)
18921#else
18922 #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__)
18923#endif
18924
18925#define LAPACK_csytri2_base LAPACK_GLOBAL(csytri2,CSYTRI2)
18926void LAPACK_csytri2_base(
18927 char const* uplo,
18928 lapack_int const* n,
18929 lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
18930 lapack_complex_float* work, lapack_int const* lwork,
18931 lapack_int* info
18932#ifdef LAPACK_FORTRAN_STRLEN_END
18933 , size_t
18934#endif
18935);
18936#ifdef LAPACK_FORTRAN_STRLEN_END
18937 #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__, 1)
18938#else
18939 #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__)
18940#endif
18941
18942#define LAPACK_dsytri2_base LAPACK_GLOBAL(dsytri2,DSYTRI2)
18943void LAPACK_dsytri2_base(
18944 char const* uplo,
18945 lapack_int const* n,
18946 double* A, lapack_int const* lda, lapack_int const* ipiv,
18947 double* work, lapack_int const* lwork,
18948 lapack_int* info
18949#ifdef LAPACK_FORTRAN_STRLEN_END
18950 , size_t
18951#endif
18952);
18953#ifdef LAPACK_FORTRAN_STRLEN_END
18954 #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__, 1)
18955#else
18956 #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__)
18957#endif
18958
18959#define LAPACK_ssytri2_base LAPACK_GLOBAL(ssytri2,SSYTRI2)
18960void LAPACK_ssytri2_base(
18961 char const* uplo,
18962 lapack_int const* n,
18963 float* A, lapack_int const* lda, lapack_int const* ipiv,
18964 float* work, lapack_int const* lwork,
18965 lapack_int* info
18966#ifdef LAPACK_FORTRAN_STRLEN_END
18967 , size_t
18968#endif
18969);
18970#ifdef LAPACK_FORTRAN_STRLEN_END
18971 #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__, 1)
18972#else
18973 #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__)
18974#endif
18975
18976#define LAPACK_zsytri2_base LAPACK_GLOBAL(zsytri2,ZSYTRI2)
18977void LAPACK_zsytri2_base(
18978 char const* uplo,
18979 lapack_int const* n,
18980 lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
18981 lapack_complex_double* work, lapack_int const* lwork,
18982 lapack_int* info
18983#ifdef LAPACK_FORTRAN_STRLEN_END
18984 , size_t
18985#endif
18986);
18987#ifdef LAPACK_FORTRAN_STRLEN_END
18988 #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__, 1)
18989#else
18990 #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__)
18991#endif
18992
18993#define LAPACK_csytri2x_base LAPACK_GLOBAL(csytri2x,CSYTRI2X)
18994void LAPACK_csytri2x_base(
18995 char const* uplo,
18996 lapack_int const* n,
18997 lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
18998 lapack_complex_float* work, lapack_int const* nb,
18999 lapack_int* info
19000#ifdef LAPACK_FORTRAN_STRLEN_END
19001 , size_t
19002#endif
19003);
19004#ifdef LAPACK_FORTRAN_STRLEN_END
19005 #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__, 1)
19006#else
19007 #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__)
19008#endif
19009
19010#define LAPACK_dsytri2x_base LAPACK_GLOBAL(dsytri2x,DSYTRI2X)
19011void LAPACK_dsytri2x_base(
19012 char const* uplo,
19013 lapack_int const* n,
19014 double* A, lapack_int const* lda, lapack_int const* ipiv,
19015 double* work, lapack_int const* nb,
19016 lapack_int* info
19017#ifdef LAPACK_FORTRAN_STRLEN_END
19018 , size_t
19019#endif
19020);
19021#ifdef LAPACK_FORTRAN_STRLEN_END
19022 #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__, 1)
19023#else
19024 #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__)
19025#endif
19026
19027#define LAPACK_ssytri2x_base LAPACK_GLOBAL(ssytri2x,SSYTRI2X)
19028void LAPACK_ssytri2x_base(
19029 char const* uplo,
19030 lapack_int const* n,
19031 float* A, lapack_int const* lda, lapack_int const* ipiv,
19032 float* work, lapack_int const* nb,
19033 lapack_int* info
19034#ifdef LAPACK_FORTRAN_STRLEN_END
19035 , size_t
19036#endif
19037);
19038#ifdef LAPACK_FORTRAN_STRLEN_END
19039 #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__, 1)
19040#else
19041 #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__)
19042#endif
19043
19044#define LAPACK_zsytri2x_base LAPACK_GLOBAL(zsytri2x,ZSYTRI2X)
19045void LAPACK_zsytri2x_base(
19046 char const* uplo,
19047 lapack_int const* n,
19048 lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
19049 lapack_complex_double* work, lapack_int const* nb,
19050 lapack_int* info
19051#ifdef LAPACK_FORTRAN_STRLEN_END
19052 , size_t
19053#endif
19054);
19055#ifdef LAPACK_FORTRAN_STRLEN_END
19056 #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__, 1)
19057#else
19058 #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__)
19059#endif
19060
19061#define LAPACK_csytri_3_base LAPACK_GLOBAL(csytri_3,CSYTRI_3)
19062void LAPACK_csytri_3_base(
19063 char const* uplo,
19064 lapack_int const* n,
19065 lapack_complex_float* A, lapack_int const* lda,
19066 lapack_complex_float const* E, lapack_int const* ipiv,
19067 lapack_complex_float* work, lapack_int const* lwork,
19068 lapack_int* info
19069#ifdef LAPACK_FORTRAN_STRLEN_END
19070 , size_t
19071#endif
19072);
19073#ifdef LAPACK_FORTRAN_STRLEN_END
19074 #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__, 1)
19075#else
19076 #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__)
19077#endif
19078
19079#define LAPACK_dsytri_3_base LAPACK_GLOBAL(dsytri_3,DSYTRI_3)
19080void LAPACK_dsytri_3_base(
19081 char const* uplo,
19082 lapack_int const* n,
19083 double* A, lapack_int const* lda,
19084 double const* E, lapack_int const* ipiv,
19085 double* work, lapack_int const* lwork,
19086 lapack_int* info
19087#ifdef LAPACK_FORTRAN_STRLEN_END
19088 , size_t
19089#endif
19090);
19091#ifdef LAPACK_FORTRAN_STRLEN_END
19092 #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__, 1)
19093#else
19094 #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__)
19095#endif
19096
19097#define LAPACK_ssytri_3_base LAPACK_GLOBAL(ssytri_3,SSYTRI_3)
19098void LAPACK_ssytri_3_base(
19099 char const* uplo,
19100 lapack_int const* n,
19101 float* A, lapack_int const* lda,
19102 float const* E, lapack_int const* ipiv,
19103 float* work, lapack_int const* lwork,
19104 lapack_int* info
19105#ifdef LAPACK_FORTRAN_STRLEN_END
19106 , size_t
19107#endif
19108);
19109#ifdef LAPACK_FORTRAN_STRLEN_END
19110 #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__, 1)
19111#else
19112 #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__)
19113#endif
19114
19115#define LAPACK_zsytri_3_base LAPACK_GLOBAL(zsytri_3,ZSYTRI_3)
19116void LAPACK_zsytri_3_base(
19117 char const* uplo,
19118 lapack_int const* n,
19119 lapack_complex_double* A, lapack_int const* lda,
19120 lapack_complex_double const* E, lapack_int const* ipiv,
19121 lapack_complex_double* work, lapack_int const* lwork,
19122 lapack_int* info
19123#ifdef LAPACK_FORTRAN_STRLEN_END
19124 , size_t
19125#endif
19126);
19127#ifdef LAPACK_FORTRAN_STRLEN_END
19128 #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__, 1)
19129#else
19130 #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__)
19131#endif
19132
19133#define LAPACK_csytrs_base LAPACK_GLOBAL(csytrs,CSYTRS)
19134void LAPACK_csytrs_base(
19135 char const* uplo,
19136 lapack_int const* n, lapack_int const* nrhs,
19137 lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
19138 lapack_complex_float* B, lapack_int const* ldb,
19139 lapack_int* info
19140#ifdef LAPACK_FORTRAN_STRLEN_END
19141 , size_t
19142#endif
19143);
19144#ifdef LAPACK_FORTRAN_STRLEN_END
19145 #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__, 1)
19146#else
19147 #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__)
19148#endif
19149
19150#define LAPACK_dsytrs_base LAPACK_GLOBAL(dsytrs,DSYTRS)
19151void LAPACK_dsytrs_base(
19152 char const* uplo,
19153 lapack_int const* n, lapack_int const* nrhs,
19154 double const* A, lapack_int const* lda, lapack_int const* ipiv,
19155 double* B, lapack_int const* ldb,
19156 lapack_int* info
19157#ifdef LAPACK_FORTRAN_STRLEN_END
19158 , size_t
19159#endif
19160);
19161#ifdef LAPACK_FORTRAN_STRLEN_END
19162 #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__, 1)
19163#else
19164 #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__)
19165#endif
19166
19167#define LAPACK_ssytrs_base LAPACK_GLOBAL(ssytrs,SSYTRS)
19168void LAPACK_ssytrs_base(
19169 char const* uplo,
19170 lapack_int const* n, lapack_int const* nrhs,
19171 float const* A, lapack_int const* lda, lapack_int const* ipiv,
19172 float* B, lapack_int const* ldb,
19173 lapack_int* info
19174#ifdef LAPACK_FORTRAN_STRLEN_END
19175 , size_t
19176#endif
19177);
19178#ifdef LAPACK_FORTRAN_STRLEN_END
19179 #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__, 1)
19180#else
19181 #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__)
19182#endif
19183
19184#define LAPACK_zsytrs_base LAPACK_GLOBAL(zsytrs,ZSYTRS)
19185void LAPACK_zsytrs_base(
19186 char const* uplo,
19187 lapack_int const* n, lapack_int const* nrhs,
19188 lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
19189 lapack_complex_double* B, lapack_int const* ldb,
19190 lapack_int* info
19191#ifdef LAPACK_FORTRAN_STRLEN_END
19192 , size_t
19193#endif
19194);
19195#ifdef LAPACK_FORTRAN_STRLEN_END
19196 #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__, 1)
19197#else
19198 #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__)
19199#endif
19200
19201#define LAPACK_csytrs2_base LAPACK_GLOBAL(csytrs2,CSYTRS2)
19202void LAPACK_csytrs2_base(
19203 char const* uplo,
19204 lapack_int const* n, lapack_int const* nrhs,
19205 const lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
19206 lapack_complex_float* B, lapack_int const* ldb,
19207 lapack_complex_float* work,
19208 lapack_int* info
19209#ifdef LAPACK_FORTRAN_STRLEN_END
19210 , size_t
19211#endif
19212);
19213#ifdef LAPACK_FORTRAN_STRLEN_END
19214 #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__, 1)
19215#else
19216 #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__)
19217#endif
19218
19219#define LAPACK_dsytrs2_base LAPACK_GLOBAL(dsytrs2,DSYTRS2)
19220void LAPACK_dsytrs2_base(
19221 char const* uplo,
19222 lapack_int const* n, lapack_int const* nrhs,
19223 const double* A, lapack_int const* lda, lapack_int const* ipiv,
19224 double* B, lapack_int const* ldb,
19225 double* work,
19226 lapack_int* info
19227#ifdef LAPACK_FORTRAN_STRLEN_END
19228 , size_t
19229#endif
19230);
19231#ifdef LAPACK_FORTRAN_STRLEN_END
19232 #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__, 1)
19233#else
19234 #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__)
19235#endif
19236
19237#define LAPACK_ssytrs2_base LAPACK_GLOBAL(ssytrs2,SSYTRS2)
19238void LAPACK_ssytrs2_base(
19239 char const* uplo,
19240 lapack_int const* n, lapack_int const* nrhs,
19241 const float* A, lapack_int const* lda, lapack_int const* ipiv,
19242 float* B, lapack_int const* ldb,
19243 float* work,
19244 lapack_int* info
19245#ifdef LAPACK_FORTRAN_STRLEN_END
19246 , size_t
19247#endif
19248);
19249#ifdef LAPACK_FORTRAN_STRLEN_END
19250 #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__, 1)
19251#else
19252 #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__)
19253#endif
19254
19255#define LAPACK_zsytrs2_base LAPACK_GLOBAL(zsytrs2,ZSYTRS2)
19256void LAPACK_zsytrs2_base(
19257 char const* uplo,
19258 lapack_int const* n, lapack_int const* nrhs,
19259 const lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
19260 lapack_complex_double* B, lapack_int const* ldb,
19261 lapack_complex_double* work,
19262 lapack_int* info
19263#ifdef LAPACK_FORTRAN_STRLEN_END
19264 , size_t
19265#endif
19266);
19267#ifdef LAPACK_FORTRAN_STRLEN_END
19268 #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__, 1)
19269#else
19270 #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__)
19271#endif
19272
19273#define LAPACK_csytrs_3_base LAPACK_GLOBAL(csytrs_3,CSYTRS_3)
19274void LAPACK_csytrs_3_base(
19275 char const* uplo,
19276 lapack_int const* n, lapack_int const* nrhs,
19277 lapack_complex_float const* A, lapack_int const* lda,
19278 lapack_complex_float const* E, lapack_int const* ipiv,
19279 lapack_complex_float* B, lapack_int const* ldb,
19280 lapack_int* info
19281#ifdef LAPACK_FORTRAN_STRLEN_END
19282 , size_t
19283#endif
19284);
19285#ifdef LAPACK_FORTRAN_STRLEN_END
19286 #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__, 1)
19287#else
19288 #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__)
19289#endif
19290
19291#define LAPACK_dsytrs_3_base LAPACK_GLOBAL(dsytrs_3,DSYTRS_3)
19292void LAPACK_dsytrs_3_base(
19293 char const* uplo,
19294 lapack_int const* n, lapack_int const* nrhs,
19295 double const* A, lapack_int const* lda,
19296 double const* E, lapack_int const* ipiv,
19297 double* B, lapack_int const* ldb,
19298 lapack_int* info
19299#ifdef LAPACK_FORTRAN_STRLEN_END
19300 , size_t
19301#endif
19302);
19303#ifdef LAPACK_FORTRAN_STRLEN_END
19304 #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__, 1)
19305#else
19306 #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__)
19307#endif
19308
19309#define LAPACK_ssytrs_3_base LAPACK_GLOBAL(ssytrs_3,SSYTRS_3)
19310void LAPACK_ssytrs_3_base(
19311 char const* uplo,
19312 lapack_int const* n, lapack_int const* nrhs,
19313 float const* A, lapack_int const* lda,
19314 float const* E, lapack_int const* ipiv,
19315 float* B, lapack_int const* ldb,
19316 lapack_int* info
19317#ifdef LAPACK_FORTRAN_STRLEN_END
19318 , size_t
19319#endif
19320);
19321#ifdef LAPACK_FORTRAN_STRLEN_END
19322 #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__, 1)
19323#else
19324 #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__)
19325#endif
19326
19327#define LAPACK_zsytrs_3_base LAPACK_GLOBAL(zsytrs_3,ZSYTRS_3)
19328void LAPACK_zsytrs_3_base(
19329 char const* uplo,
19330 lapack_int const* n, lapack_int const* nrhs,
19331 lapack_complex_double const* A, lapack_int const* lda,
19332 lapack_complex_double const* E, lapack_int const* ipiv,
19333 lapack_complex_double* B, lapack_int const* ldb,
19334 lapack_int* info
19335#ifdef LAPACK_FORTRAN_STRLEN_END
19336 , size_t
19337#endif
19338);
19339#ifdef LAPACK_FORTRAN_STRLEN_END
19340 #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__, 1)
19341#else
19342 #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__)
19343#endif
19344
19345#define LAPACK_csytrs_aa_base LAPACK_GLOBAL(csytrs_aa,CSYTRS_AA)
19346void LAPACK_csytrs_aa_base(
19347 char const* uplo,
19348 lapack_int const* n, lapack_int const* nrhs,
19349 lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
19350 lapack_complex_float* B, lapack_int const* ldb,
19351 lapack_complex_float* work, lapack_int const* lwork,
19352 lapack_int* info
19353#ifdef LAPACK_FORTRAN_STRLEN_END
19354 , size_t
19355#endif
19356);
19357#ifdef LAPACK_FORTRAN_STRLEN_END
19358 #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__, 1)
19359#else
19360 #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__)
19361#endif
19362
19363#define LAPACK_dsytrs_aa_base LAPACK_GLOBAL(dsytrs_aa,DSYTRS_AA)
19364void LAPACK_dsytrs_aa_base(
19365 char const* uplo,
19366 lapack_int const* n, lapack_int const* nrhs,
19367 double const* A, lapack_int const* lda, lapack_int const* ipiv,
19368 double* B, lapack_int const* ldb,
19369 double* work, lapack_int const* lwork,
19370 lapack_int* info
19371#ifdef LAPACK_FORTRAN_STRLEN_END
19372 , size_t
19373#endif
19374);
19375#ifdef LAPACK_FORTRAN_STRLEN_END
19376 #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__, 1)
19377#else
19378 #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__)
19379#endif
19380
19381#define LAPACK_ssytrs_aa_base LAPACK_GLOBAL(ssytrs_aa,SSYTRS_AA)
19382void LAPACK_ssytrs_aa_base(
19383 char const* uplo,
19384 lapack_int const* n, lapack_int const* nrhs,
19385 float const* A, lapack_int const* lda, lapack_int const* ipiv,
19386 float* B, lapack_int const* ldb,
19387 float* work, lapack_int const* lwork,
19388 lapack_int* info
19389#ifdef LAPACK_FORTRAN_STRLEN_END
19390 , size_t
19391#endif
19392);
19393#ifdef LAPACK_FORTRAN_STRLEN_END
19394 #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__, 1)
19395#else
19396 #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__)
19397#endif
19398
19399#define LAPACK_zsytrs_aa_base LAPACK_GLOBAL(zsytrs_aa,ZSYTRS_AA)
19400void LAPACK_zsytrs_aa_base(
19401 char const* uplo,
19402 lapack_int const* n, lapack_int const* nrhs,
19403 lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
19404 lapack_complex_double* B, lapack_int const* ldb,
19405 lapack_complex_double* work, lapack_int const* lwork,
19406 lapack_int* info
19407#ifdef LAPACK_FORTRAN_STRLEN_END
19408 , size_t
19409#endif
19410);
19411#ifdef LAPACK_FORTRAN_STRLEN_END
19412 #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__, 1)
19413#else
19414 #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__)
19415#endif
19416
19417#define LAPACK_csytrs_aa_2stage_base LAPACK_GLOBAL(csytrs_aa_2stage,CSYTRS_AA_2STAGE)
19418void LAPACK_csytrs_aa_2stage_base(
19419 char const* uplo,
19420 lapack_int const* n, lapack_int const* nrhs,
19421 lapack_complex_float const* A, lapack_int const* lda,
19422 lapack_complex_float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
19423 lapack_complex_float* B, lapack_int const* ldb,
19424 lapack_int* info
19425#ifdef LAPACK_FORTRAN_STRLEN_END
19426 , size_t
19427#endif
19428);
19429#ifdef LAPACK_FORTRAN_STRLEN_END
19430 #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__, 1)
19431#else
19432 #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__)
19433#endif
19434
19435#define LAPACK_dsytrs_aa_2stage_base LAPACK_GLOBAL(dsytrs_aa_2stage,DSYTRS_AA_2STAGE)
19436void LAPACK_dsytrs_aa_2stage_base(
19437 char const* uplo,
19438 lapack_int const* n, lapack_int const* nrhs,
19439 double const* A, lapack_int const* lda,
19440 double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
19441 double* B, lapack_int const* ldb,
19442 lapack_int* info
19443#ifdef LAPACK_FORTRAN_STRLEN_END
19444 , size_t
19445#endif
19446);
19447#ifdef LAPACK_FORTRAN_STRLEN_END
19448 #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__, 1)
19449#else
19450 #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__)
19451#endif
19452
19453#define LAPACK_ssytrs_aa_2stage_base LAPACK_GLOBAL(ssytrs_aa_2stage,SSYTRS_AA_2STAGE)
19454void LAPACK_ssytrs_aa_2stage_base(
19455 char const* uplo,
19456 lapack_int const* n, lapack_int const* nrhs,
19457 float const* A, lapack_int const* lda,
19458 float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
19459 float* B, lapack_int const* ldb,
19460 lapack_int* info
19461#ifdef LAPACK_FORTRAN_STRLEN_END
19462 , size_t
19463#endif
19464);
19465#ifdef LAPACK_FORTRAN_STRLEN_END
19466 #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__, 1)
19467#else
19468 #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__)
19469#endif
19470
19471#define LAPACK_zsytrs_aa_2stage_base LAPACK_GLOBAL(zsytrs_aa_2stage,ZSYTRS_AA_2STAGE)
19472void LAPACK_zsytrs_aa_2stage_base(
19473 char const* uplo,
19474 lapack_int const* n, lapack_int const* nrhs,
19475 lapack_complex_double const* A, lapack_int const* lda,
19476 lapack_complex_double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
19477 lapack_complex_double* B, lapack_int const* ldb,
19478 lapack_int* info
19479#ifdef LAPACK_FORTRAN_STRLEN_END
19480 , size_t
19481#endif
19482);
19483#ifdef LAPACK_FORTRAN_STRLEN_END
19484 #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__, 1)
19485#else
19486 #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__)
19487#endif
19488
19489#define LAPACK_csytrs_rook_base LAPACK_GLOBAL(csytrs_rook,CSYTRS_ROOK)
19490void LAPACK_csytrs_rook_base(
19491 char const* uplo,
19492 lapack_int const* n, lapack_int const* nrhs,
19493 lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
19494 lapack_complex_float* B, lapack_int const* ldb,
19495 lapack_int* info
19496#ifdef LAPACK_FORTRAN_STRLEN_END
19497 , size_t
19498#endif
19499);
19500#ifdef LAPACK_FORTRAN_STRLEN_END
19501 #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__, 1)
19502#else
19503 #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__)
19504#endif
19505
19506#define LAPACK_dsytrs_rook_base LAPACK_GLOBAL(dsytrs_rook,DSYTRS_ROOK)
19507void LAPACK_dsytrs_rook_base(
19508 char const* uplo,
19509 lapack_int const* n, lapack_int const* nrhs,
19510 double const* A, lapack_int const* lda, lapack_int const* ipiv,
19511 double* B, lapack_int const* ldb,
19512 lapack_int* info
19513#ifdef LAPACK_FORTRAN_STRLEN_END
19514 , size_t
19515#endif
19516);
19517#ifdef LAPACK_FORTRAN_STRLEN_END
19518 #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__, 1)
19519#else
19520 #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__)
19521#endif
19522
19523#define LAPACK_ssytrs_rook_base LAPACK_GLOBAL(ssytrs_rook,SSYTRS_ROOK)
19524void LAPACK_ssytrs_rook_base(
19525 char const* uplo,
19526 lapack_int const* n, lapack_int const* nrhs,
19527 float const* A, lapack_int const* lda, lapack_int const* ipiv,
19528 float* B, lapack_int const* ldb,
19529 lapack_int* info
19530#ifdef LAPACK_FORTRAN_STRLEN_END
19531 , size_t
19532#endif
19533);
19534#ifdef LAPACK_FORTRAN_STRLEN_END
19535 #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__, 1)
19536#else
19537 #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__)
19538#endif
19539
19540#define LAPACK_zsytrs_rook_base LAPACK_GLOBAL(zsytrs_rook,ZSYTRS_ROOK)
19541void LAPACK_zsytrs_rook_base(
19542 char const* uplo,
19543 lapack_int const* n, lapack_int const* nrhs,
19544 lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
19545 lapack_complex_double* B, lapack_int const* ldb,
19546 lapack_int* info
19547#ifdef LAPACK_FORTRAN_STRLEN_END
19548 , size_t
19549#endif
19550);
19551#ifdef LAPACK_FORTRAN_STRLEN_END
19552 #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__, 1)
19553#else
19554 #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__)
19555#endif
19556
19557#define LAPACK_ctbcon_base LAPACK_GLOBAL(ctbcon,CTBCON)
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,
19562 float* rcond,
19563 lapack_complex_float* work,
19564 float* rwork,
19565 lapack_int* info
19566#ifdef LAPACK_FORTRAN_STRLEN_END
19567 , size_t, size_t, size_t
19568#endif
19569);
19570#ifdef LAPACK_FORTRAN_STRLEN_END
19571 #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__, 1, 1, 1)
19572#else
19573 #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__)
19574#endif
19575
19576#define LAPACK_dtbcon_base LAPACK_GLOBAL(dtbcon,DTBCON)
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,
19581 double* rcond,
19582 double* work,
19583 lapack_int* iwork,
19584 lapack_int* info
19585#ifdef LAPACK_FORTRAN_STRLEN_END
19586 , size_t, size_t, size_t
19587#endif
19588);
19589#ifdef LAPACK_FORTRAN_STRLEN_END
19590 #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__, 1, 1, 1)
19591#else
19592 #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__)
19593#endif
19594
19595#define LAPACK_stbcon_base LAPACK_GLOBAL(stbcon,STBCON)
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,
19600 float* rcond,
19601 float* work,
19602 lapack_int* iwork,
19603 lapack_int* info
19604#ifdef LAPACK_FORTRAN_STRLEN_END
19605 , size_t, size_t, size_t
19606#endif
19607);
19608#ifdef LAPACK_FORTRAN_STRLEN_END
19609 #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__, 1, 1, 1)
19610#else
19611 #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__)
19612#endif
19613
19614#define LAPACK_ztbcon_base LAPACK_GLOBAL(ztbcon,ZTBCON)
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,
19619 double* rcond,
19620 lapack_complex_double* work,
19621 double* rwork,
19622 lapack_int* info
19623#ifdef LAPACK_FORTRAN_STRLEN_END
19624 , size_t, size_t, size_t
19625#endif
19626);
19627#ifdef LAPACK_FORTRAN_STRLEN_END
19628 #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__, 1, 1, 1)
19629#else
19630 #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__)
19631#endif
19632
19633#define LAPACK_ctbrfs_base LAPACK_GLOBAL(ctbrfs,CTBRFS)
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,
19640 float* ferr,
19641 float* berr,
19642 lapack_complex_float* work,
19643 float* rwork,
19644 lapack_int* info
19645#ifdef LAPACK_FORTRAN_STRLEN_END
19646 , size_t, size_t, size_t
19647#endif
19648);
19649#ifdef LAPACK_FORTRAN_STRLEN_END
19650 #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__, 1, 1, 1)
19651#else
19652 #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__)
19653#endif
19654
19655#define LAPACK_dtbrfs_base LAPACK_GLOBAL(dtbrfs,DTBRFS)
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,
19662 double* ferr,
19663 double* berr,
19664 double* work,
19665 lapack_int* iwork,
19666 lapack_int* info
19667#ifdef LAPACK_FORTRAN_STRLEN_END
19668 , size_t, size_t, size_t
19669#endif
19670);
19671#ifdef LAPACK_FORTRAN_STRLEN_END
19672 #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__, 1, 1, 1)
19673#else
19674 #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__)
19675#endif
19676
19677#define LAPACK_stbrfs_base LAPACK_GLOBAL(stbrfs,STBRFS)
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,
19684 float* ferr,
19685 float* berr,
19686 float* work,
19687 lapack_int* iwork,
19688 lapack_int* info
19689#ifdef LAPACK_FORTRAN_STRLEN_END
19690 , size_t, size_t, size_t
19691#endif
19692);
19693#ifdef LAPACK_FORTRAN_STRLEN_END
19694 #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__, 1, 1, 1)
19695#else
19696 #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__)
19697#endif
19698
19699#define LAPACK_ztbrfs_base LAPACK_GLOBAL(ztbrfs,ZTBRFS)
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,
19706 double* ferr,
19707 double* berr,
19708 lapack_complex_double* work,
19709 double* rwork,
19710 lapack_int* info
19711#ifdef LAPACK_FORTRAN_STRLEN_END
19712 , size_t, size_t, size_t
19713#endif
19714);
19715#ifdef LAPACK_FORTRAN_STRLEN_END
19716 #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__, 1, 1, 1)
19717#else
19718 #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__)
19719#endif
19720
19721#define LAPACK_ctbtrs_base LAPACK_GLOBAL(ctbtrs,CTBTRS)
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,
19727 lapack_int* info
19728#ifdef LAPACK_FORTRAN_STRLEN_END
19729 , size_t, size_t, size_t
19730#endif
19731);
19732#ifdef LAPACK_FORTRAN_STRLEN_END
19733 #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__, 1, 1, 1)
19734#else
19735 #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__)
19736#endif
19737
19738#define LAPACK_dtbtrs_base LAPACK_GLOBAL(dtbtrs,DTBTRS)
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,
19744 lapack_int* info
19745#ifdef LAPACK_FORTRAN_STRLEN_END
19746 , size_t, size_t, size_t
19747#endif
19748);
19749#ifdef LAPACK_FORTRAN_STRLEN_END
19750 #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__, 1, 1, 1)
19751#else
19752 #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__)
19753#endif
19754
19755#define LAPACK_stbtrs_base LAPACK_GLOBAL(stbtrs,STBTRS)
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,
19761 lapack_int* info
19762#ifdef LAPACK_FORTRAN_STRLEN_END
19763 , size_t, size_t, size_t
19764#endif
19765);
19766#ifdef LAPACK_FORTRAN_STRLEN_END
19767 #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__, 1, 1, 1)
19768#else
19769 #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__)
19770#endif
19771
19772#define LAPACK_ztbtrs_base LAPACK_GLOBAL(ztbtrs,ZTBTRS)
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,
19778 lapack_int* info
19779#ifdef LAPACK_FORTRAN_STRLEN_END
19780 , size_t, size_t, size_t
19781#endif
19782);
19783#ifdef LAPACK_FORTRAN_STRLEN_END
19784 #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__, 1, 1, 1)
19785#else
19786 #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__)
19787#endif
19788
19789#define LAPACK_ctfsm_base LAPACK_GLOBAL(ctfsm,CTFSM)
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
19798#endif
19799);
19800#ifdef LAPACK_FORTRAN_STRLEN_END
19801 #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19802#else
19803 #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__)
19804#endif
19805
19806#define LAPACK_dtfsm_base LAPACK_GLOBAL(dtfsm,DTFSM)
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,
19811 double const* A,
19812 double* B, lapack_int const* ldb
19813#ifdef LAPACK_FORTRAN_STRLEN_END
19814 , size_t, size_t, size_t, size_t, size_t
19815#endif
19816);
19817#ifdef LAPACK_FORTRAN_STRLEN_END
19818 #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19819#else
19820 #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__)
19821#endif
19822
19823#define LAPACK_stfsm_base LAPACK_GLOBAL(stfsm,STFSM)
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,
19828 float const* A,
19829 float* B, lapack_int const* ldb
19830#ifdef LAPACK_FORTRAN_STRLEN_END
19831 , size_t, size_t, size_t, size_t, size_t
19832#endif
19833);
19834#ifdef LAPACK_FORTRAN_STRLEN_END
19835 #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19836#else
19837 #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__)
19838#endif
19839
19840#define LAPACK_ztfsm_base LAPACK_GLOBAL(ztfsm,ZTFSM)
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
19849#endif
19850);
19851#ifdef LAPACK_FORTRAN_STRLEN_END
19852 #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19853#else
19854 #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__)
19855#endif
19856
19857#define LAPACK_ctftri_base LAPACK_GLOBAL(ctftri,CTFTRI)
19858void LAPACK_ctftri_base(
19859 char const* transr, char const* uplo, char const* diag,
19860 lapack_int const* n,
19861 lapack_complex_float* A,
19862 lapack_int* info
19863#ifdef LAPACK_FORTRAN_STRLEN_END
19864 , size_t, size_t, size_t
19865#endif
19866);
19867#ifdef LAPACK_FORTRAN_STRLEN_END
19868 #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__, 1, 1, 1)
19869#else
19870 #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__)
19871#endif
19872
19873#define LAPACK_dtftri_base LAPACK_GLOBAL(dtftri,DTFTRI)
19874void LAPACK_dtftri_base(
19875 char const* transr, char const* uplo, char const* diag,
19876 lapack_int const* n,
19877 double* A,
19878 lapack_int* info
19879#ifdef LAPACK_FORTRAN_STRLEN_END
19880 , size_t, size_t, size_t
19881#endif
19882);
19883#ifdef LAPACK_FORTRAN_STRLEN_END
19884 #define LAPACK_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__, 1, 1, 1)
19885#else
19886 #define LAPACK_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__)
19887#endif
19888
19889#define LAPACK_stftri_base LAPACK_GLOBAL(stftri,STFTRI)
19890void LAPACK_stftri_base(
19891 char const* transr, char const* uplo, char const* diag,
19892 lapack_int const* n,
19893 float* A,
19894 lapack_int* info
19895#ifdef LAPACK_FORTRAN_STRLEN_END
19896 , size_t, size_t, size_t
19897#endif
19898);
19899#ifdef LAPACK_FORTRAN_STRLEN_END
19900 #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__, 1, 1, 1)
19901#else
19902 #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__)
19903#endif
19904
19905#define LAPACK_ztftri_base LAPACK_GLOBAL(ztftri,ZTFTRI)
19906void LAPACK_ztftri_base(
19907 char const* transr, char const* uplo, char const* diag,
19908 lapack_int const* n,
19909 lapack_complex_double* A,
19910 lapack_int* info
19911#ifdef LAPACK_FORTRAN_STRLEN_END
19912 , size_t, size_t, size_t
19913#endif
19914);
19915#ifdef LAPACK_FORTRAN_STRLEN_END
19916 #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__, 1, 1, 1)
19917#else
19918 #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__)
19919#endif
19920
19921#define LAPACK_ctfttp_base LAPACK_GLOBAL(ctfttp,CTFTTP)
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,
19927 lapack_int* info
19928#ifdef LAPACK_FORTRAN_STRLEN_END
19929 , size_t, size_t
19930#endif
19931);
19932#ifdef LAPACK_FORTRAN_STRLEN_END
19933 #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__, 1, 1)
19934#else
19935 #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__)
19936#endif
19937
19938#define LAPACK_dtfttp_base LAPACK_GLOBAL(dtfttp,DTFTTP)
19939void LAPACK_dtfttp_base(
19940 char const* transr, char const* uplo,
19941 lapack_int const* n,
19942 double const* ARF,
19943 double* AP,
19944 lapack_int* info
19945#ifdef LAPACK_FORTRAN_STRLEN_END
19946 , size_t, size_t
19947#endif
19948);
19949#ifdef LAPACK_FORTRAN_STRLEN_END
19950 #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__, 1, 1)
19951#else
19952 #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__)
19953#endif
19954
19955#define LAPACK_stfttp_base LAPACK_GLOBAL(stfttp,STFTTP)
19956void LAPACK_stfttp_base(
19957 char const* transr, char const* uplo,
19958 lapack_int const* n,
19959 float const* ARF,
19960 float* AP,
19961 lapack_int* info
19962#ifdef LAPACK_FORTRAN_STRLEN_END
19963 , size_t, size_t
19964#endif
19965);
19966#ifdef LAPACK_FORTRAN_STRLEN_END
19967 #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__, 1, 1)
19968#else
19969 #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__)
19970#endif
19971
19972#define LAPACK_ztfttp_base LAPACK_GLOBAL(ztfttp,ZTFTTP)
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,
19978 lapack_int* info
19979#ifdef LAPACK_FORTRAN_STRLEN_END
19980 , size_t, size_t
19981#endif
19982);
19983#ifdef LAPACK_FORTRAN_STRLEN_END
19984 #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__, 1, 1)
19985#else
19986 #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__)
19987#endif
19988
19989#define LAPACK_ctfttr_base LAPACK_GLOBAL(ctfttr,CTFTTR)
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,
19995 lapack_int* info
19996#ifdef LAPACK_FORTRAN_STRLEN_END
19997 , size_t, size_t
19998#endif
19999);
20000#ifdef LAPACK_FORTRAN_STRLEN_END
20001 #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__, 1, 1)
20002#else
20003 #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__)
20004#endif
20005
20006#define LAPACK_dtfttr_base LAPACK_GLOBAL(dtfttr,DTFTTR)
20007void LAPACK_dtfttr_base(
20008 char const* transr, char const* uplo,
20009 lapack_int const* n,
20010 double const* ARF,
20011 double* A, lapack_int const* lda,
20012 lapack_int* info
20013#ifdef LAPACK_FORTRAN_STRLEN_END
20014 , size_t, size_t
20015#endif
20016);
20017#ifdef LAPACK_FORTRAN_STRLEN_END
20018 #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__, 1, 1)
20019#else
20020 #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__)
20021#endif
20022
20023#define LAPACK_stfttr_base LAPACK_GLOBAL(stfttr,STFTTR)
20024void LAPACK_stfttr_base(
20025 char const* transr, char const* uplo,
20026 lapack_int const* n,
20027 float const* ARF,
20028 float* A, lapack_int const* lda,
20029 lapack_int* info
20030#ifdef LAPACK_FORTRAN_STRLEN_END
20031 , size_t, size_t
20032#endif
20033);
20034#ifdef LAPACK_FORTRAN_STRLEN_END
20035 #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__, 1, 1)
20036#else
20037 #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__)
20038#endif
20039
20040#define LAPACK_ztfttr_base LAPACK_GLOBAL(ztfttr,ZTFTTR)
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,
20046 lapack_int* info
20047#ifdef LAPACK_FORTRAN_STRLEN_END
20048 , size_t, size_t
20049#endif
20050);
20051#ifdef LAPACK_FORTRAN_STRLEN_END
20052 #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__, 1, 1)
20053#else
20054 #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__)
20055#endif
20056
20057#define LAPACK_ctgevc_base LAPACK_GLOBAL(ctgevc,CTGEVC)
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,
20067 float* rwork,
20068 lapack_int* info
20069#ifdef LAPACK_FORTRAN_STRLEN_END
20070 , size_t, size_t
20071#endif
20072);
20073#ifdef LAPACK_FORTRAN_STRLEN_END
20074 #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__, 1, 1)
20075#else
20076 #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__)
20077#endif
20078
20079#define LAPACK_dtgevc_base LAPACK_GLOBAL(dtgevc,DTGEVC)
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,
20088 double* work,
20089 lapack_int* info
20090#ifdef LAPACK_FORTRAN_STRLEN_END
20091 , size_t, size_t
20092#endif
20093);
20094#ifdef LAPACK_FORTRAN_STRLEN_END
20095 #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__, 1, 1)
20096#else
20097 #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__)
20098#endif
20099
20100#define LAPACK_stgevc_base LAPACK_GLOBAL(stgevc,STGEVC)
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,
20109 float* work,
20110 lapack_int* info
20111#ifdef LAPACK_FORTRAN_STRLEN_END
20112 , size_t, size_t
20113#endif
20114);
20115#ifdef LAPACK_FORTRAN_STRLEN_END
20116 #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__, 1, 1)
20117#else
20118 #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__)
20119#endif
20120
20121#define LAPACK_ztgevc_base LAPACK_GLOBAL(ztgevc,ZTGEVC)
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,
20131 double* rwork,
20132 lapack_int* info
20133#ifdef LAPACK_FORTRAN_STRLEN_END
20134 , size_t, size_t
20135#endif
20136);
20137#ifdef LAPACK_FORTRAN_STRLEN_END
20138 #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__, 1, 1)
20139#else
20140 #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__)
20141#endif
20142
20143#define LAPACK_ctgexc LAPACK_GLOBAL(ctgexc,CTGEXC)
20144void LAPACK_ctgexc(
20145 lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n,
20146 lapack_complex_float* A, lapack_int const* lda,
20147 lapack_complex_float* B, lapack_int const* ldb,
20148 lapack_complex_float* Q, lapack_int const* ldq,
20149 lapack_complex_float* Z, lapack_int const* ldz, lapack_int const* ifst, lapack_int* ilst,
20150 lapack_int* info );
20151
20152#define LAPACK_dtgexc LAPACK_GLOBAL(dtgexc,DTGEXC)
20153void LAPACK_dtgexc(
20154 lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n,
20155 double* A, lapack_int const* lda,
20156 double* B, lapack_int const* ldb,
20157 double* Q, lapack_int const* ldq,
20158 double* Z, lapack_int const* ldz, lapack_int* ifst, lapack_int* ilst,
20159 double* work, lapack_int const* lwork,
20160 lapack_int* info );
20161
20162#define LAPACK_stgexc LAPACK_GLOBAL(stgexc,STGEXC)
20163void LAPACK_stgexc(
20164 lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n,
20165 float* A, lapack_int const* lda,
20166 float* B, lapack_int const* ldb,
20167 float* Q, lapack_int const* ldq,
20168 float* Z, lapack_int const* ldz, lapack_int* ifst, lapack_int* ilst,
20169 float* work, lapack_int const* lwork,
20170 lapack_int* info );
20171
20172#define LAPACK_ztgexc LAPACK_GLOBAL(ztgexc,ZTGEXC)
20173void LAPACK_ztgexc(
20174 lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n,
20175 lapack_complex_double* A, lapack_int const* lda,
20176 lapack_complex_double* B, lapack_int const* ldb,
20177 lapack_complex_double* Q, lapack_int const* ldq,
20178 lapack_complex_double* Z, lapack_int const* ldz, lapack_int const* ifst, lapack_int* ilst,
20179 lapack_int* info );
20180
20181#define LAPACK_ctgsen LAPACK_GLOBAL(ctgsen,CTGSEN)
20182void LAPACK_ctgsen(
20183 lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n,
20184 lapack_complex_float* A, lapack_int const* lda,
20185 lapack_complex_float* B, lapack_int const* ldb,
20186 lapack_complex_float* alpha,
20187 lapack_complex_float* beta,
20188 lapack_complex_float* Q, lapack_int const* ldq,
20189 lapack_complex_float* Z, lapack_int const* ldz, lapack_int* m,
20190 float* pl,
20191 float* pr,
20192 float* DIF,
20193 lapack_complex_float* work, lapack_int const* lwork,
20194 lapack_int* iwork, lapack_int const* liwork,
20195 lapack_int* info );
20196
20197#define LAPACK_dtgsen LAPACK_GLOBAL(dtgsen,DTGSEN)
20198void LAPACK_dtgsen(
20199 lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n,
20200 double* A, lapack_int const* lda,
20201 double* B, lapack_int const* ldb,
20202 double* alphar,
20203 double* alphai,
20204 double* beta,
20205 double* Q, lapack_int const* ldq,
20206 double* Z, lapack_int const* ldz, lapack_int* m,
20207 double* pl,
20208 double* pr,
20209 double* DIF,
20210 double* work, lapack_int const* lwork,
20211 lapack_int* iwork, lapack_int const* liwork,
20212 lapack_int* info );
20213
20214#define LAPACK_stgsen LAPACK_GLOBAL(stgsen,STGSEN)
20215void LAPACK_stgsen(
20216 lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n,
20217 float* A, lapack_int const* lda,
20218 float* B, lapack_int const* ldb,
20219 float* alphar,
20220 float* alphai,
20221 float* beta,
20222 float* Q, lapack_int const* ldq,
20223 float* Z, lapack_int const* ldz, lapack_int* m,
20224 float* pl,
20225 float* pr,
20226 float* DIF,
20227 float* work, lapack_int const* lwork,
20228 lapack_int* iwork, lapack_int const* liwork,
20229 lapack_int* info );
20230
20231#define LAPACK_ztgsen LAPACK_GLOBAL(ztgsen,ZTGSEN)
20232void LAPACK_ztgsen(
20233 lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n,
20234 lapack_complex_double* A, lapack_int const* lda,
20235 lapack_complex_double* B, lapack_int const* ldb,
20236 lapack_complex_double* alpha,
20237 lapack_complex_double* beta,
20238 lapack_complex_double* Q, lapack_int const* ldq,
20239 lapack_complex_double* Z, lapack_int const* ldz, lapack_int* m,
20240 double* pl,
20241 double* pr,
20242 double* DIF,
20243 lapack_complex_double* work, lapack_int const* lwork,
20244 lapack_int* iwork, lapack_int const* liwork,
20245 lapack_int* info );
20246
20247#define LAPACK_ctgsja_base LAPACK_GLOBAL(ctgsja,CTGSJA)
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,
20253 float const* tola,
20254 float const* tolb,
20255 float* alpha,
20256 float* beta,
20257 lapack_complex_float* U, lapack_int const* ldu,
20258 lapack_complex_float* V, lapack_int const* ldv,
20259 lapack_complex_float* Q, lapack_int const* ldq,
20260 lapack_complex_float* work, lapack_int* ncycle,
20261 lapack_int* info
20262#ifdef LAPACK_FORTRAN_STRLEN_END
20263 , size_t, size_t, size_t
20264#endif
20265);
20266#ifdef LAPACK_FORTRAN_STRLEN_END
20267 #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__, 1, 1, 1)
20268#else
20269 #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__)
20270#endif
20271
20272#define LAPACK_dtgsja_base LAPACK_GLOBAL(dtgsja,DTGSJA)
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,
20280 double* alpha,
20281 double* beta,
20282 double* U, lapack_int const* ldu,
20283 double* V, lapack_int const* ldv,
20284 double* Q, lapack_int const* ldq,
20285 double* work, lapack_int* ncycle,
20286 lapack_int* info
20287#ifdef LAPACK_FORTRAN_STRLEN_END
20288 , size_t, size_t, size_t
20289#endif
20290);
20291#ifdef LAPACK_FORTRAN_STRLEN_END
20292 #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__, 1, 1, 1)
20293#else
20294 #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__)
20295#endif
20296
20297#define LAPACK_stgsja_base LAPACK_GLOBAL(stgsja,STGSJA)
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,
20303 float const* tola,
20304 float const* tolb,
20305 float* alpha,
20306 float* beta,
20307 float* U, lapack_int const* ldu,
20308 float* V, lapack_int const* ldv,
20309 float* Q, lapack_int const* ldq,
20310 float* work, lapack_int* ncycle,
20311 lapack_int* info
20312#ifdef LAPACK_FORTRAN_STRLEN_END
20313 , size_t, size_t, size_t
20314#endif
20315);
20316#ifdef LAPACK_FORTRAN_STRLEN_END
20317 #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__, 1, 1, 1)
20318#else
20319 #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__)
20320#endif
20321
20322#define LAPACK_ztgsja_base LAPACK_GLOBAL(ztgsja,ZTGSJA)
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,
20330 double* alpha,
20331 double* beta,
20332 lapack_complex_double* U, lapack_int const* ldu,
20333 lapack_complex_double* V, lapack_int const* ldv,
20334 lapack_complex_double* Q, lapack_int const* ldq,
20335 lapack_complex_double* work, lapack_int* ncycle,
20336 lapack_int* info
20337#ifdef LAPACK_FORTRAN_STRLEN_END
20338 , size_t, size_t, size_t
20339#endif
20340);
20341#ifdef LAPACK_FORTRAN_STRLEN_END
20342 #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__, 1, 1, 1)
20343#else
20344 #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__)
20345#endif
20346
20347#define LAPACK_ctgsna_base LAPACK_GLOBAL(ctgsna,CTGSNA)
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,
20356 float* S,
20357 float* DIF, lapack_int const* mm, lapack_int* m,
20358 lapack_complex_float* work, lapack_int const* lwork,
20359 lapack_int* iwork,
20360 lapack_int* info
20361#ifdef LAPACK_FORTRAN_STRLEN_END
20362 , size_t, size_t
20363#endif
20364);
20365#ifdef LAPACK_FORTRAN_STRLEN_END
20366 #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__, 1, 1)
20367#else
20368 #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__)
20369#endif
20370
20371#define LAPACK_dtgsna_base LAPACK_GLOBAL(dtgsna,DTGSNA)
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,
20380 double* S,
20381 double* DIF, lapack_int const* mm, lapack_int* m,
20382 double* work, lapack_int const* lwork,
20383 lapack_int* iwork,
20384 lapack_int* info
20385#ifdef LAPACK_FORTRAN_STRLEN_END
20386 , size_t, size_t
20387#endif
20388);
20389#ifdef LAPACK_FORTRAN_STRLEN_END
20390 #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__, 1, 1)
20391#else
20392 #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__)
20393#endif
20394
20395#define LAPACK_stgsna_base LAPACK_GLOBAL(stgsna,STGSNA)
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,
20404 float* S,
20405 float* DIF, lapack_int const* mm, lapack_int* m,
20406 float* work, lapack_int const* lwork,
20407 lapack_int* iwork,
20408 lapack_int* info
20409#ifdef LAPACK_FORTRAN_STRLEN_END
20410 , size_t, size_t
20411#endif
20412);
20413#ifdef LAPACK_FORTRAN_STRLEN_END
20414 #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__, 1, 1)
20415#else
20416 #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__)
20417#endif
20418
20419#define LAPACK_ztgsna_base LAPACK_GLOBAL(ztgsna,ZTGSNA)
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,
20428 double* S,
20429 double* DIF, lapack_int const* mm, lapack_int* m,
20430 lapack_complex_double* work, lapack_int const* lwork,
20431 lapack_int* iwork,
20432 lapack_int* info
20433#ifdef LAPACK_FORTRAN_STRLEN_END
20434 , size_t, size_t
20435#endif
20436);
20437#ifdef LAPACK_FORTRAN_STRLEN_END
20438 #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__, 1, 1)
20439#else
20440 #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__)
20441#endif
20442
20443#define LAPACK_ctgsyl_base LAPACK_GLOBAL(ctgsyl,CTGSYL)
20444void LAPACK_ctgsyl_base(
20445 char const* trans,
20446 lapack_int const* ijob, lapack_int const* m, lapack_int const* n,
20447 lapack_complex_float const* A, lapack_int const* lda,
20448 lapack_complex_float const* B, lapack_int const* ldb,
20449 lapack_complex_float* C, lapack_int const* ldc,
20450 lapack_complex_float const* D, lapack_int const* ldd,
20451 lapack_complex_float const* E, lapack_int const* lde,
20452 lapack_complex_float* F, lapack_int const* ldf,
20453 float* dif,
20454 float* scale,
20455 lapack_complex_float* work, lapack_int const* lwork,
20456 lapack_int* iwork,
20457 lapack_int* info
20458#ifdef LAPACK_FORTRAN_STRLEN_END
20459 , size_t
20460#endif
20461);
20462#ifdef LAPACK_FORTRAN_STRLEN_END
20463 #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__, 1)
20464#else
20465 #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__)
20466#endif
20467
20468#define LAPACK_dtgsyl_base LAPACK_GLOBAL(dtgsyl,DTGSYL)
20469void LAPACK_dtgsyl_base(
20470 char const* trans,
20471 lapack_int const* ijob, lapack_int const* m, lapack_int const* n,
20472 double const* A, lapack_int const* lda,
20473 double const* B, lapack_int const* ldb,
20474 double* C, lapack_int const* ldc,
20475 double const* D, lapack_int const* ldd,
20476 double const* E, lapack_int const* lde,
20477 double* F, lapack_int const* ldf,
20478 double* dif,
20479 double* scale,
20480 double* work, lapack_int const* lwork,
20481 lapack_int* iwork,
20482 lapack_int* info
20483#ifdef LAPACK_FORTRAN_STRLEN_END
20484 , size_t
20485#endif
20486);
20487#ifdef LAPACK_FORTRAN_STRLEN_END
20488 #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__, 1)
20489#else
20490 #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__)
20491#endif
20492
20493#define LAPACK_stgsyl_base LAPACK_GLOBAL(stgsyl,STGSYL)
20494void LAPACK_stgsyl_base(
20495 char const* trans,
20496 lapack_int const* ijob, lapack_int const* m, lapack_int const* n,
20497 float const* A, lapack_int const* lda,
20498 float const* B, lapack_int const* ldb,
20499 float* C, lapack_int const* ldc,
20500 float const* D, lapack_int const* ldd,
20501 float const* E, lapack_int const* lde,
20502 float* F, lapack_int const* ldf,
20503 float* dif,
20504 float* scale,
20505 float* work, lapack_int const* lwork,
20506 lapack_int* iwork,
20507 lapack_int* info
20508#ifdef LAPACK_FORTRAN_STRLEN_END
20509 , size_t
20510#endif
20511);
20512#ifdef LAPACK_FORTRAN_STRLEN_END
20513 #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__, 1)
20514#else
20515 #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__)
20516#endif
20517
20518#define LAPACK_ztgsyl_base LAPACK_GLOBAL(ztgsyl,ZTGSYL)
20519void LAPACK_ztgsyl_base(
20520 char const* trans,
20521 lapack_int const* ijob, lapack_int const* m, lapack_int const* n,
20522 lapack_complex_double const* A, lapack_int const* lda,
20523 lapack_complex_double const* B, lapack_int const* ldb,
20524 lapack_complex_double* C, lapack_int const* ldc,
20525 lapack_complex_double const* D, lapack_int const* ldd,
20526 lapack_complex_double const* E, lapack_int const* lde,
20527 lapack_complex_double* F, lapack_int const* ldf,
20528 double* dif,
20529 double* scale,
20530 lapack_complex_double* work, lapack_int const* lwork,
20531 lapack_int* iwork,
20532 lapack_int* info
20533#ifdef LAPACK_FORTRAN_STRLEN_END
20534 , size_t
20535#endif
20536);
20537#ifdef LAPACK_FORTRAN_STRLEN_END
20538 #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__, 1)
20539#else
20540 #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__)
20541#endif
20542
20543#define LAPACK_ctpcon_base LAPACK_GLOBAL(ctpcon,CTPCON)
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,
20548 float* rcond,
20549 lapack_complex_float* work,
20550 float* rwork,
20551 lapack_int* info
20552#ifdef LAPACK_FORTRAN_STRLEN_END
20553 , size_t, size_t, size_t
20554#endif
20555);
20556#ifdef LAPACK_FORTRAN_STRLEN_END
20557 #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__, 1, 1, 1)
20558#else
20559 #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__)
20560#endif
20561
20562#define LAPACK_dtpcon_base LAPACK_GLOBAL(dtpcon,DTPCON)
20563void LAPACK_dtpcon_base(
20564 char const* norm, char const* uplo, char const* diag,
20565 lapack_int const* n,
20566 double const* AP,
20567 double* rcond,
20568 double* work,
20569 lapack_int* iwork,
20570 lapack_int* info
20571#ifdef LAPACK_FORTRAN_STRLEN_END
20572 , size_t, size_t, size_t
20573#endif
20574);
20575#ifdef LAPACK_FORTRAN_STRLEN_END
20576 #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__, 1, 1, 1)
20577#else
20578 #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__)
20579#endif
20580
20581#define LAPACK_stpcon_base LAPACK_GLOBAL(stpcon,STPCON)
20582void LAPACK_stpcon_base(
20583 char const* norm, char const* uplo, char const* diag,
20584 lapack_int const* n,
20585 float const* AP,
20586 float* rcond,
20587 float* work,
20588 lapack_int* iwork,
20589 lapack_int* info
20590#ifdef LAPACK_FORTRAN_STRLEN_END
20591 , size_t, size_t, size_t
20592#endif
20593);
20594#ifdef LAPACK_FORTRAN_STRLEN_END
20595 #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__, 1, 1, 1)
20596#else
20597 #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__)
20598#endif
20599
20600#define LAPACK_ztpcon_base LAPACK_GLOBAL(ztpcon,ZTPCON)
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,
20605 double* rcond,
20606 lapack_complex_double* work,
20607 double* rwork,
20608 lapack_int* info
20609#ifdef LAPACK_FORTRAN_STRLEN_END
20610 , size_t, size_t, size_t
20611#endif
20612);
20613#ifdef LAPACK_FORTRAN_STRLEN_END
20614 #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__, 1, 1, 1)
20615#else
20616 #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__)
20617#endif
20618
20619#define LAPACK_ctplqt LAPACK_GLOBAL(ctplqt,CTPLQT)
20620void LAPACK_ctplqt(
20621 lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb,
20622 lapack_complex_float* A, lapack_int const* lda,
20623 lapack_complex_float* B, lapack_int const* ldb,
20624 lapack_complex_float* T, lapack_int const* ldt,
20625 lapack_complex_float* work,
20626 lapack_int* info );
20627
20628#define LAPACK_dtplqt LAPACK_GLOBAL(dtplqt,DTPLQT)
20629void LAPACK_dtplqt(
20630 lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb,
20631 double* A, lapack_int const* lda,
20632 double* B, lapack_int const* ldb,
20633 double* T, lapack_int const* ldt,
20634 double* work,
20635 lapack_int* info );
20636
20637#define LAPACK_stplqt LAPACK_GLOBAL(stplqt,STPLQT)
20638void LAPACK_stplqt(
20639 lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb,
20640 float* A, lapack_int const* lda,
20641 float* B, lapack_int const* ldb,
20642 float* T, lapack_int const* ldt,
20643 float* work,
20644 lapack_int* info );
20645
20646#define LAPACK_ztplqt LAPACK_GLOBAL(ztplqt,ZTPLQT)
20647void LAPACK_ztplqt(
20648 lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb,
20649 lapack_complex_double* A, lapack_int const* lda,
20650 lapack_complex_double* B, lapack_int const* ldb,
20651 lapack_complex_double* T, lapack_int const* ldt,
20652 lapack_complex_double* work,
20653 lapack_int* info );
20654
20655#define LAPACK_ctplqt2 LAPACK_GLOBAL(ctplqt2,CTPLQT2)
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 );
20662
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 );
20670
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 );
20678
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 );
20686
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,
20696 lapack_int* info
20697#ifdef LAPACK_FORTRAN_STRLEN_END
20698 , size_t, size_t
20699#endif
20700);
20701#ifdef LAPACK_FORTRAN_STRLEN_END
20702 #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__, 1, 1)
20703#else
20704 #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__)
20705#endif
20706
20707#define LAPACK_dtpmlqt_base LAPACK_GLOBAL(dtpmlqt,DTPMLQT)
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,
20715 double* work,
20716 lapack_int* info
20717#ifdef LAPACK_FORTRAN_STRLEN_END
20718 , size_t, size_t
20719#endif
20720);
20721#ifdef LAPACK_FORTRAN_STRLEN_END
20722 #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__, 1, 1)
20723#else
20724 #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__)
20725#endif
20726
20727#define LAPACK_stpmlqt_base LAPACK_GLOBAL(stpmlqt,STPMLQT)
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,
20735 float* work,
20736 lapack_int* info
20737#ifdef LAPACK_FORTRAN_STRLEN_END
20738 , size_t, size_t
20739#endif
20740);
20741#ifdef LAPACK_FORTRAN_STRLEN_END
20742 #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__, 1, 1)
20743#else
20744 #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__)
20745#endif
20746
20747#define LAPACK_ztpmlqt_base LAPACK_GLOBAL(ztpmlqt,ZTPMLQT)
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,
20756 lapack_int* info
20757#ifdef LAPACK_FORTRAN_STRLEN_END
20758 , size_t, size_t
20759#endif
20760);
20761#ifdef LAPACK_FORTRAN_STRLEN_END
20762 #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__, 1, 1)
20763#else
20764 #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__)
20765#endif
20766
20767#define LAPACK_ctpmqrt_base LAPACK_GLOBAL(ctpmqrt,CTPMQRT)
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,
20776 lapack_int* info
20777#ifdef LAPACK_FORTRAN_STRLEN_END
20778 , size_t, size_t
20779#endif
20780);
20781#ifdef LAPACK_FORTRAN_STRLEN_END
20782 #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__, 1, 1)
20783#else
20784 #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__)
20785#endif
20786
20787#define LAPACK_dtpmqrt_base LAPACK_GLOBAL(dtpmqrt,DTPMQRT)
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,
20795 double* work,
20796 lapack_int* info
20797#ifdef LAPACK_FORTRAN_STRLEN_END
20798 , size_t, size_t
20799#endif
20800);
20801#ifdef LAPACK_FORTRAN_STRLEN_END
20802 #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__, 1, 1)
20803#else
20804 #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__)
20805#endif
20806
20807#define LAPACK_stpmqrt_base LAPACK_GLOBAL(stpmqrt,STPMQRT)
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,
20815 float* work,
20816 lapack_int* info
20817#ifdef LAPACK_FORTRAN_STRLEN_END
20818 , size_t, size_t
20819#endif
20820);
20821#ifdef LAPACK_FORTRAN_STRLEN_END
20822 #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__, 1, 1)
20823#else
20824 #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__)
20825#endif
20826
20827#define LAPACK_ztpmqrt_base LAPACK_GLOBAL(ztpmqrt,ZTPMQRT)
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,
20836 lapack_int* info
20837#ifdef LAPACK_FORTRAN_STRLEN_END
20838 , size_t, size_t
20839#endif
20840);
20841#ifdef LAPACK_FORTRAN_STRLEN_END
20842 #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__, 1, 1)
20843#else
20844 #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__)
20845#endif
20846
20847#define LAPACK_ctpqrt LAPACK_GLOBAL(ctpqrt,CTPQRT)
20848void LAPACK_ctpqrt(
20849 lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb,
20850 lapack_complex_float* A, lapack_int const* lda,
20851 lapack_complex_float* B, lapack_int const* ldb,
20852 lapack_complex_float* T, lapack_int const* ldt,
20853 lapack_complex_float* work,
20854 lapack_int* info );
20855
20856#define LAPACK_dtpqrt LAPACK_GLOBAL(dtpqrt,DTPQRT)
20857void LAPACK_dtpqrt(
20858 lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb,
20859 double* A, lapack_int const* lda,
20860 double* B, lapack_int const* ldb,
20861 double* T, lapack_int const* ldt,
20862 double* work,
20863 lapack_int* info );
20864
20865#define LAPACK_stpqrt LAPACK_GLOBAL(stpqrt,STPQRT)
20866void LAPACK_stpqrt(
20867 lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb,
20868 float* A, lapack_int const* lda,
20869 float* B, lapack_int const* ldb,
20870 float* T, lapack_int const* ldt,
20871 float* work,
20872 lapack_int* info );
20873
20874#define LAPACK_ztpqrt LAPACK_GLOBAL(ztpqrt,ZTPQRT)
20875void LAPACK_ztpqrt(
20876 lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb,
20877 lapack_complex_double* A, lapack_int const* lda,
20878 lapack_complex_double* B, lapack_int const* ldb,
20879 lapack_complex_double* T, lapack_int const* ldt,
20880 lapack_complex_double* work,
20881 lapack_int* info );
20882
20883#define LAPACK_ctpqrt2 LAPACK_GLOBAL(ctpqrt2,CTPQRT2)
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 );
20890
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 );
20898
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 );
20906
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 );
20914
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
20926#endif
20927);
20928#ifdef LAPACK_FORTRAN_STRLEN_END
20929 #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20930#else
20931 #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__)
20932#endif
20933
20934#define LAPACK_dtprfb_base LAPACK_GLOBAL(dtprfb,DTPRFB)
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
20945#endif
20946);
20947#ifdef LAPACK_FORTRAN_STRLEN_END
20948 #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20949#else
20950 #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__)
20951#endif
20952
20953#define LAPACK_stprfb_base LAPACK_GLOBAL(stprfb,STPRFB)
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
20964#endif
20965);
20966#ifdef LAPACK_FORTRAN_STRLEN_END
20967 #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20968#else
20969 #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__)
20970#endif
20971
20972#define LAPACK_ztprfb_base LAPACK_GLOBAL(ztprfb,ZTPRFB)
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
20983#endif
20984);
20985#ifdef LAPACK_FORTRAN_STRLEN_END
20986 #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20987#else
20988 #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__)
20989#endif
20990
20991#define LAPACK_ctprfs_base LAPACK_GLOBAL(ctprfs,CTPRFS)
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,
20998 float* ferr,
20999 float* berr,
21000 lapack_complex_float* work,
21001 float* rwork,
21002 lapack_int* info
21003#ifdef LAPACK_FORTRAN_STRLEN_END
21004 , size_t, size_t, size_t
21005#endif
21006);
21007#ifdef LAPACK_FORTRAN_STRLEN_END
21008 #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__, 1, 1, 1)
21009#else
21010 #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__)
21011#endif
21012
21013#define LAPACK_dtprfs_base LAPACK_GLOBAL(dtprfs,DTPRFS)
21014void LAPACK_dtprfs_base(
21015 char const* uplo, char const* trans, char const* diag,
21016 lapack_int const* n, lapack_int const* nrhs,
21017 double const* AP,
21018 double const* B, lapack_int const* ldb,
21019 double const* X, lapack_int const* ldx,
21020 double* ferr,
21021 double* berr,
21022 double* work,
21023 lapack_int* iwork,
21024 lapack_int* info
21025#ifdef LAPACK_FORTRAN_STRLEN_END
21026 , size_t, size_t, size_t
21027#endif
21028);
21029#ifdef LAPACK_FORTRAN_STRLEN_END
21030 #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__, 1, 1, 1)
21031#else
21032 #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__)
21033#endif
21034
21035#define LAPACK_stprfs_base LAPACK_GLOBAL(stprfs,STPRFS)
21036void LAPACK_stprfs_base(
21037 char const* uplo, char const* trans, char const* diag,
21038 lapack_int const* n, lapack_int const* nrhs,
21039 float const* AP,
21040 float const* B, lapack_int const* ldb,
21041 float const* X, lapack_int const* ldx,
21042 float* ferr,
21043 float* berr,
21044 float* work,
21045 lapack_int* iwork,
21046 lapack_int* info
21047#ifdef LAPACK_FORTRAN_STRLEN_END
21048 , size_t, size_t, size_t
21049#endif
21050);
21051#ifdef LAPACK_FORTRAN_STRLEN_END
21052 #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__, 1, 1, 1)
21053#else
21054 #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__)
21055#endif
21056
21057#define LAPACK_ztprfs_base LAPACK_GLOBAL(ztprfs,ZTPRFS)
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,
21064 double* ferr,
21065 double* berr,
21066 lapack_complex_double* work,
21067 double* rwork,
21068 lapack_int* info
21069#ifdef LAPACK_FORTRAN_STRLEN_END
21070 , size_t, size_t, size_t
21071#endif
21072);
21073#ifdef LAPACK_FORTRAN_STRLEN_END
21074 #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__, 1, 1, 1)
21075#else
21076 #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__)
21077#endif
21078
21079#define LAPACK_ctptri_base LAPACK_GLOBAL(ctptri,CTPTRI)
21080void LAPACK_ctptri_base(
21081 char const* uplo, char const* diag,
21082 lapack_int const* n,
21083 lapack_complex_float* AP,
21084 lapack_int* info
21085#ifdef LAPACK_FORTRAN_STRLEN_END
21086 , size_t, size_t
21087#endif
21088);
21089#ifdef LAPACK_FORTRAN_STRLEN_END
21090 #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__, 1, 1)
21091#else
21092 #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__)
21093#endif
21094
21095#define LAPACK_dtptri_base LAPACK_GLOBAL(dtptri,DTPTRI)
21096void LAPACK_dtptri_base(
21097 char const* uplo, char const* diag,
21098 lapack_int const* n,
21099 double* AP,
21100 lapack_int* info
21101#ifdef LAPACK_FORTRAN_STRLEN_END
21102 , size_t, size_t
21103#endif
21104);
21105#ifdef LAPACK_FORTRAN_STRLEN_END
21106 #define LAPACK_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__, 1, 1)
21107#else
21108 #define LAPACK_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__)
21109#endif
21110
21111#define LAPACK_stptri_base LAPACK_GLOBAL(stptri,STPTRI)
21112void LAPACK_stptri_base(
21113 char const* uplo, char const* diag,
21114 lapack_int const* n,
21115 float* AP,
21116 lapack_int* info
21117#ifdef LAPACK_FORTRAN_STRLEN_END
21118 , size_t, size_t
21119#endif
21120);
21121#ifdef LAPACK_FORTRAN_STRLEN_END
21122 #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__, 1, 1)
21123#else
21124 #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__)
21125#endif
21126
21127#define LAPACK_ztptri_base LAPACK_GLOBAL(ztptri,ZTPTRI)
21128void LAPACK_ztptri_base(
21129 char const* uplo, char const* diag,
21130 lapack_int const* n,
21131 lapack_complex_double* AP,
21132 lapack_int* info
21133#ifdef LAPACK_FORTRAN_STRLEN_END
21134 , size_t, size_t
21135#endif
21136);
21137#ifdef LAPACK_FORTRAN_STRLEN_END
21138 #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__, 1, 1)
21139#else
21140 #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__)
21141#endif
21142
21143#define LAPACK_ctptrs_base LAPACK_GLOBAL(ctptrs,CTPTRS)
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,
21149 lapack_int* info
21150#ifdef LAPACK_FORTRAN_STRLEN_END
21151 , size_t, size_t, size_t
21152#endif
21153);
21154#ifdef LAPACK_FORTRAN_STRLEN_END
21155 #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__, 1, 1, 1)
21156#else
21157 #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__)
21158#endif
21159
21160#define LAPACK_dtptrs_base LAPACK_GLOBAL(dtptrs,DTPTRS)
21161void LAPACK_dtptrs_base(
21162 char const* uplo, char const* trans, char const* diag,
21163 lapack_int const* n, lapack_int const* nrhs,
21164 double const* AP,
21165 double* B, lapack_int const* ldb,
21166 lapack_int* info
21167#ifdef LAPACK_FORTRAN_STRLEN_END
21168 , size_t, size_t, size_t
21169#endif
21170);
21171#ifdef LAPACK_FORTRAN_STRLEN_END
21172 #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__, 1, 1, 1)
21173#else
21174 #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__)
21175#endif
21176
21177#define LAPACK_stptrs_base LAPACK_GLOBAL(stptrs,STPTRS)
21178void LAPACK_stptrs_base(
21179 char const* uplo, char const* trans, char const* diag,
21180 lapack_int const* n, lapack_int const* nrhs,
21181 float const* AP,
21182 float* B, lapack_int const* ldb,
21183 lapack_int* info
21184#ifdef LAPACK_FORTRAN_STRLEN_END
21185 , size_t, size_t, size_t
21186#endif
21187);
21188#ifdef LAPACK_FORTRAN_STRLEN_END
21189 #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__, 1, 1, 1)
21190#else
21191 #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__)
21192#endif
21193
21194#define LAPACK_ztptrs_base LAPACK_GLOBAL(ztptrs,ZTPTRS)
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,
21200 lapack_int* info
21201#ifdef LAPACK_FORTRAN_STRLEN_END
21202 , size_t, size_t, size_t
21203#endif
21204);
21205#ifdef LAPACK_FORTRAN_STRLEN_END
21206 #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__, 1, 1, 1)
21207#else
21208 #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__)
21209#endif
21210
21211#define LAPACK_ctpttf_base LAPACK_GLOBAL(ctpttf,CTPTTF)
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,
21217 lapack_int* info
21218#ifdef LAPACK_FORTRAN_STRLEN_END
21219 , size_t, size_t
21220#endif
21221);
21222#ifdef LAPACK_FORTRAN_STRLEN_END
21223 #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__, 1, 1)
21224#else
21225 #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__)
21226#endif
21227
21228#define LAPACK_dtpttf_base LAPACK_GLOBAL(dtpttf,DTPTTF)
21229void LAPACK_dtpttf_base(
21230 char const* transr, char const* uplo,
21231 lapack_int const* n,
21232 double const* AP,
21233 double* ARF,
21234 lapack_int* info
21235#ifdef LAPACK_FORTRAN_STRLEN_END
21236 , size_t, size_t
21237#endif
21238);
21239#ifdef LAPACK_FORTRAN_STRLEN_END
21240 #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__, 1, 1)
21241#else
21242 #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__)
21243#endif
21244
21245#define LAPACK_stpttf_base LAPACK_GLOBAL(stpttf,STPTTF)
21246void LAPACK_stpttf_base(
21247 char const* transr, char const* uplo,
21248 lapack_int const* n,
21249 float const* AP,
21250 float* ARF,
21251 lapack_int* info
21252#ifdef LAPACK_FORTRAN_STRLEN_END
21253 , size_t, size_t
21254#endif
21255);
21256#ifdef LAPACK_FORTRAN_STRLEN_END
21257 #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__, 1, 1)
21258#else
21259 #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__)
21260#endif
21261
21262#define LAPACK_ztpttf_base LAPACK_GLOBAL(ztpttf,ZTPTTF)
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,
21268 lapack_int* info
21269#ifdef LAPACK_FORTRAN_STRLEN_END
21270 , size_t, size_t
21271#endif
21272);
21273#ifdef LAPACK_FORTRAN_STRLEN_END
21274 #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__, 1, 1)
21275#else
21276 #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__)
21277#endif
21278
21279#define LAPACK_ctpttr_base LAPACK_GLOBAL(ctpttr,CTPTTR)
21280void LAPACK_ctpttr_base(
21281 char const* uplo,
21282 lapack_int const* n,
21283 lapack_complex_float const* AP,
21284 lapack_complex_float* A, lapack_int const* lda,
21285 lapack_int* info
21286#ifdef LAPACK_FORTRAN_STRLEN_END
21287 , size_t
21288#endif
21289);
21290#ifdef LAPACK_FORTRAN_STRLEN_END
21291 #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__, 1)
21292#else
21293 #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__)
21294#endif
21295
21296#define LAPACK_dtpttr_base LAPACK_GLOBAL(dtpttr,DTPTTR)
21297void LAPACK_dtpttr_base(
21298 char const* uplo,
21299 lapack_int const* n,
21300 double const* AP,
21301 double* A, lapack_int const* lda,
21302 lapack_int* info
21303#ifdef LAPACK_FORTRAN_STRLEN_END
21304 , size_t
21305#endif
21306);
21307#ifdef LAPACK_FORTRAN_STRLEN_END
21308 #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__, 1)
21309#else
21310 #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__)
21311#endif
21312
21313#define LAPACK_stpttr_base LAPACK_GLOBAL(stpttr,STPTTR)
21314void LAPACK_stpttr_base(
21315 char const* uplo,
21316 lapack_int const* n,
21317 float const* AP,
21318 float* A, lapack_int const* lda,
21319 lapack_int* info
21320#ifdef LAPACK_FORTRAN_STRLEN_END
21321 , size_t
21322#endif
21323);
21324#ifdef LAPACK_FORTRAN_STRLEN_END
21325 #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__, 1)
21326#else
21327 #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__)
21328#endif
21329
21330#define LAPACK_ztpttr_base LAPACK_GLOBAL(ztpttr,ZTPTTR)
21331void LAPACK_ztpttr_base(
21332 char const* uplo,
21333 lapack_int const* n,
21334 lapack_complex_double const* AP,
21335 lapack_complex_double* A, lapack_int const* lda,
21336 lapack_int* info
21337#ifdef LAPACK_FORTRAN_STRLEN_END
21338 , size_t
21339#endif
21340);
21341#ifdef LAPACK_FORTRAN_STRLEN_END
21342 #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__, 1)
21343#else
21344 #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__)
21345#endif
21346
21347#define LAPACK_ctrcon_base LAPACK_GLOBAL(ctrcon,CTRCON)
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,
21352 float* rcond,
21353 lapack_complex_float* work,
21354 float* rwork,
21355 lapack_int* info
21356#ifdef LAPACK_FORTRAN_STRLEN_END
21357 , size_t, size_t, size_t
21358#endif
21359);
21360#ifdef LAPACK_FORTRAN_STRLEN_END
21361 #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__, 1, 1, 1)
21362#else
21363 #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__)
21364#endif
21365
21366#define LAPACK_dtrcon_base LAPACK_GLOBAL(dtrcon,DTRCON)
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,
21371 double* rcond,
21372 double* work,
21373 lapack_int* iwork,
21374 lapack_int* info
21375#ifdef LAPACK_FORTRAN_STRLEN_END
21376 , size_t, size_t, size_t
21377#endif
21378);
21379#ifdef LAPACK_FORTRAN_STRLEN_END
21380 #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__, 1, 1, 1)
21381#else
21382 #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__)
21383#endif
21384
21385#define LAPACK_strcon_base LAPACK_GLOBAL(strcon,STRCON)
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,
21390 float* rcond,
21391 float* work,
21392 lapack_int* iwork,
21393 lapack_int* info
21394#ifdef LAPACK_FORTRAN_STRLEN_END
21395 , size_t, size_t, size_t
21396#endif
21397);
21398#ifdef LAPACK_FORTRAN_STRLEN_END
21399 #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__, 1, 1, 1)
21400#else
21401 #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__)
21402#endif
21403
21404#define LAPACK_ztrcon_base LAPACK_GLOBAL(ztrcon,ZTRCON)
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,
21409 double* rcond,
21410 lapack_complex_double* work,
21411 double* rwork,
21412 lapack_int* info
21413#ifdef LAPACK_FORTRAN_STRLEN_END
21414 , size_t, size_t, size_t
21415#endif
21416);
21417#ifdef LAPACK_FORTRAN_STRLEN_END
21418 #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__, 1, 1, 1)
21419#else
21420 #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__)
21421#endif
21422
21423#define LAPACK_ctrevc_base LAPACK_GLOBAL(ctrevc,CTREVC)
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,
21432 float* rwork,
21433 lapack_int* info
21434#ifdef LAPACK_FORTRAN_STRLEN_END
21435 , size_t, size_t
21436#endif
21437);
21438#ifdef LAPACK_FORTRAN_STRLEN_END
21439 #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__, 1, 1)
21440#else
21441 #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__)
21442#endif
21443
21444#define LAPACK_dtrevc_base LAPACK_GLOBAL(dtrevc,DTREVC)
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,
21452 double* work,
21453 lapack_int* info
21454#ifdef LAPACK_FORTRAN_STRLEN_END
21455 , size_t, size_t
21456#endif
21457);
21458#ifdef LAPACK_FORTRAN_STRLEN_END
21459 #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__, 1, 1)
21460#else
21461 #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__)
21462#endif
21463
21464#define LAPACK_strevc_base LAPACK_GLOBAL(strevc,STREVC)
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,
21472 float* work,
21473 lapack_int* info
21474#ifdef LAPACK_FORTRAN_STRLEN_END
21475 , size_t, size_t
21476#endif
21477);
21478#ifdef LAPACK_FORTRAN_STRLEN_END
21479 #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__, 1, 1)
21480#else
21481 #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__)
21482#endif
21483
21484#define LAPACK_ztrevc_base LAPACK_GLOBAL(ztrevc,ZTREVC)
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,
21493 double* rwork,
21494 lapack_int* info
21495#ifdef LAPACK_FORTRAN_STRLEN_END
21496 , size_t, size_t
21497#endif
21498);
21499#ifdef LAPACK_FORTRAN_STRLEN_END
21500 #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__, 1, 1)
21501#else
21502 #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__)
21503#endif
21504
21505#define LAPACK_ctrevc3_base LAPACK_GLOBAL(ctrevc3,CTREVC3)
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,
21515 lapack_int* info
21516#ifdef LAPACK_FORTRAN_STRLEN_END
21517 , size_t, size_t
21518#endif
21519);
21520#ifdef LAPACK_FORTRAN_STRLEN_END
21521 #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__, 1, 1)
21522#else
21523 #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__)
21524#endif
21525
21526#define LAPACK_dtrevc3_base LAPACK_GLOBAL(dtrevc3,DTREVC3)
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,
21535 lapack_int* info
21536#ifdef LAPACK_FORTRAN_STRLEN_END
21537 , size_t, size_t
21538#endif
21539);
21540#ifdef LAPACK_FORTRAN_STRLEN_END
21541 #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__, 1, 1)
21542#else
21543 #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__)
21544#endif
21545
21546#define LAPACK_strevc3_base LAPACK_GLOBAL(strevc3,STREVC3)
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,
21555 lapack_int* info
21556#ifdef LAPACK_FORTRAN_STRLEN_END
21557 , size_t, size_t
21558#endif
21559);
21560#ifdef LAPACK_FORTRAN_STRLEN_END
21561 #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__, 1, 1)
21562#else
21563 #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__)
21564#endif
21565
21566#define LAPACK_ztrevc3_base LAPACK_GLOBAL(ztrevc3,ZTREVC3)
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,
21576 lapack_int* info
21577#ifdef LAPACK_FORTRAN_STRLEN_END
21578 , size_t, size_t
21579#endif
21580);
21581#ifdef LAPACK_FORTRAN_STRLEN_END
21582 #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__, 1, 1)
21583#else
21584 #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__)
21585#endif
21586
21587#define LAPACK_ctrexc_base LAPACK_GLOBAL(ctrexc,CTREXC)
21588void LAPACK_ctrexc_base(
21589 char const* compq,
21590 lapack_int const* n,
21591 lapack_complex_float* T, lapack_int const* ldt,
21592 lapack_complex_float* Q, lapack_int const* ldq, lapack_int const* ifst, lapack_int const* ilst,
21593 lapack_int* info
21594#ifdef LAPACK_FORTRAN_STRLEN_END
21595 , size_t
21596#endif
21597);
21598#ifdef LAPACK_FORTRAN_STRLEN_END
21599 #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__, 1)
21600#else
21601 #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__)
21602#endif
21603
21604#define LAPACK_dtrexc_base LAPACK_GLOBAL(dtrexc,DTREXC)
21605void LAPACK_dtrexc_base(
21606 char const* compq,
21607 lapack_int const* n,
21608 double* T, lapack_int const* ldt,
21609 double* Q, lapack_int const* ldq, lapack_int* ifst, lapack_int* ilst,
21610 double* work,
21611 lapack_int* info
21612#ifdef LAPACK_FORTRAN_STRLEN_END
21613 , size_t
21614#endif
21615);
21616#ifdef LAPACK_FORTRAN_STRLEN_END
21617 #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__, 1)
21618#else
21619 #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__)
21620#endif
21621
21622#define LAPACK_strexc_base LAPACK_GLOBAL(strexc,STREXC)
21623void LAPACK_strexc_base(
21624 char const* compq,
21625 lapack_int const* n,
21626 float* T, lapack_int const* ldt,
21627 float* Q, lapack_int const* ldq, lapack_int* ifst, lapack_int* ilst,
21628 float* work,
21629 lapack_int* info
21630#ifdef LAPACK_FORTRAN_STRLEN_END
21631 , size_t
21632#endif
21633);
21634#ifdef LAPACK_FORTRAN_STRLEN_END
21635 #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__, 1)
21636#else
21637 #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__)
21638#endif
21639
21640#define LAPACK_ztrexc_base LAPACK_GLOBAL(ztrexc,ZTREXC)
21641void LAPACK_ztrexc_base(
21642 char const* compq,
21643 lapack_int const* n,
21644 lapack_complex_double* T, lapack_int const* ldt,
21645 lapack_complex_double* Q, lapack_int const* ldq, lapack_int const* ifst, lapack_int const* ilst,
21646 lapack_int* info
21647#ifdef LAPACK_FORTRAN_STRLEN_END
21648 , size_t
21649#endif
21650);
21651#ifdef LAPACK_FORTRAN_STRLEN_END
21652 #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__, 1)
21653#else
21654 #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__)
21655#endif
21656
21657#define LAPACK_ctrrfs_base LAPACK_GLOBAL(ctrrfs,CTRRFS)
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,
21664 float* ferr,
21665 float* berr,
21666 lapack_complex_float* work,
21667 float* rwork,
21668 lapack_int* info
21669#ifdef LAPACK_FORTRAN_STRLEN_END
21670 , size_t, size_t, size_t
21671#endif
21672);
21673#ifdef LAPACK_FORTRAN_STRLEN_END
21674 #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__, 1, 1, 1)
21675#else
21676 #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__)
21677#endif
21678
21679#define LAPACK_dtrrfs_base LAPACK_GLOBAL(dtrrfs,DTRRFS)
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,
21686 double* ferr,
21687 double* berr,
21688 double* work,
21689 lapack_int* iwork,
21690 lapack_int* info
21691#ifdef LAPACK_FORTRAN_STRLEN_END
21692 , size_t, size_t, size_t
21693#endif
21694);
21695#ifdef LAPACK_FORTRAN_STRLEN_END
21696 #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__, 1, 1, 1)
21697#else
21698 #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__)
21699#endif
21700
21701#define LAPACK_strrfs_base LAPACK_GLOBAL(strrfs,STRRFS)
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,
21708 float* ferr,
21709 float* berr,
21710 float* work,
21711 lapack_int* iwork,
21712 lapack_int* info
21713#ifdef LAPACK_FORTRAN_STRLEN_END
21714 , size_t, size_t, size_t
21715#endif
21716);
21717#ifdef LAPACK_FORTRAN_STRLEN_END
21718 #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__, 1, 1, 1)
21719#else
21720 #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__)
21721#endif
21722
21723#define LAPACK_ztrrfs_base LAPACK_GLOBAL(ztrrfs,ZTRRFS)
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,
21730 double* ferr,
21731 double* berr,
21732 lapack_complex_double* work,
21733 double* rwork,
21734 lapack_int* info
21735#ifdef LAPACK_FORTRAN_STRLEN_END
21736 , size_t, size_t, size_t
21737#endif
21738);
21739#ifdef LAPACK_FORTRAN_STRLEN_END
21740 #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__, 1, 1, 1)
21741#else
21742 #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__)
21743#endif
21744
21745#define LAPACK_ctrsen_base LAPACK_GLOBAL(ctrsen,CTRSEN)
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,
21753 float* s,
21754 float* sep,
21755 lapack_complex_float* work, lapack_int const* lwork,
21756 lapack_int* info
21757#ifdef LAPACK_FORTRAN_STRLEN_END
21758 , size_t, size_t
21759#endif
21760);
21761#ifdef LAPACK_FORTRAN_STRLEN_END
21762 #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__, 1, 1)
21763#else
21764 #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__)
21765#endif
21766
21767#define LAPACK_dtrsen_base LAPACK_GLOBAL(dtrsen,DTRSEN)
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,
21774 double* WR,
21775 double* WI, lapack_int* m,
21776 double* s,
21777 double* sep,
21778 double* work, lapack_int const* lwork,
21779 lapack_int* iwork, lapack_int const* liwork,
21780 lapack_int* info
21781#ifdef LAPACK_FORTRAN_STRLEN_END
21782 , size_t, size_t
21783#endif
21784);
21785#ifdef LAPACK_FORTRAN_STRLEN_END
21786 #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__, 1, 1)
21787#else
21788 #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__)
21789#endif
21790
21791#define LAPACK_strsen_base LAPACK_GLOBAL(strsen,STRSEN)
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,
21798 float* WR,
21799 float* WI, lapack_int* m,
21800 float* s,
21801 float* sep,
21802 float* work, lapack_int const* lwork,
21803 lapack_int* iwork, lapack_int const* liwork,
21804 lapack_int* info
21805#ifdef LAPACK_FORTRAN_STRLEN_END
21806 , size_t, size_t
21807#endif
21808);
21809#ifdef LAPACK_FORTRAN_STRLEN_END
21810 #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__, 1, 1)
21811#else
21812 #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__)
21813#endif
21814
21815#define LAPACK_ztrsen_base LAPACK_GLOBAL(ztrsen,ZTRSEN)
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,
21823 double* s,
21824 double* sep,
21825 lapack_complex_double* work, lapack_int const* lwork,
21826 lapack_int* info
21827#ifdef LAPACK_FORTRAN_STRLEN_END
21828 , size_t, size_t
21829#endif
21830);
21831#ifdef LAPACK_FORTRAN_STRLEN_END
21832 #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__, 1, 1)
21833#else
21834 #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__)
21835#endif
21836
21837#define LAPACK_ctrsna_base LAPACK_GLOBAL(ctrsna,CTRSNA)
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,
21845 float* S,
21846 float* SEP, lapack_int const* mm, lapack_int* m,
21847 lapack_complex_float* work, lapack_int const* ldwork,
21848 float* rwork,
21849 lapack_int* info
21850#ifdef LAPACK_FORTRAN_STRLEN_END
21851 , size_t, size_t
21852#endif
21853);
21854#ifdef LAPACK_FORTRAN_STRLEN_END
21855 #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__, 1, 1)
21856#else
21857 #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__)
21858#endif
21859
21860#define LAPACK_dtrsna_base LAPACK_GLOBAL(dtrsna,DTRSNA)
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,
21868 double* S,
21869 double* SEP, lapack_int const* mm, lapack_int* m,
21870 double* work, lapack_int const* ldwork,
21871 lapack_int* iwork,
21872 lapack_int* info
21873#ifdef LAPACK_FORTRAN_STRLEN_END
21874 , size_t, size_t
21875#endif
21876);
21877#ifdef LAPACK_FORTRAN_STRLEN_END
21878 #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__, 1, 1)
21879#else
21880 #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__)
21881#endif
21882
21883#define LAPACK_strsna_base LAPACK_GLOBAL(strsna,STRSNA)
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,
21891 float* S,
21892 float* SEP, lapack_int const* mm, lapack_int* m,
21893 float* work, lapack_int const* ldwork,
21894 lapack_int* iwork,
21895 lapack_int* info
21896#ifdef LAPACK_FORTRAN_STRLEN_END
21897 , size_t, size_t
21898#endif
21899);
21900#ifdef LAPACK_FORTRAN_STRLEN_END
21901 #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__, 1, 1)
21902#else
21903 #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__)
21904#endif
21905
21906#define LAPACK_ztrsna_base LAPACK_GLOBAL(ztrsna,ZTRSNA)
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,
21914 double* S,
21915 double* SEP, lapack_int const* mm, lapack_int* m,
21916 lapack_complex_double* work, lapack_int const* ldwork,
21917 double* rwork,
21918 lapack_int* info
21919#ifdef LAPACK_FORTRAN_STRLEN_END
21920 , size_t, size_t
21921#endif
21922);
21923#ifdef LAPACK_FORTRAN_STRLEN_END
21924 #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__, 1, 1)
21925#else
21926 #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__)
21927#endif
21928
21929#define LAPACK_ctrsyl_base LAPACK_GLOBAL(ctrsyl,CTRSYL)
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,
21936 float* scale,
21937 lapack_int* info
21938#ifdef LAPACK_FORTRAN_STRLEN_END
21939 , size_t, size_t
21940#endif
21941);
21942#ifdef LAPACK_FORTRAN_STRLEN_END
21943 #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__, 1, 1)
21944#else
21945 #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__)
21946#endif
21947
21948#define LAPACK_dtrsyl_base LAPACK_GLOBAL(dtrsyl,DTRSYL)
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,
21955 double* scale,
21956 lapack_int* info
21957#ifdef LAPACK_FORTRAN_STRLEN_END
21958 , size_t, size_t
21959#endif
21960);
21961#ifdef LAPACK_FORTRAN_STRLEN_END
21962 #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__, 1, 1)
21963#else
21964 #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__)
21965#endif
21966
21967#define LAPACK_strsyl_base LAPACK_GLOBAL(strsyl,STRSYL)
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,
21974 float* scale,
21975 lapack_int* info
21976#ifdef LAPACK_FORTRAN_STRLEN_END
21977 , size_t, size_t
21978#endif
21979);
21980#ifdef LAPACK_FORTRAN_STRLEN_END
21981 #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__, 1, 1)
21982#else
21983 #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__)
21984#endif
21985
21986#define LAPACK_ztrsyl_base LAPACK_GLOBAL(ztrsyl,ZTRSYL)
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,
21993 double* scale,
21994 lapack_int* info
21995#ifdef LAPACK_FORTRAN_STRLEN_END
21996 , size_t, size_t
21997#endif
21998);
21999#ifdef LAPACK_FORTRAN_STRLEN_END
22000 #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__, 1, 1)
22001#else
22002 #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__)
22003#endif
22004
22005#define LAPACK_ctrsyl3_base LAPACK_GLOBAL(ctrsyl3,CTRSYL3)
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,
22013 lapack_int* info
22014#ifdef LAPACK_FORTRAN_STRLEN_END
22015 , size_t, size_t
22016#endif
22017);
22018#ifdef LAPACK_FORTRAN_STRLEN_END
22019 #define LAPACK_ctrsyl3(...) LAPACK_ctrsyl3_base(__VA_ARGS__, 1, 1)
22020#else
22021 #define LAPACK_ctrsyl3(...) LAPACK_ctrsyl3_base(__VA_ARGS__)
22022#endif
22023
22024#define LAPACK_dtrsyl3_base LAPACK_GLOBAL(dtrsyl3,DTRSYL3)
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,
22033 lapack_int* info
22034#ifdef LAPACK_FORTRAN_STRLEN_END
22035 , size_t, size_t
22036#endif
22037);
22038#ifdef LAPACK_FORTRAN_STRLEN_END
22039 #define LAPACK_dtrsyl3(...) LAPACK_dtrsyl3_base(__VA_ARGS__, 1, 1)
22040#else
22041 #define LAPACK_dtrsyl3(...) LAPACK_dtrsyl3_base(__VA_ARGS__)
22042#endif
22043
22044#define LAPACK_strsyl3_base LAPACK_GLOBAL(strsyl3,STRSYL3)
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,
22053 lapack_int* info
22054#ifdef LAPACK_FORTRAN_STRLEN_END
22055 , size_t, size_t
22056#endif
22057);
22058#ifdef LAPACK_FORTRAN_STRLEN_END
22059 #define LAPACK_strsyl3(...) LAPACK_strsyl3_base(__VA_ARGS__, 1, 1)
22060#else
22061 #define LAPACK_strsyl3(...) LAPACK_strsyl3_base(__VA_ARGS__)
22062#endif
22063
22064#define LAPACK_ztrsyl3_base LAPACK_GLOBAL(ztrsyl3,ZTRSYL3)
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,
22072 lapack_int* info
22073#ifdef LAPACK_FORTRAN_STRLEN_END
22074 , size_t, size_t
22075#endif
22076);
22077#ifdef LAPACK_FORTRAN_STRLEN_END
22078 #define LAPACK_ztrsyl3(...) LAPACK_ztrsyl3_base(__VA_ARGS__, 1, 1)
22079#else
22080 #define LAPACK_ztrsyl3(...) LAPACK_ztrsyl3_base(__VA_ARGS__)
22081#endif
22082
22083#define LAPACK_ctrtri_base LAPACK_GLOBAL(ctrtri,CTRTRI)
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,
22088 lapack_int* info
22089#ifdef LAPACK_FORTRAN_STRLEN_END
22090 , size_t, size_t
22091#endif
22092);
22093#ifdef LAPACK_FORTRAN_STRLEN_END
22094 #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__, 1, 1)
22095#else
22096 #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__)
22097#endif
22098
22099#define LAPACK_dtrtri_base LAPACK_GLOBAL(dtrtri,DTRTRI)
22100void LAPACK_dtrtri_base(
22101 char const* uplo, char const* diag,
22102 lapack_int const* n,
22103 double* A, lapack_int const* lda,
22104 lapack_int* info
22105#ifdef LAPACK_FORTRAN_STRLEN_END
22106 , size_t, size_t
22107#endif
22108);
22109#ifdef LAPACK_FORTRAN_STRLEN_END
22110 #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__, 1, 1)
22111#else
22112 #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__)
22113#endif
22114
22115#define LAPACK_strtri_base LAPACK_GLOBAL(strtri,STRTRI)
22116void LAPACK_strtri_base(
22117 char const* uplo, char const* diag,
22118 lapack_int const* n,
22119 float* A, lapack_int const* lda,
22120 lapack_int* info
22121#ifdef LAPACK_FORTRAN_STRLEN_END
22122 , size_t, size_t
22123#endif
22124);
22125#ifdef LAPACK_FORTRAN_STRLEN_END
22126 #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__, 1, 1)
22127#else
22128 #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__)
22129#endif
22130
22131#define LAPACK_ztrtri_base LAPACK_GLOBAL(ztrtri,ZTRTRI)
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,
22136 lapack_int* info
22137#ifdef LAPACK_FORTRAN_STRLEN_END
22138 , size_t, size_t
22139#endif
22140);
22141#ifdef LAPACK_FORTRAN_STRLEN_END
22142 #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__, 1, 1)
22143#else
22144 #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__)
22145#endif
22146
22147#define LAPACK_ctrtrs_base LAPACK_GLOBAL(ctrtrs,CTRTRS)
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,
22153 lapack_int* info
22154#ifdef LAPACK_FORTRAN_STRLEN_END
22155 , size_t, size_t, size_t
22156#endif
22157);
22158#ifdef LAPACK_FORTRAN_STRLEN_END
22159 #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__, 1, 1, 1)
22160#else
22161 #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__)
22162#endif
22163
22164#define LAPACK_dtrtrs_base LAPACK_GLOBAL(dtrtrs,DTRTRS)
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,
22170 lapack_int* info
22171#ifdef LAPACK_FORTRAN_STRLEN_END
22172 , size_t, size_t, size_t
22173#endif
22174);
22175#ifdef LAPACK_FORTRAN_STRLEN_END
22176 #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__, 1, 1, 1)
22177#else
22178 #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__)
22179#endif
22180
22181#define LAPACK_strtrs_base LAPACK_GLOBAL(strtrs,STRTRS)
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,
22187 lapack_int* info
22188#ifdef LAPACK_FORTRAN_STRLEN_END
22189 , size_t, size_t, size_t
22190#endif
22191);
22192#ifdef LAPACK_FORTRAN_STRLEN_END
22193 #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__, 1, 1, 1)
22194#else
22195 #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__)
22196#endif
22197
22198#define LAPACK_ztrtrs_base LAPACK_GLOBAL(ztrtrs,ZTRTRS)
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,
22204 lapack_int* info
22205#ifdef LAPACK_FORTRAN_STRLEN_END
22206 , size_t, size_t, size_t
22207#endif
22208);
22209#ifdef LAPACK_FORTRAN_STRLEN_END
22210 #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__, 1, 1, 1)
22211#else
22212 #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__)
22213#endif
22214
22215#define LAPACK_ctrttf_base LAPACK_GLOBAL(ctrttf,CTRTTF)
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,
22221 lapack_int* info
22222#ifdef LAPACK_FORTRAN_STRLEN_END
22223 , size_t, size_t
22224#endif
22225);
22226#ifdef LAPACK_FORTRAN_STRLEN_END
22227 #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__, 1, 1)
22228#else
22229 #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__)
22230#endif
22231
22232#define LAPACK_dtrttf_base LAPACK_GLOBAL(dtrttf,DTRTTF)
22233void LAPACK_dtrttf_base(
22234 char const* transr, char const* uplo,
22235 lapack_int const* n,
22236 double const* A, lapack_int const* lda,
22237 double* ARF,
22238 lapack_int* info
22239#ifdef LAPACK_FORTRAN_STRLEN_END
22240 , size_t, size_t
22241#endif
22242);
22243#ifdef LAPACK_FORTRAN_STRLEN_END
22244 #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__, 1, 1)
22245#else
22246 #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__)
22247#endif
22248
22249#define LAPACK_strttf_base LAPACK_GLOBAL(strttf,STRTTF)
22250void LAPACK_strttf_base(
22251 char const* transr, char const* uplo,
22252 lapack_int const* n,
22253 float const* A, lapack_int const* lda,
22254 float* ARF,
22255 lapack_int* info
22256#ifdef LAPACK_FORTRAN_STRLEN_END
22257 , size_t, size_t
22258#endif
22259);
22260#ifdef LAPACK_FORTRAN_STRLEN_END
22261 #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__, 1, 1)
22262#else
22263 #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__)
22264#endif
22265
22266#define LAPACK_ztrttf_base LAPACK_GLOBAL(ztrttf,ZTRTTF)
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,
22272 lapack_int* info
22273#ifdef LAPACK_FORTRAN_STRLEN_END
22274 , size_t, size_t
22275#endif
22276);
22277#ifdef LAPACK_FORTRAN_STRLEN_END
22278 #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__, 1, 1)
22279#else
22280 #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__)
22281#endif
22282
22283#define LAPACK_ctrttp_base LAPACK_GLOBAL(ctrttp,CTRTTP)
22284void LAPACK_ctrttp_base(
22285 char const* uplo,
22286 lapack_int const* n,
22287 lapack_complex_float const* A, lapack_int const* lda,
22288 lapack_complex_float* AP,
22289 lapack_int* info
22290#ifdef LAPACK_FORTRAN_STRLEN_END
22291 , size_t
22292#endif
22293);
22294#ifdef LAPACK_FORTRAN_STRLEN_END
22295 #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__, 1)
22296#else
22297 #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__)
22298#endif
22299
22300#define LAPACK_dtrttp_base LAPACK_GLOBAL(dtrttp,DTRTTP)
22301void LAPACK_dtrttp_base(
22302 char const* uplo,
22303 lapack_int const* n,
22304 double const* A, lapack_int const* lda,
22305 double* AP,
22306 lapack_int* info
22307#ifdef LAPACK_FORTRAN_STRLEN_END
22308 , size_t
22309#endif
22310);
22311#ifdef LAPACK_FORTRAN_STRLEN_END
22312 #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__, 1)
22313#else
22314 #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__)
22315#endif
22316
22317#define LAPACK_strttp_base LAPACK_GLOBAL(strttp,STRTTP)
22318void LAPACK_strttp_base(
22319 char const* uplo,
22320 lapack_int const* n,
22321 float const* A, lapack_int const* lda,
22322 float* AP,
22323 lapack_int* info
22324#ifdef LAPACK_FORTRAN_STRLEN_END
22325 , size_t
22326#endif
22327);
22328#ifdef LAPACK_FORTRAN_STRLEN_END
22329 #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__, 1)
22330#else
22331 #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__)
22332#endif
22333
22334#define LAPACK_ztrttp_base LAPACK_GLOBAL(ztrttp,ZTRTTP)
22335void LAPACK_ztrttp_base(
22336 char const* uplo,
22337 lapack_int const* n,
22338 lapack_complex_double const* A, lapack_int const* lda,
22339 lapack_complex_double* AP,
22340 lapack_int* info
22341#ifdef LAPACK_FORTRAN_STRLEN_END
22342 , size_t
22343#endif
22344);
22345#ifdef LAPACK_FORTRAN_STRLEN_END
22346 #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__, 1)
22347#else
22348 #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__)
22349#endif
22350
22351#define LAPACK_ctzrzf LAPACK_GLOBAL(ctzrzf,CTZRZF)
22352void LAPACK_ctzrzf(
22353 lapack_int const* m, lapack_int const* n,
22354 lapack_complex_float* A, lapack_int const* lda,
22355 lapack_complex_float* tau,
22356 lapack_complex_float* work, lapack_int const* lwork,
22357 lapack_int* info );
22358
22359#define LAPACK_dtzrzf LAPACK_GLOBAL(dtzrzf,DTZRZF)
22360void LAPACK_dtzrzf(
22361 lapack_int const* m, lapack_int const* n,
22362 double* A, lapack_int const* lda,
22363 double* tau,
22364 double* work, lapack_int const* lwork,
22365 lapack_int* info );
22366
22367#define LAPACK_stzrzf LAPACK_GLOBAL(stzrzf,STZRZF)
22368void LAPACK_stzrzf(
22369 lapack_int const* m, lapack_int const* n,
22370 float* A, lapack_int const* lda,
22371 float* tau,
22372 float* work, lapack_int const* lwork,
22373 lapack_int* info );
22374
22375#define LAPACK_ztzrzf LAPACK_GLOBAL(ztzrzf,ZTZRZF)
22376void LAPACK_ztzrzf(
22377 lapack_int const* m, lapack_int const* n,
22378 lapack_complex_double* A, lapack_int const* lda,
22379 lapack_complex_double* tau,
22380 lapack_complex_double* work, lapack_int const* lwork,
22381 lapack_int* info );
22382
22383#define LAPACK_cunbdb_base LAPACK_GLOBAL(cunbdb,CUNBDB)
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,
22391 float* theta,
22392 float* phi,
22393 lapack_complex_float* TAUP1,
22394 lapack_complex_float* TAUP2,
22395 lapack_complex_float* TAUQ1,
22396 lapack_complex_float* TAUQ2,
22397 lapack_complex_float* work, lapack_int const* lwork,
22398 lapack_int* info
22399#ifdef LAPACK_FORTRAN_STRLEN_END
22400 , size_t, size_t
22401#endif
22402);
22403#ifdef LAPACK_FORTRAN_STRLEN_END
22404 #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__, 1, 1)
22405#else
22406 #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__)
22407#endif
22408
22409#define LAPACK_zunbdb_base LAPACK_GLOBAL(zunbdb,ZUNBDB)
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,
22417 double* theta,
22418 double* phi,
22419 lapack_complex_double* TAUP1,
22420 lapack_complex_double* TAUP2,
22421 lapack_complex_double* TAUQ1,
22422 lapack_complex_double* TAUQ2,
22423 lapack_complex_double* work, lapack_int const* lwork,
22424 lapack_int* info
22425#ifdef LAPACK_FORTRAN_STRLEN_END
22426 , size_t, size_t
22427#endif
22428);
22429#ifdef LAPACK_FORTRAN_STRLEN_END
22430 #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__, 1, 1)
22431#else
22432 #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__)
22433#endif
22434
22435#define LAPACK_cuncsd_base LAPACK_GLOBAL(cuncsd,CUNCSD)
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,
22443 float* theta,
22444 lapack_complex_float* U1, lapack_int const* ldu1,
22445 lapack_complex_float* U2, lapack_int const* ldu2,
22446 lapack_complex_float* V1T, lapack_int const* ldv1t,
22447 lapack_complex_float* V2T, lapack_int const* ldv2t,
22448 lapack_complex_float* work, lapack_int const* lwork,
22449 float* rwork, lapack_int const* lrwork,
22450 lapack_int* iwork,
22451 lapack_int* info
22452#ifdef LAPACK_FORTRAN_STRLEN_END
22453 , size_t, size_t, size_t, size_t, size_t, size_t
22454#endif
22455);
22456#ifdef LAPACK_FORTRAN_STRLEN_END
22457 #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
22458#else
22459 #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__)
22460#endif
22461
22462#define LAPACK_zuncsd_base LAPACK_GLOBAL(zuncsd,ZUNCSD)
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,
22470 double* theta,
22471 lapack_complex_double* U1, lapack_int const* ldu1,
22472 lapack_complex_double* U2, lapack_int const* ldu2,
22473 lapack_complex_double* V1T, lapack_int const* ldv1t,
22474 lapack_complex_double* V2T, lapack_int const* ldv2t,
22475 lapack_complex_double* work, lapack_int const* lwork,
22476 double* rwork, lapack_int const* lrwork,
22477 lapack_int* iwork,
22478 lapack_int* info
22479#ifdef LAPACK_FORTRAN_STRLEN_END
22480 , size_t, size_t, size_t, size_t, size_t, size_t
22481#endif
22482);
22483#ifdef LAPACK_FORTRAN_STRLEN_END
22484 #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
22485#else
22486 #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__)
22487#endif
22488
22489#define LAPACK_cuncsd2by1_base LAPACK_GLOBAL(cuncsd2by1,CUNCSD2BY1)
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,
22495 float* theta,
22496 lapack_complex_float* U1, lapack_int const* ldu1,
22497 lapack_complex_float* U2, lapack_int const* ldu2,
22498 lapack_complex_float* V1T, lapack_int const* ldv1t,
22499 lapack_complex_float* work, lapack_int const* lwork,
22500 float* rwork, lapack_int const* lrwork,
22501 lapack_int* iwork,
22502 lapack_int* info
22503#ifdef LAPACK_FORTRAN_STRLEN_END
22504 , size_t, size_t, size_t
22505#endif
22506);
22507#ifdef LAPACK_FORTRAN_STRLEN_END
22508 #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__, 1, 1, 1)
22509#else
22510 #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__)
22511#endif
22512
22513#define LAPACK_zuncsd2by1_base LAPACK_GLOBAL(zuncsd2by1,ZUNCSD2BY1)
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,
22519 double* theta,
22520 lapack_complex_double* U1, lapack_int const* ldu1,
22521 lapack_complex_double* U2, lapack_int const* ldu2,
22522 lapack_complex_double* V1T, lapack_int const* ldv1t,
22523 lapack_complex_double* work, lapack_int const* lwork,
22524 double* rwork, lapack_int const* lrwork,
22525 lapack_int* iwork,
22526 lapack_int* info
22527#ifdef LAPACK_FORTRAN_STRLEN_END
22528 , size_t, size_t, size_t
22529#endif
22530);
22531#ifdef LAPACK_FORTRAN_STRLEN_END
22532 #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__, 1, 1, 1)
22533#else
22534 #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__)
22535#endif
22536
22537#define LAPACK_cungbr_base LAPACK_GLOBAL(cungbr,CUNGBR)
22538void LAPACK_cungbr_base(
22539 char const* vect,
22540 lapack_int const* m, lapack_int const* n, lapack_int const* k,
22541 lapack_complex_float* A, lapack_int const* lda,
22542 lapack_complex_float const* tau,
22543 lapack_complex_float* work, lapack_int const* lwork,
22544 lapack_int* info
22545#ifdef LAPACK_FORTRAN_STRLEN_END
22546 , size_t
22547#endif
22548);
22549#ifdef LAPACK_FORTRAN_STRLEN_END
22550 #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__, 1)
22551#else
22552 #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__)
22553#endif
22554
22555#define LAPACK_zungbr_base LAPACK_GLOBAL(zungbr,ZUNGBR)
22556void LAPACK_zungbr_base(
22557 char const* vect,
22558 lapack_int const* m, lapack_int const* n, lapack_int const* k,
22559 lapack_complex_double* A, lapack_int const* lda,
22560 lapack_complex_double const* tau,
22561 lapack_complex_double* work, lapack_int const* lwork,
22562 lapack_int* info
22563#ifdef LAPACK_FORTRAN_STRLEN_END
22564 , size_t
22565#endif
22566);
22567#ifdef LAPACK_FORTRAN_STRLEN_END
22568 #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__, 1)
22569#else
22570 #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__)
22571#endif
22572
22573#define LAPACK_cunghr LAPACK_GLOBAL(cunghr,CUNGHR)
22574void LAPACK_cunghr(
22575 lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
22576 lapack_complex_float* A, lapack_int const* lda,
22577 lapack_complex_float const* tau,
22578 lapack_complex_float* work, lapack_int const* lwork,
22579 lapack_int* info );
22580
22581#define LAPACK_zunghr LAPACK_GLOBAL(zunghr,ZUNGHR)
22582void LAPACK_zunghr(
22583 lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
22584 lapack_complex_double* A, lapack_int const* lda,
22585 lapack_complex_double const* tau,
22586 lapack_complex_double* work, lapack_int const* lwork,
22587 lapack_int* info );
22588
22589#define LAPACK_cunglq LAPACK_GLOBAL(cunglq,CUNGLQ)
22590void LAPACK_cunglq(
22591 lapack_int const* m, lapack_int const* n, lapack_int const* k,
22592 lapack_complex_float* A, lapack_int const* lda,
22593 lapack_complex_float const* tau,
22594 lapack_complex_float* work, lapack_int const* lwork,
22595 lapack_int* info );
22596
22597#define LAPACK_zunglq LAPACK_GLOBAL(zunglq,ZUNGLQ)
22598void LAPACK_zunglq(
22599 lapack_int const* m, lapack_int const* n, lapack_int const* k,
22600 lapack_complex_double* A, lapack_int const* lda,
22601 lapack_complex_double const* tau,
22602 lapack_complex_double* work, lapack_int const* lwork,
22603 lapack_int* info );
22604
22605#define LAPACK_cungql LAPACK_GLOBAL(cungql,CUNGQL)
22606void LAPACK_cungql(
22607 lapack_int const* m, lapack_int const* n, lapack_int const* k,
22608 lapack_complex_float* A, lapack_int const* lda,
22609 lapack_complex_float const* tau,
22610 lapack_complex_float* work, lapack_int const* lwork,
22611 lapack_int* info );
22612
22613#define LAPACK_zungql LAPACK_GLOBAL(zungql,ZUNGQL)
22614void LAPACK_zungql(
22615 lapack_int const* m, lapack_int const* n, lapack_int const* k,
22616 lapack_complex_double* A, lapack_int const* lda,
22617 lapack_complex_double const* tau,
22618 lapack_complex_double* work, lapack_int const* lwork,
22619 lapack_int* info );
22620
22621#define LAPACK_cungqr LAPACK_GLOBAL(cungqr,CUNGQR)
22622void LAPACK_cungqr(
22623 lapack_int const* m, lapack_int const* n, lapack_int const* k,
22624 lapack_complex_float* A, lapack_int const* lda,
22625 lapack_complex_float const* tau,
22626 lapack_complex_float* work, lapack_int const* lwork,
22627 lapack_int* info );
22628
22629#define LAPACK_zungqr LAPACK_GLOBAL(zungqr,ZUNGQR)
22630void LAPACK_zungqr(
22631 lapack_int const* m, lapack_int const* n, lapack_int const* k,
22632 lapack_complex_double* A, lapack_int const* lda,
22633 lapack_complex_double const* tau,
22634 lapack_complex_double* work, lapack_int const* lwork,
22635 lapack_int* info );
22636
22637#define LAPACK_cungrq LAPACK_GLOBAL(cungrq,CUNGRQ)
22638void LAPACK_cungrq(
22639 lapack_int const* m, lapack_int const* n, lapack_int const* k,
22640 lapack_complex_float* A, lapack_int const* lda,
22641 lapack_complex_float const* tau,
22642 lapack_complex_float* work, lapack_int const* lwork,
22643 lapack_int* info );
22644
22645#define LAPACK_zungrq LAPACK_GLOBAL(zungrq,ZUNGRQ)
22646void LAPACK_zungrq(
22647 lapack_int const* m, lapack_int const* n, lapack_int const* k,
22648 lapack_complex_double* A, lapack_int const* lda,
22649 lapack_complex_double const* tau,
22650 lapack_complex_double* work, lapack_int const* lwork,
22651 lapack_int* info );
22652
22653#define LAPACK_cungtr_base LAPACK_GLOBAL(cungtr,CUNGTR)
22654void LAPACK_cungtr_base(
22655 char const* uplo,
22656 lapack_int const* n,
22657 lapack_complex_float* A, lapack_int const* lda,
22658 lapack_complex_float const* tau,
22659 lapack_complex_float* work, lapack_int const* lwork,
22660 lapack_int* info
22661#ifdef LAPACK_FORTRAN_STRLEN_END
22662 , size_t
22663#endif
22664);
22665#ifdef LAPACK_FORTRAN_STRLEN_END
22666 #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__, 1)
22667#else
22668 #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__)
22669#endif
22670
22671#define LAPACK_zungtr_base LAPACK_GLOBAL(zungtr,ZUNGTR)
22672void LAPACK_zungtr_base(
22673 char const* uplo,
22674 lapack_int const* n,
22675 lapack_complex_double* A, lapack_int const* lda,
22676 lapack_complex_double const* tau,
22677 lapack_complex_double* work, lapack_int const* lwork,
22678 lapack_int* info
22679#ifdef LAPACK_FORTRAN_STRLEN_END
22680 , size_t
22681#endif
22682);
22683#ifdef LAPACK_FORTRAN_STRLEN_END
22684 #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__, 1)
22685#else
22686 #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__)
22687#endif
22688
22689#define LAPACK_cungtsqr_row LAPACK_GLOBAL(cungtsqr_row,CUNGTSQR_ROW)
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 );
22697
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 );
22706
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,
22715 lapack_int* info
22716#ifdef LAPACK_FORTRAN_STRLEN_END
22717 , size_t, size_t, size_t
22718#endif
22719);
22720#ifdef LAPACK_FORTRAN_STRLEN_END
22721 #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__, 1, 1, 1)
22722#else
22723 #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__)
22724#endif
22725
22726#define LAPACK_zunmbr_base LAPACK_GLOBAL(zunmbr,ZUNMBR)
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,
22734 lapack_int* info
22735#ifdef LAPACK_FORTRAN_STRLEN_END
22736 , size_t, size_t, size_t
22737#endif
22738);
22739#ifdef LAPACK_FORTRAN_STRLEN_END
22740 #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__, 1, 1, 1)
22741#else
22742 #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__)
22743#endif
22744
22745#define LAPACK_cunmhr_base LAPACK_GLOBAL(cunmhr,CUNMHR)
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,
22753 lapack_int* info
22754#ifdef LAPACK_FORTRAN_STRLEN_END
22755 , size_t, size_t
22756#endif
22757);
22758#ifdef LAPACK_FORTRAN_STRLEN_END
22759 #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__, 1, 1)
22760#else
22761 #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__)
22762#endif
22763
22764#define LAPACK_zunmhr_base LAPACK_GLOBAL(zunmhr,ZUNMHR)
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,
22772 lapack_int* info
22773#ifdef LAPACK_FORTRAN_STRLEN_END
22774 , size_t, size_t
22775#endif
22776);
22777#ifdef LAPACK_FORTRAN_STRLEN_END
22778 #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__, 1, 1)
22779#else
22780 #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__)
22781#endif
22782
22783#define LAPACK_cunmlq_base LAPACK_GLOBAL(cunmlq,CUNMLQ)
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,
22791 lapack_int* info
22792#ifdef LAPACK_FORTRAN_STRLEN_END
22793 , size_t, size_t
22794#endif
22795);
22796#ifdef LAPACK_FORTRAN_STRLEN_END
22797 #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__, 1, 1)
22798#else
22799 #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__)
22800#endif
22801
22802#define LAPACK_zunmlq_base LAPACK_GLOBAL(zunmlq,ZUNMLQ)
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,
22810 lapack_int* info
22811#ifdef LAPACK_FORTRAN_STRLEN_END
22812 , size_t, size_t
22813#endif
22814);
22815#ifdef LAPACK_FORTRAN_STRLEN_END
22816 #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__, 1, 1)
22817#else
22818 #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__)
22819#endif
22820
22821#define LAPACK_cunmql_base LAPACK_GLOBAL(cunmql,CUNMQL)
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,
22829 lapack_int* info
22830#ifdef LAPACK_FORTRAN_STRLEN_END
22831 , size_t, size_t
22832#endif
22833);
22834#ifdef LAPACK_FORTRAN_STRLEN_END
22835 #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__, 1, 1)
22836#else
22837 #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__)
22838#endif
22839
22840#define LAPACK_zunmql_base LAPACK_GLOBAL(zunmql,ZUNMQL)
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,
22848 lapack_int* info
22849#ifdef LAPACK_FORTRAN_STRLEN_END
22850 , size_t, size_t
22851#endif
22852);
22853#ifdef LAPACK_FORTRAN_STRLEN_END
22854 #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__, 1, 1)
22855#else
22856 #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__)
22857#endif
22858
22859#define LAPACK_cunmqr_base LAPACK_GLOBAL(cunmqr,CUNMQR)
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,
22867 lapack_int* info
22868#ifdef LAPACK_FORTRAN_STRLEN_END
22869 , size_t, size_t
22870#endif
22871);
22872#ifdef LAPACK_FORTRAN_STRLEN_END
22873 #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__, 1, 1)
22874#else
22875 #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__)
22876#endif
22877
22878#define LAPACK_zunmqr_base LAPACK_GLOBAL(zunmqr,ZUNMQR)
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,
22886 lapack_int* info
22887#ifdef LAPACK_FORTRAN_STRLEN_END
22888 , size_t, size_t
22889#endif
22890);
22891#ifdef LAPACK_FORTRAN_STRLEN_END
22892 #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__, 1, 1)
22893#else
22894 #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__)
22895#endif
22896
22897#define LAPACK_cunmrq_base LAPACK_GLOBAL(cunmrq,CUNMRQ)
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,
22905 lapack_int* info
22906#ifdef LAPACK_FORTRAN_STRLEN_END
22907 , size_t, size_t
22908#endif
22909);
22910#ifdef LAPACK_FORTRAN_STRLEN_END
22911 #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__, 1, 1)
22912#else
22913 #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__)
22914#endif
22915
22916#define LAPACK_zunmrq_base LAPACK_GLOBAL(zunmrq,ZUNMRQ)
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,
22924 lapack_int* info
22925#ifdef LAPACK_FORTRAN_STRLEN_END
22926 , size_t, size_t
22927#endif
22928);
22929#ifdef LAPACK_FORTRAN_STRLEN_END
22930 #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__, 1, 1)
22931#else
22932 #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__)
22933#endif
22934
22935#define LAPACK_cunmrz_base LAPACK_GLOBAL(cunmrz,CUNMRZ)
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,
22943 lapack_int* info
22944#ifdef LAPACK_FORTRAN_STRLEN_END
22945 , size_t, size_t
22946#endif
22947);
22948#ifdef LAPACK_FORTRAN_STRLEN_END
22949 #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__, 1, 1)
22950#else
22951 #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__)
22952#endif
22953
22954#define LAPACK_zunmrz_base LAPACK_GLOBAL(zunmrz,ZUNMRZ)
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,
22962 lapack_int* info
22963#ifdef LAPACK_FORTRAN_STRLEN_END
22964 , size_t, size_t
22965#endif
22966);
22967#ifdef LAPACK_FORTRAN_STRLEN_END
22968 #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__, 1, 1)
22969#else
22970 #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__)
22971#endif
22972
22973#define LAPACK_cunmtr_base LAPACK_GLOBAL(cunmtr,CUNMTR)
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,
22981 lapack_int* info
22982#ifdef LAPACK_FORTRAN_STRLEN_END
22983 , size_t, size_t, size_t
22984#endif
22985);
22986#ifdef LAPACK_FORTRAN_STRLEN_END
22987 #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__, 1, 1, 1)
22988#else
22989 #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__)
22990#endif
22991
22992#define LAPACK_zunmtr_base LAPACK_GLOBAL(zunmtr,ZUNMTR)
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,
23000 lapack_int* info
23001#ifdef LAPACK_FORTRAN_STRLEN_END
23002 , size_t, size_t, size_t
23003#endif
23004);
23005#ifdef LAPACK_FORTRAN_STRLEN_END
23006 #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__, 1, 1, 1)
23007#else
23008 #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__)
23009#endif
23010
23011#define LAPACK_cupgtr_base LAPACK_GLOBAL(cupgtr,CUPGTR)
23012void LAPACK_cupgtr_base(
23013 char const* uplo,
23014 lapack_int const* n,
23015 lapack_complex_float const* AP,
23016 lapack_complex_float const* tau,
23017 lapack_complex_float* Q, lapack_int const* ldq,
23018 lapack_complex_float* work,
23019 lapack_int* info
23020#ifdef LAPACK_FORTRAN_STRLEN_END
23021 , size_t
23022#endif
23023);
23024#ifdef LAPACK_FORTRAN_STRLEN_END
23025 #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__, 1)
23026#else
23027 #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__)
23028#endif
23029
23030#define LAPACK_zupgtr_base LAPACK_GLOBAL(zupgtr,ZUPGTR)
23031void LAPACK_zupgtr_base(
23032 char const* uplo,
23033 lapack_int const* n,
23034 lapack_complex_double const* AP,
23035 lapack_complex_double const* tau,
23036 lapack_complex_double* Q, lapack_int const* ldq,
23037 lapack_complex_double* work,
23038 lapack_int* info
23039#ifdef LAPACK_FORTRAN_STRLEN_END
23040 , size_t
23041#endif
23042);
23043#ifdef LAPACK_FORTRAN_STRLEN_END
23044 #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__, 1)
23045#else
23046 #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__)
23047#endif
23048
23049#define LAPACK_cupmtr_base LAPACK_GLOBAL(cupmtr,CUPMTR)
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,
23057 lapack_int* info
23058#ifdef LAPACK_FORTRAN_STRLEN_END
23059 , size_t, size_t, size_t
23060#endif
23061);
23062#ifdef LAPACK_FORTRAN_STRLEN_END
23063 #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__, 1, 1, 1)
23064#else
23065 #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__)
23066#endif
23067
23068#define LAPACK_zupmtr_base LAPACK_GLOBAL(zupmtr,ZUPMTR)
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,
23076 lapack_int* info
23077#ifdef LAPACK_FORTRAN_STRLEN_END
23078 , size_t, size_t, size_t
23079#endif
23080);
23081#ifdef LAPACK_FORTRAN_STRLEN_END
23082 #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__, 1, 1, 1)
23083#else
23084 #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__)
23085#endif
23086
23087#ifdef __cplusplus
23088} /* extern "C" */
23089#endif
23090
23091#endif /* LAPACK_H */