/dports/math/pari/pari-2.13.3/src/modules/ |
H A D | algebras.c | 486 return gerepileupto(av, K); in algradical() 2156 return gerepileupto(av, z); in elementmultable() 2175 return gerepileupto(av, z); in algbasismultable_Flm() 2216 return gerepileupto(av, z); in algbasismultable() 2259 return gerepileupto(av,res); in algZmultable() 2390 return gerepileupto(av,res); in algleftmultable() 2467 return gerepileupto(av,res); in algdivl_i() 2766 return gerepileupto(av,v); in algtracebasis() 2938 return gerepileupto(av, x); in algalgtobasis() 2966 return gerepileupto(av, x); in algbasistoalg() [all …]
|
/dports/math/pari/pari-2.13.3/src/basemath/ |
H A D | FpXQX_factor.c | 70 return gerepileupto(ltop,R); in Flm_Frobenius_pow() 448 return gerepileupto(ltop,R); in FpX_factorgalois() 478 return gerepileupto(ltop,R); in Flx_factorgalois() 503 M = gerepileupto(av,M); in Flx_factorff_irred() 511 return gerepileupto(ltop,res); in Flx_factorff_irred() 552 M = gerepileupto(av,M); in FpX_factorff_irred() 1180 *pt_r = gerepileupto(av, r); in F2xqX_ispower() 1361 *pt_r = gerepileupto(av, r); in FlxqX_ispower() 1533 *pt_r = gerepileupto(av, r); in FpXQX_ispower() 1790 gel(h, j) = gerepileupto(av, e); in F2xqX_ddf_Shoup() [all …]
|
H A D | lfunquad.c | 167 if (gc_needed(av, 1)) S = gerepileupto(av, S); in sigsum() 303 gel(v, i) = gerepileupto(av, c); in Hcol() 344 gel(M,i) = gerepileupto(av, S(r, d, vD[i], vs, vP)); in modulareven() 470 if (gc_needed(av, 1)) S = gerepileupto(av, S); in sigsumtwist() 550 gel(M,i) = gerepileupto(av, S(r, dim, vD4[i], N, vs, vP)); in modularodd() 693 { pari_sp av = avma; return gerepileupto(av, lfunquadneg_i(D, k)); } in lfunquadneg()
|
H A D | F2x.c | 793 W = gerepileupto(av2, W); in F2xn_inv() 1587 return gerepileupto(av, K); in check_kernel() 1622 return gerepileupto(av, e); in F2xq_log_index() 2139 return gerepileupto(ltop, z); in F2xqX_mul() 2152 return gerepileupto(ltop,z); in F2xqX_mulspec() 2207 return gerepileupto(av0,x); in F2xqX_divrem_basecase() 2382 return gerepileupto(ltop, r); in F2xqX_invBarrett() 2509 return gerepileupto(av, r); in F2xqX_rem() 2783 return gerepileupto(av, res); in F2xqX_resultant() 2798 return gerepileupto(av, D); in F2xqX_disc() [all …]
|
H A D | Ser.c | 191 av = avma; return gerepileupto(av, rfrac_to_ser(x, prec+2)); in rfractoser() 249 return gerepileupto(av, x); in gtoser_prec()
|
H A D | base5.c | 44 return gerepileupto(av, s); in eltreltoabs() 570 return gerepileupto(av, idealmul(nf,z, rnf_get_index(rnf))); in rnfidealnormrel() 580 return gerepileupto(av, gmul(z, gel(rnf,9))); in rnfidealnormabs() 612 return gerepileupto(av, idealhnf(NF,x)); in rnfidealreltoabs0() 670 return gerepileupto(av, z); in rnfidealdown() 732 return gerepileupto(av, x2); in rnfidealup0() 772 return gerepileupto(av, nfhnf(nf,z)); in rnfidealmul() 1000 return gerepileupto(av, m); in findmin() 1280 return gerepileupto(av, x); in nfreduce() 1295 return gerepileupto(av, x); in element_close() [all …]
|
H A D | elliptic.c | 350 return gerepileupto(av, t2); in ec_2divpol_evalx() 380 return gerepileupto(av, res); in ec_half_deriv_2divpol_evalx() 1840 return gerepileupto(av,y); in ellordinate_i() 1889 return gerepileupto(av,y); in ellordinate_i() 1920 return gerepileupto(av, P); in ellrandom() 1994 return gerepileupto(av, Q); in ellffmul() 2355 return gerepileupto(av, t); in ellQp_P2t() 2929 return gerepileupto(av, y); in ellwp0() 2952 return gerepileupto(av, Q); in ellzeta() 3032 return gerepileupto(av, Q); in ellsigma() [all …]
|
H A D | polarit1.c | 46 return gerepileupto(av, simplify(z)); in rem_scal_scal() 54 return gerepileupto(av, simplify(gmul(Rg_get_0(x),y))); in rem_pol_scal() 140 return gerepileupto(av, grem(gmul(gel(x,1), z), y)); in grem() 146 return gerepileupto(av, gmod(ser2rfrac_i(x), y)); in grem()
|
H A D | rootpol.c | 72 if (signe(Pi)==0) return gerepileupto(av, ZX_sqr(Pr)); in ZiX_sqr() 453 q = gerepileupto(av, graeffe(q)); in logmax_modulus() 534 q = gerepileupto(av, graeffe(q)); in logmodulus() 571 q = gerepileupto(av, graeffe(q)); in logpre_modulus() 617 q = gerepileupto(av, graeffe(q)); in dual_modulus() 1109 if (i == 0) return gerepileupto(av, r); in conformal_basecase() 1611 return gerepileupto(ltop, gmul(m1,m2)); in split_complete() 2333 s = gerepileupto(av2, s); in usp() 2541 return gerepileupto(av, sol); in ZX_Uspensky() 2625 return gerepileupto(av, sort(shallowconcat1(sol))); in realroots() [all …]
|
H A D | volcano.c | 49 return gerepileupto(ltop, nhbr_pol); in nhbr_polynomial() 242 return gerepileupto(av, Flx_roots(f, p)); in get_nbrs() 270 if (nJ) v = gerepileupto(bv, vecsmall_prepend(v, *nJ)); in surface_path() 342 gel(T, ((w-1) % h) + 1) = gerepileupto(bv, nbrs); in surface_path()
|
H A D | lfun.c | 412 return gerepileupto(av, z); in gammafactproduct() 849 if (gc_needed(av, 3)) S = gerepileupto(av, S); in theta1() 903 if ((n & 0x1ff) == 0) S = gerepileupto(av, S); in lfuntheta() 907 return gerepileupto(ltop, S); in lfuntheta() 1072 return gerepileupto(av, s); in an_msum() 1131 return gerepileupto(av0, AB); in lfuninit_worker() 1394 return gerepileupto(av, C); in lfuncost0() 1399 return gerepileupto(av, zv_to_ZV(C)); in lfuncost0() 1901 return gerepileupto(ltop, gmul(h, gexp(a, prec))); in lfunhardy() 2059 v = gerepileupto(av2, gadd(v, gmul(a,Kn))); in lfunthetaspec() [all …]
|
H A D | FpE.c | 206 return gerepileupto(av, Flv_to_ZV(z)); in FpE_changepoint() 214 return gerepileupto(av, z); in FpE_changepoint() 277 return gerepileupto(av, FpE_dbl_slope(P,a4,p,&slope)); in FpE_dbl() 307 return gerepileupto(av, FpE_add_slope(P,Q,a4,p,&slope)); in FpE_add() 329 return gerepileupto(av, FpE_add_slope(P, FpE_neg_i(Q, p), a4, p, &slope)); in FpE_sub() 358 return gerepileupto(av, FpJ_to_FpE(Q, e->p)); in _FpE_mul() 1457 return gerepileupto(av, z); in FpXQE_changepoint() 1524 return gerepileupto(av, FpXQE_dbl_slope(P,a4,T,p,&slope)); in FpXQE_dbl() 1554 return gerepileupto(av, FpXQE_add_slope(P,Q,a4,T,p,&slope)); in FpXQE_add() 1818 return gerepileupto(av, FpXQ_div(N, D, T, p)); in FpXQE_Miller() [all …]
|
H A D | nffactor.c | 70 if (abscmpii(a, amax) < 0) return gerepileupto(av, Qdivii(a, tden)); in lift_to_frac() 262 return gerepileupto(av, ZXQX_gcd(P1, Q1, T)); in QXQX_gcd() 453 if (dT == 1) return gerepileupto(av, nfrootsQ(simplify_shallow(A))); in nfroots() 471 z = gerepileupto(av, QXQV_to_mod(z, T)); in nfroots() 569 y = gerepileupto(av, QXQXV_to_mod(y, T)); in fact_from_sqff() 606 y = gerepileupto(av, QXQXV_to_mod(y, T)); in fact_from_sqff() 612 y = gerepileupto(av, QXQXV_to_mod(y, T)); in fact_from_sqff() 643 if (degpol(T) == 1) return gerepileupto(av, QX_factor(simplify_shallow(A))); in nffactor_i() 803 return gerepileupto(av, gmin(a, b)); in nf_factor_bound() 1361 return gerepileupto(av, ginv(gmul2n(smax, 2))); in max_radius() [all …]
|
H A D | Flv.c | 600 return gerepileupto(av, Flm_mul(x,z,p)); in Flm_intersect() 619 return gerepileupto(av, K); in Flm_ker_echelon() 1064 return gerepileupto(av, x); in Flm_gauss_sp() 1079 return gerepileupto(av, x); in Flm_gauss() 1097 return gerepileupto(av, x); in Flm_inv_i() 1133 return gerepileupto(av, Flm_Fl_mul_pre(X, D, p, pi)); in Flm_adjoint() 1173 return gerepileupto(av, X); in Flm_invimage_CUP() 1212 return gerepileupto(av, X); in Flm_invimage()
|
H A D | ellanal.c | 322 return gerepileupto(av, vec); in vecF() 398 return gerepileupto(av, ellL1_der(e, vec, &C, t, r, prec)); in ellL1_bitprec() 561 gel(S, k) = gerepileupto(av2, real_i(Sl)); in heegner_psi() 563 return gerepileupto(av, S); in heegner_psi() 699 return gerepileupto(av, z); in qimag2() 934 return gerepileupto(av, divru(divir(tam, Ovr), 4*t*t)); in heegner_indexmult() 961 return gerepileupto(av, mulri(mulrr(a, sqrtD), c)); in heegner_indexmultD() 1334 if (e <= -8 && s <= b-8) return gerepileupto(av, gdiv(d,mc2)); in ellmoddegree()
|
H A D | mellininv.c | 286 return gerepileupto(ltop, S); in evalvec() 483 gel(SM, m+1) = gerepileupto(av, s); in get_SM() 541 gel(M,n) = s = gerepileupto(av, gdivgs(s, 1-n)); in Klargeinit() 701 return gerepileupto(av, z); in gammamellininv()
|
H A D | galconj.c | 59 return gerepileupto(av, y); in galoisconj1() 230 return gerepileupto(av, t); in embed_disc() 941 return gerepileupto(av, S); in sympol_eval() 963 return gerepileupto(ltop, s); in sympol_aut_evalmod() 1539 return gerepileupto(av, M); in FpXV_ffisom() 2828 if (PG) return gerepileupto(ltop, PG); in galoisgen() 2838 if (PG) return gerepileupto(ltop, PG); in galoisgen() 2848 if (PG) return gerepileupto(ltop, PG); in galoisgen() 3240 return gerepileupto(ltop,res); in fixedfieldfactor() 3314 return gerepileupto(ltop, res); in galoisfixedfield() [all …]
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/basemath/ |
H A D | Qfb.c | 209 return gerepileupto(av, redimag(z)); in compimag0() 220 return gerepileupto(av, redreal(z)); in compreal0() 243 return gerepileupto(av, redimag(z)); in sqcompimag0() 254 return gerepileupto(av, redreal(z)); in sqcompreal0() 343 return gerepileupto(av,y); in powrealraw() 365 return gerepileupto(av,y); in powimagraw() 452 return gerepileupto(av, redimag(Q)); in nucomp() 493 return gerepileupto(av, redimag(Q)); in nudupl() 516 return gerepileupto(av, y); in nupow() 1131 return gerepileupto(av, gmul(a, shallowtrans(N))); in qfbimagsolvep() [all …]
|
H A D | polarit2.c | 260 p1 = gerepileupto(av,p1); in polidivis() 2585 return gerepileupto(av, in zero_gcd() 2592 return gerepileupto(av, in zero_gcd() 2954 return gerepileupto(av,y); in RgX_gcd_simple() 3081 return gerepileupto(av,c); in content() 3162 return gerepileupto(av, d); in Q_content() 3169 return gerepileupto(av, d); in Q_content() 3589 z = gerepileupto(av, z); in subresall() 3900 return gerepileupto(av, s); in resultantducos() 4009 return gerepileupto(av,x); in polresultant0() [all …]
|
H A D | perm.c | 666 return gerepileupto(ltop,gap); in perm_to_GAP() 845 return gerepileupto(ltop,p1); in group_quotient() 1077 return gerepileupto(ltop,p1); in group_subgroups() 1132 return gerepileupto(ltop, smithclean( smith(H) )); in group_abelianSNF() 1180 return gerepileupto(ltop,V); in groupelts_center() 1221 return gerepileupto(ltop,s); in group_export_GAP() 1240 return gerepileupto(ltop,s); in group_export_MAGMA()
|
H A D | Flx.c | 1769 return gerepileupto(ltop,z); in FlxqX_mulspec() 1781 return gerepileupto(ltop,z); in FlxqX_mul() 1792 return gerepileupto(ltop,z); in FlxqX_sqr() 1899 if (pr == ONLY_REM) return gerepileupto(av0,rem); in FlxqX_divrem() 1917 gel(r,i) = gerepileupto(ltop, z); in FlxqX_invmontgomery_basecase() 1939 return gerepileupto(ltop, r); in FlxqX_invmontgomery() 1961 return gerepileupto(ltop,z); in FlxqX_rem_montgomery() 1995 return gerepileupto(ltop, Q); in FlxqX_safegcd() 2048 return gerepileupto(av, y); in FlxYqQ_pow() 2120 return gerepileupto(av0, y); in FlxqXQ_pow() [all …]
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/modules/ |
H A D | elldata.c | 110 return gerepileupto(ltop, concat(concat(f,ellrecode(itos(c))),s)); in ellconvertname() 240 return gerepileupto(ltop,W); in ellgenerators()
|
H A D | nffactor.c | 219 return gerepileupto(av, gen_sort(A, 0, cmp_pol)); in nfroots() 331 return gerepileupto(av, factpol(Q_primpart(simplify(pol)), 0)); in nffactor() 362 avma = av1; y = gerepileupto(av, RgXQXV_to_mod(y,T)); in nffactor() 368 y = gerepileupto(av, RgXQXV_to_mod(nfsqff(nf,A,0), T)); in nffactor() 505 return gerepileupto(av, gmin(a, b)); in nf_factor_bound() 1134 GSmin = gerepileupto(av2, ginv(gmul2n(smax, 2))); in bestlift_init() 1168 gel(V,i) = gerepileupto(av, v); /* small */ in get_V() 1629 GEN z = gerepileupto(av, nfsqff(checknf(nf), pol, 2)); in nfrootsall_and_pr() 1651 return gerepileupto(av, gpowgs(gsub(pol_x[v], alpha), lT - 3)); in rnfcharpoly() 1657 return gerepileupto(av, gsub(pol_x[v], alpha)); in rnfcharpoly() [all …]
|
H A D | elliptic.c | 822 return gerepileupto(av,y); in ordell() 842 return gerepileupto(av,y); in ordell() 949 return gerepileupto(av,t); in zell() 1006 return gerepileupto(av,t); in zell() 1131 return gerepileupto(av,y); in elleisnum() 1375 return gerepileupto(av, y1); in ellsigma() 1426 P[k<<1] = gerepileupto(av, t); in _weipell() 1834 return gerepileupto(av, localred(e, p, 0)); in elllocalred() 3203 return gerepileupto(av, gdiv(z,gs)); in elllseries() 3236 return gerepileupto(av, gneg(p1)); in hell() [all …]
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/language/ |
H A D | intnum.c | 153 gel(s,j) = gerepileupto(av, gadd(p1,sum)); in qrom2() 653 if ((i & 0x7f) == 1) S = gerepileupto(av, S); in intn() 656 return gerepileupto(ltop, gmul(S, gmul2n(bma, -m))); in intn() 691 if ((i & 0x7f) == 1) S = gerepileupto(av, S); in intnsing() 694 return gerepileupto(ltop, gmul(gmul2n(S, -m), ea)); in intnsing() 727 if ((i & 0x7f) == 1) S = gerepileupto(av, S); in intninfpm() 730 return gerepileupto(ltop, gmul2n(S, -h)); in intninfpm() 773 return gerepileupto(ltop, gmul2n(S, -m)); in intninfinfintern() 1593 return gerepileupto(av, z); in intnumromb() 1624 z = gerepileupto(ltop, gadd(R, mulcxmI(I))); in intfourexp0() [all …]
|