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
#![allow(non_camel_case_types)]

//! *See the [Arb documentation](https://arblib.org/).

use crate::arb::{arb_ptr, arb_srcptr, arb_struct};
use crate::arb_poly::arb_poly_struct;
use crate::mag::{mag_srcptr, 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 arb_mat_struct {
    pub entries: arb_ptr,
    pub r: mp_limb_signed_t,
    pub c: mp_limb_signed_t,
    pub rows: *mut arb_ptr,
}

pub type arb_mat_t = [arb_mat_struct; 1usize];

extern "C" {
    pub fn arb_mat_init(mat: *mut arb_mat_struct, r: mp_limb_signed_t, c: mp_limb_signed_t);
    pub fn arb_mat_clear(mat: *mut arb_mat_struct);
    pub fn arb_mat_window_init(
        window: *mut arb_mat_struct,
        mat: *mut arb_mat_struct,
        r1: mp_limb_signed_t,
        c1: mp_limb_signed_t,
        r2: mp_limb_signed_t,
        c2: mp_limb_signed_t,
    );
    pub fn arb_mat_set(dest: *mut arb_mat_struct, src: *mut arb_mat_struct);
    pub fn arb_mat_set_fmpz_mat(dest: *mut arb_mat_struct, src: *mut fmpz_mat_struct);
    pub fn arb_mat_set_round_fmpz_mat(
        dest: *mut arb_mat_struct,
        src: *mut fmpz_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_set_fmpq_mat(
        dest: *mut arb_mat_struct,
        src: *mut fmpq_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_randtest(
        mat: *mut arb_mat_struct,
        state: *mut flint_rand_s,
        prec: mp_limb_signed_t,
        mag_bits: mp_limb_signed_t,
    );
    pub fn arb_mat_fprintd(file: *mut FILE, mat: *mut arb_mat_struct, digits: mp_limb_signed_t);
    pub fn arb_mat_eq(mat1: *mut arb_mat_struct, mat2: *mut arb_mat_struct) -> c_int;
    pub fn arb_mat_ne(mat1: *mut arb_mat_struct, mat2: *mut arb_mat_struct) -> c_int;
    pub fn arb_mat_equal(mat1: *mut arb_mat_struct, mat2: *mut arb_mat_struct) -> c_int;
    pub fn arb_mat_overlaps(mat1: *mut arb_mat_struct, mat2: *mut arb_mat_struct) -> c_int;
    pub fn arb_mat_contains(mat1: *mut arb_mat_struct, mat2: *mut arb_mat_struct) -> c_int;
    pub fn arb_mat_contains_fmpq_mat(
        mat1: *mut arb_mat_struct,
        mat2: *mut fmpq_mat_struct,
    ) -> c_int;
    pub fn arb_mat_contains_fmpz_mat(
        mat1: *mut arb_mat_struct,
        mat2: *mut fmpz_mat_struct,
    ) -> c_int;
    pub fn arb_mat_is_exact(A: *mut arb_mat_struct) -> c_int;
    pub fn arb_mat_is_zero(mat: *mut arb_mat_struct) -> c_int;
    pub fn arb_mat_is_finite(mat: *mut arb_mat_struct) -> c_int;
    pub fn arb_mat_is_triu(mat: *mut arb_mat_struct) -> c_int;
    pub fn arb_mat_is_tril(mat: *mut arb_mat_struct) -> c_int;
    pub fn arb_mat_zero(mat: *mut arb_mat_struct);
    pub fn arb_mat_one(mat: *mut arb_mat_struct);
    pub fn arb_mat_ones(mat: *mut arb_mat_struct);
    pub fn arb_mat_indeterminate(mat: *mut arb_mat_struct);
    pub fn arb_mat_hilbert(mat: *mut arb_mat_struct, prec: mp_limb_signed_t);
    pub fn arb_mat_pascal(mat: *mut arb_mat_struct, triangular: c_int, prec: mp_limb_signed_t);
    pub fn arb_mat_stirling(mat: *mut arb_mat_struct, kind: c_int, prec: mp_limb_signed_t);
    pub fn arb_mat_dct(mat: *mut arb_mat_struct, type_: c_int, prec: mp_limb_signed_t);
    pub fn arb_mat_transpose(mat1: *mut arb_mat_struct, mat2: *mut arb_mat_struct);
    pub fn arb_mat_bound_inf_norm(b: *mut mag_struct, A: *mut arb_mat_struct);
    pub fn arb_mat_frobenius_norm(
        res: *mut arb_struct,
        A: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_bound_frobenius_norm(b: *mut mag_struct, A: *mut arb_mat_struct);
    pub fn arb_mat_neg(dest: *mut arb_mat_struct, src: *mut arb_mat_struct);
    pub fn arb_mat_add(
        res: *mut arb_mat_struct,
        mat1: *mut arb_mat_struct,
        mat2: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_sub(
        res: *mut arb_mat_struct,
        mat1: *mut arb_mat_struct,
        mat2: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_mul(
        res: *mut arb_mat_struct,
        mat1: *mut arb_mat_struct,
        mat2: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_mul_classical(
        C: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_mul_threaded(
        C: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn _arb_mat_addmul_rad_mag_fast(
        C: *mut arb_mat_struct,
        A: mag_srcptr,
        B: mag_srcptr,
        ar: mp_limb_signed_t,
        ac: mp_limb_signed_t,
        bc: mp_limb_signed_t,
    );
    pub fn arb_mat_mul_block(
        C: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_mul_entrywise(
        res: *mut arb_mat_struct,
        mat1: *mut arb_mat_struct,
        mat2: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_sqr_classical(
        B: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_sqr(B: *mut arb_mat_struct, A: *mut arb_mat_struct, prec: mp_limb_signed_t);
    pub fn arb_mat_pow_ui(
        B: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        exp: mp_limb_t,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_find_pivot_partial(
        mat: *mut arb_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 arb_mat_solve_tril_classical(
        X: *mut arb_mat_struct,
        L: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        unit: c_int,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_solve_tril_recursive(
        X: *mut arb_mat_struct,
        L: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        unit: c_int,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_solve_tril(
        X: *mut arb_mat_struct,
        L: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        unit: c_int,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_solve_triu_classical(
        X: *mut arb_mat_struct,
        U: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        unit: c_int,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_solve_triu_recursive(
        X: *mut arb_mat_struct,
        U: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        unit: c_int,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_solve_triu(
        X: *mut arb_mat_struct,
        U: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        unit: c_int,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_lu_classical(
        P: *mut mp_limb_signed_t,
        LU: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    ) -> c_int;
    pub fn arb_mat_lu_recursive(
        P: *mut mp_limb_signed_t,
        LU: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    ) -> c_int;
    pub fn arb_mat_lu(
        P: *mut mp_limb_signed_t,
        LU: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    ) -> c_int;
    pub fn arb_mat_solve_lu_precomp(
        X: *mut arb_mat_struct,
        perm: *const mp_limb_signed_t,
        A: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_solve(
        X: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    ) -> c_int;
    pub fn arb_mat_solve_lu(
        X: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    ) -> c_int;
    pub fn arb_mat_solve_precond(
        X: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    ) -> c_int;
    pub fn arb_mat_solve_preapprox(
        X: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        R: *mut arb_mat_struct,
        T: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    ) -> c_int;
    pub fn arb_mat_approx_mul(
        C: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_approx_solve_triu(
        X: *mut arb_mat_struct,
        U: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        unit: c_int,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_approx_solve_tril(
        X: *mut arb_mat_struct,
        L: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        unit: c_int,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_approx_lu(
        P: *mut mp_limb_signed_t,
        LU: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    ) -> c_int;
    pub fn arb_mat_approx_solve_lu_precomp(
        X: *mut arb_mat_struct,
        perm: *const mp_limb_signed_t,
        A: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_approx_solve(
        X: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    ) -> c_int;
    pub fn arb_mat_approx_inv(
        X: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    ) -> c_int;
    pub fn arb_mat_inv(
        X: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    ) -> c_int;
    pub fn arb_mat_det_lu(det: *mut arb_struct, A: *mut arb_mat_struct, prec: mp_limb_signed_t);
    pub fn arb_mat_det_precond(
        det: *mut arb_struct,
        A: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_det(det: *mut arb_struct, A: *mut arb_mat_struct, prec: mp_limb_signed_t);
    pub fn _arb_mat_cholesky_banachiewicz(A: *mut arb_mat_struct, prec: mp_limb_signed_t) -> c_int;
    pub fn arb_mat_cho(
        L: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    ) -> c_int;
    pub fn arb_mat_solve_cho_precomp(
        X: *mut arb_mat_struct,
        L: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_inv_cho_precomp(
        X: *mut arb_mat_struct,
        L: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_spd_solve(
        X: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    ) -> c_int;
    pub fn arb_mat_spd_inv(
        X: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    ) -> c_int;
    pub fn _arb_mat_ldl_inplace(A: *mut arb_mat_struct, prec: mp_limb_signed_t) -> c_int;
    pub fn _arb_mat_ldl_golub_and_van_loan(A: *mut arb_mat_struct, prec: mp_limb_signed_t)
        -> c_int;
    pub fn arb_mat_ldl(
        L: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    ) -> c_int;
    pub fn arb_mat_solve_ldl_precomp(
        X: *mut arb_mat_struct,
        L: *mut arb_mat_struct,
        B: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_inv_ldl_precomp(
        X: *mut arb_mat_struct,
        L: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_exp_taylor_sum(
        S: *mut arb_mat_struct,
        A: *mut arb_mat_struct,
        N: mp_limb_signed_t,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_exp(B: *mut arb_mat_struct, A: *mut arb_mat_struct, prec: mp_limb_signed_t);
    pub fn _arb_mat_charpoly(poly: arb_ptr, mat: *mut arb_mat_struct, prec: mp_limb_signed_t);
    pub fn arb_mat_charpoly(
        poly: *mut arb_poly_struct,
        mat: *mut arb_mat_struct,
        prec: mp_limb_signed_t,
    );
    pub fn _arb_mat_companion(mat: *mut arb_mat_struct, poly: arb_srcptr, prec: mp_limb_signed_t);
    pub fn arb_mat_companion(
        mat: *mut arb_mat_struct,
        poly: *mut arb_poly_struct,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_trace(trace: *mut arb_struct, mat: *mut arb_mat_struct, prec: mp_limb_signed_t);
    pub fn _arb_mat_diag_prod(
        res: *mut arb_struct,
        A: *mut arb_mat_struct,
        a: mp_limb_signed_t,
        b: mp_limb_signed_t,
        prec: mp_limb_signed_t,
    );
    pub fn arb_mat_diag_prod(res: *mut arb_struct, A: *mut arb_mat_struct, prec: mp_limb_signed_t);
    pub fn arb_mat_entrywise_is_zero(dest: *mut fmpz_mat_struct, src: *mut arb_mat_struct);
    pub fn arb_mat_entrywise_not_is_zero(dest: *mut fmpz_mat_struct, src: *mut arb_mat_struct);
    pub fn arb_mat_count_is_zero(mat: *mut arb_mat_struct) -> mp_limb_signed_t;
}