LAPACK
3.10.1
LAPACK: Linear Algebra PACKage
lapack.h
Go to the documentation of this file.
1
#ifndef LAPACK_H
2
#define LAPACK_H
3
4
/*
5
* Turn on HAVE_LAPACK_CONFIG_H to redefine C-LAPACK datatypes
6
*/
7
#ifdef HAVE_LAPACK_CONFIG_H
8
#include "
lapacke_config.h
"
9
#endif
10
11
#include "lapacke_mangling.h"
12
13
#include <stdlib.h>
14
#include <stdarg.h>
15
16
/* It seems all current Fortran compilers put strlen at end.
17
* Some historical compilers put strlen after the str argument
18
* or make the str argument into a struct. */
19
#define LAPACK_FORTRAN_STRLEN_END
20
21
/* Complex types are structures equivalent to the
22
* Fortran complex types COMPLEX(4) and COMPLEX(8).
23
*
24
* One can also redefine the types with his own types
25
* for example by including in the code definitions like
26
*
27
* #define lapack_complex_float std::complex<float>
28
* #define lapack_complex_double std::complex<double>
29
*
30
* or define these types in the command line:
31
*
32
* -Dlapack_complex_float="std::complex<float>"
33
* -Dlapack_complex_double="std::complex<double>"
34
*/
35
36
#ifndef LAPACK_COMPLEX_CUSTOM
37
38
/* Complex type (single precision) */
39
#ifndef lapack_complex_float
40
#ifndef __cplusplus
41
#include <complex.h>
42
#else
43
#include <complex>
44
#endif
45
#define lapack_complex_float float _Complex
46
#endif
47
48
#ifndef lapack_complex_float_real
49
#define lapack_complex_float_real(z) (creal(z))
50
#endif
51
52
#ifndef lapack_complex_float_imag
53
#define lapack_complex_float_imag(z) (cimag(z))
54
#endif
55
56
/* Complex type (double precision) */
57
#ifndef lapack_complex_double
58
#ifndef __cplusplus
59
#include <complex.h>
60
#else
61
#include <complex>
62
#endif
63
#define lapack_complex_double double _Complex
64
#endif
65
66
#ifndef lapack_complex_double_real
67
#define lapack_complex_double_real(z) (creal(z))
68
#endif
69
70
#ifndef lapack_complex_double_imag
71
#define lapack_complex_double_imag(z) (cimag(z))
72
#endif
73
74
#endif
/* LAPACK_COMPLEX_CUSTOM */
75
76
77
#ifdef __cplusplus
78
extern
"C"
{
79
#endif
80
81
/*----------------------------------------------------------------------------*/
82
#ifndef lapack_int
83
#define lapack_int int
84
#endif
85
86
#ifndef lapack_logical
87
#define lapack_logical lapack_int
88
#endif
89
90
/* f2c, hence clapack and MacOS Accelerate, returns double instead of float
91
* for sdot, slange, clange, etc. */
92
#if defined(LAPACK_F2C)
93
typedef
double
lapack_float_return
;
94
#else
95
typedef
float
lapack_float_return
;
96
#endif
97
98
99
/* Callback logical functions of one, two, or three arguments are used
100
* to select eigenvalues to sort to the top left of the Schur form.
101
* The value is selected if function returns TRUE (non-zero). */
102
103
typedef
lapack_logical
(*
LAPACK_S_SELECT2
) (
const
float
*,
const
float
* );
104
typedef
lapack_logical
(*
LAPACK_S_SELECT3
)
105
(
const
float
*,
const
float
*,
const
float
* );
106
typedef
lapack_logical
(*
LAPACK_D_SELECT2
) (
const
double
*,
const
double
* );
107
typedef
lapack_logical
(*
LAPACK_D_SELECT3
)
108
(
const
double
*,
const
double
*,
const
double
* );
109
110
typedef
lapack_logical
(*
LAPACK_C_SELECT1
) (
const
lapack_complex_float
* );
111
typedef
lapack_logical
(*
LAPACK_C_SELECT2
)
112
(
const
lapack_complex_float
*,
const
lapack_complex_float
* );
113
typedef
lapack_logical
(*
LAPACK_Z_SELECT1
) (
const
lapack_complex_double
* );
114
typedef
lapack_logical
(*
LAPACK_Z_SELECT2
)
115
(
const
lapack_complex_double
*,
const
lapack_complex_double
* );
116
117
#define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME)
118
lapack_logical
LAPACK_lsame_base
(
char
* ca,
char
* cb,
119
lapack_int
lca,
lapack_int
lcb
120
#ifdef
LAPACK_FORTRAN_STRLEN_END
121
,
size_t
,
size_t
122
#endif
123
);
124
#ifdef LAPACK_FORTRAN_STRLEN_END
125
#define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__, 1, 1)
126
#else
127
#define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__)
128
#endif
129
130
131
/*----------------------------------------------------------------------------*/
132
/* This is in alphabetical order (ignoring leading precision). */
133
134
#define LAPACK_cbbcsd_base LAPACK_GLOBAL(cbbcsd,CBBCSD)
135
void
LAPACK_cbbcsd_base
(
136
char
const
* jobu1,
char
const
* jobu2,
char
const
* jobv1t,
char
const
* jobv2t,
char
const
* trans,
137
lapack_int
const
* m,
lapack_int
const
* p,
lapack_int
const
* q,
138
float
* theta,
139
float
* phi,
140
lapack_complex_float
* U1,
lapack_int
const
* ldu1,
141
lapack_complex_float
* U2,
lapack_int
const
* ldu2,
142
lapack_complex_float
* V1T,
lapack_int
const
* ldv1t,
143
lapack_complex_float
* V2T,
lapack_int
const
* ldv2t,
144
float
* B11D,
145
float
* B11E,
146
float
* B12D,
147
float
* B12E,
148
float
* B21D,
149
float
* B21E,
150
float
* B22D,
151
float
* B22E,
152
float
* rwork,
lapack_int
const
* lrwork,
153
lapack_int
* info
154
#ifdef
LAPACK_FORTRAN_STRLEN_END
155
,
size_t
,
size_t
,
size_t
,
size_t
,
size_t
156
#endif
157
);
158
#ifdef LAPACK_FORTRAN_STRLEN_END
159
#define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
160
#else
161
#define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__)
162
#endif
163
164
#define LAPACK_dbbcsd_base LAPACK_GLOBAL(dbbcsd,DBBCSD)
165
void
LAPACK_dbbcsd_base
(
166
char
const
* jobu1,
char
const
* jobu2,
char
const
* jobv1t,
char
const
* jobv2t,
char
const
* trans,
167
lapack_int
const
* m,
lapack_int
const
* p,
lapack_int
const
* q,
168
double
* theta,
169
double
* phi,
170
double
* U1,
lapack_int
const
* ldu1,
171
double
* U2,
lapack_int
const
* ldu2,
172
double
* V1T,
lapack_int
const
* ldv1t,
173
double
* V2T,
lapack_int
const
* ldv2t,
174
double
* B11D,
175
double
* B11E,
176
double
* B12D,
177
double
* B12E,
178
double
* b21d,
179
double
* b21e,
180
double
* b22d,
181
double
* b22e,
182
double
* work,
lapack_int
const
* lwork,
183
lapack_int
* info
184
#ifdef
LAPACK_FORTRAN_STRLEN_END
185
,
size_t
,
size_t
,
size_t
,
size_t
,
size_t
186
#endif
187
);
188
#ifdef LAPACK_FORTRAN_STRLEN_END
189
#define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
190
#else
191
#define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__)
192
#endif
193
194
#define LAPACK_sbbcsd_base LAPACK_GLOBAL(sbbcsd,SBBCSD)
195
void
LAPACK_sbbcsd_base
(
196
char
const
* jobu1,
char
const
* jobu2,
char
const
* jobv1t,
char
const
* jobv2t,
char
const
* trans,
197
lapack_int
const
* m,
lapack_int
const
* p,
lapack_int
const
* q,
198
float
* theta,
199
float
* phi,
200
float
* U1,
lapack_int
const
* ldu1,
201
float
* U2,
lapack_int
const
* ldu2,
202
float
* V1T,
lapack_int
const
* ldv1t,
203
float
* V2T,
lapack_int
const
* ldv2t,
204
float
* B11D,
205
float
* B11E,
206
float
* B12D,
207
float
* B12E,
208
float
* B21D,
209
float
* B21E,
210
float
* B22D,
211
float
* B22E,
212
float
* work,
lapack_int
const
* lwork,
213
lapack_int
* info
214
#ifdef
LAPACK_FORTRAN_STRLEN_END
215
,
size_t
,
size_t
,
size_t
,
size_t
,
size_t
216
#endif
217
);
218
#ifdef LAPACK_FORTRAN_STRLEN_END
219
#define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
220
#else
221
#define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__)
222
#endif
223
224
#define LAPACK_zbbcsd_base LAPACK_GLOBAL(zbbcsd,ZBBCSD)
225
void
LAPACK_zbbcsd_base
(
226
char
const
* jobu1,
char
const
* jobu2,
char
const
* jobv1t,
char
const
* jobv2t,
char
const
* trans,
227
lapack_int
const
* m,
lapack_int
const
* p,
lapack_int
const
* q,
228
double
* theta,
229
double
* phi,
230
lapack_complex_double
* U1,
lapack_int
const
* ldu1,
231
lapack_complex_double
* U2,
lapack_int
const
* ldu2,
232
lapack_complex_double
* V1T,
lapack_int
const
* ldv1t,
233
lapack_complex_double
* V2T,
lapack_int
const
* ldv2t,
234
double
* B11D,
235
double
* B11E,
236
double
* B12D,
237
double
* B12E,
238
double
* B21D,
239
double
* B21E,
240
double
* B22D,
241
double
* B22E,
242
double
* rwork,
lapack_int
const
* lrwork,
243
lapack_int
* info
244
#ifdef
LAPACK_FORTRAN_STRLEN_END
245
,
size_t
,
size_t
,
size_t
,
size_t
,
size_t
246
#endif
247
);
248
#ifdef LAPACK_FORTRAN_STRLEN_END
249
#define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
250
#else
251
#define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__)
252
#endif
253
254
#define LAPACK_dbdsdc_base LAPACK_GLOBAL(dbdsdc,DBDSDC)
255
void
LAPACK_dbdsdc_base
(
256
char
const
* uplo,
char
const
* compq,
257
lapack_int
const
* n,
258
double
* D,
259
double
* E,
260
double
* U,
lapack_int
const
* ldu,
261
double
* VT,
lapack_int
const
* ldvt,
262
double
* Q,
lapack_int
* IQ,
263
double
* work,
264
lapack_int
* iwork,
265
lapack_int
* info
266
#ifdef
LAPACK_FORTRAN_STRLEN_END
267
,
size_t
,
size_t
268
#endif
269
);
270
#ifdef LAPACK_FORTRAN_STRLEN_END
271
#define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__, 1, 1)
272
#else
273
#define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__)
274
#endif
275
276
#define LAPACK_sbdsdc_base LAPACK_GLOBAL(sbdsdc,SBDSDC)
277
void
LAPACK_sbdsdc_base
(
278
char
const
* uplo,
char
const
* compq,
279
lapack_int
const
* n,
280
float
* D,
281
float
* E,
282
float
* U,
lapack_int
const
* ldu,
283
float
* VT,
lapack_int
const
* ldvt,
284
float
* Q,
lapack_int
* IQ,
285
float
* work,
286
lapack_int
* iwork,
287
lapack_int
* info
288
#ifdef
LAPACK_FORTRAN_STRLEN_END
289
,
size_t
,
size_t
290
#endif
291
);
292
#ifdef LAPACK_FORTRAN_STRLEN_END
293
#define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__, 1, 1)
294
#else
295
#define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__)
296
#endif
297
298
#define LAPACK_cbdsqr_base LAPACK_GLOBAL(cbdsqr,CBDSQR)
299
void
LAPACK_cbdsqr_base
(
300
char
const
* uplo,
301
lapack_int
const
* n,
lapack_int
const
* ncvt,
lapack_int
const
* nru,
lapack_int
const
* ncc,
302
float
* D,
303
float
* E,
304
lapack_complex_float
* VT,
lapack_int
const
* ldvt,
305
lapack_complex_float
* U,
lapack_int
const
* ldu,
306
lapack_complex_float
* C,
lapack_int
const
* ldc,
307
float
* rwork,
308
lapack_int
* info
309
#ifdef
LAPACK_FORTRAN_STRLEN_END
310
,
size_t
311
#endif
312
);
313
#ifdef LAPACK_FORTRAN_STRLEN_END
314
#define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__, 1)
315
#else
316
#define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__)
317
#endif
318
319
#define LAPACK_dbdsqr_base LAPACK_GLOBAL(dbdsqr,DBDSQR)
320
void
LAPACK_dbdsqr_base
(
321
char
const
* uplo,
322
lapack_int
const
* n,
lapack_int
const
* ncvt,
lapack_int
const
* nru,
lapack_int
const
* ncc,
323
double
* D,
324
double
* E,
325
double
* VT,
lapack_int
const
* ldvt,
326
double
* U,
lapack_int
const
* ldu,
327
double
* C,
lapack_int
const
* ldc,
328
double
* work,
329
lapack_int
* info
330
#ifdef
LAPACK_FORTRAN_STRLEN_END
331
,
size_t
332
#endif
333
);
334
#ifdef LAPACK_FORTRAN_STRLEN_END
335
#define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__, 1)
336
#else
337
#define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__)
338
#endif
339
340
#define LAPACK_sbdsqr_base LAPACK_GLOBAL(sbdsqr,SBDSQR)
341
void
LAPACK_sbdsqr_base
(
342
char
const
* uplo,
343
lapack_int
const
* n,
lapack_int
const
* ncvt,
lapack_int
const
* nru,
lapack_int
const
* ncc,
344
float
* D,
345
float
* E,
346
float
* VT,
lapack_int
const
* ldvt,
347
float
* U,
lapack_int
const
* ldu,
348
float
* C,
lapack_int
const
* ldc,
349
float
* work,
350
lapack_int
* info
351
#ifdef
LAPACK_FORTRAN_STRLEN_END
352
,
size_t
353
#endif
354
);
355
#ifdef LAPACK_FORTRAN_STRLEN_END
356
#define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__, 1)
357
#else
358
#define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__)
359
#endif
360
361
#define LAPACK_zbdsqr_base LAPACK_GLOBAL(zbdsqr,ZBDSQR)
362
void
LAPACK_zbdsqr_base
(
363
char
const
* uplo,
364
lapack_int
const
* n,
lapack_int
const
* ncvt,
lapack_int
const
* nru,
lapack_int
const
* ncc,
365
double
* D,
366
double
* E,
367
lapack_complex_double
* VT,
lapack_int
const
* ldvt,
368
lapack_complex_double
* U,
lapack_int
const
* ldu,
369
lapack_complex_double
* C,
lapack_int
const
* ldc,
370
double
* rwork,
371
lapack_int
* info
372
#ifdef
LAPACK_FORTRAN_STRLEN_END
373
,
size_t
374
#endif
375
);
376
#ifdef LAPACK_FORTRAN_STRLEN_END
377
#define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__, 1)
378
#else
379
#define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__)
380
#endif
381
382
#define LAPACK_dbdsvdx_base LAPACK_GLOBAL(dbdsvdx,DBDSVDX)
383
void
LAPACK_dbdsvdx_base
(
384
char
const
* uplo,
char
const
* jobz,
char
const
* range,
385
lapack_int
const
* n,
386
double
const
* D,
387
double
const
* E,
388
double
const
* vl,
389
double
const
* vu,
lapack_int
const
* il,
lapack_int
const
* iu,
lapack_int
* ns,
390
double
* S,
391
double
* Z,
lapack_int
const
* ldz,
392
double
* work,
393
lapack_int
* iwork,
394
lapack_int
* info
395
#ifdef
LAPACK_FORTRAN_STRLEN_END
396
,
size_t
,
size_t
,
size_t
397
#endif
398
);
399
#ifdef LAPACK_FORTRAN_STRLEN_END
400
#define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__, 1, 1, 1)
401
#else
402
#define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__)
403
#endif
404
405
#define LAPACK_sbdsvdx_base LAPACK_GLOBAL(sbdsvdx,SBDSVDX)
406
void
LAPACK_sbdsvdx_base
(
407
char
const
* uplo,
char
const
* jobz,
char
const
* range,
408
lapack_int
const
* n,
409
float
const
* D,
410
float
const
* E,
411
float
const
* vl,
412
float
const
* vu,
lapack_int
const
* il,
lapack_int
const
* iu,
lapack_int
* ns,
413
float
* S,
414
float
* Z,
lapack_int
const
* ldz,
415
float
* work,
416
lapack_int
* iwork,
417
lapack_int
* info
418
#ifdef
LAPACK_FORTRAN_STRLEN_END
419
,
size_t
,
size_t
,
size_t
420
#endif
421
);
422
#ifdef LAPACK_FORTRAN_STRLEN_END
423
#define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__, 1, 1, 1)
424
#else
425
#define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__)
426
#endif
427
428
#define LAPACK_ddisna_base LAPACK_GLOBAL(ddisna,DDISNA)
429
void
LAPACK_ddisna_base
(
430
char
const
* job,
431
lapack_int
const
* m,
lapack_int
const
* n,
432
double
const
* D,
433
double
* SEP,
434
lapack_int
* info
435
#ifdef
LAPACK_FORTRAN_STRLEN_END
436
,
size_t
437
#endif
438
);
439
#ifdef LAPACK_FORTRAN_STRLEN_END
440
#define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__, 1)
441
#else
442
#define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__)
443
#endif
444
445
#define LAPACK_sdisna_base LAPACK_GLOBAL(sdisna,SDISNA)
446
void
LAPACK_sdisna_base
(
447
char
const
* job,
448
lapack_int
const
* m,
lapack_int
const
* n,
449
float
const
* D,
450
float
* SEP,
451
lapack_int
* info
452
#ifdef
LAPACK_FORTRAN_STRLEN_END
453
,
size_t
454
#endif
455
);
456
#ifdef LAPACK_FORTRAN_STRLEN_END
457
#define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__, 1)
458
#else
459
#define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__)
460
#endif
461
462
#define LAPACK_cgbbrd_base LAPACK_GLOBAL(cgbbrd,CGBBRD)
463
void
LAPACK_cgbbrd_base
(
464
char
const
* vect,
465
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* ncc,
lapack_int
const
* kl,
lapack_int
const
* ku,
466
lapack_complex_float
* AB,
lapack_int
const
* ldab,
467
float
* D,
468
float
* E,
469
lapack_complex_float
* Q,
lapack_int
const
* ldq,
470
lapack_complex_float
* PT,
lapack_int
const
* ldpt,
471
lapack_complex_float
* C,
lapack_int
const
* ldc,
472
lapack_complex_float
* work,
473
float
* rwork,
474
lapack_int
* info
475
#ifdef
LAPACK_FORTRAN_STRLEN_END
476
,
size_t
477
#endif
478
);
479
#ifdef LAPACK_FORTRAN_STRLEN_END
480
#define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__, 1)
481
#else
482
#define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__)
483
#endif
484
485
#define LAPACK_dgbbrd_base LAPACK_GLOBAL(dgbbrd,DGBBRD)
486
void
LAPACK_dgbbrd_base
(
487
char
const
* vect,
488
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* ncc,
lapack_int
const
* kl,
lapack_int
const
* ku,
489
double
* AB,
lapack_int
const
* ldab,
490
double
* D,
491
double
* E,
492
double
* Q,
lapack_int
const
* ldq,
493
double
* PT,
lapack_int
const
* ldpt,
494
double
* C,
lapack_int
const
* ldc,
495
double
* work,
496
lapack_int
* info
497
#ifdef
LAPACK_FORTRAN_STRLEN_END
498
,
size_t
499
#endif
500
);
501
#ifdef LAPACK_FORTRAN_STRLEN_END
502
#define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__, 1)
503
#else
504
#define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__)
505
#endif
506
507
#define LAPACK_sgbbrd_base LAPACK_GLOBAL(sgbbrd,SGBBRD)
508
void
LAPACK_sgbbrd_base
(
509
char
const
* vect,
510
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* ncc,
lapack_int
const
* kl,
lapack_int
const
* ku,
511
float
* AB,
lapack_int
const
* ldab,
512
float
* D,
513
float
* E,
514
float
* Q,
lapack_int
const
* ldq,
515
float
* PT,
lapack_int
const
* ldpt,
516
float
* C,
lapack_int
const
* ldc,
517
float
* work,
518
lapack_int
* info
519
#ifdef
LAPACK_FORTRAN_STRLEN_END
520
,
size_t
521
#endif
522
);
523
#ifdef LAPACK_FORTRAN_STRLEN_END
524
#define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__, 1)
525
#else
526
#define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__)
527
#endif
528
529
#define LAPACK_zgbbrd_base LAPACK_GLOBAL(zgbbrd,ZGBBRD)
530
void
LAPACK_zgbbrd_base
(
531
char
const
* vect,
532
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* ncc,
lapack_int
const
* kl,
lapack_int
const
* ku,
533
lapack_complex_double
* AB,
lapack_int
const
* ldab,
534
double
* D,
535
double
* E,
536
lapack_complex_double
* Q,
lapack_int
const
* ldq,
537
lapack_complex_double
* PT,
lapack_int
const
* ldpt,
538
lapack_complex_double
* C,
lapack_int
const
* ldc,
539
lapack_complex_double
* work,
540
double
* rwork,
541
lapack_int
* info
542
#ifdef
LAPACK_FORTRAN_STRLEN_END
543
,
size_t
544
#endif
545
);
546
#ifdef LAPACK_FORTRAN_STRLEN_END
547
#define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__, 1)
548
#else
549
#define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__)
550
#endif
551
552
#define LAPACK_cgbcon_base LAPACK_GLOBAL(cgbcon,CGBCON)
553
void
LAPACK_cgbcon_base
(
554
char
const
* norm,
555
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
556
lapack_complex_float
const
* AB,
lapack_int
const
* ldab,
lapack_int
const
* ipiv,
557
float
const
* anorm,
558
float
* rcond,
559
lapack_complex_float
* work,
560
float
* rwork,
561
lapack_int
* info
562
#ifdef
LAPACK_FORTRAN_STRLEN_END
563
,
size_t
564
#endif
565
);
566
#ifdef LAPACK_FORTRAN_STRLEN_END
567
#define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__, 1)
568
#else
569
#define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__)
570
#endif
571
572
#define LAPACK_dgbcon_base LAPACK_GLOBAL(dgbcon,DGBCON)
573
void
LAPACK_dgbcon_base
(
574
char
const
* norm,
575
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
576
double
const
* AB,
lapack_int
const
* ldab,
lapack_int
const
* ipiv,
577
double
const
* anorm,
578
double
* rcond,
579
double
* work,
580
lapack_int
* iwork,
581
lapack_int
* info
582
#ifdef
LAPACK_FORTRAN_STRLEN_END
583
,
size_t
584
#endif
585
);
586
#ifdef LAPACK_FORTRAN_STRLEN_END
587
#define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__, 1)
588
#else
589
#define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__)
590
#endif
591
592
#define LAPACK_sgbcon_base LAPACK_GLOBAL(sgbcon,SGBCON)
593
void
LAPACK_sgbcon_base
(
594
char
const
* norm,
595
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
596
float
const
* AB,
lapack_int
const
* ldab,
lapack_int
const
* ipiv,
597
float
const
* anorm,
598
float
* rcond,
599
float
* work,
600
lapack_int
* iwork,
601
lapack_int
* info
602
#ifdef
LAPACK_FORTRAN_STRLEN_END
603
,
size_t
604
#endif
605
);
606
#ifdef LAPACK_FORTRAN_STRLEN_END
607
#define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__, 1)
608
#else
609
#define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__)
610
#endif
611
612
#define LAPACK_zgbcon_base LAPACK_GLOBAL(zgbcon,ZGBCON)
613
void
LAPACK_zgbcon_base
(
614
char
const
* norm,
615
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
616
lapack_complex_double
const
* AB,
lapack_int
const
* ldab,
lapack_int
const
* ipiv,
617
double
const
* anorm,
618
double
* rcond,
619
lapack_complex_double
* work,
620
double
* rwork,
621
lapack_int
* info
622
#ifdef
LAPACK_FORTRAN_STRLEN_END
623
,
size_t
624
#endif
625
);
626
#ifdef LAPACK_FORTRAN_STRLEN_END
627
#define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__, 1)
628
#else
629
#define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__)
630
#endif
631
632
#define LAPACK_cgbequ LAPACK_GLOBAL(cgbequ,CGBEQU)
633
void
LAPACK_cgbequ
(
634
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
635
lapack_complex_float
const
* AB,
lapack_int
const
* ldab,
636
float
* R,
637
float
* C,
638
float
* rowcnd,
639
float
* colcnd,
640
float
* amax,
641
lapack_int
* info );
642
643
#define LAPACK_dgbequ LAPACK_GLOBAL(dgbequ,DGBEQU)
644
void
LAPACK_dgbequ
(
645
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
646
double
const
* AB,
lapack_int
const
* ldab,
647
double
* R,
648
double
* C,
649
double
* rowcnd,
650
double
* colcnd,
651
double
* amax,
652
lapack_int
* info );
653
654
#define LAPACK_sgbequ LAPACK_GLOBAL(sgbequ,SGBEQU)
655
void
LAPACK_sgbequ
(
656
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
657
float
const
* AB,
lapack_int
const
* ldab,
658
float
* R,
659
float
* C,
660
float
* rowcnd,
661
float
* colcnd,
662
float
* amax,
663
lapack_int
* info );
664
665
#define LAPACK_zgbequ LAPACK_GLOBAL(zgbequ,ZGBEQU)
666
void
LAPACK_zgbequ
(
667
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
668
lapack_complex_double
const
* AB,
lapack_int
const
* ldab,
669
double
* R,
670
double
* C,
671
double
* rowcnd,
672
double
* colcnd,
673
double
* amax,
674
lapack_int
* info );
675
676
#define LAPACK_cgbequb LAPACK_GLOBAL(cgbequb,CGBEQUB)
677
void
LAPACK_cgbequb
(
678
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
679
lapack_complex_float
const
* AB,
lapack_int
const
* ldab,
680
float
* R,
681
float
* C,
682
float
* rowcnd,
683
float
* colcnd,
684
float
* amax,
685
lapack_int
* info );
686
687
#define LAPACK_dgbequb LAPACK_GLOBAL(dgbequb,DGBEQUB)
688
void
LAPACK_dgbequb
(
689
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
690
double
const
* AB,
lapack_int
const
* ldab,
691
double
* R,
692
double
* C,
693
double
* rowcnd,
694
double
* colcnd,
695
double
* amax,
696
lapack_int
* info );
697
698
#define LAPACK_sgbequb LAPACK_GLOBAL(sgbequb,SGBEQUB)
699
void
LAPACK_sgbequb
(
700
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
701
float
const
* AB,
lapack_int
const
* ldab,
702
float
* R,
703
float
* C,
704
float
* rowcnd,
705
float
* colcnd,
706
float
* amax,
707
lapack_int
* info );
708
709
#define LAPACK_zgbequb LAPACK_GLOBAL(zgbequb,ZGBEQUB)
710
void
LAPACK_zgbequb
(
711
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
712
lapack_complex_double
const
* AB,
lapack_int
const
* ldab,
713
double
* R,
714
double
* C,
715
double
* rowcnd,
716
double
* colcnd,
717
double
* amax,
718
lapack_int
* info );
719
720
#define LAPACK_cgbrfs_base LAPACK_GLOBAL(cgbrfs,CGBRFS)
721
void
LAPACK_cgbrfs_base
(
722
char
const
* trans,
723
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
724
lapack_complex_float
const
* AB,
lapack_int
const
* ldab,
725
lapack_complex_float
const
* AFB,
lapack_int
const
* ldafb,
lapack_int
const
* ipiv,
726
lapack_complex_float
const
* B,
lapack_int
const
* ldb,
727
lapack_complex_float
* X,
lapack_int
const
* ldx,
728
float
* ferr,
729
float
* berr,
730
lapack_complex_float
* work,
731
float
* rwork,
732
lapack_int
* info
733
#ifdef
LAPACK_FORTRAN_STRLEN_END
734
,
size_t
735
#endif
736
);
737
#ifdef LAPACK_FORTRAN_STRLEN_END
738
#define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__, 1)
739
#else
740
#define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__)
741
#endif
742
743
#define LAPACK_dgbrfs_base LAPACK_GLOBAL(dgbrfs,DGBRFS)
744
void
LAPACK_dgbrfs_base
(
745
char
const
* trans,
746
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
747
double
const
* AB,
lapack_int
const
* ldab,
748
double
const
* AFB,
lapack_int
const
* ldafb,
lapack_int
const
* ipiv,
749
double
const
* B,
lapack_int
const
* ldb,
750
double
* X,
lapack_int
const
* ldx,
751
double
* ferr,
752
double
* berr,
753
double
* work,
754
lapack_int
* iwork,
755
lapack_int
* info
756
#ifdef
LAPACK_FORTRAN_STRLEN_END
757
,
size_t
758
#endif
759
);
760
#ifdef LAPACK_FORTRAN_STRLEN_END
761
#define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__, 1)
762
#else
763
#define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__)
764
#endif
765
766
#define LAPACK_sgbrfs_base LAPACK_GLOBAL(sgbrfs,SGBRFS)
767
void
LAPACK_sgbrfs_base
(
768
char
const
* trans,
769
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
770
float
const
* AB,
lapack_int
const
* ldab,
771
float
const
* AFB,
lapack_int
const
* ldafb,
lapack_int
const
* ipiv,
772
float
const
* B,
lapack_int
const
* ldb,
773
float
* X,
lapack_int
const
* ldx,
774
float
* ferr,
775
float
* berr,
776
float
* work,
777
lapack_int
* iwork,
778
lapack_int
* info
779
#ifdef
LAPACK_FORTRAN_STRLEN_END
780
,
size_t
781
#endif
782
);
783
#ifdef LAPACK_FORTRAN_STRLEN_END
784
#define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__, 1)
785
#else
786
#define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__)
787
#endif
788
789
#define LAPACK_zgbrfs_base LAPACK_GLOBAL(zgbrfs,ZGBRFS)
790
void
LAPACK_zgbrfs_base
(
791
char
const
* trans,
792
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
793
lapack_complex_double
const
* AB,
lapack_int
const
* ldab,
794
lapack_complex_double
const
* AFB,
lapack_int
const
* ldafb,
lapack_int
const
* ipiv,
795
lapack_complex_double
const
* B,
lapack_int
const
* ldb,
796
lapack_complex_double
* X,
lapack_int
const
* ldx,
797
double
* ferr,
798
double
* berr,
799
lapack_complex_double
* work,
800
double
* rwork,
801
lapack_int
* info
802
#ifdef
LAPACK_FORTRAN_STRLEN_END
803
,
size_t
804
#endif
805
);
806
#ifdef LAPACK_FORTRAN_STRLEN_END
807
#define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__, 1)
808
#else
809
#define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__)
810
#endif
811
812
#define LAPACK_cgbrfsx_base LAPACK_GLOBAL(cgbrfsx,CGBRFSX)
813
void
LAPACK_cgbrfsx_base
(
814
char
const
* trans,
char
const
* equed,
815
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
816
lapack_complex_float
const
* AB,
lapack_int
const
* ldab,
817
lapack_complex_float
const
* AFB,
lapack_int
const
* ldafb,
lapack_int
const
* ipiv,
818
const
float
* R,
819
const
float
* C,
820
lapack_complex_float
const
* B,
lapack_int
const
* ldb,
821
lapack_complex_float
* X,
lapack_int
const
* ldx,
822
float
* rcond,
823
float
* berr,
lapack_int
const
* n_err_bnds,
824
float
* err_bnds_norm,
825
float
* err_bnds_comp,
lapack_int
const
* nparams,
826
float
* params,
827
lapack_complex_float
* work,
828
float
* rwork,
829
lapack_int
* info
830
#ifdef
LAPACK_FORTRAN_STRLEN_END
831
,
size_t
,
size_t
832
#endif
833
);
834
#ifdef LAPACK_FORTRAN_STRLEN_END
835
#define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__, 1, 1)
836
#else
837
#define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__)
838
#endif
839
840
#define LAPACK_dgbrfsx_base LAPACK_GLOBAL(dgbrfsx,DGBRFSX)
841
void
LAPACK_dgbrfsx_base
(
842
char
const
* trans,
char
const
* equed,
843
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
844
double
const
* AB,
lapack_int
const
* ldab,
845
double
const
* AFB,
lapack_int
const
* ldafb,
lapack_int
const
* ipiv,
846
const
double
* R,
847
const
double
* C,
848
double
const
* B,
lapack_int
const
* ldb,
849
double
* X,
lapack_int
const
* ldx,
850
double
* rcond,
851
double
* berr,
lapack_int
const
* n_err_bnds,
852
double
* err_bnds_norm,
853
double
* err_bnds_comp,
lapack_int
const
* nparams,
854
double
* params,
855
double
* work,
856
lapack_int
* iwork,
857
lapack_int
* info
858
#ifdef
LAPACK_FORTRAN_STRLEN_END
859
,
size_t
,
size_t
860
#endif
861
);
862
#ifdef LAPACK_FORTRAN_STRLEN_END
863
#define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__, 1, 1)
864
#else
865
#define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__)
866
#endif
867
868
#define LAPACK_sgbrfsx_base LAPACK_GLOBAL(sgbrfsx,SGBRFSX)
869
void
LAPACK_sgbrfsx_base
(
870
char
const
* trans,
char
const
* equed,
871
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
872
float
const
* AB,
lapack_int
const
* ldab,
873
float
const
* AFB,
lapack_int
const
* ldafb,
lapack_int
const
* ipiv,
874
const
float
* R,
875
const
float
* C,
876
float
const
* B,
lapack_int
const
* ldb,
877
float
* X,
lapack_int
const
* ldx,
878
float
* rcond,
879
float
* berr,
lapack_int
const
* n_err_bnds,
880
float
* err_bnds_norm,
881
float
* err_bnds_comp,
lapack_int
const
* nparams,
882
float
* params,
883
float
* work,
884
lapack_int
* iwork,
885
lapack_int
* info
886
#ifdef
LAPACK_FORTRAN_STRLEN_END
887
,
size_t
,
size_t
888
#endif
889
);
890
#ifdef LAPACK_FORTRAN_STRLEN_END
891
#define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__, 1, 1)
892
#else
893
#define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__)
894
#endif
895
896
#define LAPACK_zgbrfsx_base LAPACK_GLOBAL(zgbrfsx,ZGBRFSX)
897
void
LAPACK_zgbrfsx_base
(
898
char
const
* trans,
char
const
* equed,
899
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
900
lapack_complex_double
const
* AB,
lapack_int
const
* ldab,
901
lapack_complex_double
const
* AFB,
lapack_int
const
* ldafb,
lapack_int
const
* ipiv,
902
const
double
* R,
903
const
double
* C,
904
lapack_complex_double
const
* B,
lapack_int
const
* ldb,
905
lapack_complex_double
* X,
lapack_int
const
* ldx,
906
double
* rcond,
907
double
* berr,
lapack_int
const
* n_err_bnds,
908
double
* err_bnds_norm,
909
double
* err_bnds_comp,
lapack_int
const
* nparams,
910
double
* params,
911
lapack_complex_double
* work,
912
double
* rwork,
913
lapack_int
* info
914
#ifdef
LAPACK_FORTRAN_STRLEN_END
915
,
size_t
,
size_t
916
#endif
917
);
918
#ifdef LAPACK_FORTRAN_STRLEN_END
919
#define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__, 1, 1)
920
#else
921
#define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__)
922
#endif
923
924
#define LAPACK_cgbsv LAPACK_GLOBAL(cgbsv,CGBSV)
925
void
LAPACK_cgbsv
(
926
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
927
lapack_complex_float
* AB,
lapack_int
const
* ldab,
lapack_int
* ipiv,
928
lapack_complex_float
* B,
lapack_int
const
* ldb,
929
lapack_int
* info );
930
931
#define LAPACK_dgbsv LAPACK_GLOBAL(dgbsv,DGBSV)
932
void
LAPACK_dgbsv
(
933
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
934
double
* AB,
lapack_int
const
* ldab,
lapack_int
* ipiv,
935
double
* B,
lapack_int
const
* ldb,
936
lapack_int
* info );
937
938
#define LAPACK_sgbsv LAPACK_GLOBAL(sgbsv,SGBSV)
939
void
LAPACK_sgbsv
(
940
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
941
float
* AB,
lapack_int
const
* ldab,
lapack_int
* ipiv,
942
float
* B,
lapack_int
const
* ldb,
943
lapack_int
* info );
944
945
#define LAPACK_zgbsv LAPACK_GLOBAL(zgbsv,ZGBSV)
946
void
LAPACK_zgbsv
(
947
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
948
lapack_complex_double
* AB,
lapack_int
const
* ldab,
lapack_int
* ipiv,
949
lapack_complex_double
* B,
lapack_int
const
* ldb,
950
lapack_int
* info );
951
952
#define LAPACK_cgbsvx_base LAPACK_GLOBAL(cgbsvx,CGBSVX)
953
void
LAPACK_cgbsvx_base
(
954
char
const
* fact,
char
const
* trans,
955
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
956
lapack_complex_float
* AB,
lapack_int
const
* ldab,
957
lapack_complex_float
* AFB,
lapack_int
const
* ldafb,
lapack_int
* ipiv,
char
* equed,
958
float
* R,
959
float
* C,
960
lapack_complex_float
* B,
961
lapack_int
const
* ldb,
962
lapack_complex_float
* X,
lapack_int
const
* ldx,
963
float
* rcond,
964
float
* ferr,
965
float
* berr,
966
lapack_complex_float
* work,
967
float
* rwork,
968
lapack_int
* info
969
#ifdef
LAPACK_FORTRAN_STRLEN_END
970
,
size_t
,
size_t
,
size_t
971
#endif
972
);
973
#ifdef LAPACK_FORTRAN_STRLEN_END
974
#define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__, 1, 1, 1)
975
#else
976
#define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__)
977
#endif
978
979
#define LAPACK_dgbsvx_base LAPACK_GLOBAL(dgbsvx,DGBSVX)
980
void
LAPACK_dgbsvx_base
(
981
char
const
* fact,
char
const
* trans,
982
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
983
double
* AB,
lapack_int
const
* ldab,
984
double
* AFB,
lapack_int
const
* ldafb,
lapack_int
* ipiv,
char
* equed,
985
double
* R,
986
double
* C,
987
double
* B,
988
lapack_int
const
* ldb,
989
double
* X,
lapack_int
const
* ldx,
990
double
* rcond,
991
double
* ferr,
992
double
* berr,
993
double
* work,
994
lapack_int
* iwork,
995
lapack_int
* info
996
#ifdef
LAPACK_FORTRAN_STRLEN_END
997
,
size_t
,
size_t
,
size_t
998
#endif
999
);
1000
#ifdef LAPACK_FORTRAN_STRLEN_END
1001
#define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__, 1, 1, 1)
1002
#else
1003
#define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__)
1004
#endif
1005
1006
#define LAPACK_sgbsvx_base LAPACK_GLOBAL(sgbsvx,SGBSVX)
1007
void
LAPACK_sgbsvx_base
(
1008
char
const
* fact,
char
const
* trans,
1009
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
1010
float
* AB,
lapack_int
const
* ldab,
1011
float
* AFB,
lapack_int
const
* ldafb,
lapack_int
* ipiv,
char
* equed,
1012
float
* R,
1013
float
* C,
1014
float
* B,
1015
lapack_int
const
* ldb,
1016
float
* X,
lapack_int
const
* ldx,
1017
float
* rcond,
1018
float
* ferr,
1019
float
* berr,
1020
float
* work,
1021
lapack_int
* iwork,
1022
lapack_int
* info
1023
#ifdef
LAPACK_FORTRAN_STRLEN_END
1024
,
size_t
,
size_t
,
size_t
1025
#endif
1026
);
1027
#ifdef LAPACK_FORTRAN_STRLEN_END
1028
#define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__, 1, 1, 1)
1029
#else
1030
#define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__)
1031
#endif
1032
1033
#define LAPACK_zgbsvx_base LAPACK_GLOBAL(zgbsvx,ZGBSVX)
1034
void
LAPACK_zgbsvx_base
(
1035
char
const
* fact,
char
const
* trans,
1036
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
1037
lapack_complex_double
* AB,
lapack_int
const
* ldab,
1038
lapack_complex_double
* AFB,
lapack_int
const
* ldafb,
lapack_int
* ipiv,
char
* equed,
1039
double
* R,
1040
double
* C,
1041
lapack_complex_double
* B,
1042
lapack_int
const
* ldb,
1043
lapack_complex_double
* X,
lapack_int
const
* ldx,
1044
double
* rcond,
1045
double
* ferr,
1046
double
* berr,
1047
lapack_complex_double
* work,
1048
double
* rwork,
1049
lapack_int
* info
1050
#ifdef
LAPACK_FORTRAN_STRLEN_END
1051
,
size_t
,
size_t
,
size_t
1052
#endif
1053
);
1054
#ifdef LAPACK_FORTRAN_STRLEN_END
1055
#define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__, 1, 1, 1)
1056
#else
1057
#define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__)
1058
#endif
1059
1060
#define LAPACK_cgbsvxx_base LAPACK_GLOBAL(cgbsvxx,CGBSVXX)
1061
void
LAPACK_cgbsvxx_base
(
1062
char
const
* fact,
char
const
* trans,
1063
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
1064
lapack_complex_float
* AB,
lapack_int
const
* ldab,
1065
lapack_complex_float
* AFB,
lapack_int
const
* ldafb,
lapack_int
* ipiv,
char
* equed,
1066
float
* R,
1067
float
* C,
1068
lapack_complex_float
* B,
1069
lapack_int
const
* ldb,
1070
lapack_complex_float
* X,
lapack_int
const
* ldx,
1071
float
* rcond,
1072
float
* rpvgrw,
1073
float
* berr,
lapack_int
const
* n_err_bnds,
1074
float
* err_bnds_norm,
1075
float
* err_bnds_comp,
lapack_int
const
* nparams,
1076
float
* params,
1077
lapack_complex_float
* work,
1078
float
* rwork,
1079
lapack_int
* info
1080
#ifdef
LAPACK_FORTRAN_STRLEN_END
1081
,
size_t
,
size_t
,
size_t
1082
#endif
1083
);
1084
#ifdef LAPACK_FORTRAN_STRLEN_END
1085
#define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1086
#else
1087
#define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__)
1088
#endif
1089
1090
#define LAPACK_dgbsvxx_base LAPACK_GLOBAL(dgbsvxx,DGBSVXX)
1091
void
LAPACK_dgbsvxx_base
(
1092
char
const
* fact,
char
const
* trans,
1093
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
1094
double
* AB,
lapack_int
const
* ldab,
1095
double
* AFB,
lapack_int
const
* ldafb,
lapack_int
* ipiv,
char
* equed,
1096
double
* R,
1097
double
* C,
1098
double
* B,
1099
lapack_int
const
* ldb,
1100
double
* X,
lapack_int
const
* ldx,
1101
double
* rcond,
1102
double
* rpvgrw,
1103
double
* berr,
lapack_int
const
* n_err_bnds,
1104
double
* err_bnds_norm,
1105
double
* err_bnds_comp,
lapack_int
const
* nparams,
1106
double
* params,
1107
double
* work,
1108
lapack_int
* iwork,
1109
lapack_int
* info
1110
#ifdef
LAPACK_FORTRAN_STRLEN_END
1111
,
size_t
,
size_t
,
size_t
1112
#endif
1113
);
1114
#ifdef LAPACK_FORTRAN_STRLEN_END
1115
#define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1116
#else
1117
#define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__)
1118
#endif
1119
1120
#define LAPACK_sgbsvxx_base LAPACK_GLOBAL(sgbsvxx,SGBSVXX)
1121
void
LAPACK_sgbsvxx_base
(
1122
char
const
* fact,
char
const
* trans,
1123
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
1124
float
* AB,
lapack_int
const
* ldab,
1125
float
* AFB,
lapack_int
const
* ldafb,
lapack_int
* ipiv,
char
* equed,
1126
float
* R,
1127
float
* C,
1128
float
* B,
1129
lapack_int
const
* ldb,
1130
float
* X,
lapack_int
const
* ldx,
1131
float
* rcond,
1132
float
* rpvgrw,
1133
float
* berr,
lapack_int
const
* n_err_bnds,
1134
float
* err_bnds_norm,
1135
float
* err_bnds_comp,
lapack_int
const
* nparams,
1136
float
* params,
1137
float
* work,
1138
lapack_int
* iwork,
1139
lapack_int
* info
1140
#ifdef
LAPACK_FORTRAN_STRLEN_END
1141
,
size_t
,
size_t
,
size_t
1142
#endif
1143
);
1144
#ifdef LAPACK_FORTRAN_STRLEN_END
1145
#define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1146
#else
1147
#define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__)
1148
#endif
1149
1150
#define LAPACK_zgbsvxx_base LAPACK_GLOBAL(zgbsvxx,ZGBSVXX)
1151
void
LAPACK_zgbsvxx_base
(
1152
char
const
* fact,
char
const
* trans,
1153
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
1154
lapack_complex_double
* AB,
lapack_int
const
* ldab,
1155
lapack_complex_double
* AFB,
lapack_int
const
* ldafb,
lapack_int
* ipiv,
char
* equed,
1156
double
* R,
1157
double
* C,
1158
lapack_complex_double
* B,
1159
lapack_int
const
* ldb,
1160
lapack_complex_double
* X,
lapack_int
const
* ldx,
1161
double
* rcond,
1162
double
* rpvgrw,
1163
double
* berr,
lapack_int
const
* n_err_bnds,
1164
double
* err_bnds_norm,
1165
double
* err_bnds_comp,
lapack_int
const
* nparams,
1166
double
* params,
1167
lapack_complex_double
* work,
1168
double
* rwork,
1169
lapack_int
* info
1170
#ifdef
LAPACK_FORTRAN_STRLEN_END
1171
,
size_t
,
size_t
,
size_t
1172
#endif
1173
);
1174
#ifdef LAPACK_FORTRAN_STRLEN_END
1175
#define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1176
#else
1177
#define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__)
1178
#endif
1179
1180
#define LAPACK_cgbtrf LAPACK_GLOBAL(cgbtrf,CGBTRF)
1181
void
LAPACK_cgbtrf
(
1182
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
1183
lapack_complex_float
* AB,
lapack_int
const
* ldab,
lapack_int
* ipiv,
1184
lapack_int
* info );
1185
1186
#define LAPACK_dgbtrf LAPACK_GLOBAL(dgbtrf,DGBTRF)
1187
void
LAPACK_dgbtrf
(
1188
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
1189
double
* AB,
lapack_int
const
* ldab,
lapack_int
* ipiv,
1190
lapack_int
* info );
1191
1192
#define LAPACK_sgbtrf LAPACK_GLOBAL(sgbtrf,SGBTRF)
1193
void
LAPACK_sgbtrf
(
1194
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
1195
float
* AB,
lapack_int
const
* ldab,
lapack_int
* ipiv,
1196
lapack_int
* info );
1197
1198
#define LAPACK_zgbtrf LAPACK_GLOBAL(zgbtrf,ZGBTRF)
1199
void
LAPACK_zgbtrf
(
1200
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
1201
lapack_complex_double
* AB,
lapack_int
const
* ldab,
lapack_int
* ipiv,
1202
lapack_int
* info );
1203
1204
#define LAPACK_cgbtrs_base LAPACK_GLOBAL(cgbtrs,CGBTRS)
1205
void
LAPACK_cgbtrs_base
(
1206
char
const
* trans,
1207
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
1208
lapack_complex_float
const
* AB,
lapack_int
const
* ldab,
lapack_int
const
* ipiv,
1209
lapack_complex_float
* B,
lapack_int
const
* ldb,
1210
lapack_int
* info
1211
#ifdef
LAPACK_FORTRAN_STRLEN_END
1212
,
size_t
1213
#endif
1214
);
1215
#ifdef LAPACK_FORTRAN_STRLEN_END
1216
#define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__, 1)
1217
#else
1218
#define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__)
1219
#endif
1220
1221
#define LAPACK_dgbtrs_base LAPACK_GLOBAL(dgbtrs,DGBTRS)
1222
void
LAPACK_dgbtrs_base
(
1223
char
const
* trans,
1224
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
1225
double
const
* AB,
lapack_int
const
* ldab,
lapack_int
const
* ipiv,
1226
double
* B,
lapack_int
const
* ldb,
1227
lapack_int
* info
1228
#ifdef
LAPACK_FORTRAN_STRLEN_END
1229
,
size_t
1230
#endif
1231
);
1232
#ifdef LAPACK_FORTRAN_STRLEN_END
1233
#define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__, 1)
1234
#else
1235
#define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__)
1236
#endif
1237
1238
#define LAPACK_sgbtrs_base LAPACK_GLOBAL(sgbtrs,SGBTRS)
1239
void
LAPACK_sgbtrs_base
(
1240
char
const
* trans,
1241
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
1242
float
const
* AB,
lapack_int
const
* ldab,
lapack_int
const
* ipiv,
1243
float
* B,
lapack_int
const
* ldb,
1244
lapack_int
* info
1245
#ifdef
LAPACK_FORTRAN_STRLEN_END
1246
,
size_t
1247
#endif
1248
);
1249
#ifdef LAPACK_FORTRAN_STRLEN_END
1250
#define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__, 1)
1251
#else
1252
#define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__)
1253
#endif
1254
1255
#define LAPACK_zgbtrs_base LAPACK_GLOBAL(zgbtrs,ZGBTRS)
1256
void
LAPACK_zgbtrs_base
(
1257
char
const
* trans,
1258
lapack_int
const
* n,
lapack_int
const
* kl,
lapack_int
const
* ku,
lapack_int
const
* nrhs,
1259
lapack_complex_double
const
* AB,
lapack_int
const
* ldab,
lapack_int
const
* ipiv,
1260
lapack_complex_double
* B,
lapack_int
const
* ldb,
1261
lapack_int
* info
1262
#ifdef
LAPACK_FORTRAN_STRLEN_END
1263
,
size_t
1264
#endif
1265
);
1266
#ifdef LAPACK_FORTRAN_STRLEN_END
1267
#define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__, 1)
1268
#else
1269
#define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__)
1270
#endif
1271
1272
#define LAPACK_cgebak_base LAPACK_GLOBAL(cgebak,CGEBAK)
1273
void
LAPACK_cgebak_base
(
1274
char
const
* job,
char
const
* side,
1275
lapack_int
const
* n,
lapack_int
const
* ilo,
lapack_int
const
* ihi,
1276
float
const
* scale,
lapack_int
const
* m,
1277
lapack_complex_float
* V,
lapack_int
const
* ldv,
1278
lapack_int
* info
1279
#ifdef
LAPACK_FORTRAN_STRLEN_END
1280
,
size_t
,
size_t
1281
#endif
1282
);
1283
#ifdef LAPACK_FORTRAN_STRLEN_END
1284
#define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__, 1, 1)
1285
#else
1286
#define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__)
1287
#endif
1288
1289
#define LAPACK_dgebak_base LAPACK_GLOBAL(dgebak,DGEBAK)
1290
void
LAPACK_dgebak_base
(
1291
char
const
* job,
char
const
* side,
1292
lapack_int
const
* n,
lapack_int
const
* ilo,
lapack_int
const
* ihi,
1293
double
const
* scale,
lapack_int
const
* m,
1294
double
* V,
lapack_int
const
* ldv,
1295
lapack_int
* info
1296
#ifdef
LAPACK_FORTRAN_STRLEN_END
1297
,
size_t
,
size_t
1298
#endif
1299
);
1300
#ifdef LAPACK_FORTRAN_STRLEN_END
1301
#define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__, 1, 1)
1302
#else
1303
#define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__)
1304
#endif
1305
1306
#define LAPACK_sgebak_base LAPACK_GLOBAL(sgebak,SGEBAK)
1307
void
LAPACK_sgebak_base
(
1308
char
const
* job,
char
const
* side,
1309
lapack_int
const
* n,
lapack_int
const
* ilo,
lapack_int
const
* ihi,
1310
float
const
* scale,
lapack_int
const
* m,
1311
float
* V,
lapack_int
const
* ldv,
1312
lapack_int
* info
1313
#ifdef
LAPACK_FORTRAN_STRLEN_END
1314
,
size_t
,
size_t
1315
#endif
1316
);
1317
#ifdef LAPACK_FORTRAN_STRLEN_END
1318
#define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__, 1, 1)
1319
#else
1320
#define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__)
1321
#endif
1322
1323
#define LAPACK_zgebak_base LAPACK_GLOBAL(zgebak,ZGEBAK)
1324
void
LAPACK_zgebak_base
(
1325
char
const
* job,
char
const
* side,
1326
lapack_int
const
* n,
lapack_int
const
* ilo,
lapack_int
const
* ihi,
1327
double
const
* scale,
lapack_int
const
* m,
1328
lapack_complex_double
* V,
lapack_int
const
* ldv,
1329
lapack_int
* info
1330
#ifdef
LAPACK_FORTRAN_STRLEN_END
1331
,
size_t
,
size_t
1332
#endif
1333
);
1334
#ifdef LAPACK_FORTRAN_STRLEN_END
1335
#define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__, 1, 1)
1336
#else
1337
#define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__)
1338
#endif
1339
1340
#define LAPACK_cgebal_base LAPACK_GLOBAL(cgebal,CGEBAL)
1341
void
LAPACK_cgebal_base
(
1342
char
const
* job,
1343
lapack_int
const
* n,
1344
lapack_complex_float
* A,
lapack_int
const
* lda,
lapack_int
* ilo,
lapack_int
* ihi,
1345
float
* scale,
1346
lapack_int
* info
1347
#ifdef
LAPACK_FORTRAN_STRLEN_END
1348
,
size_t
1349
#endif
1350
);
1351
#ifdef LAPACK_FORTRAN_STRLEN_END
1352
#define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__, 1)
1353
#else
1354
#define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__)
1355
#endif
1356
1357
#define LAPACK_dgebal_base LAPACK_GLOBAL(dgebal,DGEBAL)
1358
void
LAPACK_dgebal_base
(
1359
char
const
* job,
1360
lapack_int
const
* n,
1361
double
* A,
lapack_int
const
* lda,
lapack_int
* ilo,
lapack_int
* ihi,
1362
double
* scale,
1363
lapack_int
* info
1364
#ifdef
LAPACK_FORTRAN_STRLEN_END
1365
,
size_t
1366
#endif
1367
);
1368
#ifdef LAPACK_FORTRAN_STRLEN_END
1369
#define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__, 1)
1370
#else
1371
#define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__)
1372
#endif
1373
1374
#define LAPACK_sgebal_base LAPACK_GLOBAL(sgebal,SGEBAL)
1375
void
LAPACK_sgebal_base
(
1376
char
const
* job,
1377
lapack_int
const
* n,
1378
float
* A,
lapack_int
const
* lda,
lapack_int
* ilo,
lapack_int
* ihi,
1379
float
* scale,
1380
lapack_int
* info
1381
#ifdef
LAPACK_FORTRAN_STRLEN_END
1382
,
size_t
1383
#endif
1384
);
1385
#ifdef LAPACK_FORTRAN_STRLEN_END
1386
#define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__, 1)
1387
#else
1388
#define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__)
1389
#endif
1390
1391
#define LAPACK_zgebal_base LAPACK_GLOBAL(zgebal,ZGEBAL)
1392
void
LAPACK_zgebal_base
(
1393
char
const
* job,
1394
lapack_int
const
* n,
1395
lapack_complex_double
* A,
lapack_int
const
* lda,
lapack_int
* ilo,
lapack_int
* ihi,
1396
double
* scale,
1397
lapack_int
* info
1398
#ifdef
LAPACK_FORTRAN_STRLEN_END
1399
,
size_t
1400
#endif
1401
);
1402
#ifdef LAPACK_FORTRAN_STRLEN_END
1403
#define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__, 1)
1404
#else
1405
#define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__)
1406
#endif
1407
1408
#define LAPACK_cgebrd LAPACK_GLOBAL(cgebrd,CGEBRD)
1409
void
LAPACK_cgebrd
(
1410
lapack_int
const
* m,
lapack_int
const
* n,
1411
lapack_complex_float
* A,
lapack_int
const
* lda,
1412
float
* D,
1413
float
* E,
1414
lapack_complex_float
* tauq,
1415
lapack_complex_float
* taup,
1416
lapack_complex_float
* work,
lapack_int
const
* lwork,
1417
lapack_int
* info );
1418
1419
#define LAPACK_dgebrd LAPACK_GLOBAL(dgebrd,DGEBRD)
1420
void
LAPACK_dgebrd
(
1421
lapack_int
const
* m,
lapack_int
const
* n,
1422
double
* A,
lapack_int
const
* lda,
1423
double
* D,
1424
double
* E,
1425
double
* tauq,
1426
double
* taup,
1427
double
* work,
lapack_int
const
* lwork,
1428
lapack_int
* info );
1429
1430
#define LAPACK_sgebrd LAPACK_GLOBAL(sgebrd,SGEBRD)
1431
void
LAPACK_sgebrd
(
1432
lapack_int
const
* m,
lapack_int
const
* n,
1433
float
* A,
lapack_int
const
* lda,
1434
float
* D,
1435
float
* E,
1436
float
* tauq,
1437
float
* taup,
1438
float
* work,
lapack_int
const
* lwork,
1439
lapack_int
* info );
1440
1441
#define LAPACK_zgebrd LAPACK_GLOBAL(zgebrd,ZGEBRD)
1442
void
LAPACK_zgebrd
(
1443
lapack_int
const
* m,
lapack_int
const
* n,
1444
lapack_complex_double
* A,
lapack_int
const
* lda,
1445
double
* D,
1446
double
* E,
1447
lapack_complex_double
* tauq,
1448
lapack_complex_double
* taup,
1449
lapack_complex_double
* work,
lapack_int
const
* lwork,
1450
lapack_int
* info );
1451
1452
#define LAPACK_cgecon_base LAPACK_GLOBAL(cgecon,CGECON)
1453
void
LAPACK_cgecon_base
(
1454
char
const
* norm,
1455
lapack_int
const
* n,
1456
lapack_complex_float
const
* A,
lapack_int
const
* lda,
1457
float
const
* anorm,
1458
float
* rcond,
1459
lapack_complex_float
* work,
1460
float
* rwork,
1461
lapack_int
* info
1462
#ifdef
LAPACK_FORTRAN_STRLEN_END
1463
,
size_t
1464
#endif
1465
);
1466
#ifdef LAPACK_FORTRAN_STRLEN_END
1467
#define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__, 1)
1468
#else
1469
#define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__)
1470
#endif
1471
1472
#define LAPACK_dgecon_base LAPACK_GLOBAL(dgecon,DGECON)
1473
void
LAPACK_dgecon_base
(
1474
char
const
* norm,
1475
lapack_int
const
* n,
1476
double
const
* A,
lapack_int
const
* lda,
1477
double
const
* anorm,
1478
double
* rcond,
1479
double
* work,
1480
lapack_int
* iwork,
1481
lapack_int
* info
1482
#ifdef
LAPACK_FORTRAN_STRLEN_END
1483
,
size_t
1484
#endif
1485
);
1486
#ifdef LAPACK_FORTRAN_STRLEN_END
1487
#define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__, 1)
1488
#else
1489
#define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__)
1490
#endif
1491
1492
#define LAPACK_sgecon_base LAPACK_GLOBAL(sgecon,SGECON)
1493
void
LAPACK_sgecon_base
(
1494
char
const
* norm,
1495
lapack_int
const
* n,
1496
float
const
* A,
lapack_int
const
* lda,
1497
float
const
* anorm,
1498
float
* rcond,
1499
float
* work,
1500
lapack_int
* iwork,
1501
lapack_int
* info
1502
#ifdef
LAPACK_FORTRAN_STRLEN_END
1503
,
size_t
1504
#endif
1505
);
1506
#ifdef LAPACK_FORTRAN_STRLEN_END
1507
#define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__, 1)
1508
#else
1509
#define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__)
1510
#endif
1511
1512
#define LAPACK_zgecon_base LAPACK_GLOBAL(zgecon,ZGECON)
1513
void
LAPACK_zgecon_base
(
1514
char
const
* norm,
1515
lapack_int
const
* n,
1516
lapack_complex_double
const
* A,
lapack_int
const
* lda,
1517
double
const
* anorm,
1518
double
* rcond,
1519
lapack_complex_double
* work,
1520
double
* rwork,
1521
lapack_int
* info
1522
#ifdef
LAPACK_FORTRAN_STRLEN_END
1523
,
size_t
1524
#endif
1525
);
1526
#ifdef LAPACK_FORTRAN_STRLEN_END
1527
#define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__, 1)
1528
#else
1529
#define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__)
1530
#endif
1531
1532
#define LAPACK_cgeequ LAPACK_GLOBAL(cgeequ,CGEEQU)
1533
void
LAPACK_cgeequ
(
1534
lapack_int
const
* m,
lapack_int
const
* n,
1535
lapack_complex_float
const
* A,
lapack_int
const
* lda,
1536
float
* R,
1537
float
* C,
1538
float
* rowcnd,
1539
float
* colcnd,
1540
float
* amax,
1541
lapack_int
* info );
1542
1543
#define LAPACK_dgeequ LAPACK_GLOBAL(dgeequ,DGEEQU)
1544
void
LAPACK_dgeequ
(
1545
lapack_int
const
* m,
lapack_int
const
* n,
1546
double
const
* A,
lapack_int
const
* lda,
1547
double
* R,
1548
double
* C,
1549
double
* rowcnd,
1550
double
* colcnd,
1551
double
* amax,
1552
lapack_int
* info );
1553
1554
#define LAPACK_sgeequ LAPACK_GLOBAL(sgeequ,SGEEQU)
1555
void
LAPACK_sgeequ
(
1556
lapack_int
const
* m,
lapack_int
const
* n,
1557
float
const
* A,
lapack_int
const
* lda,
1558
float
* R,
1559
float
* C,
1560
float
* rowcnd,
1561
float
* colcnd,
1562
float
* amax,
1563
lapack_int
* info );
1564
1565
#define LAPACK_zgeequ LAPACK_GLOBAL(zgeequ,ZGEEQU)
1566
void
LAPACK_zgeequ
(
1567
lapack_int
const
* m,
lapack_int
const
* n,
1568
lapack_complex_double
const
* A,
lapack_int
const
* lda,
1569
double
* R,
1570
double
* C,
1571
double
* rowcnd,
1572
double
* colcnd,
1573
double
* amax,
1574
lapack_int
* info );
1575
1576
#define LAPACK_cgeequb LAPACK_GLOBAL(cgeequb,CGEEQUB)
1577
void
LAPACK_cgeequb
(
1578
lapack_int
const
* m,
lapack_int
const
* n,
1579
lapack_complex_float
const
* A,
lapack_int
const
* lda,
1580
float
* R,
1581
float
* C,
1582
float
* rowcnd,
1583
float
* colcnd,
1584
float
* amax,
1585
lapack_int
* info );
1586
1587
#define LAPACK_dgeequb LAPACK_GLOBAL(dgeequb,DGEEQUB)
1588
void
LAPACK_dgeequb
(
1589
lapack_int
const
* m,
lapack_int
const
* n,
1590
double
const
* A,
lapack_int
const
* lda,
1591
double
* R,
1592
double
* C,
1593
double
* rowcnd,
1594
double
* colcnd,
1595
double
* amax,
1596
lapack_int
* info );
1597
1598
#define LAPACK_sgeequb LAPACK_GLOBAL(sgeequb,SGEEQUB)
1599
void
LAPACK_sgeequb
(
1600
lapack_int
const
* m,
lapack_int
const
* n,
1601
float
const
* A,
lapack_int
const
* lda,
1602
float
* R,
1603
float
* C,
1604
float
* rowcnd,
1605
float
* colcnd,
1606
float
* amax,
1607
lapack_int
* info );
1608
1609
#define LAPACK_zgeequb LAPACK_GLOBAL(zgeequb,ZGEEQUB)
1610
void
LAPACK_zgeequb
(
1611
lapack_int
const
* m,
lapack_int
const
* n,
1612
lapack_complex_double
const
* A,
lapack_int
const
* lda,
1613
double
* R,
1614
double
* C,
1615
double
* rowcnd,
1616
double
* colcnd,
1617
double
* amax,
1618
lapack_int
* info );
1619
1620
#define LAPACK_cgees_base LAPACK_GLOBAL(cgees,CGEES)
1621
void
LAPACK_cgees_base
(
1622
char
const
* jobvs,
char
const
* sort,
LAPACK_C_SELECT1
select,
1623
lapack_int
const
* n,
1624
lapack_complex_float
* A,
lapack_int
const
* lda,
lapack_int
* sdim,
1625
lapack_complex_float
* W,
1626
lapack_complex_float
* VS,
lapack_int
const
* ldvs,
1627
lapack_complex_float
* work,
lapack_int
const
* lwork,
1628
float
* rwork,
lapack_logical
* BWORK,
1629
lapack_int
* info
1630
#ifdef
LAPACK_FORTRAN_STRLEN_END
1631
,
size_t
,
size_t
1632
#endif
1633
);
1634
#ifdef LAPACK_FORTRAN_STRLEN_END
1635
#define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__, 1, 1)
1636
#else
1637
#define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__)
1638
#endif
1639
1640
#define LAPACK_dgees_base LAPACK_GLOBAL(dgees,DGEES)
1641
void
LAPACK_dgees_base
(
1642
char
const
* jobvs,
char
const
* sort,
LAPACK_D_SELECT2
select,
1643
lapack_int
const
* n,
1644
double
* A,
lapack_int
const
* lda,
lapack_int
* sdim,
1645
double
* WR,
1646
double
* WI,
1647
double
* VS,
lapack_int
const
* ldvs,
1648
double
* work,
lapack_int
const
* lwork,
lapack_logical
* BWORK,
1649
lapack_int
* info
1650
#ifdef
LAPACK_FORTRAN_STRLEN_END
1651
,
size_t
,
size_t
1652
#endif
1653
);
1654
#ifdef LAPACK_FORTRAN_STRLEN_END
1655
#define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__, 1, 1)
1656
#else
1657
#define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__)
1658
#endif
1659
1660
#define LAPACK_sgees_base LAPACK_GLOBAL(sgees,SGEES)
1661
void
LAPACK_sgees_base
(
1662
char
const
* jobvs,
char
const
* sort,
LAPACK_S_SELECT2
select,
1663
lapack_int
const
* n,
1664
float
* A,
lapack_int
const
* lda,
lapack_int
* sdim,
1665
float
* WR,
1666
float
* WI,
1667
float
* VS,
lapack_int
const
* ldvs,
1668
float
* work,
lapack_int
const
* lwork,
lapack_logical
* BWORK,
1669
lapack_int
* info
1670
#ifdef
LAPACK_FORTRAN_STRLEN_END
1671
,
size_t
,
size_t
1672
#endif
1673
);
1674
#ifdef LAPACK_FORTRAN_STRLEN_END
1675
#define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__, 1, 1)
1676
#else
1677
#define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__)
1678
#endif
1679
1680
#define LAPACK_zgees_base LAPACK_GLOBAL(zgees,ZGEES)
1681
void
LAPACK_zgees_base
(
1682
char
const
* jobvs,
char
const
* sort,
LAPACK_Z_SELECT1
select,
1683
lapack_int
const
* n,
1684
lapack_complex_double
* A,
lapack_int
const
* lda,
lapack_int
* sdim,
1685
lapack_complex_double
* W,
1686
lapack_complex_double
* VS,
lapack_int
const
* ldvs,
1687
lapack_complex_double
* work,
lapack_int
const
* lwork,
1688
double
* rwork,
lapack_logical
* BWORK,
1689
lapack_int
* info
1690
#ifdef
LAPACK_FORTRAN_STRLEN_END
1691
,
size_t
,
size_t
1692
#endif
1693
);
1694
#ifdef LAPACK_FORTRAN_STRLEN_END
1695
#define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__, 1, 1)
1696
#else
1697
#define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__)
1698
#endif
1699
1700
#define LAPACK_cgeesx_base LAPACK_GLOBAL(cgeesx,CGEESX)
1701
void
LAPACK_cgeesx_base
(
1702
char
const
* jobvs,
char
const
* sort,
LAPACK_C_SELECT1
select,
char
const
* sense,
1703
lapack_int
const
* n,
1704
lapack_complex_float
* A,
lapack_int
const
* lda,
lapack_int
* sdim,
1705
lapack_complex_float
* W,
1706
lapack_complex_float
* VS,
lapack_int
const
* ldvs,
1707
float
* rconde,
1708
float
* rcondv,
1709
lapack_complex_float
* work,
lapack_int
const
* lwork,
1710
float
* rwork,
lapack_logical
* BWORK,
1711
lapack_int
* info
1712
#ifdef
LAPACK_FORTRAN_STRLEN_END
1713
,
size_t
,
size_t
,
size_t
1714
#endif
1715
);
1716
#ifdef LAPACK_FORTRAN_STRLEN_END
1717
#define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__, 1, 1, 1)
1718
#else
1719
#define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__)
1720
#endif
1721
1722
#define LAPACK_dgeesx_base LAPACK_GLOBAL(dgeesx,DGEESX)
1723
void
LAPACK_dgeesx_base
(
1724
char
const
* jobvs,
char
const
* sort,
LAPACK_D_SELECT2
select,
char
const
* sense,
1725
lapack_int
const
* n,
1726
double
* A,
lapack_int
const
* lda,
lapack_int
* sdim,
1727
double
* WR,
1728
double
* WI,
1729
double
* VS,
lapack_int
const
* ldvs,
1730
double
* rconde,
1731
double
* rcondv,
1732
double
* work,
lapack_int
const
* lwork,
1733
lapack_int
* iwork,
lapack_int
const
* liwork,
lapack_logical
* BWORK,
1734
lapack_int
* info
1735
#ifdef
LAPACK_FORTRAN_STRLEN_END
1736
,
size_t
,
size_t
,
size_t
1737
#endif
1738
);
1739
#ifdef LAPACK_FORTRAN_STRLEN_END
1740
#define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__, 1, 1, 1)
1741
#else
1742
#define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__)
1743
#endif
1744
1745
#define LAPACK_sgeesx_base LAPACK_GLOBAL(sgeesx,SGEESX)
1746
void
LAPACK_sgeesx_base
(
1747
char
const
* jobvs,
char
const
* sort,
LAPACK_S_SELECT2
select,
char
const
* sense,
1748
lapack_int
const
* n,
1749
float
* A,
lapack_int
const
* lda,
lapack_int
* sdim,
1750
float
* WR,
1751
float
* WI,
1752
float
* VS,
lapack_int
const
* ldvs,
1753
float
* rconde,
1754
float
* rcondv,
1755
float
* work,
lapack_int
const
* lwork,
1756
lapack_int
* iwork,
lapack_int
const
* liwork,
lapack_logical
* BWORK,
1757
lapack_int
* info
1758
#ifdef
LAPACK_FORTRAN_STRLEN_END
1759
,
size_t
,
size_t
,
size_t
1760
#endif
1761
);
1762
#ifdef LAPACK_FORTRAN_STRLEN_END
1763
#define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__, 1, 1, 1)
1764
#else
1765
#define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__)
1766
#endif
1767
1768
#define LAPACK_zgeesx_base LAPACK_GLOBAL(zgeesx,ZGEESX)
1769
void
LAPACK_zgeesx_base
(
1770
char
const
* jobvs,
char
const
* sort,
LAPACK_Z_SELECT1
select,
char
const
* sense,
1771
lapack_int
const
* n,
1772
lapack_complex_double
* A,
lapack_int
const
* lda,
lapack_int
* sdim,
1773
lapack_complex_double
* W,
1774
lapack_complex_double
* VS,
lapack_int
const
* ldvs,
1775
double
* rconde,
1776
double
* rcondv,
1777
lapack_complex_double
* work,
lapack_int
const
* lwork,
1778
double
* rwork,
lapack_logical
* BWORK,
1779
lapack_int
* info
1780
#ifdef
LAPACK_FORTRAN_STRLEN_END
1781
,
size_t
,
size_t
,
size_t
1782
#endif
1783
);
1784
#ifdef LAPACK_FORTRAN_STRLEN_END
1785
#define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__, 1, 1, 1)
1786
#else
1787
#define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__)
1788
#endif
1789
1790
#define LAPACK_cgeev_base LAPACK_GLOBAL(cgeev,CGEEV)
1791
void
LAPACK_cgeev_base
(
1792
char
const
* jobvl,
char
const
* jobvr,
1793
lapack_int
const
* n,
1794
lapack_complex_float
* A,
lapack_int
const
* lda,
1795
lapack_complex_float
* W,
1796
lapack_complex_float
* VL,
lapack_int
const
* ldvl,
1797
lapack_complex_float
* VR,
lapack_int
const
* ldvr,
1798
lapack_complex_float
* work,
lapack_int
const
* lwork,
1799
float
* rwork,
1800
lapack_int
* info
1801
#ifdef
LAPACK_FORTRAN_STRLEN_END
1802
,
size_t
,
size_t
1803
#endif
1804
);
1805
#ifdef LAPACK_FORTRAN_STRLEN_END
1806
#define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__, 1, 1)
1807
#else
1808
#define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__)
1809
#endif
1810
1811
#define LAPACK_dgeev_base LAPACK_GLOBAL(dgeev,DGEEV)
1812
void
LAPACK_dgeev_base
(
1813
char
const
* jobvl,
char
const
* jobvr,
1814
lapack_int
const
* n,
1815
double
* A,
lapack_int
const
* lda,
1816
double
* WR,
1817
double
* WI,
1818
double
* VL,
lapack_int
const
* ldvl,
1819
double
* VR,
lapack_int
const
* ldvr,
1820
double
* work,
lapack_int
const
* lwork,
1821
lapack_int
* info
1822
#ifdef
LAPACK_FORTRAN_STRLEN_END
1823
,
size_t
,
size_t
1824
#endif
1825
);
1826
#ifdef LAPACK_FORTRAN_STRLEN_END
1827
#define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__, 1, 1)
1828
#else
1829
#define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__)
1830
#endif
1831
1832
#define LAPACK_sgeev_base LAPACK_GLOBAL(sgeev,SGEEV)
1833
void
LAPACK_sgeev_base
(
1834
char
const
* jobvl,
char
const
* jobvr,
1835
lapack_int
const
* n,
1836
float
* A,
lapack_int
const
* lda,
1837
float
* WR,
1838
float
* WI,
1839
float
* VL,
lapack_int
const
* ldvl,
1840
float
* VR,
lapack_int
const
* ldvr,
1841
float
* work,
lapack_int
const
* lwork,
1842
lapack_int
* info
1843
#ifdef
LAPACK_FORTRAN_STRLEN_END
1844
,
size_t
,
size_t
1845
#endif
1846
);
1847
#ifdef LAPACK_FORTRAN_STRLEN_END
1848
#define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__, 1, 1)
1849
#else
1850
#define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__)
1851
#endif
1852
1853
#define LAPACK_zgeev_base LAPACK_GLOBAL(zgeev,ZGEEV)
1854
void
LAPACK_zgeev_base
(
1855
char
const
* jobvl,
char
const
* jobvr,
1856
lapack_int
const
* n,
1857
lapack_complex_double
* A,
lapack_int
const
* lda,
1858
lapack_complex_double
* W,
1859
lapack_complex_double
* VL,
lapack_int
const
* ldvl,
1860
lapack_complex_double
* VR,
lapack_int
const
* ldvr,
1861
lapack_complex_double
* work,
lapack_int
const
* lwork,
1862
double
* rwork,
1863
lapack_int
* info
1864
#ifdef
LAPACK_FORTRAN_STRLEN_END
1865
,
size_t
,
size_t
1866
#endif
1867
);
1868
#ifdef LAPACK_FORTRAN_STRLEN_END
1869
#define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__, 1, 1)
1870
#else
1871
#define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__)
1872
#endif
1873
1874
#define LAPACK_cgeevx_base LAPACK_GLOBAL(cgeevx,CGEEVX)
1875
void
LAPACK_cgeevx_base
(
1876
char
const
* balanc,
char
const
* jobvl,
char
const
* jobvr,
char
const
* sense,
1877
lapack_int
const
* n,
1878
lapack_complex_float
* A,
lapack_int
const
* lda,
1879
lapack_complex_float
* W,
1880
lapack_complex_float
* VL,
lapack_int
const
* ldvl,
1881
lapack_complex_float
* VR,
lapack_int
const
* ldvr,
lapack_int
* ilo,
lapack_int
* ihi,
1882
float
* scale,
1883
float
* abnrm,
1884
float
* rconde,
1885
float
* rcondv,
1886
lapack_complex_float
* work,
lapack_int
const
* lwork,
1887
float
* rwork,
1888
lapack_int
* info
1889
#ifdef
LAPACK_FORTRAN_STRLEN_END
1890
,
size_t
,
size_t
,
size_t
,
size_t
1891
#endif
1892
);
1893
#ifdef LAPACK_FORTRAN_STRLEN_END
1894
#define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1895
#else
1896
#define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__)
1897
#endif
1898
1899
#define LAPACK_dgeevx_base LAPACK_GLOBAL(dgeevx,DGEEVX)
1900
void
LAPACK_dgeevx_base
(
1901
char
const
* balanc,
char
const
* jobvl,
char
const
* jobvr,
char
const
* sense,
1902
lapack_int
const
* n,
1903
double
* A,
lapack_int
const
* lda,
1904
double
* WR,
1905
double
* WI,
1906
double
* VL,
lapack_int
const
* ldvl,
1907
double
* VR,
lapack_int
const
* ldvr,
lapack_int
* ilo,
lapack_int
* ihi,
1908
double
* scale,
1909
double
* abnrm,
1910
double
* rconde,
1911
double
* rcondv,
1912
double
* work,
lapack_int
const
* lwork,
1913
lapack_int
* iwork,
1914
lapack_int
* info
1915
#ifdef
LAPACK_FORTRAN_STRLEN_END
1916
,
size_t
,
size_t
,
size_t
,
size_t
1917
#endif
1918
);
1919
#ifdef LAPACK_FORTRAN_STRLEN_END
1920
#define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1921
#else
1922
#define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__)
1923
#endif
1924
1925
#define LAPACK_sgeevx_base LAPACK_GLOBAL(sgeevx,SGEEVX)
1926
void
LAPACK_sgeevx_base
(
1927
char
const
* balanc,
char
const
* jobvl,
char
const
* jobvr,
char
const
* sense,
1928
lapack_int
const
* n,
1929
float
* A,
lapack_int
const
* lda,
1930
float
* WR,
1931
float
* WI,
1932
float
* VL,
lapack_int
const
* ldvl,
1933
float
* VR,
lapack_int
const
* ldvr,
lapack_int
* ilo,
lapack_int
* ihi,
1934
float
* scale,
1935
float
* abnrm,
1936
float
* rconde,
1937
float
* rcondv,
1938
float
* work,
lapack_int
const
* lwork,
1939
lapack_int
* iwork,
1940
lapack_int
* info
1941
#ifdef
LAPACK_FORTRAN_STRLEN_END
1942
,
size_t
,
size_t
,
size_t
,
size_t
1943
#endif
1944
);
1945
#ifdef LAPACK_FORTRAN_STRLEN_END
1946
#define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1947
#else
1948
#define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__)
1949
#endif
1950
1951
#define LAPACK_zgeevx_base LAPACK_GLOBAL(zgeevx,ZGEEVX)
1952
void
LAPACK_zgeevx_base
(
1953
char
const
* balanc,
char
const
* jobvl,
char
const
* jobvr,
char
const
* sense,
1954
lapack_int
const
* n,
1955
lapack_complex_double
* A,
lapack_int
const
* lda,
1956
lapack_complex_double
* W,
1957
lapack_complex_double
* VL,
lapack_int
const
* ldvl,
1958
lapack_complex_double
* VR,
lapack_int
const
* ldvr,
lapack_int
* ilo,
lapack_int
* ihi,
1959
double
* scale,
1960
double
* abnrm,
1961
double
* rconde,
1962
double
* rcondv,
1963
lapack_complex_double
* work,
lapack_int
const
* lwork,
1964
double
* rwork,
1965
lapack_int
* info
1966
#ifdef
LAPACK_FORTRAN_STRLEN_END
1967
,
size_t
,
size_t
,
size_t
,
size_t
1968
#endif
1969
);
1970
#ifdef LAPACK_FORTRAN_STRLEN_END
1971
#define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1972
#else
1973
#define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__)
1974
#endif
1975
1976
#define LAPACK_cgehrd LAPACK_GLOBAL(cgehrd,CGEHRD)
1977
void
LAPACK_cgehrd
(
1978
lapack_int
const
* n,
lapack_int
const
* ilo,
lapack_int
const
* ihi,
1979
lapack_complex_float
* A,
lapack_int
const
* lda,
1980
lapack_complex_float
* tau,
1981
lapack_complex_float
* work,
lapack_int
const
* lwork,
1982
lapack_int
* info );
1983
1984
#define LAPACK_dgehrd LAPACK_GLOBAL(dgehrd,DGEHRD)
1985
void
LAPACK_dgehrd
(
1986
lapack_int
const
* n,
lapack_int
const
* ilo,
lapack_int
const
* ihi,
1987
double
* A,
lapack_int
const
* lda,
1988
double
* tau,
1989
double
* work,
lapack_int
const
* lwork,
1990
lapack_int
* info );
1991
1992
#define LAPACK_sgehrd LAPACK_GLOBAL(sgehrd,SGEHRD)
1993
void
LAPACK_sgehrd
(
1994
lapack_int
const
* n,
lapack_int
const
* ilo,
lapack_int
const
* ihi,
1995
float
* A,
lapack_int
const
* lda,
1996
float
* tau,
1997
float
* work,
lapack_int
const
* lwork,
1998
lapack_int
* info );
1999
2000
#define LAPACK_zgehrd LAPACK_GLOBAL(zgehrd,ZGEHRD)
2001
void
LAPACK_zgehrd
(
2002
lapack_int
const
* n,
lapack_int
const
* ilo,
lapack_int
const
* ihi,
2003
lapack_complex_double
* A,
lapack_int
const
* lda,
2004
lapack_complex_double
* tau,
2005
lapack_complex_double
* work,
lapack_int
const
* lwork,
2006
lapack_int
* info );
2007
2008
#define LAPACK_cgejsv_base LAPACK_GLOBAL(cgejsv,CGEJSV)
2009
void
LAPACK_cgejsv_base
(
2010
char
const
* joba,
char
const
* jobu,
char
const
* jobv,
char
const
* jobr,
char
const
* jobt,
char
const
* jobp,
2011
lapack_int
const
* m,
lapack_int
const
* n,
2012
lapack_complex_float
* A,
lapack_int
const
* lda,
2013
float
* SVA,
2014
lapack_complex_float
* U,
lapack_int
const
* ldu,
2015
lapack_complex_float
* V,
lapack_int
const
* ldv,
2016
lapack_complex_float
* cwork,
lapack_int
const
* lwork,
2017
float
* rwork,
lapack_int
const
* lrwork,
2018
lapack_int
* iwork,
2019
lapack_int
* info
2020
#ifdef
LAPACK_FORTRAN_STRLEN_END
2021
,
size_t
,
size_t
,
size_t
,
size_t
,
size_t
,
size_t
2022
#endif
2023
);
2024
#ifdef LAPACK_FORTRAN_STRLEN_END
2025
#define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2026
#else
2027
#define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__)
2028
#endif
2029
2030
#define LAPACK_dgejsv_base LAPACK_GLOBAL(dgejsv,DGEJSV)
2031
void
LAPACK_dgejsv_base
(
2032
char
const
* joba,
char
const
* jobu,
char
const
* jobv,
char
const
* jobr,
char
const
* jobt,
char
const
* jobp,
2033
lapack_int
const
* m,
lapack_int
const
* n,
2034
double
* A,
lapack_int
const
* lda,
2035
double
* SVA,
2036
double
* U,
lapack_int
const
* ldu,
2037
double
* V,
lapack_int
const
* ldv,
2038
double
* work,
lapack_int
const
* lwork,
2039
lapack_int
* iwork,
2040
lapack_int
* info
2041
#ifdef
LAPACK_FORTRAN_STRLEN_END
2042
,
size_t
,
size_t
,
size_t
,
size_t
,
size_t
,
size_t
2043
#endif
2044
);
2045
#ifdef LAPACK_FORTRAN_STRLEN_END
2046
#define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2047
#else
2048
#define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__)
2049
#endif
2050
2051
#define LAPACK_sgejsv_base LAPACK_GLOBAL(sgejsv,SGEJSV)
2052
void
LAPACK_sgejsv_base
(
2053
char
const
* joba,
char
const
* jobu,
char
const
* jobv,
char
const
* jobr,
char
const
* jobt,
char
const
* jobp,
2054
lapack_int
const
* m,
lapack_int
const
* n,
2055
float
* A,
lapack_int
const
* lda,
2056
float
* SVA,
2057
float
* U,
lapack_int
const
* ldu,
2058
float
* V,
lapack_int
const
* ldv,
2059
float
* work,
lapack_int
const
* lwork,
2060
lapack_int
* iwork,
2061
lapack_int
* info
2062
#ifdef
LAPACK_FORTRAN_STRLEN_END
2063
,
size_t
,
size_t
,
size_t
,
size_t
,
size_t
,
size_t
2064
#endif
2065
);
2066
#ifdef LAPACK_FORTRAN_STRLEN_END
2067
#define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2068
#else
2069
#define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__)
2070
#endif
2071
2072
#define LAPACK_zgejsv_base LAPACK_GLOBAL(zgejsv,ZGEJSV)
2073
void
LAPACK_zgejsv_base
(
2074
char
const
* joba,
char
const
* jobu,
char
const
* jobv,
char
const
* jobr,
char
const
* jobt,
char
const
* jobp,
2075
lapack_int
const
* m,
lapack_int
const
* n,
2076
lapack_complex_double
* A,
lapack_int
const
* lda,
2077
double
* SVA,
2078
lapack_complex_double
* U,
lapack_int
const
* ldu,
2079
lapack_complex_double
* V,
lapack_int
const
* ldv,
2080
lapack_complex_double
* cwork,
lapack_int
const
* lwork,
2081
double
* rwork,
lapack_int
const
* lrwork,
2082
lapack_int
* iwork,
2083
lapack_int
* info
2084
#ifdef
LAPACK_FORTRAN_STRLEN_END
2085
,
size_t
,
size_t
,
size_t
,
size_t
,
size_t
,
size_t
2086
#endif
2087
);
2088
#ifdef LAPACK_FORTRAN_STRLEN_END
2089
#define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2090
#else
2091
#define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__)
2092
#endif
2093
2094
#define LAPACK_cgelq LAPACK_GLOBAL(cgelq,CGELQ)
2095
void
LAPACK_cgelq
(
2096
lapack_int
const
* m,
lapack_int
const
* n,
2097
lapack_complex_float
* A,
lapack_int
const
* lda,
2098
lapack_complex_float
* T,
lapack_int
const
* tsize,
2099
lapack_complex_float
* work,
lapack_int
const
* lwork,
2100
lapack_int
* info );
2101
2102
#define LAPACK_dgelq LAPACK_GLOBAL(dgelq,DGELQ)
2103
void
LAPACK_dgelq
(
2104
lapack_int
const
* m,
lapack_int
const
* n,
2105
double
* A,
lapack_int
const
* lda,
2106
double
* T,
lapack_int
const
* tsize,
2107
double
* work,
lapack_int
const
* lwork,
2108
lapack_int
* info );
2109
2110
#define LAPACK_sgelq LAPACK_GLOBAL(sgelq,SGELQ)
2111
void
LAPACK_sgelq
(
2112
lapack_int
const
* m,
lapack_int
const
* n,
2113
float
* A,
lapack_int
const
* lda,
2114
float
* T,
lapack_int
const
* tsize,
2115
float
* work,
lapack_int
const
* lwork,
2116
lapack_int
* info );
2117
2118
#define LAPACK_zgelq LAPACK_GLOBAL(zgelq,ZGELQ)
2119
void
LAPACK_zgelq
(
2120
lapack_int
const
* m,
lapack_int
const
* n,
2121
lapack_complex_double
* A,
lapack_int
const
* lda,
2122
lapack_complex_double
* T,
lapack_int
const
* tsize,
2123
lapack_complex_double
* work,
lapack_int
const
* lwork,
2124
lapack_int
* info );
2125
2126
#define LAPACK_cgelq2 LAPACK_GLOBAL(cgelq2,CGELQ2)
2127
void
LAPACK_cgelq2
(
2128
lapack_int
const
* m,
lapack_int
const
* n,
2129
lapack_complex_float
* A,
lapack_int
const
* lda,
2130
lapack_complex_float
* tau,
2131
lapack_complex_float
* work,
2132
lapack_int
* info );
2133
2134
#define LAPACK_dgelq2 LAPACK_GLOBAL(dgelq2,DGELQ2)
2135
void
LAPACK_dgelq2
(
2136
lapack_int
const
* m,
lapack_int
const
* n,
2137
double
* A,
lapack_int
const
* lda,
2138
double
* tau,
2139
double
* work,
2140
lapack_int
* info );
2141
2142
#define LAPACK_sgelq2 LAPACK_GLOBAL(sgelq2,SGELQ2)
2143
void
LAPACK_sgelq2
(
2144
lapack_int
const
* m,
lapack_int
const
* n,
2145
float
* A,
lapack_int
const
* lda,
2146
float
* tau,
2147
float
* work,
2148
lapack_int
* info );
2149
2150
#define LAPACK_zgelq2 LAPACK_GLOBAL(zgelq2,ZGELQ2)
2151
void
LAPACK_zgelq2
(
2152
lapack_int
const
* m,
lapack_int
const
* n,
2153
lapack_complex_double
* A,
lapack_int
const
* lda,
2154
lapack_complex_double
* tau,
2155
lapack_complex_double
* work,
2156
lapack_int
* info );
2157
2158
#define LAPACK_cgelqf LAPACK_GLOBAL(cgelqf,CGELQF)
2159
void
LAPACK_cgelqf
(
2160
lapack_int
const
* m,
lapack_int
const
* n,
2161
lapack_complex_float
* A,
lapack_int
const
* lda,
2162
lapack_complex_float
* tau,
2163
lapack_complex_float
* work,
lapack_int
const
* lwork,
2164
lapack_int
* info );
2165
2166
#define LAPACK_dgelqf LAPACK_GLOBAL(dgelqf,DGELQF)
2167
void
LAPACK_dgelqf
(
2168
lapack_int
const
* m,
lapack_int
const
* n,
2169
double
* A,
lapack_int
const
* lda,
2170
double
* tau,
2171
double
* work,
lapack_int
const
* lwork,
2172
lapack_int
* info );
2173
2174
#define LAPACK_sgelqf LAPACK_GLOBAL(sgelqf,SGELQF)
2175
void
LAPACK_sgelqf
(
2176
lapack_int
const
* m,
lapack_int
const
* n,
2177
float
* A,
lapack_int
const
* lda,
2178
float
* tau,
2179
float
* work,
lapack_int
const
* lwork,
2180
lapack_int
* info );
2181
2182
#define LAPACK_zgelqf LAPACK_GLOBAL(zgelqf,ZGELQF)
2183
void
LAPACK_zgelqf
(
2184
lapack_int
const
* m,
lapack_int
const
* n,
2185
lapack_complex_double
* A,
lapack_int
const
* lda,
2186
lapack_complex_double
* tau,
2187
lapack_complex_double
* work,
lapack_int
const
* lwork,
2188
lapack_int
* info );
2189
2190
#define LAPACK_cgels_base LAPACK_GLOBAL(cgels,CGELS)
2191
void
LAPACK_cgels_base
(
2192
char
const
* trans,
2193
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
2194
lapack_complex_float
* A,
lapack_int
const
* lda,
2195
lapack_complex_float
* B,
lapack_int
const
* ldb,
2196
lapack_complex_float
* work,
lapack_int
const
* lwork,
2197
lapack_int
* info
2198
#ifdef
LAPACK_FORTRAN_STRLEN_END
2199
,
size_t
2200
#endif
2201
);
2202
#ifdef LAPACK_FORTRAN_STRLEN_END
2203
#define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__, 1)
2204
#else
2205
#define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__)
2206
#endif
2207
2208
#define LAPACK_dgels_base LAPACK_GLOBAL(dgels,DGELS)
2209
void
LAPACK_dgels_base
(
2210
char
const
* trans,
2211
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
2212
double
* A,
lapack_int
const
* lda,
2213
double
* B,
lapack_int
const
* ldb,
2214
double
* work,
lapack_int
const
* lwork,
2215
lapack_int
* info
2216
#ifdef
LAPACK_FORTRAN_STRLEN_END
2217
,
size_t
2218
#endif
2219
);
2220
#ifdef LAPACK_FORTRAN_STRLEN_END
2221
#define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__, 1)
2222
#else
2223
#define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__)
2224
#endif
2225
2226
#define LAPACK_sgels_base LAPACK_GLOBAL(sgels,SGELS)
2227
void
LAPACK_sgels_base
(
2228
char
const
* trans,
2229
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
2230
float
* A,
lapack_int
const
* lda,
2231
float
* B,
lapack_int
const
* ldb,
2232
float
* work,
lapack_int
const
* lwork,
2233
lapack_int
* info
2234
#ifdef
LAPACK_FORTRAN_STRLEN_END
2235
,
size_t
2236
#endif
2237
);
2238
#ifdef LAPACK_FORTRAN_STRLEN_END
2239
#define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__, 1)
2240
#else
2241
#define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__)
2242
#endif
2243
2244
#define LAPACK_zgels_base LAPACK_GLOBAL(zgels,ZGELS)
2245
void
LAPACK_zgels_base
(
2246
char
const
* trans,
2247
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
2248
lapack_complex_double
* A,
lapack_int
const
* lda,
2249
lapack_complex_double
* B,
lapack_int
const
* ldb,
2250
lapack_complex_double
* work,
lapack_int
const
* lwork,
2251
lapack_int
* info
2252
#ifdef
LAPACK_FORTRAN_STRLEN_END
2253
,
size_t
2254
#endif
2255
);
2256
#ifdef LAPACK_FORTRAN_STRLEN_END
2257
#define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__, 1)
2258
#else
2259
#define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__)
2260
#endif
2261
2262
#define LAPACK_cgelsd LAPACK_GLOBAL(cgelsd,CGELSD)
2263
void
LAPACK_cgelsd
(
2264
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
2265
lapack_complex_float
* A,
lapack_int
const
* lda,
2266
lapack_complex_float
* B,
lapack_int
const
* ldb,
2267
float
* S,
2268
float
const
* rcond,
lapack_int
* rank,
2269
lapack_complex_float
* work,
lapack_int
const
* lwork,
2270
float
* rwork,
2271
lapack_int
* iwork,
2272
lapack_int
* info );
2273
2274
#define LAPACK_dgelsd LAPACK_GLOBAL(dgelsd,DGELSD)
2275
void
LAPACK_dgelsd
(
2276
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
2277
double
* A,
lapack_int
const
* lda,
2278
double
* B,
lapack_int
const
* ldb,
2279
double
* S,
2280
double
const
* rcond,
lapack_int
* rank,
2281
double
* work,
lapack_int
const
* lwork,
2282
lapack_int
* iwork,
2283
lapack_int
* info );
2284
2285
#define LAPACK_sgelsd LAPACK_GLOBAL(sgelsd,SGELSD)
2286
void
LAPACK_sgelsd
(
2287
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
2288
float
* A,
lapack_int
const
* lda,
2289
float
* B,
lapack_int
const
* ldb,
2290
float
* S,
2291
float
const
* rcond,
lapack_int
* rank,
2292
float
* work,
lapack_int
const
* lwork,
2293
lapack_int
* iwork,
2294
lapack_int
* info );
2295
2296
#define LAPACK_zgelsd LAPACK_GLOBAL(zgelsd,ZGELSD)
2297
void
LAPACK_zgelsd
(
2298
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
2299
lapack_complex_double
* A,
lapack_int
const
* lda,
2300
lapack_complex_double
* B,
lapack_int
const
* ldb,
2301
double
* S,
2302
double
const
* rcond,
lapack_int
* rank,
2303
lapack_complex_double
* work,
lapack_int
const
* lwork,
2304
double
* rwork,
2305
lapack_int
* iwork,
2306
lapack_int
* info );
2307
2308
#define LAPACK_cgelss LAPACK_GLOBAL(cgelss,CGELSS)
2309
void
LAPACK_cgelss
(
2310
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
2311
lapack_complex_float
* A,
lapack_int
const
* lda,
2312
lapack_complex_float
* B,
lapack_int
const
* ldb,
2313
float
* S,
2314
float
const
* rcond,
lapack_int
* rank,
2315
lapack_complex_float
* work,
lapack_int
const
* lwork,
2316
float
* rwork,
2317
lapack_int
* info );
2318
2319
#define LAPACK_dgelss LAPACK_GLOBAL(dgelss,DGELSS)
2320
void
LAPACK_dgelss
(
2321
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
2322
double
* A,
lapack_int
const
* lda,
2323
double
* B,
lapack_int
const
* ldb,
2324
double
* S,
2325
double
const
* rcond,
lapack_int
* rank,
2326
double
* work,
lapack_int
const
* lwork,
2327
lapack_int
* info );
2328
2329
#define LAPACK_sgelss LAPACK_GLOBAL(sgelss,SGELSS)
2330
void
LAPACK_sgelss
(
2331
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
2332
float
* A,
lapack_int
const
* lda,
2333
float
* B,
lapack_int
const
* ldb,
2334
float
* S,
2335
float
const
* rcond,
lapack_int
* rank,
2336
float
* work,
lapack_int
const
* lwork,
2337
lapack_int
* info );
2338
2339
#define LAPACK_zgelss LAPACK_GLOBAL(zgelss,ZGELSS)
2340
void
LAPACK_zgelss
(
2341
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
2342
lapack_complex_double
* A,
lapack_int
const
* lda,
2343
lapack_complex_double
* B,
lapack_int
const
* ldb,
2344
double
* S,
2345
double
const
* rcond,
lapack_int
* rank,
2346
lapack_complex_double
* work,
lapack_int
const
* lwork,
2347
double
* rwork,
2348
lapack_int
* info );
2349
2350
#define LAPACK_cgelsy LAPACK_GLOBAL(cgelsy,CGELSY)
2351
void
LAPACK_cgelsy
(
2352
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
2353
lapack_complex_float
* A,
lapack_int
const
* lda,
2354
lapack_complex_float
* B,
lapack_int
const
* ldb,
lapack_int
* JPVT,
2355
float
const
* rcond,
lapack_int
* rank,
2356
lapack_complex_float
* work,
lapack_int
const
* lwork,
2357
float
* rwork,
2358
lapack_int
* info );
2359
2360
#define LAPACK_dgelsy LAPACK_GLOBAL(dgelsy,DGELSY)
2361
void
LAPACK_dgelsy
(
2362
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
2363
double
* A,
lapack_int
const
* lda,
2364
double
* B,
lapack_int
const
* ldb,
lapack_int
* JPVT,
2365
double
const
* rcond,
lapack_int
* rank,
2366
double
* work,
lapack_int
const
* lwork,
2367
lapack_int
* info );
2368
2369
#define LAPACK_sgelsy LAPACK_GLOBAL(sgelsy,SGELSY)
2370
void
LAPACK_sgelsy
(
2371
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
2372
float
* A,
lapack_int
const
* lda,
2373
float
* B,
lapack_int
const
* ldb,
lapack_int
* JPVT,
2374
float
const
* rcond,
lapack_int
* rank,
2375
float
* work,
lapack_int
const
* lwork,
2376
lapack_int
* info );
2377
2378
#define LAPACK_zgelsy LAPACK_GLOBAL(zgelsy,ZGELSY)
2379
void
LAPACK_zgelsy
(
2380
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
2381
lapack_complex_double
* A,
lapack_int
const
* lda,
2382
lapack_complex_double
* B,
lapack_int
const
* ldb,
lapack_int
* JPVT,
2383
double
const
* rcond,
lapack_int
* rank,
2384
lapack_complex_double
* work,
lapack_int
const
* lwork,
2385
double
* rwork,
2386
lapack_int
* info );
2387
2388
#define LAPACK_cgemlq_base LAPACK_GLOBAL(cgemlq,CGEMLQ)
2389
void
LAPACK_cgemlq_base
(
2390
char
const
* side,
char
const
* trans,
2391
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* k,
2392
lapack_complex_float
const
* A,
lapack_int
const
* lda,
2393
lapack_complex_float
const
* T,
lapack_int
const
* tsize,
2394
lapack_complex_float
* C,
lapack_int
const
* ldc,
2395
lapack_complex_float
* work,
lapack_int
const
* lwork,
2396
lapack_int
* info
2397
#ifdef
LAPACK_FORTRAN_STRLEN_END
2398
,
size_t
,
size_t
2399
#endif
2400
);
2401
#ifdef LAPACK_FORTRAN_STRLEN_END
2402
#define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__, 1, 1)
2403
#else
2404
#define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__)
2405
#endif
2406
2407
#define LAPACK_dgemlq_base LAPACK_GLOBAL(dgemlq,DGEMLQ)
2408
void
LAPACK_dgemlq_base
(
2409
char
const
* side,
char
const
* trans,
2410
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* k,
2411
double
const
* A,
lapack_int
const
* lda,
2412
double
const
* T,
lapack_int
const
* tsize,
2413
double
* C,
lapack_int
const
* ldc,
2414
double
* work,
lapack_int
const
* lwork,
2415
lapack_int
* info
2416
#ifdef
LAPACK_FORTRAN_STRLEN_END
2417
,
size_t
,
size_t
2418
#endif
2419
);
2420
#ifdef LAPACK_FORTRAN_STRLEN_END
2421
#define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__, 1, 1)
2422
#else
2423
#define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__)
2424
#endif
2425
2426
#define LAPACK_sgemlq_base LAPACK_GLOBAL(sgemlq,SGEMLQ)
2427
void
LAPACK_sgemlq_base
(
2428
char
const
* side,
char
const
* trans,
2429
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* k,
2430
float
const
* A,
lapack_int
const
* lda,
2431
float
const
* T,
lapack_int
const
* tsize,
2432
float
* C,
lapack_int
const
* ldc,
2433
float
* work,
lapack_int
const
* lwork,
2434
lapack_int
* info
2435
#ifdef
LAPACK_FORTRAN_STRLEN_END
2436
,
size_t
,
size_t
2437
#endif
2438
);
2439
#ifdef LAPACK_FORTRAN_STRLEN_END
2440
#define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__, 1, 1)
2441
#else
2442
#define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__)
2443
#endif
2444
2445
#define LAPACK_zgemlq_base LAPACK_GLOBAL(zgemlq,ZGEMLQ)
2446
void
LAPACK_zgemlq_base
(
2447
char
const
* side,
char
const
* trans,
2448
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* k,
2449
lapack_complex_double
const
* A,
lapack_int
const
* lda,
2450
lapack_complex_double
const
* T,
lapack_int
const
* tsize,
2451
lapack_complex_double
* C,
lapack_int
const
* ldc,
2452
lapack_complex_double
* work,
lapack_int
const
* lwork,
2453
lapack_int
* info
2454
#ifdef
LAPACK_FORTRAN_STRLEN_END
2455
,
size_t
,
size_t
2456
#endif
2457
);
2458
#ifdef LAPACK_FORTRAN_STRLEN_END
2459
#define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__, 1, 1)
2460
#else
2461
#define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__)
2462
#endif
2463
2464
#define LAPACK_cgemqr_base LAPACK_GLOBAL(cgemqr,CGEMQR)
2465
void
LAPACK_cgemqr_base
(
2466
char
const
* side,
char
const
* trans,
2467
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* k,
2468
lapack_complex_float
const
* A,
lapack_int
const
* lda,
2469
lapack_complex_float
const
* T,
lapack_int
const
* tsize,
2470
lapack_complex_float
* C,
lapack_int
const
* ldc,
2471
lapack_complex_float
* work,
lapack_int
const
* lwork,
2472
lapack_int
* info
2473
#ifdef
LAPACK_FORTRAN_STRLEN_END
2474
,
size_t
,
size_t
2475
#endif
2476
);
2477
#ifdef LAPACK_FORTRAN_STRLEN_END
2478
#define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__, 1, 1)
2479
#else
2480
#define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__)
2481
#endif
2482
2483
#define LAPACK_dgemqr_base LAPACK_GLOBAL(dgemqr,DGEMQR)
2484
void
LAPACK_dgemqr_base
(
2485
char
const
* side,
char
const
* trans,
2486
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* k,
2487
double
const
* A,
lapack_int
const
* lda,
2488
double
const
* T,
lapack_int
const
* tsize,
2489
double
* C,
lapack_int
const
* ldc,
2490
double
* work,
lapack_int
const
* lwork,
2491
lapack_int
* info
2492
#ifdef
LAPACK_FORTRAN_STRLEN_END
2493
,
size_t
,
size_t
2494
#endif
2495
);
2496
#ifdef LAPACK_FORTRAN_STRLEN_END
2497
#define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__, 1, 1)
2498
#else
2499
#define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__)
2500
#endif
2501
2502
#define LAPACK_sgemqr_base LAPACK_GLOBAL(sgemqr,SGEMQR)
2503
void
LAPACK_sgemqr_base
(
2504
char
const
* side,
char
const
* trans,
2505
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* k,
2506
float
const
* A,
lapack_int
const
* lda,
2507
float
const
* T,
lapack_int
const
* tsize,
2508
float
* C,
lapack_int
const
* ldc,
2509
float
* work,
lapack_int
const
* lwork,
2510
lapack_int
* info
2511
#ifdef
LAPACK_FORTRAN_STRLEN_END
2512
,
size_t
,
size_t
2513
#endif
2514
);
2515
#ifdef LAPACK_FORTRAN_STRLEN_END
2516
#define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__, 1, 1)
2517
#else
2518
#define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__)
2519
#endif
2520
2521
#define LAPACK_zgemqr_base LAPACK_GLOBAL(zgemqr,ZGEMQR)
2522
void
LAPACK_zgemqr_base
(
2523
char
const
* side,
char
const
* trans,
2524
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* k,
2525
lapack_complex_double
const
* A,
lapack_int
const
* lda,
2526
lapack_complex_double
const
* T,
lapack_int
const
* tsize,
2527
lapack_complex_double
* C,
lapack_int
const
* ldc,
2528
lapack_complex_double
* work,
lapack_int
const
* lwork,
2529
lapack_int
* info
2530
#ifdef
LAPACK_FORTRAN_STRLEN_END
2531
,
size_t
,
size_t
2532
#endif
2533
);
2534
#ifdef LAPACK_FORTRAN_STRLEN_END
2535
#define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__, 1, 1)
2536
#else
2537
#define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__)
2538
#endif
2539
2540
#define LAPACK_cgemqrt_base LAPACK_GLOBAL(cgemqrt,CGEMQRT)
2541
void
LAPACK_cgemqrt_base
(
2542
char
const
* side,
char
const
* trans,
2543
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* k,
lapack_int
const
* nb,
2544
lapack_complex_float
const
* V,
lapack_int
const
* ldv,
2545
lapack_complex_float
const
* T,
lapack_int
const
* ldt,
2546
lapack_complex_float
* C,
lapack_int
const
* ldc,
2547
lapack_complex_float
* work,
2548
lapack_int
* info
2549
#ifdef
LAPACK_FORTRAN_STRLEN_END
2550
,
size_t
,
size_t
2551
#endif
2552
);
2553
#ifdef LAPACK_FORTRAN_STRLEN_END
2554
#define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__, 1, 1)
2555
#else
2556
#define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__)
2557
#endif
2558
2559
#define LAPACK_dgemqrt_base LAPACK_GLOBAL(dgemqrt,DGEMQRT)
2560
void
LAPACK_dgemqrt_base
(
2561
char
const
* side,
char
const
* trans,
2562
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* k,
lapack_int
const
* nb,
2563
double
const
* V,
lapack_int
const
* ldv,
2564
double
const
* T,
lapack_int
const
* ldt,
2565
double
* C,
lapack_int
const
* ldc,
2566
double
* work,
2567
lapack_int
* info
2568
#ifdef
LAPACK_FORTRAN_STRLEN_END
2569
,
size_t
,
size_t
2570
#endif
2571
);
2572
#ifdef LAPACK_FORTRAN_STRLEN_END
2573
#define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__, 1, 1)
2574
#else
2575
#define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__)
2576
#endif
2577
2578
#define LAPACK_sgemqrt_base LAPACK_GLOBAL(sgemqrt,SGEMQRT)
2579
void
LAPACK_sgemqrt_base
(
2580
char
const
* side,
char
const
* trans,
2581
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* k,
lapack_int
const
* nb,
2582
float
const
* V,
lapack_int
const
* ldv,
2583
float
const
* T,
lapack_int
const
* ldt,
2584
float
* C,
lapack_int
const
* ldc,
2585
float
* work,
2586
lapack_int
* info
2587
#ifdef
LAPACK_FORTRAN_STRLEN_END
2588
,
size_t
,
size_t
2589
#endif
2590
);
2591
#ifdef LAPACK_FORTRAN_STRLEN_END
2592
#define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__, 1, 1)
2593
#else
2594
#define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__)
2595
#endif
2596
2597
#define LAPACK_zgemqrt_base LAPACK_GLOBAL(zgemqrt,ZGEMQRT)
2598
void
LAPACK_zgemqrt_base
(
2599
char
const
* side,
char
const
* trans,
2600
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* k,
lapack_int
const
* nb,
2601
lapack_complex_double
const
* V,
lapack_int
const
* ldv,
2602
lapack_complex_double
const
* T,
lapack_int
const
* ldt,
2603
lapack_complex_double
* C,
lapack_int
const
* ldc,
2604
lapack_complex_double
* work,
2605
lapack_int
* info
2606
#ifdef
LAPACK_FORTRAN_STRLEN_END
2607
,
size_t
,
size_t
2608
#endif
2609
);
2610
#ifdef LAPACK_FORTRAN_STRLEN_END
2611
#define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__, 1, 1)
2612
#else
2613
#define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__)
2614
#endif
2615
2616
#define LAPACK_cgeql2 LAPACK_GLOBAL(cgeql2,CGEQL2)
2617
void
LAPACK_cgeql2
(
2618
lapack_int
const
* m,
lapack_int
const
* n,
2619
lapack_complex_float
* A,
lapack_int
const
* lda,
2620
lapack_complex_float
* tau,
2621
lapack_complex_float
* work,
2622
lapack_int
* info );
2623
2624
#define LAPACK_dgeql2 LAPACK_GLOBAL(dgeql2,DGEQL2)
2625
void
LAPACK_dgeql2
(
2626
lapack_int
const
* m,
lapack_int
const
* n,
2627
double
* A,
lapack_int
const
* lda,
2628
double
* tau,
2629
double
* work,
2630
lapack_int
* info );
2631
2632
#define LAPACK_sgeql2 LAPACK_GLOBAL(sgeql2,SGEQL2)
2633
void
LAPACK_sgeql2
(
2634
lapack_int
const
* m,
lapack_int
const
* n,
2635
float
* A,
lapack_int
const
* lda,
2636
float
* tau,
2637
float
* work,
2638
lapack_int
* info );
2639
2640
#define LAPACK_zgeql2 LAPACK_GLOBAL(zgeql2,ZGEQL2)
2641
void
LAPACK_zgeql2
(
2642
lapack_int
const
* m,
lapack_int
const
* n,
2643
lapack_complex_double
* A,
lapack_int
const
* lda,
2644
lapack_complex_double
* tau,
2645
lapack_complex_double
* work,
2646
lapack_int
* info );
2647
2648
#define LAPACK_cgeqlf LAPACK_GLOBAL(cgeqlf,CGEQLF)
2649
void
LAPACK_cgeqlf
(
2650
lapack_int
const
* m,
lapack_int
const
* n,
2651
lapack_complex_float
* A,
lapack_int
const
* lda,
2652
lapack_complex_float
* tau,
2653
lapack_complex_float
* work,
lapack_int
const
* lwork,
2654
lapack_int
* info );
2655
2656
#define LAPACK_dgeqlf LAPACK_GLOBAL(dgeqlf,DGEQLF)
2657
void
LAPACK_dgeqlf
(
2658
lapack_int
const
* m,
lapack_int
const
* n,
2659
double
* A,
lapack_int
const
* lda,
2660
double
* tau,
2661
double
* work,
lapack_int
const
* lwork,
2662
lapack_int
* info );
2663
2664
#define LAPACK_sgeqlf LAPACK_GLOBAL(sgeqlf,SGEQLF)
2665
void
LAPACK_sgeqlf
(
2666
lapack_int
const
* m,
lapack_int
const
* n,
2667
float
* A,
lapack_int
const
* lda,
2668
float
* tau,
2669
float
* work,
lapack_int
const
* lwork,
2670
lapack_int
* info );
2671
2672
#define LAPACK_zgeqlf LAPACK_GLOBAL(zgeqlf,ZGEQLF)
2673
void
LAPACK_zgeqlf
(
2674
lapack_int
const
* m,
lapack_int
const
* n,
2675
lapack_complex_double
* A,
lapack_int
const
* lda,
2676
lapack_complex_double
* tau,
2677
lapack_complex_double
* work,
lapack_int
const
* lwork,
2678
lapack_int
* info );
2679
2680
#define LAPACK_sgeqpf LAPACK_GLOBAL(sgeqpf,SGEQPF)
2681
void
LAPACK_sgeqpf
(
lapack_int
* m,
lapack_int
* n,
float
* a,
lapack_int
* lda,
2682
lapack_int
* jpvt,
float
* tau,
float
* work,
2683
lapack_int
*info );
2684
2685
#define LAPACK_dgeqpf LAPACK_GLOBAL(dgeqpf,DGEQPF)
2686
void
LAPACK_dgeqpf
(
lapack_int
* m,
lapack_int
* n,
double
* a,
lapack_int
* lda,
2687
lapack_int
* jpvt,
double
* tau,
double
* work,
2688
lapack_int
*info );
2689
2690
#define LAPACK_cgeqpf LAPACK_GLOBAL(cgeqpf,CGEQPF)
2691
void
LAPACK_cgeqpf
(
lapack_int
* m,
lapack_int
* n,
lapack_complex_float
* a,
2692
lapack_int
* lda,
lapack_int
* jpvt,
2693
lapack_complex_float
* tau,
lapack_complex_float
* work,
2694
float
* rwork,
lapack_int
*info );
2695
2696
#define LAPACK_zgeqpf LAPACK_GLOBAL(zgeqpf,ZGEQPF)
2697
void
LAPACK_zgeqpf
(
lapack_int
* m,
lapack_int
* n,
lapack_complex_double
* a,
2698
lapack_int
* lda,
lapack_int
* jpvt,
2699
lapack_complex_double
* tau,
lapack_complex_double
* work,
2700
double
* rwork,
lapack_int
*info );
2701
2702
#define LAPACK_cgeqp3 LAPACK_GLOBAL(cgeqp3,CGEQP3)
2703
void
LAPACK_cgeqp3
(
2704
lapack_int
const
* m,
lapack_int
const
* n,
2705
lapack_complex_float
* A,
lapack_int
const
* lda,
lapack_int
* JPVT,
2706
lapack_complex_float
* tau,
2707
lapack_complex_float
* work,
lapack_int
const
* lwork,
2708
float
* rwork,
2709
lapack_int
* info );
2710
2711
#define LAPACK_dgeqp3 LAPACK_GLOBAL(dgeqp3,DGEQP3)
2712
void
LAPACK_dgeqp3
(
2713
lapack_int
const
* m,
lapack_int
const
* n,
2714
double
* A,
lapack_int
const
* lda,
lapack_int
* JPVT,
2715
double
* tau,
2716
double
* work,
lapack_int
const
* lwork,
2717
lapack_int
* info );
2718
2719
#define LAPACK_sgeqp3 LAPACK_GLOBAL(sgeqp3,SGEQP3)
2720
void
LAPACK_sgeqp3
(
2721
lapack_int
const
* m,
lapack_int
const
* n,
2722
float
* A,
lapack_int
const
* lda,
lapack_int
* JPVT,
2723
float
* tau,
2724
float
* work,
lapack_int
const
* lwork,
2725
lapack_int
* info );
2726
2727
#define LAPACK_zgeqp3 LAPACK_GLOBAL(zgeqp3,ZGEQP3)
2728
void
LAPACK_zgeqp3
(
2729
lapack_int
const
* m,
lapack_int
const
* n,
2730
lapack_complex_double
* A,
lapack_int
const
* lda,
lapack_int
* JPVT,
2731
lapack_complex_double
* tau,
2732
lapack_complex_double
* work,
lapack_int
const
* lwork,
2733
double
* rwork,
2734
lapack_int
* info );
2735
2736
#define LAPACK_cgeqr LAPACK_GLOBAL(cgeqr,CGEQR)
2737
void
LAPACK_cgeqr
(
2738
lapack_int
const
* m,
lapack_int
const
* n,
2739
lapack_complex_float
* A,
lapack_int
const
* lda,
2740
lapack_complex_float
* T,
lapack_int
const
* tsize,
2741
lapack_complex_float
* work,
lapack_int
const
* lwork,
2742
lapack_int
* info );
2743
2744
#define LAPACK_dgeqr LAPACK_GLOBAL(dgeqr,DGEQR)
2745
void
LAPACK_dgeqr
(
2746
lapack_int
const
* m,
lapack_int
const
* n,
2747
double
* A,
lapack_int
const
* lda,
2748
double
* T,
lapack_int
const
* tsize,
2749
double
* work,
lapack_int
const
* lwork,
2750
lapack_int
* info );
2751
2752
#define LAPACK_sgeqr LAPACK_GLOBAL(sgeqr,SGEQR)
2753
void
LAPACK_sgeqr
(
2754
lapack_int
const
* m,
lapack_int
const
* n,
2755
float
* A,
lapack_int
const
* lda,
2756
float
* T,
lapack_int
const
* tsize,
2757
float
* work,
lapack_int
const
* lwork,
2758
lapack_int
* info );
2759
2760
#define LAPACK_zgeqr LAPACK_GLOBAL(zgeqr,ZGEQR)
2761
void
LAPACK_zgeqr
(
2762
lapack_int
const
* m,
lapack_int
const
* n,
2763
lapack_complex_double
* A,
lapack_int
const
* lda,
2764
lapack_complex_double
* T,
lapack_int
const
* tsize,
2765
lapack_complex_double
* work,
lapack_int
const
* lwork,
2766
lapack_int
* info );
2767
2768
#define LAPACK_cgeqr2 LAPACK_GLOBAL(cgeqr2,CGEQR2)
2769
void
LAPACK_cgeqr2
(
2770
lapack_int
const
* m,
lapack_int
const
* n,
2771
lapack_complex_float
* A,
lapack_int
const
* lda,
2772
lapack_complex_float
* tau,
2773
lapack_complex_float
* work,
2774
lapack_int
* info );
2775
2776
#define LAPACK_dgeqr2 LAPACK_GLOBAL(dgeqr2,DGEQR2)
2777
void
LAPACK_dgeqr2
(
2778
lapack_int
const
* m,
lapack_int
const
* n,
2779
double
* A,
lapack_int
const
* lda,
2780
double
* tau,
2781
double
* work,
2782
lapack_int
* info );
2783
2784
#define LAPACK_sgeqr2 LAPACK_GLOBAL(sgeqr2,SGEQR2)
2785
void
LAPACK_sgeqr2
(
2786
lapack_int
const
* m,
lapack_int
const
* n,
2787
float
* A,
lapack_int
const
* lda,
2788
float
* tau,
2789
float
* work,
2790
lapack_int
* info );
2791
2792
#define LAPACK_zgeqr2 LAPACK_GLOBAL(zgeqr2,ZGEQR2)
2793
void
LAPACK_zgeqr2
(
2794
lapack_int
const
* m,
lapack_int
const
* n,
2795
lapack_complex_double
* A,
lapack_int
const
* lda,
2796
lapack_complex_double
* tau,
2797
lapack_complex_double
* work,
2798
lapack_int
* info );
2799
2800
#define LAPACK_cgeqrf LAPACK_GLOBAL(cgeqrf,CGEQRF)
2801
void
LAPACK_cgeqrf
(
2802
lapack_int
const
* m,
lapack_int
const
* n,
2803
lapack_complex_float
* A,
lapack_int
const
* lda,
2804
lapack_complex_float
* tau,
2805
lapack_complex_float
* work,
lapack_int
const
* lwork,
2806
lapack_int
* info );
2807
2808
#define LAPACK_dgeqrf LAPACK_GLOBAL(dgeqrf,DGEQRF)
2809
void
LAPACK_dgeqrf
(
2810
lapack_int
const
* m,
lapack_int
const
* n,
2811
double
* A,
lapack_int
const
* lda,
2812
double
* tau,
2813
double
* work,
lapack_int
const
* lwork,
2814
lapack_int
* info );
2815
2816
#define LAPACK_sgeqrf LAPACK_GLOBAL(sgeqrf,SGEQRF)
2817
void
LAPACK_sgeqrf
(
2818
lapack_int
const
* m,
lapack_int
const
* n,
2819
float
* A,
lapack_int
const
* lda,
2820
float
* tau,
2821
float
* work,
lapack_int
const
* lwork,
2822
lapack_int
* info );
2823
2824
#define LAPACK_zgeqrf LAPACK_GLOBAL(zgeqrf,ZGEQRF)
2825
void
LAPACK_zgeqrf
(
2826
lapack_int
const
* m,
lapack_int
const
* n,
2827
lapack_complex_double
* A,
lapack_int
const
* lda,
2828
lapack_complex_double
* tau,
2829
lapack_complex_double
* work,
lapack_int
const
* lwork,
2830
lapack_int
* info );
2831
2832
#define LAPACK_cgeqrfp LAPACK_GLOBAL(cgeqrfp,CGEQRFP)
2833
void
LAPACK_cgeqrfp
(
2834
lapack_int
const
* m,
lapack_int
const
* n,
2835
lapack_complex_float
* A,
lapack_int
const
* lda,
2836
lapack_complex_float
* tau,
2837
lapack_complex_float
* work,
lapack_int
const
* lwork,
2838
lapack_int
* info );
2839
2840
#define LAPACK_dgeqrfp LAPACK_GLOBAL(dgeqrfp,DGEQRFP)
2841
void
LAPACK_dgeqrfp
(
2842
lapack_int
const
* m,
lapack_int
const
* n,
2843
double
* A,
lapack_int
const
* lda,
2844
double
* tau,
2845
double
* work,
lapack_int
const
* lwork,
2846
lapack_int
* info );
2847
2848
#define LAPACK_sgeqrfp LAPACK_GLOBAL(sgeqrfp,SGEQRFP)
2849
void
LAPACK_sgeqrfp
(
2850
lapack_int
const
* m,
lapack_int
const
* n,
2851
float
* A,
lapack_int
const
* lda,
2852
float
* tau,
2853
float
* work,
lapack_int
const
* lwork,
2854
lapack_int
* info );
2855
2856
#define LAPACK_zgeqrfp LAPACK_GLOBAL(zgeqrfp,ZGEQRFP)
2857
void
LAPACK_zgeqrfp
(
2858
lapack_int
const
* m,
lapack_int
const
* n,
2859
lapack_complex_double
* A,
lapack_int
const
* lda,
2860
lapack_complex_double
* tau,
2861
lapack_complex_double
* work,
lapack_int
const
* lwork,
2862
lapack_int
* info );
2863
2864
#define LAPACK_cgeqrt LAPACK_GLOBAL(cgeqrt,CGEQRT)
2865
void
LAPACK_cgeqrt
(
2866
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nb,
2867
lapack_complex_float
* A,
lapack_int
const
* lda,
2868
lapack_complex_float
* T,
lapack_int
const
* ldt,
2869
lapack_complex_float
* work,
2870
lapack_int
* info );
2871
2872
#define LAPACK_dgeqrt LAPACK_GLOBAL(dgeqrt,DGEQRT)
2873
void
LAPACK_dgeqrt
(
2874
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nb,
2875
double
* A,
lapack_int
const
* lda,
2876
double
* T,
lapack_int
const
* ldt,
2877
double
* work,
2878
lapack_int
* info );
2879
2880
#define LAPACK_sgeqrt LAPACK_GLOBAL(sgeqrt,SGEQRT)
2881
void
LAPACK_sgeqrt
(
2882
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nb,
2883
float
* A,
lapack_int
const
* lda,
2884
float
* T,
lapack_int
const
* ldt,
2885
float
* work,
2886
lapack_int
* info );
2887
2888
#define LAPACK_zgeqrt LAPACK_GLOBAL(zgeqrt,ZGEQRT)
2889
void
LAPACK_zgeqrt
(
2890
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nb,
2891
lapack_complex_double
* A,
lapack_int
const
* lda,
2892
lapack_complex_double
* T,
lapack_int
const
* ldt,
2893
lapack_complex_double
* work,
2894
lapack_int
* info );
2895
2896
#define LAPACK_cgeqrt2 LAPACK_GLOBAL(cgeqrt2,CGEQRT2)
2897
void
LAPACK_cgeqrt2
(
2898
lapack_int
const
* m,
lapack_int
const
* n,
2899
lapack_complex_float
* A,
lapack_int
const
* lda,
2900
lapack_complex_float
* T,
lapack_int
const
* ldt,
2901
lapack_int
* info );
2902
2903
#define LAPACK_dgeqrt2 LAPACK_GLOBAL(dgeqrt2,DGEQRT2)
2904
void
LAPACK_dgeqrt2
(
2905
lapack_int
const
* m,
lapack_int
const
* n,
2906
double
* A,
lapack_int
const
* lda,
2907
double
* T,
lapack_int
const
* ldt,
2908
lapack_int
* info );
2909
2910
#define LAPACK_sgeqrt2 LAPACK_GLOBAL(sgeqrt2,SGEQRT2)
2911
void
LAPACK_sgeqrt2
(
2912
lapack_int
const
* m,
lapack_int
const
* n,
2913
float
* A,
lapack_int
const
* lda,
2914
float
* T,
lapack_int
const
* ldt,
2915
lapack_int
* info );
2916
2917
#define LAPACK_zgeqrt2 LAPACK_GLOBAL(zgeqrt2,ZGEQRT2)
2918
void
LAPACK_zgeqrt2
(
2919
lapack_int
const
* m,
lapack_int
const
* n,
2920
lapack_complex_double
* A,
lapack_int
const
* lda,
2921
lapack_complex_double
* T,
lapack_int
const
* ldt,
2922
lapack_int
* info );
2923
2924
#define LAPACK_cgeqrt3 LAPACK_GLOBAL(cgeqrt3,CGEQRT3)
2925
void
LAPACK_cgeqrt3
(
2926
lapack_int
const
* m,
lapack_int
const
* n,
2927
lapack_complex_float
* A,
lapack_int
const
* lda,
2928
lapack_complex_float
* T,
lapack_int
const
* ldt,
2929
lapack_int
* info );
2930
2931
#define LAPACK_dgeqrt3 LAPACK_GLOBAL(dgeqrt3,DGEQRT3)
2932
void
LAPACK_dgeqrt3
(
2933
lapack_int
const
* m,
lapack_int
const
* n,
2934
double
* A,
lapack_int
const
* lda,
2935
double
* T,
lapack_int
const
* ldt,
2936
lapack_int
* info );
2937
2938
#define LAPACK_sgeqrt3 LAPACK_GLOBAL(sgeqrt3,SGEQRT3)
2939
void
LAPACK_sgeqrt3
(
2940
lapack_int
const
* m,
lapack_int
const
* n,
2941
float
* A,
lapack_int
const
* lda,
2942
float
* T,
lapack_int
const
* ldt,
2943
lapack_int
* info );
2944
2945
#define LAPACK_zgeqrt3 LAPACK_GLOBAL(zgeqrt3,ZGEQRT3)
2946
void
LAPACK_zgeqrt3
(
2947
lapack_int
const
* m,
lapack_int
const
* n,
2948
lapack_complex_double
* A,
lapack_int
const
* lda,
2949
lapack_complex_double
* T,
lapack_int
const
* ldt,
2950
lapack_int
* info );
2951
2952
#define LAPACK_cgerfs_base LAPACK_GLOBAL(cgerfs,CGERFS)
2953
void
LAPACK_cgerfs_base
(
2954
char
const
* trans,
2955
lapack_int
const
* n,
lapack_int
const
* nrhs,
2956
lapack_complex_float
const
* A,
lapack_int
const
* lda,
2957
lapack_complex_float
const
* AF,
lapack_int
const
* ldaf,
lapack_int
const
* ipiv,
2958
lapack_complex_float
const
* B,
lapack_int
const
* ldb,
2959
lapack_complex_float
* X,
lapack_int
const
* ldx,
2960
float
* ferr,
2961
float
* berr,
2962
lapack_complex_float
* work,
2963
float
* rwork,
2964
lapack_int
* info
2965
#ifdef
LAPACK_FORTRAN_STRLEN_END
2966
,
size_t
2967
#endif
2968
);
2969
#ifdef LAPACK_FORTRAN_STRLEN_END
2970
#define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__, 1)
2971
#else
2972
#define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__)
2973
#endif
2974
2975
#define LAPACK_dgerfs_base LAPACK_GLOBAL(dgerfs,DGERFS)
2976
void
LAPACK_dgerfs_base
(
2977
char
const
* trans,
2978
lapack_int
const
* n,
lapack_int
const
* nrhs,
2979
double
const
* A,
lapack_int
const
* lda,
2980
double
const
* AF,
lapack_int
const
* ldaf,
lapack_int
const
* ipiv,
2981
double
const
* B,
lapack_int
const
* ldb,
2982
double
* X,
lapack_int
const
* ldx,
2983
double
* ferr,
2984
double
* berr,
2985
double
* work,
2986
lapack_int
* iwork,
2987
lapack_int
* info
2988
#ifdef
LAPACK_FORTRAN_STRLEN_END
2989
,
size_t
2990
#endif
2991
);
2992
#ifdef LAPACK_FORTRAN_STRLEN_END
2993
#define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__, 1)
2994
#else
2995
#define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__)
2996
#endif
2997
2998
#define LAPACK_sgerfs_base LAPACK_GLOBAL(sgerfs,SGERFS)
2999
void
LAPACK_sgerfs_base
(
3000
char
const
* trans,
3001
lapack_int
const
* n,
lapack_int
const
* nrhs,
3002
float
const
* A,
lapack_int
const
* lda,
3003
float
const
* AF,
lapack_int
const
* ldaf,
lapack_int
const
* ipiv,
3004
float
const
* B,
lapack_int
const
* ldb,
3005
float
* X,
lapack_int
const
* ldx,
3006
float
* ferr,
3007
float
* berr,
3008
float
* work,
3009
lapack_int
* iwork,
3010
lapack_int
* info
3011
#ifdef
LAPACK_FORTRAN_STRLEN_END
3012
,
size_t
3013
#endif
3014
);
3015
#ifdef LAPACK_FORTRAN_STRLEN_END
3016
#define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__, 1)
3017
#else
3018
#define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__)
3019
#endif
3020
3021
#define LAPACK_zgerfs_base LAPACK_GLOBAL(zgerfs,ZGERFS)
3022
void
LAPACK_zgerfs_base
(
3023
char
const
* trans,
3024
lapack_int
const
* n,
lapack_int
const
* nrhs,
3025
lapack_complex_double
const
* A,
lapack_int
const
* lda,
3026
lapack_complex_double
const
* AF,
lapack_int
const
* ldaf,
lapack_int
const
* ipiv,
3027
lapack_complex_double
const
* B,
lapack_int
const
* ldb,
3028
lapack_complex_double
* X,
lapack_int
const
* ldx,
3029
double
* ferr,
3030
double
* berr,
3031
lapack_complex_double
* work,
3032
double
* rwork,
3033
lapack_int
* info
3034
#ifdef
LAPACK_FORTRAN_STRLEN_END
3035
,
size_t
3036
#endif
3037
);
3038
#ifdef LAPACK_FORTRAN_STRLEN_END
3039
#define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__, 1)
3040
#else
3041
#define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__)
3042
#endif
3043
3044
#define LAPACK_cgerfsx_base LAPACK_GLOBAL(cgerfsx,CGERFSX)
3045
void
LAPACK_cgerfsx_base
(
3046
char
const
* trans,
char
const
* equed,
3047
lapack_int
const
* n,
lapack_int
const
* nrhs,
3048
lapack_complex_float
const
* A,
lapack_int
const
* lda,
3049
lapack_complex_float
const
* AF,
lapack_int
const
* ldaf,
lapack_int
const
* ipiv,
3050
float
const
* R,
3051
float
const
* C,
3052
lapack_complex_float
const
* B,
lapack_int
const
* ldb,
3053
lapack_complex_float
* X,
lapack_int
const
* ldx,
3054
float
* rcond,
3055
float
* berr,
lapack_int
const
* n_err_bnds,
3056
float
* err_bnds_norm,
3057
float
* err_bnds_comp,
lapack_int
const
* nparams,
3058
float
* params,
3059
lapack_complex_float
* work,
3060
float
* rwork,
3061
lapack_int
* info
3062
#ifdef
LAPACK_FORTRAN_STRLEN_END
3063
,
size_t
,
size_t
3064
#endif
3065
);
3066
#ifdef LAPACK_FORTRAN_STRLEN_END
3067
#define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__, 1, 1)
3068
#else
3069
#define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__)
3070
#endif
3071
3072
#define LAPACK_dgerfsx_base LAPACK_GLOBAL(dgerfsx,DGERFSX)
3073
void
LAPACK_dgerfsx_base
(
3074
char
const
* trans,
char
const
* equed,
3075
lapack_int
const
* n,
lapack_int
const
* nrhs,
3076
double
const
* A,
lapack_int
const
* lda,
3077
double
const
* AF,
lapack_int
const
* ldaf,
lapack_int
const
* ipiv,
3078
double
const
* R,
3079
double
const
* C,
3080
double
const
* B,
lapack_int
const
* ldb,
3081
double
* X,
lapack_int
const
* ldx,
3082
double
* rcond,
3083
double
* berr,
lapack_int
const
* n_err_bnds,
3084
double
* err_bnds_norm,
3085
double
* err_bnds_comp,
lapack_int
const
* nparams,
3086
double
* params,
3087
double
* work,
3088
lapack_int
* iwork,
3089
lapack_int
* info
3090
#ifdef
LAPACK_FORTRAN_STRLEN_END
3091
,
size_t
,
size_t
3092
#endif
3093
);
3094
#ifdef LAPACK_FORTRAN_STRLEN_END
3095
#define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__, 1, 1)
3096
#else
3097
#define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__)
3098
#endif
3099
3100
#define LAPACK_sgerfsx_base LAPACK_GLOBAL(sgerfsx,SGERFSX)
3101
void
LAPACK_sgerfsx_base
(
3102
char
const
* trans,
char
const
* equed,
3103
lapack_int
const
* n,
lapack_int
const
* nrhs,
3104
float
const
* A,
lapack_int
const
* lda,
3105
float
const
* AF,
lapack_int
const
* ldaf,
lapack_int
const
* ipiv,
3106
float
const
* R,
3107
float
const
* C,
3108
float
const
* B,
lapack_int
const
* ldb,
3109
float
* X,
lapack_int
const
* ldx,
3110
float
* rcond,
3111
float
* berr,
lapack_int
const
* n_err_bnds,
3112
float
* err_bnds_norm,
3113
float
* err_bnds_comp,
lapack_int
const
* nparams,
3114
float
* params,
3115
float
* work,
3116
lapack_int
* iwork,
3117
lapack_int
* info
3118
#ifdef
LAPACK_FORTRAN_STRLEN_END
3119
,
size_t
,
size_t
3120
#endif
3121
);
3122
#ifdef LAPACK_FORTRAN_STRLEN_END
3123
#define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__, 1, 1)
3124
#else
3125
#define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__)
3126
#endif
3127
3128
#define LAPACK_zgerfsx_base LAPACK_GLOBAL(zgerfsx,ZGERFSX)
3129
void
LAPACK_zgerfsx_base
(
3130
char
const
* trans,
char
const
* equed,
3131
lapack_int
const
* n,
lapack_int
const
* nrhs,
3132
lapack_complex_double
const
* A,
lapack_int
const
* lda,
3133
lapack_complex_double
const
* AF,
lapack_int
const
* ldaf,
lapack_int
const
* ipiv,
3134
double
const
* R,
3135
double
const
* C,
3136
lapack_complex_double
const
* B,
lapack_int
const
* ldb,
3137
lapack_complex_double
* X,
lapack_int
const
* ldx,
3138
double
* rcond,
3139
double
* berr,
lapack_int
const
* n_err_bnds,
3140
double
* err_bnds_norm,
3141
double
* err_bnds_comp,
lapack_int
const
* nparams,
3142
double
* params,
3143
lapack_complex_double
* work,
3144
double
* rwork,
3145
lapack_int
* info
3146
#ifdef
LAPACK_FORTRAN_STRLEN_END
3147
,
size_t
,
size_t
3148
#endif
3149
);
3150
#ifdef LAPACK_FORTRAN_STRLEN_END
3151
#define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__, 1, 1)
3152
#else
3153
#define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__)
3154
#endif
3155
3156
#define LAPACK_cgerq2 LAPACK_GLOBAL(cgerq2,CGERQ2)
3157
void
LAPACK_cgerq2
(
3158
lapack_int
const
* m,
lapack_int
const
* n,
3159
lapack_complex_float
* A,
lapack_int
const
* lda,
3160
lapack_complex_float
* tau,
3161
lapack_complex_float
* work,
3162
lapack_int
* info );
3163
3164
#define LAPACK_dgerq2 LAPACK_GLOBAL(dgerq2,DGERQ2)
3165
void
LAPACK_dgerq2
(
3166
lapack_int
const
* m,
lapack_int
const
* n,
3167
double
* A,
lapack_int
const
* lda,
3168
double
* tau,
3169
double
* work,
3170
lapack_int
* info );
3171
3172
#define LAPACK_sgerq2 LAPACK_GLOBAL(sgerq2,SGERQ2)
3173
void
LAPACK_sgerq2
(
3174
lapack_int
const
* m,
lapack_int
const
* n,
3175
float
* A,
lapack_int
const
* lda,
3176
float
* tau,
3177
float
* work,
3178
lapack_int
* info );
3179
3180
#define LAPACK_zgerq2 LAPACK_GLOBAL(zgerq2,ZGERQ2)
3181
void
LAPACK_zgerq2
(
3182
lapack_int
const
* m,
lapack_int
const
* n,
3183
lapack_complex_double
* A,
lapack_int
const
* lda,
3184
lapack_complex_double
* tau,
3185
lapack_complex_double
* work,
3186
lapack_int
* info );
3187
3188
#define LAPACK_cgerqf LAPACK_GLOBAL(cgerqf,CGERQF)
3189
void
LAPACK_cgerqf
(
3190
lapack_int
const
* m,
lapack_int
const
* n,
3191
lapack_complex_float
* A,
lapack_int
const
* lda,
3192
lapack_complex_float
* tau,
3193
lapack_complex_float
* work,
lapack_int
const
* lwork,
3194
lapack_int
* info );
3195
3196
#define LAPACK_dgerqf LAPACK_GLOBAL(dgerqf,DGERQF)
3197
void
LAPACK_dgerqf
(
3198
lapack_int
const
* m,
lapack_int
const
* n,
3199
double
* A,
lapack_int
const
* lda,
3200
double
* tau,
3201
double
* work,
lapack_int
const
* lwork,
3202
lapack_int
* info );
3203
3204
#define LAPACK_sgerqf LAPACK_GLOBAL(sgerqf,SGERQF)
3205
void
LAPACK_sgerqf
(
3206
lapack_int
const
* m,
lapack_int
const
* n,
3207
float
* A,
lapack_int
const
* lda,
3208
float
* tau,
3209
float
* work,
lapack_int
const
* lwork,
3210
lapack_int
* info );
3211
3212
#define LAPACK_zgerqf LAPACK_GLOBAL(zgerqf,ZGERQF)
3213
void
LAPACK_zgerqf
(
3214
lapack_int
const
* m,
lapack_int
const
* n,
3215
lapack_complex_double
* A,
lapack_int
const
* lda,
3216
lapack_complex_double
* tau,
3217
lapack_complex_double
* work,
lapack_int
const
* lwork,
3218
lapack_int
* info );
3219
3220
#define LAPACK_cgesdd_base LAPACK_GLOBAL(cgesdd,CGESDD)
3221
void
LAPACK_cgesdd_base
(
3222
char
const
* jobz,
3223
lapack_int
const
* m,
lapack_int
const
* n,
3224
lapack_complex_float
* A,
lapack_int
const
* lda,
3225
float
* S,
3226
lapack_complex_float
* U,
lapack_int
const
* ldu,
3227
lapack_complex_float
* VT,
lapack_int
const
* ldvt,
3228
lapack_complex_float
* work,
lapack_int
const
* lwork,
3229
float
* rwork,
3230
lapack_int
* iwork,
3231
lapack_int
* info
3232
#ifdef
LAPACK_FORTRAN_STRLEN_END
3233
,
size_t
3234
#endif
3235
);
3236
#ifdef LAPACK_FORTRAN_STRLEN_END
3237
#define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__, 1)
3238
#else
3239
#define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__)
3240
#endif
3241
3242
#define LAPACK_dgesdd_base LAPACK_GLOBAL(dgesdd,DGESDD)
3243
void
LAPACK_dgesdd_base
(
3244
char
const
* jobz,
3245
lapack_int
const
* m,
lapack_int
const
* n,
3246
double
* A,
lapack_int
const
* lda,
3247
double
* S,
3248
double
* U,
lapack_int
const
* ldu,
3249
double
* VT,
lapack_int
const
* ldvt,
3250
double
* work,
lapack_int
const
* lwork,
3251
lapack_int
* iwork,
3252
lapack_int
* info
3253
#ifdef
LAPACK_FORTRAN_STRLEN_END
3254
,
size_t
3255
#endif
3256
);
3257
#ifdef LAPACK_FORTRAN_STRLEN_END
3258
#define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__, 1)
3259
#else
3260
#define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__)
3261
#endif
3262
3263
#define LAPACK_sgesdd_base LAPACK_GLOBAL(sgesdd,SGESDD)
3264
void
LAPACK_sgesdd_base
(
3265
char
const
* jobz,
3266
lapack_int
const
* m,
lapack_int
const
* n,
3267
float
* A,
lapack_int
const
* lda,
3268
float
* S,
3269
float
* U,
lapack_int
const
* ldu,
3270
float
* VT,
lapack_int
const
* ldvt,
3271
float
* work,
lapack_int
const
* lwork,
3272
lapack_int
* iwork,
3273
lapack_int
* info
3274
#ifdef
LAPACK_FORTRAN_STRLEN_END
3275
,
size_t
3276
#endif
3277
);
3278
#ifdef LAPACK_FORTRAN_STRLEN_END
3279
#define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__, 1)
3280
#else
3281
#define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__)
3282
#endif
3283
3284
#define LAPACK_zgesdd_base LAPACK_GLOBAL(zgesdd,ZGESDD)
3285
void
LAPACK_zgesdd_base
(
3286
char
const
* jobz,
3287
lapack_int
const
* m,
lapack_int
const
* n,
3288
lapack_complex_double
* A,
lapack_int
const
* lda,
3289
double
* S,
3290
lapack_complex_double
* U,
lapack_int
const
* ldu,
3291
lapack_complex_double
* VT,
lapack_int
const
* ldvt,
3292
lapack_complex_double
* work,
lapack_int
const
* lwork,
3293
double
* rwork,
3294
lapack_int
* iwork,
3295
lapack_int
* info
3296
#ifdef
LAPACK_FORTRAN_STRLEN_END
3297
,
size_t
3298
#endif
3299
);
3300
#ifdef LAPACK_FORTRAN_STRLEN_END
3301
#define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__, 1)
3302
#else
3303
#define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__)
3304
#endif
3305
3306
#define LAPACK_cgesv LAPACK_GLOBAL(cgesv,CGESV)
3307
void
LAPACK_cgesv
(
3308
lapack_int
const
* n,
lapack_int
const
* nrhs,
3309
lapack_complex_float
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3310
lapack_complex_float
* B,
lapack_int
const
* ldb,
3311
lapack_int
* info );
3312
3313
#define LAPACK_dgesv LAPACK_GLOBAL(dgesv,DGESV)
3314
void
LAPACK_dgesv
(
3315
lapack_int
const
* n,
lapack_int
const
* nrhs,
3316
double
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3317
double
* B,
lapack_int
const
* ldb,
3318
lapack_int
* info );
3319
3320
#define LAPACK_sgesv LAPACK_GLOBAL(sgesv,SGESV)
3321
void
LAPACK_sgesv
(
3322
lapack_int
const
* n,
lapack_int
const
* nrhs,
3323
float
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3324
float
* B,
lapack_int
const
* ldb,
3325
lapack_int
* info );
3326
3327
#define LAPACK_zgesv LAPACK_GLOBAL(zgesv,ZGESV)
3328
void
LAPACK_zgesv
(
3329
lapack_int
const
* n,
lapack_int
const
* nrhs,
3330
lapack_complex_double
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3331
lapack_complex_double
* B,
lapack_int
const
* ldb,
3332
lapack_int
* info );
3333
3334
#define LAPACK_dsgesv LAPACK_GLOBAL(dsgesv,DSGESV)
3335
void
LAPACK_dsgesv
(
3336
lapack_int
const
* n,
lapack_int
const
* nrhs,
3337
double
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3338
double
const
* B,
lapack_int
const
* ldb,
3339
double
* X,
lapack_int
const
* ldx,
3340
double
* work,
3341
float
* swork,
lapack_int
* iter,
3342
lapack_int
* info );
3343
3344
#define LAPACK_zcgesv LAPACK_GLOBAL(zcgesv,ZCGESV)
3345
void
LAPACK_zcgesv
(
3346
lapack_int
const
* n,
lapack_int
const
* nrhs,
3347
lapack_complex_double
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3348
lapack_complex_double
const
* B,
lapack_int
const
* ldb,
3349
lapack_complex_double
* X,
lapack_int
const
* ldx,
3350
lapack_complex_double
* work,
3351
lapack_complex_float
* swork,
3352
double
* rwork,
lapack_int
* iter,
3353
lapack_int
* info );
3354
3355
#define LAPACK_cgesvd_base LAPACK_GLOBAL(cgesvd,CGESVD)
3356
void
LAPACK_cgesvd_base
(
3357
char
const
* jobu,
char
const
* jobvt,
3358
lapack_int
const
* m,
lapack_int
const
* n,
3359
lapack_complex_float
* A,
lapack_int
const
* lda,
3360
float
* S,
3361
lapack_complex_float
* U,
lapack_int
const
* ldu,
3362
lapack_complex_float
* VT,
lapack_int
const
* ldvt,
3363
lapack_complex_float
* work,
lapack_int
const
* lwork,
3364
float
* rwork,
3365
lapack_int
* info
3366
#ifdef
LAPACK_FORTRAN_STRLEN_END
3367
,
size_t
,
size_t
3368
#endif
3369
);
3370
#ifdef LAPACK_FORTRAN_STRLEN_END
3371
#define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__, 1, 1)
3372
#else
3373
#define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__)
3374
#endif
3375
3376
#define LAPACK_dgesvd_base LAPACK_GLOBAL(dgesvd,DGESVD)
3377
void
LAPACK_dgesvd_base
(
3378
char
const
* jobu,
char
const
* jobvt,
3379
lapack_int
const
* m,
lapack_int
const
* n,
3380
double
* A,
lapack_int
const
* lda,
3381
double
* S,
3382
double
* U,
lapack_int
const
* ldu,
3383
double
* VT,
lapack_int
const
* ldvt,
3384
double
* work,
lapack_int
const
* lwork,
3385
lapack_int
* info
3386
#ifdef
LAPACK_FORTRAN_STRLEN_END
3387
,
size_t
,
size_t
3388
#endif
3389
);
3390
#ifdef LAPACK_FORTRAN_STRLEN_END
3391
#define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__, 1, 1)
3392
#else
3393
#define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__)
3394
#endif
3395
3396
#define LAPACK_sgesvd_base LAPACK_GLOBAL(sgesvd,SGESVD)
3397
void
LAPACK_sgesvd_base
(
3398
char
const
* jobu,
char
const
* jobvt,
3399
lapack_int
const
* m,
lapack_int
const
* n,
3400
float
* A,
lapack_int
const
* lda,
3401
float
* S,
3402
float
* U,
lapack_int
const
* ldu,
3403
float
* VT,
lapack_int
const
* ldvt,
3404
float
* work,
lapack_int
const
* lwork,
3405
lapack_int
* info
3406
#ifdef
LAPACK_FORTRAN_STRLEN_END
3407
,
size_t
,
size_t
3408
#endif
3409
);
3410
#ifdef LAPACK_FORTRAN_STRLEN_END
3411
#define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__, 1, 1)
3412
#else
3413
#define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__)
3414
#endif
3415
3416
#define LAPACK_zgesvd_base LAPACK_GLOBAL(zgesvd,ZGESVD)
3417
void
LAPACK_zgesvd_base
(
3418
char
const
* jobu,
char
const
* jobvt,
3419
lapack_int
const
* m,
lapack_int
const
* n,
3420
lapack_complex_double
* A,
lapack_int
const
* lda,
3421
double
* S,
3422
lapack_complex_double
* U,
lapack_int
const
* ldu,
3423
lapack_complex_double
* VT,
lapack_int
const
* ldvt,
3424
lapack_complex_double
* work,
lapack_int
const
* lwork,
3425
double
* rwork,
3426
lapack_int
* info
3427
#ifdef
LAPACK_FORTRAN_STRLEN_END
3428
,
size_t
,
size_t
3429
#endif
3430
);
3431
#ifdef LAPACK_FORTRAN_STRLEN_END
3432
#define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__, 1, 1)
3433
#else
3434
#define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__)
3435
#endif
3436
3437
#define LAPACK_cgesvdq_base LAPACK_GLOBAL(cgesvdq,CGESVDQ)
3438
void
LAPACK_cgesvdq_base
(
3439
char
const
* joba,
char
const
* jobp,
char
const
* jobr,
char
const
* jobu,
char
const
* jobv,
3440
lapack_int
const
* m,
lapack_int
const
* n,
3441
lapack_complex_float
* A,
lapack_int
const
* lda,
3442
float
* S,
3443
lapack_complex_float
* U,
lapack_int
const
* ldu,
3444
lapack_complex_float
* V,
lapack_int
const
* ldv,
lapack_int
* numrank,
3445
lapack_int
* iwork,
lapack_int
const
* liwork,
3446
lapack_complex_float
* cwork,
lapack_int
* lcwork,
3447
float
* rwork,
lapack_int
const
* lrwork,
3448
lapack_int
* info
3449
#ifdef
LAPACK_FORTRAN_STRLEN_END
3450
,
size_t
,
size_t
,
size_t
,
size_t
,
size_t
3451
#endif
3452
);
3453
#ifdef LAPACK_FORTRAN_STRLEN_END
3454
#define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3455
#else
3456
#define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__)
3457
#endif
3458
3459
#define LAPACK_dgesvdq_base LAPACK_GLOBAL(dgesvdq,DGESVDQ)
3460
void
LAPACK_dgesvdq_base
(
3461
char
const
* joba,
char
const
* jobp,
char
const
* jobr,
char
const
* jobu,
char
const
* jobv,
3462
lapack_int
const
* m,
lapack_int
const
* n,
3463
double
* A,
lapack_int
const
* lda,
3464
double
* S,
3465
double
* U,
lapack_int
const
* ldu,
3466
double
* V,
lapack_int
const
* ldv,
lapack_int
* numrank,
3467
lapack_int
* iwork,
lapack_int
const
* liwork,
3468
double
* work,
lapack_int
* lwork,
3469
double
* rwork,
lapack_int
const
* lrwork,
3470
lapack_int
* info
3471
#ifdef
LAPACK_FORTRAN_STRLEN_END
3472
,
size_t
,
size_t
,
size_t
,
size_t
,
size_t
3473
#endif
3474
);
3475
#ifdef LAPACK_FORTRAN_STRLEN_END
3476
#define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3477
#else
3478
#define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__)
3479
#endif
3480
3481
#define LAPACK_sgesvdq_base LAPACK_GLOBAL(sgesvdq,SGESVDQ)
3482
void
LAPACK_sgesvdq_base
(
3483
char
const
* joba,
char
const
* jobp,
char
const
* jobr,
char
const
* jobu,
char
const
* jobv,
3484
lapack_int
const
* m,
lapack_int
const
* n,
3485
float
* A,
lapack_int
const
* lda,
3486
float
* S,
3487
float
* U,
lapack_int
const
* ldu,
3488
float
* V,
lapack_int
const
* ldv,
lapack_int
* numrank,
3489
lapack_int
* iwork,
lapack_int
const
* liwork,
3490
float
* work,
lapack_int
* lwork,
3491
float
* rwork,
lapack_int
const
* lrwork,
3492
lapack_int
* info
3493
#ifdef
LAPACK_FORTRAN_STRLEN_END
3494
,
size_t
,
size_t
,
size_t
,
size_t
,
size_t
3495
#endif
3496
);
3497
#ifdef LAPACK_FORTRAN_STRLEN_END
3498
#define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3499
#else
3500
#define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__)
3501
#endif
3502
3503
#define LAPACK_zgesvdq_base LAPACK_GLOBAL(zgesvdq,ZGESVDQ)
3504
void
LAPACK_zgesvdq_base
(
3505
char
const
* joba,
char
const
* jobp,
char
const
* jobr,
char
const
* jobu,
char
const
* jobv,
3506
lapack_int
const
* m,
lapack_int
const
* n,
3507
lapack_complex_double
* A,
lapack_int
const
* lda,
3508
double
* S,
3509
lapack_complex_double
* U,
lapack_int
const
* ldu,
3510
lapack_complex_double
* V,
lapack_int
const
* ldv,
lapack_int
* numrank,
3511
lapack_int
* iwork,
lapack_int
const
* liwork,
3512
lapack_complex_double
* cwork,
lapack_int
* lcwork,
3513
double
* rwork,
lapack_int
const
* lrwork,
3514
lapack_int
* info
3515
#ifdef
LAPACK_FORTRAN_STRLEN_END
3516
,
size_t
,
size_t
,
size_t
,
size_t
,
size_t
3517
#endif
3518
);
3519
#ifdef LAPACK_FORTRAN_STRLEN_END
3520
#define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3521
#else
3522
#define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__)
3523
#endif
3524
3525
#define LAPACK_cgesvdx_base LAPACK_GLOBAL(cgesvdx,CGESVDX)
3526
void
LAPACK_cgesvdx_base
(
3527
char
const
* jobu,
char
const
* jobvt,
char
const
* range,
3528
lapack_int
const
* m,
lapack_int
const
* n,
3529
lapack_complex_float
* A,
lapack_int
const
* lda,
3530
float
const
* vl,
3531
float
const
* vu,
lapack_int
const
* il,
lapack_int
const
* iu,
lapack_int
* ns,
3532
float
* S,
3533
lapack_complex_float
* U,
lapack_int
const
* ldu,
3534
lapack_complex_float
* VT,
lapack_int
const
* ldvt,
3535
lapack_complex_float
* work,
lapack_int
const
* lwork,
3536
float
* rwork,
3537
lapack_int
* iwork,
3538
lapack_int
* info
3539
#ifdef
LAPACK_FORTRAN_STRLEN_END
3540
,
size_t
,
size_t
,
size_t
3541
#endif
3542
);
3543
#ifdef LAPACK_FORTRAN_STRLEN_END
3544
#define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__, 1, 1, 1)
3545
#else
3546
#define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__)
3547
#endif
3548
3549
3550
#define LAPACK_dgesvdx_base LAPACK_GLOBAL(dgesvdx,DGESVDX)
3551
void
LAPACK_dgesvdx_base
(
3552
char
const
* jobu,
char
const
* jobvt,
char
const
* range,
3553
lapack_int
const
* m,
lapack_int
const
* n,
3554
double
* A,
lapack_int
const
* lda,
3555
double
const
* vl,
3556
double
const
* vu,
lapack_int
const
* il,
lapack_int
const
* iu,
lapack_int
* ns,
3557
double
* S,
3558
double
* U,
lapack_int
const
* ldu,
3559
double
* VT,
lapack_int
const
* ldvt,
3560
double
* work,
lapack_int
const
* lwork,
3561
lapack_int
* iwork,
3562
lapack_int
* info
3563
#ifdef
LAPACK_FORTRAN_STRLEN_END
3564
,
size_t
,
size_t
,
size_t
3565
#endif
3566
);
3567
#ifdef LAPACK_FORTRAN_STRLEN_END
3568
#define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__, 1, 1, 1)
3569
#else
3570
#define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__)
3571
#endif
3572
3573
#define LAPACK_sgesvdx_base LAPACK_GLOBAL(sgesvdx,SGESVDX)
3574
void
LAPACK_sgesvdx_base
(
3575
char
const
* jobu,
char
const
* jobvt,
char
const
* range,
3576
lapack_int
const
* m,
lapack_int
const
* n,
3577
float
* A,
lapack_int
const
* lda,
3578
float
const
* vl,
3579
float
const
* vu,
lapack_int
const
* il,
lapack_int
const
* iu,
lapack_int
* ns,
3580
float
* S,
3581
float
* U,
lapack_int
const
* ldu,
3582
float
* VT,
lapack_int
const
* ldvt,
3583
float
* work,
lapack_int
const
* lwork,
3584
lapack_int
* iwork,
3585
lapack_int
* info
3586
#ifdef
LAPACK_FORTRAN_STRLEN_END
3587
,
size_t
,
size_t
,
size_t
3588
#endif
3589
);
3590
#ifdef LAPACK_FORTRAN_STRLEN_END
3591
#define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__, 1, 1, 1)
3592
#else
3593
#define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__)
3594
#endif
3595
3596
#define LAPACK_zgesvdx_base LAPACK_GLOBAL(zgesvdx,ZGESVDX)
3597
void
LAPACK_zgesvdx_base
(
3598
char
const
* jobu,
char
const
* jobvt,
char
const
* range,
3599
lapack_int
const
* m,
lapack_int
const
* n,
3600
lapack_complex_double
* A,
lapack_int
const
* lda,
3601
double
const
* vl,
3602
double
const
* vu,
lapack_int
const
* il,
lapack_int
const
* iu,
lapack_int
* ns,
3603
double
* S,
3604
lapack_complex_double
* U,
lapack_int
const
* ldu,
3605
lapack_complex_double
* VT,
lapack_int
const
* ldvt,
3606
lapack_complex_double
* work,
lapack_int
const
* lwork,
3607
double
* rwork,
3608
lapack_int
* iwork,
3609
lapack_int
* info
3610
#ifdef
LAPACK_FORTRAN_STRLEN_END
3611
,
size_t
,
size_t
,
size_t
3612
#endif
3613
);
3614
#ifdef LAPACK_FORTRAN_STRLEN_END
3615
#define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__, 1, 1, 1)
3616
#else
3617
#define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__)
3618
#endif
3619
3620
#define LAPACK_cgesvj_base LAPACK_GLOBAL(cgesvj,CGESVJ)
3621
void
LAPACK_cgesvj_base
(
3622
char
const
* joba,
char
const
* jobu,
char
const
* jobv,
3623
lapack_int
const
* m,
lapack_int
const
* n,
3624
lapack_complex_float
* A,
lapack_int
const
* lda,
3625
float
* SVA,
lapack_int
const
* mv,
3626
lapack_complex_float
* V,
lapack_int
const
* ldv,
3627
lapack_complex_float
* cwork,
lapack_int
const
* lwork,
3628
float
* rwork,
lapack_int
const
* lrwork,
3629
lapack_int
* info
3630
#ifdef
LAPACK_FORTRAN_STRLEN_END
3631
,
size_t
,
size_t
,
size_t
3632
#endif
3633
);
3634
#ifdef LAPACK_FORTRAN_STRLEN_END
3635
#define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__, 1, 1, 1)
3636
#else
3637
#define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__)
3638
#endif
3639
3640
#define LAPACK_dgesvj_base LAPACK_GLOBAL(dgesvj,DGESVJ)
3641
void
LAPACK_dgesvj_base
(
3642
char
const
* joba,
char
const
* jobu,
char
const
* jobv,
3643
lapack_int
const
* m,
lapack_int
const
* n,
3644
double
* A,
lapack_int
const
* lda,
3645
double
* SVA,
lapack_int
const
* mv,
3646
double
* V,
lapack_int
const
* ldv,
3647
double
* work,
lapack_int
const
* lwork,
3648
lapack_int
* info
3649
#ifdef
LAPACK_FORTRAN_STRLEN_END
3650
,
size_t
,
size_t
,
size_t
3651
#endif
3652
);
3653
#ifdef LAPACK_FORTRAN_STRLEN_END
3654
#define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__, 1, 1, 1)
3655
#else
3656
#define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__)
3657
#endif
3658
3659
#define LAPACK_sgesvj_base LAPACK_GLOBAL(sgesvj,SGESVJ)
3660
void
LAPACK_sgesvj_base
(
3661
char
const
* joba,
char
const
* jobu,
char
const
* jobv,
3662
lapack_int
const
* m,
lapack_int
const
* n,
3663
float
* A,
lapack_int
const
* lda,
3664
float
* SVA,
lapack_int
const
* mv,
3665
float
* V,
lapack_int
const
* ldv,
3666
float
* work,
lapack_int
const
* lwork,
3667
lapack_int
* info
3668
#ifdef
LAPACK_FORTRAN_STRLEN_END
3669
,
size_t
,
size_t
,
size_t
3670
#endif
3671
);
3672
#ifdef LAPACK_FORTRAN_STRLEN_END
3673
#define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__, 1, 1, 1)
3674
#else
3675
#define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__)
3676
#endif
3677
3678
#define LAPACK_zgesvj_base LAPACK_GLOBAL(zgesvj,ZGESVJ)
3679
void
LAPACK_zgesvj_base
(
3680
char
const
* joba,
char
const
* jobu,
char
const
* jobv,
3681
lapack_int
const
* m,
lapack_int
const
* n,
3682
lapack_complex_double
* A,
lapack_int
const
* lda,
3683
double
* SVA,
lapack_int
const
* mv,
3684
lapack_complex_double
* V,
lapack_int
const
* ldv,
3685
lapack_complex_double
* cwork,
lapack_int
const
* lwork,
3686
double
* rwork,
lapack_int
const
* lrwork,
3687
lapack_int
* info
3688
#ifdef
LAPACK_FORTRAN_STRLEN_END
3689
,
size_t
,
size_t
,
size_t
3690
#endif
3691
);
3692
#ifdef LAPACK_FORTRAN_STRLEN_END
3693
#define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__, 1, 1, 1)
3694
#else
3695
#define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__)
3696
#endif
3697
3698
#define LAPACK_cgesvx_base LAPACK_GLOBAL(cgesvx,CGESVX)
3699
void
LAPACK_cgesvx_base
(
3700
char
const
* fact,
char
const
* trans,
3701
lapack_int
const
* n,
lapack_int
const
* nrhs,
3702
lapack_complex_float
* A,
lapack_int
const
* lda,
3703
lapack_complex_float
* AF,
lapack_int
const
* ldaf,
lapack_int
* ipiv,
char
* equed,
3704
float
* R,
3705
float
* C,
3706
lapack_complex_float
* B,
3707
lapack_int
const
* ldb,
3708
lapack_complex_float
* X,
lapack_int
const
* ldx,
3709
float
* rcond,
3710
float
* ferr,
3711
float
* berr,
3712
lapack_complex_float
* work,
3713
float
* rwork,
3714
lapack_int
* info
3715
#ifdef
LAPACK_FORTRAN_STRLEN_END
3716
,
size_t
,
size_t
,
size_t
3717
#endif
3718
);
3719
#ifdef LAPACK_FORTRAN_STRLEN_END
3720
#define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__, 1, 1, 1)
3721
#else
3722
#define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__)
3723
#endif
3724
3725
#define LAPACK_dgesvx_base LAPACK_GLOBAL(dgesvx,DGESVX)
3726
void
LAPACK_dgesvx_base
(
3727
char
const
* fact,
char
const
* trans,
3728
lapack_int
const
* n,
lapack_int
const
* nrhs,
3729
double
* A,
lapack_int
const
* lda,
3730
double
* AF,
lapack_int
const
* ldaf,
lapack_int
* ipiv,
char
* equed,
3731
double
* R,
3732
double
* C,
3733
double
* B,
3734
lapack_int
const
* ldb,
3735
double
* X,
lapack_int
const
* ldx,
3736
double
* rcond,
3737
double
* ferr,
3738
double
* berr,
3739
double
* work,
3740
lapack_int
* iwork,
3741
lapack_int
* info
3742
#ifdef
LAPACK_FORTRAN_STRLEN_END
3743
,
size_t
,
size_t
,
size_t
3744
#endif
3745
);
3746
#ifdef LAPACK_FORTRAN_STRLEN_END
3747
#define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__, 1, 1, 1)
3748
#else
3749
#define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__)
3750
#endif
3751
3752
#define LAPACK_sgesvx_base LAPACK_GLOBAL(sgesvx,SGESVX)
3753
void
LAPACK_sgesvx_base
(
3754
char
const
* fact,
char
const
* trans,
3755
lapack_int
const
* n,
lapack_int
const
* nrhs,
3756
float
* A,
lapack_int
const
* lda,
3757
float
* AF,
lapack_int
const
* ldaf,
lapack_int
* ipiv,
char
* equed,
3758
float
* R,
3759
float
* C,
3760
float
* B,
3761
lapack_int
const
* ldb,
3762
float
* X,
lapack_int
const
* ldx,
3763
float
* rcond,
3764
float
* ferr,
3765
float
* berr,
3766
float
* work,
3767
lapack_int
* iwork,
3768
lapack_int
* info
3769
#ifdef
LAPACK_FORTRAN_STRLEN_END
3770
,
size_t
,
size_t
,
size_t
3771
#endif
3772
);
3773
#ifdef LAPACK_FORTRAN_STRLEN_END
3774
#define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__, 1, 1, 1)
3775
#else
3776
#define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__)
3777
#endif
3778
3779
#define LAPACK_zgesvx_base LAPACK_GLOBAL(zgesvx,ZGESVX)
3780
void
LAPACK_zgesvx_base
(
3781
char
const
* fact,
char
const
* trans,
3782
lapack_int
const
* n,
lapack_int
const
* nrhs,
3783
lapack_complex_double
* A,
lapack_int
const
* lda,
3784
lapack_complex_double
* AF,
lapack_int
const
* ldaf,
lapack_int
* ipiv,
char
* equed,
3785
double
* R,
3786
double
* C,
3787
lapack_complex_double
* B,
3788
lapack_int
const
* ldb,
3789
lapack_complex_double
* X,
lapack_int
const
* ldx,
3790
double
* rcond,
3791
double
* ferr,
3792
double
* berr,
3793
lapack_complex_double
* work,
3794
double
* rwork,
3795
lapack_int
* info
3796
#ifdef
LAPACK_FORTRAN_STRLEN_END
3797
,
size_t
,
size_t
,
size_t
3798
#endif
3799
);
3800
#ifdef LAPACK_FORTRAN_STRLEN_END
3801
#define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__, 1, 1, 1)
3802
#else
3803
#define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__)
3804
#endif
3805
3806
#define LAPACK_cgesvxx_base LAPACK_GLOBAL(cgesvxx,CGESVXX)
3807
void
LAPACK_cgesvxx_base
(
3808
char
const
* fact,
char
const
* trans,
3809
lapack_int
const
* n,
lapack_int
const
* nrhs,
3810
lapack_complex_float
* A,
lapack_int
const
* lda,
3811
lapack_complex_float
* AF,
lapack_int
const
* ldaf,
lapack_int
* ipiv,
char
* equed,
3812
float
* R,
3813
float
* C,
3814
lapack_complex_float
* B,
3815
lapack_int
const
* ldb,
3816
lapack_complex_float
* X,
lapack_int
const
* ldx,
3817
float
* rcond,
3818
float
* rpvgrw,
3819
float
* berr,
lapack_int
const
* n_err_bnds,
3820
float
* err_bnds_norm,
3821
float
* err_bnds_comp,
lapack_int
const
* nparams,
3822
float
* params,
3823
lapack_complex_float
* work,
3824
float
* rwork,
3825
lapack_int
* info
3826
#ifdef
LAPACK_FORTRAN_STRLEN_END
3827
,
size_t
,
size_t
,
size_t
3828
#endif
3829
);
3830
#ifdef LAPACK_FORTRAN_STRLEN_END
3831
#define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__, 1, 1, 1)
3832
#else
3833
#define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__)
3834
#endif
3835
3836
#define LAPACK_dgesvxx_base LAPACK_GLOBAL(dgesvxx,DGESVXX)
3837
void
LAPACK_dgesvxx_base
(
3838
char
const
* fact,
char
const
* trans,
3839
lapack_int
const
* n,
lapack_int
const
* nrhs,
3840
double
* A,
lapack_int
const
* lda,
3841
double
* AF,
lapack_int
const
* ldaf,
lapack_int
* ipiv,
char
* equed,
3842
double
* R,
3843
double
* C,
3844
double
* B,
3845
lapack_int
const
* ldb,
3846
double
* X,
lapack_int
const
* ldx,
3847
double
* rcond,
3848
double
* rpvgrw,
3849
double
* berr,
lapack_int
const
* n_err_bnds,
3850
double
* err_bnds_norm,
3851
double
* err_bnds_comp,
lapack_int
const
* nparams,
3852
double
* params,
3853
double
* work,
3854
lapack_int
* iwork,
3855
lapack_int
* info
3856
#ifdef
LAPACK_FORTRAN_STRLEN_END
3857
,
size_t
,
size_t
,
size_t
3858
#endif
3859
);
3860
#ifdef LAPACK_FORTRAN_STRLEN_END
3861
#define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__, 1, 1, 1)
3862
#else
3863
#define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__)
3864
#endif
3865
3866
#define LAPACK_sgesvxx_base LAPACK_GLOBAL(sgesvxx,SGESVXX)
3867
void
LAPACK_sgesvxx_base
(
3868
char
const
* fact,
char
const
* trans,
3869
lapack_int
const
* n,
lapack_int
const
* nrhs,
3870
float
* A,
lapack_int
const
* lda,
3871
float
* AF,
lapack_int
const
* ldaf,
lapack_int
* ipiv,
char
* equed,
3872
float
* R,
3873
float
* C,
3874
float
* B,
3875
lapack_int
const
* ldb,
3876
float
* X,
lapack_int
const
* ldx,
3877
float
* rcond,
3878
float
* rpvgrw,
3879
float
* berr,
lapack_int
const
* n_err_bnds,
3880
float
* err_bnds_norm,
3881
float
* err_bnds_comp,
lapack_int
const
* nparams,
3882
float
* params,
3883
float
* work,
3884
lapack_int
* iwork,
3885
lapack_int
* info
3886
#ifdef
LAPACK_FORTRAN_STRLEN_END
3887
,
size_t
,
size_t
,
size_t
3888
#endif
3889
);
3890
#ifdef LAPACK_FORTRAN_STRLEN_END
3891
#define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__, 1, 1, 1)
3892
#else
3893
#define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__)
3894
#endif
3895
3896
#define LAPACK_zgesvxx_base LAPACK_GLOBAL(zgesvxx,ZGESVXX)
3897
void
LAPACK_zgesvxx_base
(
3898
char
const
* fact,
char
const
* trans,
3899
lapack_int
const
* n,
lapack_int
const
* nrhs,
3900
lapack_complex_double
* A,
lapack_int
const
* lda,
3901
lapack_complex_double
* AF,
lapack_int
const
* ldaf,
lapack_int
* ipiv,
char
* equed,
3902
double
* R,
3903
double
* C,
3904
lapack_complex_double
* B,
3905
lapack_int
const
* ldb,
3906
lapack_complex_double
* X,
lapack_int
const
* ldx,
3907
double
* rcond,
3908
double
* rpvgrw,
3909
double
* berr,
lapack_int
const
* n_err_bnds,
3910
double
* err_bnds_norm,
3911
double
* err_bnds_comp,
lapack_int
const
* nparams,
3912
double
* params,
3913
lapack_complex_double
* work,
3914
double
* rwork,
3915
lapack_int
* info
3916
#ifdef
LAPACK_FORTRAN_STRLEN_END
3917
,
size_t
,
size_t
,
size_t
3918
#endif
3919
);
3920
#ifdef LAPACK_FORTRAN_STRLEN_END
3921
#define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__, 1, 1, 1)
3922
#else
3923
#define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__)
3924
#endif
3925
3926
#define LAPACK_cgetf2 LAPACK_GLOBAL(cgetf2,CGETF2)
3927
void
LAPACK_cgetf2
(
3928
lapack_int
const
* m,
lapack_int
const
* n,
3929
lapack_complex_float
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3930
lapack_int
* info );
3931
3932
#define LAPACK_dgetf2 LAPACK_GLOBAL(dgetf2,DGETF2)
3933
void
LAPACK_dgetf2
(
3934
lapack_int
const
* m,
lapack_int
const
* n,
3935
double
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3936
lapack_int
* info );
3937
3938
#define LAPACK_sgetf2 LAPACK_GLOBAL(sgetf2,SGETF2)
3939
void
LAPACK_sgetf2
(
3940
lapack_int
const
* m,
lapack_int
const
* n,
3941
float
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3942
lapack_int
* info );
3943
3944
#define LAPACK_zgetf2 LAPACK_GLOBAL(zgetf2,ZGETF2)
3945
void
LAPACK_zgetf2
(
3946
lapack_int
const
* m,
lapack_int
const
* n,
3947
lapack_complex_double
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3948
lapack_int
* info );
3949
3950
#define LAPACK_cgetrf LAPACK_GLOBAL(cgetrf,CGETRF)
3951
void
LAPACK_cgetrf
(
3952
lapack_int
const
* m,
lapack_int
const
* n,
3953
lapack_complex_float
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3954
lapack_int
* info );
3955
3956
#define LAPACK_dgetrf LAPACK_GLOBAL(dgetrf,DGETRF)
3957
void
LAPACK_dgetrf
(
3958
lapack_int
const
* m,
lapack_int
const
* n,
3959
double
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3960
lapack_int
* info );
3961
3962
#define LAPACK_sgetrf LAPACK_GLOBAL(sgetrf,SGETRF)
3963
void
LAPACK_sgetrf
(
3964
lapack_int
const
* m,
lapack_int
const
* n,
3965
float
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3966
lapack_int
* info );
3967
3968
#define LAPACK_zgetrf LAPACK_GLOBAL(zgetrf,ZGETRF)
3969
void
LAPACK_zgetrf
(
3970
lapack_int
const
* m,
lapack_int
const
* n,
3971
lapack_complex_double
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3972
lapack_int
* info );
3973
3974
#define LAPACK_cgetrf2 LAPACK_GLOBAL(cgetrf2,CGETRF2)
3975
void
LAPACK_cgetrf2
(
3976
lapack_int
const
* m,
lapack_int
const
* n,
3977
lapack_complex_float
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3978
lapack_int
* info );
3979
3980
#define LAPACK_dgetrf2 LAPACK_GLOBAL(dgetrf2,DGETRF2)
3981
void
LAPACK_dgetrf2
(
3982
lapack_int
const
* m,
lapack_int
const
* n,
3983
double
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3984
lapack_int
* info );
3985
3986
#define LAPACK_sgetrf2 LAPACK_GLOBAL(sgetrf2,SGETRF2)
3987
void
LAPACK_sgetrf2
(
3988
lapack_int
const
* m,
lapack_int
const
* n,
3989
float
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3990
lapack_int
* info );
3991
3992
#define LAPACK_zgetrf2 LAPACK_GLOBAL(zgetrf2,ZGETRF2)
3993
void
LAPACK_zgetrf2
(
3994
lapack_int
const
* m,
lapack_int
const
* n,
3995
lapack_complex_double
* A,
lapack_int
const
* lda,
lapack_int
* ipiv,
3996
lapack_int
* info );
3997
3998
#define LAPACK_cgetri LAPACK_GLOBAL(cgetri,CGETRI)
3999
void
LAPACK_cgetri
(
4000
lapack_int
const
* n,
4001
lapack_complex_float
* A,
lapack_int
const
* lda,
lapack_int
const
* ipiv,
4002
lapack_complex_float
* work,
lapack_int
const
* lwork,
4003
lapack_int
* info );
4004
4005
#define LAPACK_dgetri LAPACK_GLOBAL(dgetri,DGETRI)
4006
void
LAPACK_dgetri
(
4007
lapack_int
const
* n,
4008
double
* A,
lapack_int
const
* lda,
lapack_int
const
* ipiv,
4009
double
* work,
lapack_int
const
* lwork,
4010
lapack_int
* info );
4011
4012
#define LAPACK_sgetri LAPACK_GLOBAL(sgetri,SGETRI)
4013
void
LAPACK_sgetri
(
4014
lapack_int
const
* n,
4015
float
* A,
lapack_int
const
* lda,
lapack_int
const
* ipiv,
4016
float
* work,
lapack_int
const
* lwork,
4017
lapack_int
* info );
4018
4019
#define LAPACK_zgetri LAPACK_GLOBAL(zgetri,ZGETRI)
4020
void
LAPACK_zgetri
(
4021
lapack_int
const
* n,
4022
lapack_complex_double
* A,
lapack_int
const
* lda,
lapack_int
const
* ipiv,
4023
lapack_complex_double
* work,
lapack_int
const
* lwork,
4024
lapack_int
* info );
4025
4026
#define LAPACK_cgetrs_base LAPACK_GLOBAL(cgetrs,CGETRS)
4027
void
LAPACK_cgetrs_base
(
4028
char
const
* trans,
4029
lapack_int
const
* n,
lapack_int
const
* nrhs,
4030
lapack_complex_float
const
* A,
lapack_int
const
* lda,
lapack_int
const
* ipiv,
4031
lapack_complex_float
* B,
lapack_int
const
* ldb,
4032
lapack_int
* info
4033
#ifdef
LAPACK_FORTRAN_STRLEN_END
4034
,
size_t
4035
#endif
4036
);
4037
#ifdef LAPACK_FORTRAN_STRLEN_END
4038
#define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__, 1)
4039
#else
4040
#define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__)
4041
#endif
4042
4043
#define LAPACK_dgetrs_base LAPACK_GLOBAL(dgetrs,DGETRS)
4044
void
LAPACK_dgetrs_base
(
4045
char
const
* trans,
4046
lapack_int
const
* n,
lapack_int
const
* nrhs,
4047
double
const
* A,
lapack_int
const
* lda,
lapack_int
const
* ipiv,
4048
double
* B,
lapack_int
const
* ldb,
4049
lapack_int
* info
4050
#ifdef
LAPACK_FORTRAN_STRLEN_END
4051
,
size_t
4052
#endif
4053
);
4054
#ifdef LAPACK_FORTRAN_STRLEN_END
4055
#define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__, 1)
4056
#else
4057
#define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__)
4058
#endif
4059
4060
#define LAPACK_sgetrs_base LAPACK_GLOBAL(sgetrs,SGETRS)
4061
void
LAPACK_sgetrs_base
(
4062
char
const
* trans,
4063
lapack_int
const
* n,
lapack_int
const
* nrhs,
4064
float
const
* A,
lapack_int
const
* lda,
lapack_int
const
* ipiv,
4065
float
* B,
lapack_int
const
* ldb,
4066
lapack_int
* info
4067
#ifdef
LAPACK_FORTRAN_STRLEN_END
4068
,
size_t
4069
#endif
4070
);
4071
#ifdef LAPACK_FORTRAN_STRLEN_END
4072
#define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__, 1)
4073
#else
4074
#define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__)
4075
#endif
4076
4077
#define LAPACK_zgetrs_base LAPACK_GLOBAL(zgetrs,ZGETRS)
4078
void
LAPACK_zgetrs_base
(
4079
char
const
* trans,
4080
lapack_int
const
* n,
lapack_int
const
* nrhs,
4081
lapack_complex_double
const
* A,
lapack_int
const
* lda,
lapack_int
const
* ipiv,
4082
lapack_complex_double
* B,
lapack_int
const
* ldb,
4083
lapack_int
* info
4084
#ifdef
LAPACK_FORTRAN_STRLEN_END
4085
,
size_t
4086
#endif
4087
);
4088
#ifdef LAPACK_FORTRAN_STRLEN_END
4089
#define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__, 1)
4090
#else
4091
#define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__)
4092
#endif
4093
4094
#define LAPACK_cgetsls_base LAPACK_GLOBAL(cgetsls,CGETSLS)
4095
void
LAPACK_cgetsls_base
(
4096
char
const
* trans,
4097
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
4098
lapack_complex_float
* A,
lapack_int
const
* lda,
4099
lapack_complex_float
* B,
lapack_int
const
* ldb,
4100
lapack_complex_float
* work,
lapack_int
const
* lwork,
4101
lapack_int
* info
4102
#ifdef
LAPACK_FORTRAN_STRLEN_END
4103
,
size_t
4104
#endif
4105
);
4106
#ifdef LAPACK_FORTRAN_STRLEN_END
4107
#define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__, 1)
4108
#else
4109
#define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__)
4110
#endif
4111
4112
#define LAPACK_dgetsls_base LAPACK_GLOBAL(dgetsls,DGETSLS)
4113
void
LAPACK_dgetsls_base
(
4114
char
const
* trans,
4115
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
4116
double
* A,
lapack_int
const
* lda,
4117
double
* B,
lapack_int
const
* ldb,
4118
double
* work,
lapack_int
const
* lwork,
4119
lapack_int
* info
4120
#ifdef
LAPACK_FORTRAN_STRLEN_END
4121
,
size_t
4122
#endif
4123
);
4124
#ifdef LAPACK_FORTRAN_STRLEN_END
4125
#define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__, 1)
4126
#else
4127
#define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__)
4128
#endif
4129
4130
#define LAPACK_sgetsls_base LAPACK_GLOBAL(sgetsls,SGETSLS)
4131
void
LAPACK_sgetsls_base
(
4132
char
const
* trans,
4133
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
4134
float
* A,
lapack_int
const
* lda,
4135
float
* B,
lapack_int
const
* ldb,
4136
float
* work,
lapack_int
const
* lwork,
4137
lapack_int
* info
4138
#ifdef
LAPACK_FORTRAN_STRLEN_END
4139
,
size_t
4140
#endif
4141
);
4142
#ifdef LAPACK_FORTRAN_STRLEN_END
4143
#define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__, 1)
4144
#else
4145
#define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__)
4146
#endif
4147
4148
#define LAPACK_zgetsls_base LAPACK_GLOBAL(zgetsls,ZGETSLS)
4149
void
LAPACK_zgetsls_base
(
4150
char
const
* trans,
4151
lapack_int
const
* m,
lapack_int
const
* n,
lapack_int
const
* nrhs,
4152
lapack_complex_double
* A,
lapack_int
const
* lda,
4153
lapack_complex_double
* B,
lapack_int
const
* ldb,
4154
lapack_complex_double
* work,
lapack_int
const
* lwork,
4155
lapack_int
* info
4156
#ifdef
LAPACK_FORTRAN_STRLEN_END
4157
,
size_t
4158
#endif
4159
);
4160
#ifdef LAPACK_FORTRAN_STRLEN_END
4161
#define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__, 1)
4162
#else
4163
#define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__)
4164
#endif
4165
4166
#define LAPACK_cgetsqrhrt LAPACK_GLOBAL(cgetsqrhrt,CGETSQRHRT)
4167
void
LAPACK_cgetsqrhrt
(
4168
lapack_int
const
* m,
lapack_int
const
* n,
4169
lapack_int
const
* mb1,
lapack_int
const
* nb1,
lapack_int
const
* nb2,
<