/dports/math/pari/pari-2.13.3/src/basemath/ |
H A D | modsym.c | 139 for (n=2; n <l; n++) Q[n] = umodiu(gel(q,n), N); in Q_log_init() 284 return gc_bool(av, umodiu(d, N) == 0); in gamma_equiv() 1037 ulong c = umodiu(gcoeff(M,2,1), N); in Gamma0N_decompose() 1038 ulong d = umodiu(gcoeff(M,2,2), N); in Gamma0N_decompose() 1899 index = W3[ p1_index(umodiu(c,N),umodiu(d,N),p1N) ]; in M2_log_trivial() 1920 index = W3[ p1_index(umodiu(c,N),umodiu(d,N),p1N) ]; in M2_log_trivial() 3813 if (umodiu(ap,p)) /* p \nmid a_p */ in mstooms() 3841 if (umodiu(ap, p)) in mstooms() 5053 d = umodiu(gcoeff(g,2,2), N); in actf() 5054 a = umodiu(gcoeff(g,1,1), N); in actf() [all …]
|
H A D | kummer.c | 486 if (!umodiu(bad, p)) continue; in get_prlist() 557 ucoeff(M, i,j) = umodiu(logc, ell); in subgroup_info() 650 return Fl_log(Fl_powu(umodiu(x, p), q, p), g, ell, p); in nf_to_logFl() 719 while ((p = u_forprime_next(&T))) if (!B || umodiu(B,p)) in kervirtualunit()
|
H A D | ifactor1.c | 115 rc = rc0 = umodiu(n, 210); in nextprime() 186 rc = rc0 = umodiu(n, 210); in precprime() 1925 r = (lx == 3)? uel(x,2): umodiu(x, 6046846918939827UL); in is_357_power() 1928 r = (lx == 3)? uel(x,2): umodiu(x, 211*209*61*203); in is_357_power() 1930 r = (lx == 3)? uel(x,2): umodiu(x, 117*31*43*71); in is_357_power() 1991 residue = umodiu(x, q); in is_kth_power()
|
H A D | ellsea.c | 1289 ulong lambda, ellk = upowuu(ell, k), pellk = umodiu(q, ellk); in find_trace_Elkies_power() 1333 pellk = umodiu(q, ellk); in find_trace_Elkies_power() 1345 ulong teta, pell = umodiu(q, ell), invp = Fl_inv(pell, ell); in find_trace_Atkin() 1376 ulong a = Fl_double(Fl_sqrt(umodiu(q,ell), ell), ell); in find_trace_one_root() 1383 ulong ell2 = ell * ell, pell = umodiu(q, ell2); in find_trace_lp1_roots() 1939 long q_mod_ell_plus_one = umodiu(q,ell) + 1; in Fq_ellcard_SEA()
|
H A D | mftrace.c | 158 else t = umodiu(P, p); in Qab_to_Fl() 8109 s = mfchareval(CHI, (umodiu(x, FC) * umodiu(D, FC)) % FC); in mfgaexpansionatkin() 8112 z = rootsof1powinit(umodiu(D,Q)*umodiu(v,Q) % Q, Q, prec); in mfgaexpansionatkin() 8142 if (!umodiu(c, mf_get_N(F))) in mfgaexpansion() 10164 long dN = umodiu(d,Cp), Q = (N/Cp * umodiu(A,Cp)) % Cp; in mfgatogap() 10172 D1 = umodiu(mulii(d,D), N); in mfgatogap() 10176 B1 = umodiu(a,N)*umodiu(B,N) + umodiu(b,N)*umodiu(D,N) + t*D1; in mfgatogap() 10180 *pd = umodiu(d, N); in mfgatogap() 11742 return cmpuu(umodiu(gcoeff(A,2,2), Nc), umodiu(gcoeff(B,2,2), Nc)); in cmp_coset() 11762 long c = umodiu(gcoeff(U,2,1), N), d = umodiu(gcoeff(U,2,2), N); in SL2_div_D() [all …]
|
H A D | Hensel.c | 602 ulong A = umodiu(a, Q); in Zp_sqrtnlift() 603 ulong B = umodiu(b, Q); in Zp_sqrtnlift() 604 ulong W = umodiu(w, Q); in Zp_sqrtnlift()
|
H A D | prime.c | 357 if (krouu(umodiu(N,c), c) < 0) break; in islucaspsp() 496 iu_coprime(GEN N, ulong u) { return ugcd(u, umodiu(N,u)) == 1; } in iu_coprime()
|
H A D | Flx.c | 179 long u = umodiu(x,p); in Z_to_Flx() 190 for (i=2; i<lx; i++) a[i] = umodiu(gel(x,i), p); in ZX_to_Flx() 210 case t_INT: return umodiu(x, p); in Rg_to_Fl() 212 ulong z = umodiu(gel(x,1), p); in Rg_to_Fl() 214 return Fl_div(z, umodiu(gel(x,2), p), p); in Rg_to_Fl() 221 return umodiu(a, p); in Rg_to_Fl() 875 default: x[i] = umodiu(gel(v, l - i), p); in kron_unpack_Flx_bits_wide()
|
H A D | QX_factor.c | 729 if (lead && !umodiu(lead,p)) continue; in pick_prime() 1064 ulong p = uel(P,1), gp = g ? umodiu(g, p): 0; in ZX_gcd_slice()
|
H A D | alglin2.c | 283 if (!umodiu(q, p)) return 1; in bad_char() 1009 ulong p = uel(P,1), dp = dM ? umodiu(dM, p): 1; in QM_charpoly_ZX_slice() 1021 ulong p = uel(P,i), dp = dM ? umodiu(dM, p): 1; in QM_charpoly_ZX_slice()
|
H A D | buch4.c | 55 odd4 = umodiu(oddgx,4); set_avma(av); in lemma7()
|
H A D | trans3.c | 1897 gel(vz, umodiu(z, p)) = z; /* z = z0^i */ 1900 gel(vz, umodiu(z, p)) = z; /* z = z0^(p-2) */ 2783 if (!r) return e12(q * umodiu(n, 24), prec); /* 12 | d */ in expIPifrac() 3024 ulong kk = k[2], hh = umodiu(h, kk); in sumdedekind_coprime() 3118 t = sstoQ(umodiu(b, 24), 12); in eta_correction()
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/basemath/ |
H A D | polarit3.c | 158 case t_INT: return umodiu(x, p); in Rg_to_Fl() 160 ulong z = umodiu(gel(x,1), p); in Rg_to_Fl() 162 return Fl_div(z, umodiu(gel(x,2), p), p); in Rg_to_Fl() 168 return umodiu(a, p); in Rg_to_Fl() 1633 if (umodiu(l,pg) == 1) in FpX_ffintersect() 2409 ulong d, amod = umodiu(a, p); in Fl_chinese_coprime() 2451 ulong qinv = Fl_inv(umodiu(q,p), p); in Z_incremental_CRT() 2466 ulong qinv = Fl_inv(umodiu(q,p), p); in ZX_incremental_CRT() 2500 ulong qinv = Fl_inv(umodiu(q,p), p); in ZM_incremental_CRT() 3463 if (g && !umodiu(g,p)) continue; in modulargcd() [all …]
|
H A D | ifactor1.c | 360 if (krouu(umodiu(N,c), c) < 0) break; in IsLucasPsP() 380 const ulong n = umodiu(N, u); in iu_coprime() 2451 residue = (lx == 3)? x[2]: umodiu(x, 211*209*61*203); in is_357_power() 2465 residue = (lx == 3)? x[2]: umodiu(x, 117*31*43*71); in is_357_power() 2531 residue = umodiu(x, q); in is_kth_power()
|
H A D | buch3.c | 1064 if (!umodiu(bad,q) || !uisprime(q)) continue; in primecertify() 1112 if (umodiu(gel(cyc,b), p)) break; /* p \nmid cyc[b] */ in check_prime() 1432 if (!umodiu(index, p)) continue; /* can't be treated efficiently */ in rnfnormgroup() 1458 if (oldf && i == lfa && !umodiu(discnf, p)) pr = utoipos(p); in rnfnormgroup() 1501 k = umodiu(gel(eq,3), p); in rnf_is_abelian()
|
H A D | Flx.c | 190 z[2] = umodiu(x,p); in Z_to_Flx() 203 for (i=2; i<lx; i++) a[i] = umodiu(gel(x,i), p); in ZX_to_Flx() 212 for (i=1; i<n; i++) y[i] = umodiu(gel(x,i), p); in ZV_to_Flv()
|
H A D | trans3.c | 1574 gel(vz, umodiu(z, p)) = z; /* z = z0^i */ 1577 gel(vz, umodiu(z, p)) = z; /* z = z0^(p-2) */ 2257 Nmod24 = umodiu(N, 24); in trueeta()
|
/dports/math/pari/pari-2.13.3/src/modules/ |
H A D | part.c | 63 r = 2; m = umodiu(n,k); in L()
|
H A D | ratpoints.c | 651 f = umodiu(lcf, b); in rpjacobi() 941 for (n = 0; n <= degree; n++) coeffs_mod_p[n] = umodiu(pel(c,n), p); in sieving_info() 998 if (odd(v) || !mael(squares,pn, umodiu(r,p)+1)) in sieving_info()
|
H A D | thue.c | 1650 if (umodiu(f,p)) { Ap = umodiu(A,p); if (Ap) break; } in bnfisintnorm_i() 1665 ulong dA = dx? Fl_mul(Ap, Fl_powu(umodiu(dx,p), N, p), p): Ap; in bnfisintnorm_i()
|
H A D | stark.c | 56 return umodiu(gn, chi_get_deg(chi)); in CharEval_n() 75 return umodiu(n, C->ord); in CHI_eval_n() 2738 if (gcdq >= 12 && umodiu(D, q)) /* e = 1 and unramified */ in init_pq() 2932 if (umodiu(gnorm(mkpolmod(la, pol)), f2) != 1) continue; in get_lambda() 3265 if (tryf <= 3 || umodiu(D, tryf) || !uisprime(tryf)) return NULL; in treatspecialsigma()
|
/dports/math/pari/pari-2.13.3/src/kernel/none/ |
H A D | level1.h | 878 ugcdiu(GEN x, ulong y) { return ugcd(umodiu(x,y), y); } in ugcdiu() 880 ugcdui(ulong y, GEN x) { return ugcd(umodiu(x,y), y); } in ugcdui() 978 { return y? umodiu(x, y) == 0: signe(x) == 0; } in dvdiu()
|
/dports/math/pari/pari-2.13.3/src/headers/ |
H A D | pariinl.h | 1750 return utoi( Fl_mul(umodiu(a, mm), b, mm) ); in Fp_mulu() 1768 ulong t = Fl_mul(umodiu(a, mm), -b, mm); in Fp_muls() 1772 return utoi( Fl_mul(umodiu(a, mm), b, mm) ); in Fp_muls() 1819 ulong pp = p[2], xp = umodiu(x, pp); in Fp_divu() 1823 b = Fl_neg(Fl_div(umodiu(x,a), umodiu(p,a), a), a); /* x + pb = 0 (mod a) */ in Fp_divu()
|
/dports/math/pari/pari-2.13.3/src/language/ |
H A D | forprime.c | 697 T->c = umodiu(a, T->q); in forprimestep_init()
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/modules/ |
H A D | nffactor.c | 1447 if (! umodiu(bad,pp)) continue; in nf_pick_prime() 1448 if (*lt) { ltp = umodiu(*lt, pp); if (!ltp) continue; } in nf_pick_prime()
|