/dports/math/pari/pari-2.13.3/src/basemath/ |
H A D | elltors.c | 119 if (!umodiu(D, p)) continue; in torsbound() 282 if (!umodiu(ND,p)) continue; in nftorsbound() 650 if (umodiu(d4, p) && umodiu(d6, p) && Rg_to_Fl(D, p) in ellorder_Q() 651 && umodiu(dx, p) && umodiu(dy, p)) break; in ellorder_Q() 696 if (!umodiu(d4, p) || !umodiu(d6, p) || !umodiu(ND, p) in ellorder_nf() 697 || !umodiu(dx, p) || !umodiu(dy, p)) continue; in ellorder_nf()
|
H A D | buch1.c | 473 if (!umodiu(D, p)) no[ino++] = j; /* ramified */ in subFBquad() 529 if (umodiu(b, p<<1) > p) e = -e; in sub_fact() 542 if (umodiu(b, p<<1) > p) e = -e; in add_fact() 591 if (umodiu(D, B->FB[i])) continue; in trivial_relations() 646 b1 = umodiu(gel(form2,2), p); in imag_relations() 647 b2 = umodiu(gel(form,2), p); in imag_relations() 801 b1 = umodiu(gel(form2,2), p); in real_relations() 802 b2 = umodiu(gel(form1,2), p); in real_relations()
|
H A D | ellpadiclambdamu.c | 95 x = umodiu(X, q); if (!x) continue; in polPn() 162 if (!umodiu(ap, p)) in ellpadiclambdamu()
|
H A D | FlxqE.c | 941 GEN Ncpi = utoi(Fl_inv(umodiu(Nc2,p), p)); in Flxq_ellcard_Kohel() 1089 GEN Ncpi = utoi(Fl_inv(umodiu(Nc2,p), p)); in Flxq_ellcard_Harley() 1333 if (umodiu(t, 3)!=1) t = negi(t); in F3xq_ellcard() 1466 if (umodiu(q,6)!=1) return q1; in Flxq_ellcardj() 1482 if (Fl_add(umodiu(a,p),Fl_mul(w,umodiu(b,p),p),p)==0) in Flxq_ellcardj() 1489 if (Fl_sub(umodiu(a,p),Fl_mul(w,umodiu(b,p),p),p)==0) in Flxq_ellcardj() 1510 if (Fl_add(umodiu(u,p),Fl_mul(w,umodiu(v,p),p),p)==0) in Flxq_ellcardj()
|
H A D | dirichlet.c | 118 if (!Sbad || umodiu(Sbad, p)) in direuler_bad() 126 if (!Sbad || umodiu(Sbad, p)) in direuler_bad() 200 if (Sbad && umodiu(Sbad, p)==0) continue; in primelist()
|
H A D | FpE.c | 416 r = Fle_order(ZV_to_Flv(z, pp), o, umodiu(a4,pp), pp); in FpE_order() 436 r = Fle_log(ZV_to_Flv(a,pp), ZV_to_Flv(b,pp), o, umodiu(a4,pp), pp); in FpE_log() 1226 if (umodiu(p,3) != 1) return gen_0; in ap_j0() 1228 if (umodiu(a, 3) == 1) a = negi(a); in ap_j0() 1325 return utoi(Fl_ellj(umodiu(a4,pp), umodiu(a6,pp), pp)); in Fp_ellj() 1354 return utoi(pp+1 - Fl_elltrace_naive(umodiu(a4,pp), umodiu(a6,pp), pp)); in Fp_ellcard() 1359 return utoi(Fl_ellcard_Shanks(umodiu(a4,pp), umodiu(a6,pp), pp)); in Fp_ellcard() 1929 if (umodiu(q,6)!=1) return q1; in FpXQ_ellcardj()
|
H A D | lfunutils.c | 692 if (!umodiu(N,p)) continue; in vecan_chiZ() 734 if (!umodiu(NZ,p)) continue; in vecan_chigen() 755 int check = !umodiu(NZ,p); in vecan_chigen() 1026 if (umodiu(index, p)) /* p does not divide index */ in dirzetak0() 1387 if (umodiu(p, o) == 1) in ellsympow_goodred() 1415 ulong c4 = umodiu(ell_get_c4(E),81), c6 = umodiu(ell_get_c6(E), 243); in ellsympow_isabelian3() 1538 if (ugcd(umodiu(N,6), 6) == 1) in lfunellsympow() 1649 c4_81 = umodiu(c4,81); in ellsymsq_bad3() 1652 c6_243 = umodiu(c6,243); in ellsymsq_bad3() 1666 switch(umodiu(p, 12UL)) in ellsymsq_badp() [all …]
|
H A D | bnfunits.c | 105 e = umodiu(roundr(divrr(t, pi2_sur_w)), n); in bnfisunit() 111 e *= Fl_inv(umodiu(p2,n), n); in bnfisunit()
|
H A D | arith1.c | 611 return absequaliu(p, 2)? umodiu(ap, 8) == 1 in Zp_issquare() 1405 xmodQ = umodiu(x, Q); in Z_isanypower_nosmalldiv() 1422 ulong ymodQ = umodiu(y,Q); in Z_isanypower_nosmalldiv() 1807 return krouu_s(umodiu(x, yu), yu, s); in krois() 1835 return krouu_s(umodiu(y,x), x, s); in krouodd() 2503 ulong dd, NN = N[2], xx = umodiu(x,NN); in Fp_invgen() 2771 uel(R,k) = umodiu(gel(v, j), P[k]); in Z_ZV_mod_tree() 3627 ulong a = umodiu(A, n); in Fp_pows() 3653 ulong n = N[2], a = umodiu(A, n); in Fp_pow() 4186 Ci[j] = umodiu(C, lp); in Fp_log_index() [all …]
|
H A D | aprcl.c | 660 if (pk > 2 && umodiu(R->N,pk) == 1) in filltabs() 778 const long r = umodiu(R->N, pk); in autvec_AL() 906 if (umodiu(et,q) == 0) continue; in step5() 907 if (umodiu(R->N,q) == 0) return 0; in step5()
|
H A D | nffactor.c | 208 if (lden && !umodiu(lden, p)) continue; in nfgcd_all() 583 if (! umodiu(bad,pp) || !umodiu(lb, pp)) continue; in fact_from_sqff() 1749 if (! umodiu(bad,p)) continue; in nf_pick_prime() 1750 if (*lt) { ltp = umodiu(*lt, p); if (!ltp) continue; } in nf_pick_prime() 2021 if (!umodiu(D,p) || !umodiu(index,p)) continue; in guess_roots()
|
H A D | polarit3.c | 930 if (!dB || umodiu(dB, p)) P[i++] = p; in primelist() 1022 ulong d, amod = umodiu(a, p); in Fl_chinese_coprime() 1071 ulong qinv = Fl_inv(umodiu(q,p), p); in Z_incremental_CRT() 1082 ulong qinv = Fl_inv(umodiu(q,p), p); in ZX_incremental_CRT_raw() 1121 ulong qinv = Fl_inv(umodiu(q,p), p); in ZM_incremental_CRT() 1168 ulong qinv = Fl_inv(umodiu(q,p), p); in ZXM_incremental_CRT() 1960 dp = dB ? umodiu(dB, p): 1; in ZX_resultant_prime() 2413 umodiu(den, pp), pp), Bp, pp); in QXQ_inv() 2644 ulong dp = dB ? umodiu(dB, p): 1; in ZX_ZXY_resultant_slice() 2733 ulong dp = dB ? umodiu(dB, p): 1; in ZX_ZXY_rnfequation_lambda() [all …]
|
H A D | FF.c | 522 r=Flx_Fl_add(gel(x,2),umodiu(y,pp),pp); in FF_Z_add() 711 r = Flx_Fl_mul(A, umodiu(y,pp), pp); in FF_Z_mul() 731 r = Flx_Fl_mul(A, Fl_div(umodiu(a,pp),umodiu(b,pp),pp),pp); in FF_Z_Z_muldiv() 780 if (n>0) l1 = umodiu(int2n(n),pp); in FF_mul2n() 781 else l1 = Fl_inv(umodiu(int2n(-n),pp),pp); in FF_mul2n() 845 r = gerepileupto(av, Flx_Fl_mul(Flxq_inv(A,T,pp),umodiu(n,pp),pp)); in Z_FF_div()
|
H A D | buch3.c | 1097 if (!umodiu(bad,q)) continue; in primecertify() 1161 if (umodiu(gel(S->cyc,b), p)) break; /* p \nmid cyc[b] */ in check_prime() 1741 if (umodiu(bnr_get_no(bnr), degrel)) return NULL; in rnfnormgroup_i() 1762 if (!umodiu(index, p)) continue; /* can't be treated efficiently */ in rnfnormgroup_i() 1791 if (oldf && i == nfa && degrel == nfa*f && !umodiu(discnf, p)) in rnfnormgroup_i() 1828 if (!umodiu(D, p) || !umodiu(f, p)) continue; in nf_deg1_prime() 1871 k = umodiu(gel(eq,3), p); in rnfisabelian_i() 1923 long t = ugcd(umodiu(subiu(pr_norm(pr),1), q), q); /* e_tame | t */ in rnfconductor0()
|
H A D | elliptic.c | 3422 { return umodiu(ak, q) / pl; } in aux() 3490 r = umodiu(ell_get_a4(e), 2); in localred_23() 3491 s = umodiu(ell_get_a2(e), 2); in localred_23() 3492 t = umodiu(ell_get_a6(e), 2); in localred_23() 3498 s = umodiu(ell_get_a1(e), 3); in localred_23() 3504 if (umodiu(ell_get_a6(e), p2)) in localred_23() 3506 if (umodiu(ell_get_b8(e), p3)) in localred_23() 3508 if (umodiu(ell_get_b6(e), p3)) in localred_23() 3517 if (umodiu(ell_get_a6(e), p3)) in localred_23() 4298 return 4 - F3_card(M.b2, umodiu(M.b4,3), umodiu(M.b6,3)); in ellQap_u() [all …]
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/basemath/ |
H A D | buch1.c | 75 if (!umodiu(z,p) || kross(d,(long)p) <= 0 || in check_pq() 104 if (umodiu(z,ell) && kross(d,ell) > 0) in get_pq() 841 if (badprim && cgcd(p, umodiu(badprim,p)) > 1) return 0; 1039 if (!umodiu(D, p)) no[ino++] = j; /* ramified */ in subFBquad() 1097 if (umodiu(b, p<<1) > p) e = -e; in sub_fact() 1110 if (umodiu(b, p<<1) > p) e = -e; in add_fact() 1161 if (umodiu(Disc, FB[i])) continue; in trivial_relations() 1229 b1 = umodiu(gel(form2,2), p); in imag_relations() 1230 b2 = umodiu(gel(form,2), p); in imag_relations() 1372 b1 = umodiu(gel(form2,2), p); in real_relations() [all …]
|
H A D | buch4.c | 34 return equaliu(p, 2)? umodiu(ap, 8) == 1 in psquare() 72 odd4 = umodiu(oddgx,4); in lemma7() 724 if (cgcd(umodiu(gel(cyc,i), drel), drel) == 1) break; in rnfisnorminit()
|
H A D | arith1.c | 469 if (!carremod(umodiu(x, 64*63*65*11))) return 0; in Z_issquarerem() 954 yu = umodiu(y, xu); in kronecker() 981 return krouu_s(umodiu(x, yu), yu, s); in krois() 1016 u = umodiu(y, xu); in krosi() 1341 ulong u = (ulong)p[2]; u = Fl_sqrt(umodiu(a, u), u); in Fp_sqrt() 1804 return utoi( Fl_pow(umodiu(A, n), k, n) ); in Fp_powu() 1857 ulong a = umodiu(A, n); in Fp_pows() 1896 ulong a = umodiu(A, n); in Fp_pow()
|
/dports/math/pari/pari-2.13.3/src/modules/ |
H A D | mpqs.c | 343 ulong kNp = umodiu(h->kN, p); in mpqs_create_FB() 502 if (umodiu(subii(mulsi(z, addii(h->B, mulsi(z, h->A))), mC), p)) in check_root() 774 t = remii(mulii(t, muluu(Fl_inv(umodiu(t, p), p), MPQS_SQRT(i))), A); in mpqs_self_init() 797 iA2 = Fl_inv(umodiu(A2, p), p); /* = 1/(2*A) mod p_j */ in mpqs_self_init() 799 mb = umodiu(B, p); if (mb) mb = p - mb; /* mb = -B mod p */ in mpqs_self_init() 806 ulong h = umodiu(MPQS_H(i), p); in mpqs_self_init() 860 ulong p = MPQS_AP(i), s = h->M + Fl_div(umodiu(p1, p), umodiu(B, p), p); in mpqs_self_init()
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/modules/ |
H A D | elliptic.c | 1562 switch(umodiu(r, 3)) in localred_p() 1634 return umodiu(ak, q) / pl; in aux() 1702 r = umodiu(gel(e,4), 2); in localred_23() 1703 s = umodiu(gel(e,2), 2); in localred_23() 1704 t = umodiu(gel(e,5), 2); in localred_23() 1716 if (umodiu(gel(e,5), p2)) in localred_23() 1719 if (umodiu(gel(e,9), p3)) in localred_23() 1722 if (umodiu(gel(e,8), p3)) in localred_23() 1732 if (umodiu(gel(e,5), p3)) in localred_23() 2088 return odd(umodiu(gel(e,2),2) + umodiu(gel(e,3),2)) ? 1 : -1; in ellrootno_2() [all …]
|
H A D | aprcl.c | 612 if (pk > 2 && umodiu(R->N,pk) == 1) in filltabs() 741 const long r = umodiu(R->N, pk); in autvec_AL() 874 if (q%p != 1 || umodiu(et,q) == 0) goto repeat; in step5() 876 if (umodiu(R->N,q) == 0) return -1; in step5() 955 flaglp[p] = (Fl_pow(umodiu(N,q),p-1,q) != 1); in aprcl()
|
H A D | mpqs.c | 408 if (krouu(umodiu(kN, p), p) == 1) in mpqs_find_k() 532 ulong kN_mod_p = umodiu(h->kN, p); in mpqs_create_FB() 1707 p1 = muliu(p1, Fl_inv(umodiu(p1, p), p)); in mpqs_self_init() 1732 inv_A2 = Fl_inv(umodiu(p1, p), p); /* = 1/(2*A) mod p_j */ in mpqs_self_init() 1733 mb = umodiu(B, p); if (mb) mb = p - mb; in mpqs_self_init() 1744 ulong h = umodiu(MPQS_H(i), p) << 1; if (h > p) h -= p; in mpqs_self_init() 1817 tmp = Fl_div(umodiu(p1, p), umodiu(B, p), p); s = (tmp + h->M) % p; in mpqs_self_init()
|
H A D | part.c | 104 ulong h, nmodq = umodiu(n, q), hn; in L()
|
/dports/math/pari/pari-2.13.3/src/kernel/none/ |
H A D | invmod.c | 46 ulong d1 = umodiu(a, uel(b,2)); in invmod_pari()
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/kernel/none/ |
H A D | invmod.c | 48 ulong d1 = umodiu(a, (ulong)(b[2])); in invmod_pari()
|