/dports/math/e-antic/flint2-ae7ec89/fmpz_poly/ |
H A D | divrem_divconquer.c | 27 if (lenA < 2 * lenB - 1) in __fmpz_poly_divrem_divconquer() 83 _fmpz_vec_clear(W, lenA); in __fmpz_poly_divrem_divconquer() 93 if (lenA <= 2 * lenB - 1) in _fmpz_poly_divrem_divconquer() 103 _fmpz_vec_set(R, A, lenA); in _fmpz_poly_divrem_divconquer() 107 while (lenA >= n) in _fmpz_poly_divrem_divconquer() 109 shift = lenA - n; in _fmpz_poly_divrem_divconquer() 117 lenA -= lenB; in _fmpz_poly_divrem_divconquer() 120 if (lenA >= lenB) in _fmpz_poly_divrem_divconquer() 140 const slong lenA = A->length; in fmpz_poly_divrem_divconquer() local 151 if (lenA < lenB) in fmpz_poly_divrem_divconquer() [all …]
|
H A D | pseudo_divrem_cohen.c | 32 _fmpz_vec_zero(R, lenA); in _fmpz_poly_pseudo_divrem_cohen() 37 lenQ = lenA - lenB + 1; in _fmpz_poly_pseudo_divrem_cohen() 41 e = lenA - lenB; in _fmpz_poly_pseudo_divrem_cohen() 48 _fmpz_vec_scalar_submul_fmpz(R + (lenA - lenB), B, lenB - 1, R + (lenA - 1)); in _fmpz_poly_pseudo_divrem_cohen() 51 lenA--; in _fmpz_poly_pseudo_divrem_cohen() 52 FMPZ_VEC_NORM(R, lenA); in _fmpz_poly_pseudo_divrem_cohen() 54 while (lenA >= lenB) in _fmpz_poly_pseudo_divrem_cohen() 57 fmpz_add(Q + (lenA - lenB), Q + (lenA - lenB), R + (lenA - 1)); in _fmpz_poly_pseudo_divrem_cohen() 60 _fmpz_vec_scalar_submul_fmpz(R + lenA - lenB, B, lenB - 1, R + (lenA - 1)); in _fmpz_poly_pseudo_divrem_cohen() 63 lenA--; in _fmpz_poly_pseudo_divrem_cohen() [all …]
|
H A D | pseudo_divrem_divconquer.c | 21 if (lenB <= 16 || (lenA > 2 * lenB - 1 && lenA < 128)) in __fmpz_poly_pseudo_divrem_divconquer() 35 if (lenA <= lenB + n2 - 1) in __fmpz_poly_pseudo_divrem_divconquer() 71 r1 = R + lenA - (n2 - 1); in __fmpz_poly_pseudo_divrem_divconquer() 89 _fmpz_vec_neg(R, R, lenA - n2); in __fmpz_poly_pseudo_divrem_divconquer() 90 _fmpz_vec_add(R + n1, R + n1, R + lenA - n2 + 1, lenA - lenB); in __fmpz_poly_pseudo_divrem_divconquer() 91 _fmpz_vec_swap(R + lenA - n2, R + 2 * lenA - lenB + 1 - n2, n2 - (lenA - lenB + 1)); in __fmpz_poly_pseudo_divrem_divconquer() 97 else if (lenA > 2 * lenB - 1) in __fmpz_poly_pseudo_divrem_divconquer() 264 if (lenA <= 2 * lenB - 1) in _fmpz_poly_pseudo_divrem_divconquer() 270 fmpz *S = _fmpz_vec_init(lenA); in _fmpz_poly_pseudo_divrem_divconquer() 272 _fmpz_vec_set(S, A, lenA); in _fmpz_poly_pseudo_divrem_divconquer() [all …]
|
H A D | signature.c | 22 slong lenA, lenB; in _fmpz_poly_signature() local 35 lenA = len; in _fmpz_poly_signature() 36 lenB = lenA - 1; in _fmpz_poly_signature() 49 t = (lenA & WORD(1)) ? -s : s; in _fmpz_poly_signature() 54 slong delta = lenA - lenB; in _fmpz_poly_signature() 59 lenA = lenB; in _fmpz_poly_signature() 60 FMPZ_VEC_NORM(A, lenA); in _fmpz_poly_signature() 62 if (lenA == 0) in _fmpz_poly_signature() 84 if (lenA == 1) in _fmpz_poly_signature() 99 slong temp = lenA; in _fmpz_poly_signature() [all …]
|
H A D | div_divconquer.c | 27 if (lenA < 2 * lenB - 1) in __fmpz_poly_div_divconquer() 33 const slong q1 = lenA - lenB + 1; in __fmpz_poly_div_divconquer() 49 _fmpz_vec_clear(temp, lenA); in __fmpz_poly_div_divconquer() 69 if (lenA <= 2 * lenB - 1) in _fmpz_poly_div_divconquer() 84 shift = lenA - n; in _fmpz_poly_div_divconquer() 87 while (lenA >= n) in _fmpz_poly_div_divconquer() 89 shift = lenA - n; in _fmpz_poly_div_divconquer() 101 lenA -= lenB; in _fmpz_poly_div_divconquer() 104 if (lenA >= lenB) in _fmpz_poly_div_divconquer() 117 const slong lenA = A->length; in fmpz_poly_div_divconquer() local [all …]
|
/dports/math/flint2/flint-2.8.4/fmpz_poly/ |
H A D | divrem_divconquer.c | 27 if (lenA < 2 * lenB - 1) in __fmpz_poly_divrem_divconquer() 83 _fmpz_vec_clear(W, lenA); in __fmpz_poly_divrem_divconquer() 93 if (lenA <= 2 * lenB - 1) in _fmpz_poly_divrem_divconquer() 103 _fmpz_vec_set(R, A, lenA); in _fmpz_poly_divrem_divconquer() 107 while (lenA >= n) in _fmpz_poly_divrem_divconquer() 109 shift = lenA - n; in _fmpz_poly_divrem_divconquer() 117 lenA -= lenB; in _fmpz_poly_divrem_divconquer() 120 if (lenA >= lenB) in _fmpz_poly_divrem_divconquer() 140 const slong lenA = A->length; in fmpz_poly_divrem_divconquer() local 151 if (lenA < lenB) in fmpz_poly_divrem_divconquer() [all …]
|
H A D | pseudo_divrem_cohen.c | 32 _fmpz_vec_zero(R, lenA); in _fmpz_poly_pseudo_divrem_cohen() 37 lenQ = lenA - lenB + 1; in _fmpz_poly_pseudo_divrem_cohen() 41 e = lenA - lenB; in _fmpz_poly_pseudo_divrem_cohen() 48 _fmpz_vec_scalar_submul_fmpz(R + (lenA - lenB), B, lenB - 1, R + (lenA - 1)); in _fmpz_poly_pseudo_divrem_cohen() 51 lenA--; in _fmpz_poly_pseudo_divrem_cohen() 52 FMPZ_VEC_NORM(R, lenA); in _fmpz_poly_pseudo_divrem_cohen() 54 while (lenA >= lenB) in _fmpz_poly_pseudo_divrem_cohen() 57 fmpz_add(Q + (lenA - lenB), Q + (lenA - lenB), R + (lenA - 1)); in _fmpz_poly_pseudo_divrem_cohen() 60 _fmpz_vec_scalar_submul_fmpz(R + lenA - lenB, B, lenB - 1, R + (lenA - 1)); in _fmpz_poly_pseudo_divrem_cohen() 63 lenA--; in _fmpz_poly_pseudo_divrem_cohen() [all …]
|
H A D | pseudo_divrem_divconquer.c | 21 if (lenB <= 16 || (lenA > 2 * lenB - 1 && lenA < 128)) in __fmpz_poly_pseudo_divrem_divconquer() 35 if (lenA <= lenB + n2 - 1) in __fmpz_poly_pseudo_divrem_divconquer() 71 r1 = R + lenA - (n2 - 1); in __fmpz_poly_pseudo_divrem_divconquer() 89 _fmpz_vec_neg(R, R, lenA - n2); in __fmpz_poly_pseudo_divrem_divconquer() 90 _fmpz_vec_add(R + n1, R + n1, R + lenA - n2 + 1, lenA - lenB); in __fmpz_poly_pseudo_divrem_divconquer() 91 _fmpz_vec_swap(R + lenA - n2, R + 2 * lenA - lenB + 1 - n2, n2 - (lenA - lenB + 1)); in __fmpz_poly_pseudo_divrem_divconquer() 97 else if (lenA > 2 * lenB - 1) in __fmpz_poly_pseudo_divrem_divconquer() 264 if (lenA <= 2 * lenB - 1) in _fmpz_poly_pseudo_divrem_divconquer() 270 fmpz *S = _fmpz_vec_init(lenA); in _fmpz_poly_pseudo_divrem_divconquer() 272 _fmpz_vec_set(S, A, lenA); in _fmpz_poly_pseudo_divrem_divconquer() [all …]
|
H A D | signature.c | 22 slong lenA, lenB; in _fmpz_poly_signature() local 35 lenA = len; in _fmpz_poly_signature() 36 lenB = lenA - 1; in _fmpz_poly_signature() 49 t = (lenA & WORD(1)) ? -s : s; in _fmpz_poly_signature() 54 slong delta = lenA - lenB; in _fmpz_poly_signature() 59 lenA = lenB; in _fmpz_poly_signature() 60 FMPZ_VEC_NORM(A, lenA); in _fmpz_poly_signature() 62 if (lenA == 0) in _fmpz_poly_signature() 84 if (lenA == 1) in _fmpz_poly_signature() 99 slong temp = lenA; in _fmpz_poly_signature() [all …]
|
/dports/math/e-antic/e-antic-1.0.0-rc.13/libeantic/upstream/antic/fmpz_poly/ |
H A D | divrem_divconquer.c | 27 if (lenA < 2 * lenB - 1) in __fmpz_poly_divrem_divconquer() 83 _fmpz_vec_clear(W, lenA); in __fmpz_poly_divrem_divconquer() 93 if (lenA <= 2 * lenB - 1) in _fmpz_poly_divrem_divconquer() 103 _fmpz_vec_set(R, A, lenA); in _fmpz_poly_divrem_divconquer() 107 while (lenA >= n) in _fmpz_poly_divrem_divconquer() 109 shift = lenA - n; in _fmpz_poly_divrem_divconquer() 117 lenA -= lenB; in _fmpz_poly_divrem_divconquer() 120 if (lenA >= lenB) in _fmpz_poly_divrem_divconquer() 140 const slong lenA = A->length; in fmpz_poly_divrem_divconquer() local 151 if (lenA < lenB) in fmpz_poly_divrem_divconquer() [all …]
|
H A D | pseudo_divrem_cohen.c | 32 _fmpz_vec_zero(R, lenA); in _fmpz_poly_pseudo_divrem_cohen() 37 lenQ = lenA - lenB + 1; in _fmpz_poly_pseudo_divrem_cohen() 41 e = lenA - lenB; in _fmpz_poly_pseudo_divrem_cohen() 48 _fmpz_vec_scalar_submul_fmpz(R + (lenA - lenB), B, lenB - 1, R + (lenA - 1)); in _fmpz_poly_pseudo_divrem_cohen() 51 lenA--; in _fmpz_poly_pseudo_divrem_cohen() 52 FMPZ_VEC_NORM(R, lenA); in _fmpz_poly_pseudo_divrem_cohen() 54 while (lenA >= lenB) in _fmpz_poly_pseudo_divrem_cohen() 57 fmpz_add(Q + (lenA - lenB), Q + (lenA - lenB), R + (lenA - 1)); in _fmpz_poly_pseudo_divrem_cohen() 60 _fmpz_vec_scalar_submul_fmpz(R + lenA - lenB, B, lenB - 1, R + (lenA - 1)); in _fmpz_poly_pseudo_divrem_cohen() 63 lenA--; in _fmpz_poly_pseudo_divrem_cohen() [all …]
|
H A D | pseudo_divrem_divconquer.c | 21 if (lenB <= 16 || (lenA > 2 * lenB - 1 && lenA < 128)) in __fmpz_poly_pseudo_divrem_divconquer() 35 if (lenA <= lenB + n2 - 1) in __fmpz_poly_pseudo_divrem_divconquer() 71 r1 = R + lenA - (n2 - 1); in __fmpz_poly_pseudo_divrem_divconquer() 89 _fmpz_vec_neg(R, R, lenA - n2); in __fmpz_poly_pseudo_divrem_divconquer() 90 _fmpz_vec_add(R + n1, R + n1, R + lenA - n2 + 1, lenA - lenB); in __fmpz_poly_pseudo_divrem_divconquer() 91 _fmpz_vec_swap(R + lenA - n2, R + 2 * lenA - lenB + 1 - n2, n2 - (lenA - lenB + 1)); in __fmpz_poly_pseudo_divrem_divconquer() 97 else if (lenA > 2 * lenB - 1) in __fmpz_poly_pseudo_divrem_divconquer() 264 if (lenA <= 2 * lenB - 1) in _fmpz_poly_pseudo_divrem_divconquer() 270 fmpz *S = _fmpz_vec_init(lenA); in _fmpz_poly_pseudo_divrem_divconquer() 272 _fmpz_vec_set(S, A, lenA); in _fmpz_poly_pseudo_divrem_divconquer() [all …]
|
H A D | signature.c | 22 slong lenA, lenB; in _fmpz_poly_signature() local 35 lenA = len; in _fmpz_poly_signature() 36 lenB = lenA - 1; in _fmpz_poly_signature() 49 t = (lenA & WORD(1)) ? -s : s; in _fmpz_poly_signature() 54 slong delta = lenA - lenB; in _fmpz_poly_signature() 59 lenA = lenB; in _fmpz_poly_signature() 60 FMPZ_VEC_NORM(A, lenA); in _fmpz_poly_signature() 62 if (lenA == 0) in _fmpz_poly_signature() 84 if (lenA == 1) in _fmpz_poly_signature() 99 slong temp = lenA; in _fmpz_poly_signature() [all …]
|
/dports/math/e-antic/e-antic-1.0.0-rc.13/libeantic/upstream/antic/nmod_poly/ |
H A D | xgcd_hgcd.c | 28 #define __set(B, lenB, A, lenA) \ argument 30 _nmod_vec_set((B), (A), (lenA)); \ 31 (lenB) = (lenA); \ 113 mp_ptr q = _nmod_vec_init(lenA + lenB); in _nmod_poly_xgcd_hgcd() 114 mp_ptr r = q + lenA; in _nmod_poly_xgcd_hgcd() 134 lenv = lenw = lenA + lenB - 2; in _nmod_poly_xgcd_hgcd() 216 __mul(v, lenv, S, lenS, A, lenA); in _nmod_poly_xgcd_hgcd() 225 flint_mpn_zero(T + lenT, lenA - 1 - lenT); in _nmod_poly_xgcd_hgcd() 243 if (lenA == 0) /* lenA = lenB = 0 */ in nmod_poly_xgcd_hgcd() 298 if (lenA >= lenB) in nmod_poly_xgcd_hgcd() [all …]
|
/dports/math/e-antic/flint2-ae7ec89/nmod_poly/ |
H A D | xgcd_hgcd.c | 28 #define __set(B, lenB, A, lenA) \ argument 30 _nmod_vec_set((B), (A), (lenA)); \ 31 (lenB) = (lenA); \ 113 mp_ptr q = _nmod_vec_init(lenA + lenB); in _nmod_poly_xgcd_hgcd() 114 mp_ptr r = q + lenA; in _nmod_poly_xgcd_hgcd() 134 lenv = lenw = lenA + lenB - 2; in _nmod_poly_xgcd_hgcd() 216 __mul(v, lenv, S, lenS, A, lenA); in _nmod_poly_xgcd_hgcd() 225 flint_mpn_zero(T + lenT, lenA - 1 - lenT); in _nmod_poly_xgcd_hgcd() 243 if (lenA == 0) /* lenA = lenB = 0 */ in nmod_poly_xgcd_hgcd() 298 if (lenA >= lenB) in nmod_poly_xgcd_hgcd() [all …]
|
/dports/math/flint2/flint-2.8.4/nmod_poly/ |
H A D | xgcd_hgcd.c | 28 #define __set(B, lenB, A, lenA) \ argument 30 _nmod_vec_set((B), (A), (lenA)); \ 31 (lenB) = (lenA); \ 113 mp_ptr q = _nmod_vec_init(lenA + lenB); in _nmod_poly_xgcd_hgcd() 114 mp_ptr r = q + lenA; in _nmod_poly_xgcd_hgcd() 134 lenv = lenw = lenA + lenB - 2; in _nmod_poly_xgcd_hgcd() 217 __mul(v, lenv, S, lenS, A, lenA); in _nmod_poly_xgcd_hgcd() 226 flint_mpn_zero(T + lenT, lenA - 1 - lenT); in _nmod_poly_xgcd_hgcd() 244 if (lenA == 0) /* lenA = lenB = 0 */ in nmod_poly_xgcd_hgcd() 299 if (lenA >= lenB) in nmod_poly_xgcd_hgcd() [all …]
|
/dports/math/e-antic/flint2-ae7ec89/fmpz_mod_poly/ |
H A D | xgcd_hgcd.c | 28 #define __set(B, lenB, A, lenA) \ argument 30 _fmpz_vec_set((B), (A), (lenA)); \ 31 (lenB) = (lenA); \ 114 slong lenq, lenr, len1 = lenA + lenB; in _fmpz_mod_poly_xgcd_hgcd() 117 fmpz *r = q + lenA; in _fmpz_mod_poly_xgcd_hgcd() 138 lenv = lenw = lenA + lenB - 2; in _fmpz_mod_poly_xgcd_hgcd() 223 __mul(v, lenv, S, lenS, A, lenA); in _fmpz_mod_poly_xgcd_hgcd() 236 _fmpz_vec_zero(T + lenT, lenA - 1 - lenT); in _fmpz_mod_poly_xgcd_hgcd() 257 if (lenA == 0) /* lenA = lenB = 0 */ in fmpz_mod_poly_xgcd_hgcd() 314 if (lenA >= lenB) in fmpz_mod_poly_xgcd_hgcd() [all …]
|
H A D | hgcd.c | 30 (lenB) = ((lenA) >= (m)) ? (lenA) - (m) : 0; \ 36 (lenB) = ((lenA) < (m)) ? (lenA) : (m); \ 51 __lenT = (lenA); \ 52 (lenA) = (lenB); \ 162 __sub(T0, lenT0, A[0], lenA[0], A[2], lenA[2]); in __mat_mul_strassen() 166 __add(T0, lenT0, A[2], lenA[2], A[3], lenA[3]); in __mat_mul_strassen() 208 slong min = lenA[0]; in __mat_mul() 576 __sub(A, *lenA, T0, lenT0, A, *lenA); in _fmpz_mod_poly_hgcd_recursive() 578 __sub(A, *lenA, A, *lenA, T0, lenT0); in _fmpz_mod_poly_hgcd_recursive() 580 _fmpz_vec_zero(A + *lenA, k + lena3 - *lenA); in _fmpz_mod_poly_hgcd_recursive() [all …]
|
/dports/math/flint2/flint-2.8.4/fmpz_mod_poly/ |
H A D | xgcd_hgcd.c | 28 #define __set(B, lenB, A, lenA) \ argument 30 _fmpz_vec_set((B), (A), (lenA)); \ 31 (lenB) = (lenA); \ 114 slong lenq, lenr, len1 = lenA + lenB; in _fmpz_mod_poly_xgcd_hgcd() 117 fmpz *r = q + lenA; in _fmpz_mod_poly_xgcd_hgcd() 138 lenv = lenw = lenA + lenB - 2; in _fmpz_mod_poly_xgcd_hgcd() 223 __mul(v, lenv, S, lenS, A, lenA); in _fmpz_mod_poly_xgcd_hgcd() 236 _fmpz_vec_zero(T + lenT, lenA - 1 - lenT); in _fmpz_mod_poly_xgcd_hgcd() 258 if (lenA == 0) /* lenA = lenB = 0 */ in fmpz_mod_poly_xgcd_hgcd() 315 if (lenA >= lenB) in fmpz_mod_poly_xgcd_hgcd() [all …]
|
H A D | hgcd.c | 30 (lenB) = ((lenA) >= (m)) ? (lenA) - (m) : 0; \ 36 (lenB) = ((lenA) < (m)) ? (lenA) : (m); \ 51 __lenT = (lenA); \ 52 (lenA) = (lenB); \ 162 __sub(T0, lenT0, A[0], lenA[0], A[2], lenA[2]); in __mat_mul_strassen() 166 __add(T0, lenT0, A[2], lenA[2], A[3], lenA[3]); in __mat_mul_strassen() 208 slong min = lenA[0]; in __mat_mul() 576 __sub(A, *lenA, T0, lenT0, A, *lenA); in _fmpz_mod_poly_hgcd_recursive() 578 __sub(A, *lenA, A, *lenA, T0, lenT0); in _fmpz_mod_poly_hgcd_recursive() 580 _fmpz_vec_zero(A + *lenA, k + lena3 - *lenA); in _fmpz_mod_poly_hgcd_recursive() [all …]
|
/dports/math/e-antic/e-antic-1.0.0-rc.13/libeantic/upstream/antic/fmpz_mod_poly/ |
H A D | xgcd_hgcd.c | 28 #define __set(B, lenB, A, lenA) \ argument 30 _fmpz_vec_set((B), (A), (lenA)); \ 31 (lenB) = (lenA); \ 114 slong lenq, lenr, len1 = lenA + lenB; in _fmpz_mod_poly_xgcd_hgcd() 117 fmpz *r = q + lenA; in _fmpz_mod_poly_xgcd_hgcd() 138 lenv = lenw = lenA + lenB - 2; in _fmpz_mod_poly_xgcd_hgcd() 223 __mul(v, lenv, S, lenS, A, lenA); in _fmpz_mod_poly_xgcd_hgcd() 236 _fmpz_vec_zero(T + lenT, lenA - 1 - lenT); in _fmpz_mod_poly_xgcd_hgcd() 257 if (lenA == 0) /* lenA = lenB = 0 */ in fmpz_mod_poly_xgcd_hgcd() 314 if (lenA >= lenB) in fmpz_mod_poly_xgcd_hgcd() [all …]
|
H A D | hgcd.c | 30 (lenB) = ((lenA) >= (m)) ? (lenA) - (m) : 0; \ 36 (lenB) = ((lenA) < (m)) ? (lenA) : (m); \ 51 __lenT = (lenA); \ 52 (lenA) = (lenB); \ 162 __sub(T0, lenT0, A[0], lenA[0], A[2], lenA[2]); in __mat_mul_strassen() 166 __add(T0, lenT0, A[2], lenA[2], A[3], lenA[3]); in __mat_mul_strassen() 208 slong min = lenA[0]; in __mat_mul() 576 __sub(A, *lenA, T0, lenT0, A, *lenA); in _fmpz_mod_poly_hgcd_recursive() 578 __sub(A, *lenA, A, *lenA, T0, lenT0); in _fmpz_mod_poly_hgcd_recursive() 580 _fmpz_vec_zero(A + *lenA, k + lena3 - *lenA); in _fmpz_mod_poly_hgcd_recursive() [all …]
|
/dports/math/e-antic/e-antic-1.0.0-rc.13/libeantic/upstream/antic/fq_poly_templates/ |
H A D | hgcd.c | 28 (lenB) = ((lenA) >= (m)) ? (lenA) - (m) : 0; \ 34 (lenB) = ((lenA) < (m)) ? (lenA) : (m); \ 161 __sub(T0, lenT0, A[0], lenA[0], A[2], lenA[2]); in __mat_mul_strassen() 165 __add(T0, lenT0, A[2], lenA[2], A[3], lenA[3]); in __mat_mul_strassen() 210 slong min = lenA[0]; in __mat_mul() 268 __set(*A, *lenA, a, lena); in _TEMPLATE() 331 __set(A, *lenA, a, lena); in _TEMPLATE() 474 __sub(A, *lenA, T0, lenT0, A, *lenA); in _TEMPLATE() 476 __sub(A, *lenA, A, *lenA, T0, lenT0); in _TEMPLATE() 478 _TEMPLATE(T, vec_zero) (A + *lenA, k + lena3 - *lenA, ctx); in _TEMPLATE() [all …]
|
/dports/math/e-antic/flint2-ae7ec89/fq_poly_templates/ |
H A D | hgcd.c | 28 (lenB) = ((lenA) >= (m)) ? (lenA) - (m) : 0; \ 34 (lenB) = ((lenA) < (m)) ? (lenA) : (m); \ 161 __sub(T0, lenT0, A[0], lenA[0], A[2], lenA[2]); in __mat_mul_strassen() 165 __add(T0, lenT0, A[2], lenA[2], A[3], lenA[3]); in __mat_mul_strassen() 210 slong min = lenA[0]; in __mat_mul() 268 __set(*A, *lenA, a, lena); in _TEMPLATE() 331 __set(A, *lenA, a, lena); in _TEMPLATE() 474 __sub(A, *lenA, T0, lenT0, A, *lenA); in _TEMPLATE() 476 __sub(A, *lenA, A, *lenA, T0, lenT0); in _TEMPLATE() 478 _TEMPLATE(T, vec_zero) (A + *lenA, k + lena3 - *lenA, ctx); in _TEMPLATE() [all …]
|
/dports/math/flint2/flint-2.8.4/fq_poly_templates/ |
H A D | hgcd.c | 28 (lenB) = ((lenA) >= (m)) ? (lenA) - (m) : 0; \ 34 (lenB) = ((lenA) < (m)) ? (lenA) : (m); \ 161 __sub(T0, lenT0, A[0], lenA[0], A[2], lenA[2]); in __mat_mul_strassen() 165 __add(T0, lenT0, A[2], lenA[2], A[3], lenA[3]); in __mat_mul_strassen() 210 slong min = lenA[0]; in __mat_mul() 268 __set(*A, *lenA, a, lena); in _TEMPLATE() 331 __set(A, *lenA, a, lena); in _TEMPLATE() 474 __sub(A, *lenA, T0, lenT0, A, *lenA); in _TEMPLATE() 476 __sub(A, *lenA, A, *lenA, T0, lenT0); in _TEMPLATE() 478 _TEMPLATE(T, vec_zero) (A + *lenA, k + lena3 - *lenA, ctx); in _TEMPLATE() [all …]
|