## "Fossies" - the Fresh Open Source Software Archive

### Source code changes of the file "src/basemath/base4.c" betweenpari-2.13.0.tar.gz and pari-2.13.1.tar.gz

About: PARI/GP is a computer algebra system designed for fast computations in number theory (factorizations, algebraic number theory, elliptic curves...), but also contains a large number of other mathematical functions.

base4.c  (pari-2.13.0):base4.c  (pari-2.13.1)
skipping to change at line 2092 skipping to change at line 2092
x = nf_to_scalar_or_basis(nf, x); x = nf_to_scalar_or_basis(nf, x);
if (typ(x) != t_COL) if (typ(x) != t_COL)
x = idealhnf_principal(nf,ginv(x)); x = idealhnf_principal(nf,ginv(x));
else else
{ /* nfinv + idealhnf where we already know (x) \cap Z */ { /* nfinv + idealhnf where we already know (x) \cap Z */
GEN c, d; GEN c, d;
x = Q_remove_denom(x, &c); x = Q_remove_denom(x, &c);
x = zk_inv(nf, x); x = zk_inv(nf, x);
x = Q_remove_denom(x, &d); /* true inverse is c/d * x */ x = Q_remove_denom(x, &d); /* true inverse is c/d * x */
if (!d) /* x and x^(-1) integral => x a unit */ if (!d) /* x and x^(-1) integral => x a unit */
x = N); x = c? scalarmat(c, N): matid(N);
else else
{ {
c = c? gdiv(c,d): ginv(d); c = c? gdiv(c,d): ginv(d);
x = zk_multable(nf, x); x = zk_multable(nf, x);
x = ZM_Q_mul(ZM_hnfmodid(x,d), c); x = ZM_Q_mul(ZM_hnfmodid(x,d), c);
} }
} }
break; break;
case id_PRIME: case id_PRIME:
x = pr_inv(x); break; x = pr_inv(x); break;
End of changes. 1 change blocks.
1 lines changed or deleted 1 lines changed or added