1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
#![allow(non_camel_case_types)]
use crate::acb::{acb_ptr, acb_srcptr, acb_struct};
use crate::acb_poly::acb_poly_struct;
use crate::arb::arb_struct;
use crate::arb_mat::arb_mat_struct;
use crate::mag::mag_struct;
use flint_sys::deps::*;
use flint_sys::flint::*;
use flint_sys::fmpq_mat::fmpq_mat_struct;
use flint_sys::fmpz_mat::fmpz_mat_struct;
use libc::{c_int, FILE};
#[repr(C)]
#[derive(Debug, Copy, Clone)]
pub struct acb_mat_struct {
pub entries: acb_ptr,
pub r: mp_limb_signed_t,
pub c: mp_limb_signed_t,
pub rows: *mut acb_ptr,
}
pub type acb_mat_t = [acb_mat_struct; 1usize];
extern "C" {
pub fn acb_mat_init(mat: *mut acb_mat_struct, r: mp_limb_signed_t, c: mp_limb_signed_t);
pub fn acb_mat_clear(mat: *mut acb_mat_struct);
pub fn acb_mat_window_init(
window: *mut acb_mat_struct,
mat: *mut acb_mat_struct,
r1: mp_limb_signed_t,
c1: mp_limb_signed_t,
r2: mp_limb_signed_t,
c2: mp_limb_signed_t,
);
pub fn acb_mat_set(dest: *mut acb_mat_struct, src: *mut acb_mat_struct);
pub fn acb_mat_set_fmpz_mat(dest: *mut acb_mat_struct, src: *mut fmpz_mat_struct);
pub fn acb_mat_set_round_fmpz_mat(
dest: *mut acb_mat_struct,
src: *mut fmpz_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_set_fmpq_mat(
dest: *mut acb_mat_struct,
src: *mut fmpq_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_set_arb_mat(dest: *mut acb_mat_struct, src: *mut arb_mat_struct);
pub fn acb_mat_set_round_arb_mat(
dest: *mut acb_mat_struct,
src: *mut arb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_randtest(
mat: *mut acb_mat_struct,
state: *mut flint_rand_s,
prec: mp_limb_signed_t,
mag_bits: mp_limb_signed_t,
);
pub fn acb_mat_randtest_eig(
A: *mut acb_mat_struct,
state: *mut flint_rand_s,
E: acb_srcptr,
prec: mp_limb_signed_t,
);
pub fn acb_mat_fprintd(file: *mut FILE, mat: *mut acb_mat_struct, digits: mp_limb_signed_t);
pub fn acb_mat_eq(mat1: *mut acb_mat_struct, mat2: *mut acb_mat_struct) -> c_int;
pub fn acb_mat_ne(mat1: *mut acb_mat_struct, mat2: *mut acb_mat_struct) -> c_int;
pub fn acb_mat_equal(mat1: *mut acb_mat_struct, mat2: *mut acb_mat_struct) -> c_int;
pub fn acb_mat_overlaps(mat1: *mut acb_mat_struct, mat2: *mut acb_mat_struct) -> c_int;
pub fn acb_mat_contains(mat1: *mut acb_mat_struct, mat2: *mut acb_mat_struct) -> c_int;
pub fn acb_mat_contains_fmpq_mat(
mat1: *mut acb_mat_struct,
mat2: *mut fmpq_mat_struct,
) -> c_int;
pub fn acb_mat_contains_fmpz_mat(
mat1: *mut acb_mat_struct,
mat2: *mut fmpz_mat_struct,
) -> c_int;
pub fn acb_mat_is_real(mat: *mut acb_mat_struct) -> c_int;
pub fn acb_mat_is_exact(mat: *mut acb_mat_struct) -> c_int;
pub fn acb_mat_is_zero(mat: *mut acb_mat_struct) -> c_int;
pub fn acb_mat_is_finite(mat: *mut acb_mat_struct) -> c_int;
pub fn acb_mat_is_triu(mat: *mut acb_mat_struct) -> c_int;
pub fn acb_mat_is_tril(mat: *mut acb_mat_struct) -> c_int;
pub fn acb_mat_zero(mat: *mut acb_mat_struct);
pub fn acb_mat_one(mat: *mut acb_mat_struct);
pub fn acb_mat_ones(mat: *mut acb_mat_struct);
pub fn acb_mat_indeterminate(mat: *mut acb_mat_struct);
pub fn acb_mat_dft(res: *mut acb_mat_struct, kind: c_int, prec: mp_limb_signed_t);
pub fn acb_mat_transpose(mat1: *mut acb_mat_struct, mat2: *mut acb_mat_struct);
pub fn acb_mat_conjugate(mat1: *mut acb_mat_struct, mat2: *mut acb_mat_struct);
pub fn acb_mat_bound_inf_norm(b: *mut mag_struct, A: *mut acb_mat_struct);
pub fn acb_mat_frobenius_norm(
res: *mut arb_struct,
A: *mut acb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_bound_frobenius_norm(b: *mut mag_struct, A: *mut acb_mat_struct);
pub fn acb_mat_neg(dest: *mut acb_mat_struct, src: *mut acb_mat_struct);
pub fn acb_mat_add(
res: *mut acb_mat_struct,
mat1: *mut acb_mat_struct,
mat2: *mut acb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_sub(
res: *mut acb_mat_struct,
mat1: *mut acb_mat_struct,
mat2: *mut acb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_mul_classical(
res: *mut acb_mat_struct,
mat1: *mut acb_mat_struct,
mat2: *mut acb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_mul_threaded(
res: *mut acb_mat_struct,
mat1: *mut acb_mat_struct,
mat2: *mut acb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_mul_reorder(
res: *mut acb_mat_struct,
mat1: *mut acb_mat_struct,
mat2: *mut acb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_mul(
res: *mut acb_mat_struct,
mat1: *mut acb_mat_struct,
mat2: *mut acb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_mul_entrywise(
res: *mut acb_mat_struct,
mat1: *mut acb_mat_struct,
mat2: *mut acb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_sqr_classical(
res: *mut acb_mat_struct,
mat: *mut acb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_sqr(res: *mut acb_mat_struct, mat: *mut acb_mat_struct, prec: mp_limb_signed_t);
pub fn acb_mat_pow_ui(
B: *mut acb_mat_struct,
A: *mut acb_mat_struct,
exp: mp_limb_t,
prec: mp_limb_signed_t,
);
pub fn acb_mat_find_pivot_partial(
mat: *mut acb_mat_struct,
start_row: mp_limb_signed_t,
end_row: mp_limb_signed_t,
c: mp_limb_signed_t,
) -> mp_limb_signed_t;
pub fn acb_mat_solve_tril_classical(
X: *mut acb_mat_struct,
L: *mut acb_mat_struct,
B: *mut acb_mat_struct,
unit: c_int,
prec: mp_limb_signed_t,
);
pub fn acb_mat_solve_tril_recursive(
X: *mut acb_mat_struct,
L: *mut acb_mat_struct,
B: *mut acb_mat_struct,
unit: c_int,
prec: mp_limb_signed_t,
);
pub fn acb_mat_solve_tril(
X: *mut acb_mat_struct,
L: *mut acb_mat_struct,
B: *mut acb_mat_struct,
unit: c_int,
prec: mp_limb_signed_t,
);
pub fn acb_mat_solve_triu_classical(
X: *mut acb_mat_struct,
U: *mut acb_mat_struct,
B: *mut acb_mat_struct,
unit: c_int,
prec: mp_limb_signed_t,
);
pub fn acb_mat_solve_triu_recursive(
X: *mut acb_mat_struct,
U: *mut acb_mat_struct,
B: *mut acb_mat_struct,
unit: c_int,
prec: mp_limb_signed_t,
);
pub fn acb_mat_solve_triu(
X: *mut acb_mat_struct,
U: *mut acb_mat_struct,
B: *mut acb_mat_struct,
unit: c_int,
prec: mp_limb_signed_t,
);
pub fn acb_mat_lu_classical(
P: *mut mp_limb_signed_t,
LU: *mut acb_mat_struct,
A: *mut acb_mat_struct,
prec: mp_limb_signed_t,
) -> c_int;
pub fn acb_mat_lu_recursive(
P: *mut mp_limb_signed_t,
LU: *mut acb_mat_struct,
A: *mut acb_mat_struct,
prec: mp_limb_signed_t,
) -> c_int;
pub fn acb_mat_lu(
P: *mut mp_limb_signed_t,
LU: *mut acb_mat_struct,
A: *mut acb_mat_struct,
prec: mp_limb_signed_t,
) -> c_int;
pub fn acb_mat_solve_lu_precomp(
X: *mut acb_mat_struct,
perm: *const mp_limb_signed_t,
A: *mut acb_mat_struct,
B: *mut acb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_solve_lu(
X: *mut acb_mat_struct,
A: *mut acb_mat_struct,
B: *mut acb_mat_struct,
prec: mp_limb_signed_t,
) -> c_int;
pub fn acb_mat_solve(
X: *mut acb_mat_struct,
A: *mut acb_mat_struct,
B: *mut acb_mat_struct,
prec: mp_limb_signed_t,
) -> c_int;
pub fn acb_mat_solve_precond(
X: *mut acb_mat_struct,
A: *mut acb_mat_struct,
B: *mut acb_mat_struct,
prec: mp_limb_signed_t,
) -> c_int;
pub fn acb_mat_approx_mul(
C: *mut acb_mat_struct,
A: *mut acb_mat_struct,
B: *mut acb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_approx_solve_triu(
X: *mut acb_mat_struct,
U: *mut acb_mat_struct,
B: *mut acb_mat_struct,
unit: c_int,
prec: mp_limb_signed_t,
);
pub fn acb_mat_approx_solve_tril(
X: *mut acb_mat_struct,
L: *mut acb_mat_struct,
B: *mut acb_mat_struct,
unit: c_int,
prec: mp_limb_signed_t,
);
pub fn acb_mat_approx_lu(
P: *mut mp_limb_signed_t,
LU: *mut acb_mat_struct,
A: *mut acb_mat_struct,
prec: mp_limb_signed_t,
) -> c_int;
pub fn acb_mat_approx_solve_lu_precomp(
X: *mut acb_mat_struct,
perm: *const mp_limb_signed_t,
A: *mut acb_mat_struct,
B: *mut acb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_approx_solve(
X: *mut acb_mat_struct,
A: *mut acb_mat_struct,
B: *mut acb_mat_struct,
prec: mp_limb_signed_t,
) -> c_int;
pub fn acb_mat_approx_inv(
X: *mut acb_mat_struct,
A: *mut acb_mat_struct,
prec: mp_limb_signed_t,
) -> c_int;
pub fn acb_mat_inv(
X: *mut acb_mat_struct,
A: *mut acb_mat_struct,
prec: mp_limb_signed_t,
) -> c_int;
pub fn acb_mat_det_lu(det: *mut acb_struct, A: *mut acb_mat_struct, prec: mp_limb_signed_t);
pub fn acb_mat_det_precond(
det: *mut acb_struct,
A: *mut acb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_det(det: *mut acb_struct, A: *mut acb_mat_struct, prec: mp_limb_signed_t);
pub fn acb_mat_approx_eig_qr(
E: acb_ptr,
L: *mut acb_mat_struct,
R: *mut acb_mat_struct,
A: *mut acb_mat_struct,
tol: *mut mag_struct,
maxiter: mp_limb_signed_t,
prec: mp_limb_signed_t,
) -> c_int;
pub fn acb_mat_eig_global_enclosure(
eps: *mut mag_struct,
A: *mut acb_mat_struct,
E: acb_srcptr,
R: *mut acb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_eig_enclosure_rump(
lambda: *mut acb_struct,
J: *mut acb_mat_struct,
X: *mut acb_mat_struct,
A: *mut acb_mat_struct,
lambda_approx: *mut acb_struct,
X_approx: *mut acb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_eig_simple_rump(
E: acb_ptr,
L: *mut acb_mat_struct,
R: *mut acb_mat_struct,
A: *mut acb_mat_struct,
E_approx: acb_srcptr,
R_approx: *mut acb_mat_struct,
prec: mp_limb_signed_t,
) -> c_int;
pub fn acb_mat_eig_simple_vdhoeven_mourrain(
E: acb_ptr,
L: *mut acb_mat_struct,
R: *mut acb_mat_struct,
A: *mut acb_mat_struct,
E_approx: acb_srcptr,
R_approx: *mut acb_mat_struct,
prec: mp_limb_signed_t,
) -> c_int;
pub fn acb_mat_eig_simple(
E: acb_ptr,
L: *mut acb_mat_struct,
R: *mut acb_mat_struct,
A: *mut acb_mat_struct,
E_approx: acb_srcptr,
R_approx: *mut acb_mat_struct,
prec: mp_limb_signed_t,
) -> c_int;
pub fn acb_mat_eig_multiple_rump(
E: acb_ptr,
A: *mut acb_mat_struct,
E_approx: acb_srcptr,
R_approx: *mut acb_mat_struct,
prec: mp_limb_signed_t,
) -> c_int;
pub fn acb_mat_eig_multiple(
E: acb_ptr,
A: *mut acb_mat_struct,
E_approx: acb_srcptr,
R_approx: *mut acb_mat_struct,
prec: mp_limb_signed_t,
) -> c_int;
pub fn acb_mat_exp_taylor_sum(
S: *mut acb_mat_struct,
A: *mut acb_mat_struct,
N: mp_limb_signed_t,
prec: mp_limb_signed_t,
);
pub fn acb_mat_exp(B: *mut acb_mat_struct, A: *mut acb_mat_struct, prec: mp_limb_signed_t);
pub fn _acb_mat_charpoly(poly: acb_ptr, mat: *mut acb_mat_struct, prec: mp_limb_signed_t);
pub fn acb_mat_charpoly(
poly: *mut acb_poly_struct,
mat: *mut acb_mat_struct,
prec: mp_limb_signed_t,
);
pub fn _acb_mat_companion(mat: *mut acb_mat_struct, poly: acb_srcptr, prec: mp_limb_signed_t);
pub fn acb_mat_companion(
mat: *mut acb_mat_struct,
poly: *mut acb_poly_struct,
prec: mp_limb_signed_t,
);
pub fn acb_mat_trace(trace: *mut acb_struct, mat: *mut acb_mat_struct, prec: mp_limb_signed_t);
pub fn _acb_mat_diag_prod(
res: *mut acb_struct,
A: *mut acb_mat_struct,
a: mp_limb_signed_t,
b: mp_limb_signed_t,
prec: mp_limb_signed_t,
);
pub fn acb_mat_diag_prod(res: *mut acb_struct, A: *mut acb_mat_struct, prec: mp_limb_signed_t);
}