void
nmod_poly_mat_scalar_mul_nmod_poly(nmod_poly_mat_t B, const nmod_poly_mat_t A,
const nmod_poly_t c)
{
long i, j;
for (i = 0; i < nmod_poly_mat_nrows(B); i++)
for (j = 0; j < nmod_poly_mat_ncols(B); j++)
nmod_poly_mul(nmod_poly_mat_entry(B, i, j),
nmod_poly_mat_entry(A, i, j), c);
}
void nmod_poly_mat_right_tmul(nmod_poly_mat_t C, const nmod_poly_mat_t L, const nmod_poly_mat_t Bin, long m, long k){
long qq = nmod_poly_mat_nrows(Bin);
long rr = nmod_poly_mat_ncols(Bin);
long pp = nmod_poly_mat_nrows(L);
nmod_poly_mat_t B;
nmod_poly_mat_init(B, rr, qq, nmod_poly_mat_modulus(Bin));
long i, j;
for (i = 0; i < rr; i++)
for (j = 0; j < qq; j++)
nmod_poly_reverse(nmod_poly_mat_entry(B, i, j), nmod_poly_mat_entry(Bin, j, i), m+1);
nmod_poly_mat_mul(C, L, B);
for (i = 0; i < pp; i++)
for (j = 0; j < qq; j++){
nmod_poly_truncate(nmod_poly_mat_entry(C, i, j), k+m);
nmod_poly_shift_right(nmod_poly_mat_entry(C, i, j), nmod_poly_mat_entry(C, i, j), m);
}
nmod_poly_mat_clear(B);
}
slong
nmod_poly_mat_rref(nmod_poly_mat_t R, nmod_poly_t den, const nmod_poly_mat_t A)
{
slong i, j, k, m, n, rank;
slong *pivots, *nonpivots;
rank = nmod_poly_mat_fflu(R, den, NULL, A, 0);
m = nmod_poly_mat_nrows(R);
n = nmod_poly_mat_ncols(R);
/* clear bottom */
for (i = rank; i < m; i++)
for (j = 0; j < n; j++)
nmod_poly_zero(nmod_poly_mat_entry(R, i, j));
/* Convert row echelon form to reduced row echelon form */
if (rank > 1)
{
nmod_poly_t tmp, tmp2;
nmod_poly_init(tmp, nmod_poly_mat_modulus(R));
nmod_poly_init(tmp2, nmod_poly_mat_modulus(R));
pivots = flint_malloc(sizeof(slong) * n);
nonpivots = pivots + rank;
/* find pivot positions */
for (i = j = k = 0; i < rank; i++)
{
while (nmod_poly_is_zero(nmod_poly_mat_entry(R, i, j)))
{
nonpivots[k] = j;
k++;
j++;
}
pivots[i] = j;
j++;
}
while (k < n - rank)
{
nonpivots[k] = j;
k++;
j++;
}
for (k = 0; k < n - rank; k++)
{
for (i = rank - 2; i >= 0; i--)
{
nmod_poly_mul(tmp, den, nmod_poly_mat_entry(R, i, nonpivots[k]));
for (j = i + 1; j < rank; j++)
{
nmod_poly_mul(tmp2, nmod_poly_mat_entry(R, i, pivots[j]),
nmod_poly_mat_entry(R, j, nonpivots[k]));
nmod_poly_sub(tmp, tmp, tmp2);
}
nmod_poly_div(nmod_poly_mat_entry(R, i, nonpivots[k]),
tmp, nmod_poly_mat_entry(R, i, pivots[i]));
}
}
/* clear pivot columns */
for (i = 0; i < rank; i++)
{
for (j = 0; j < rank; j++)
{
if (i == j)
nmod_poly_set(nmod_poly_mat_entry(R, j, pivots[i]), den);
else
nmod_poly_zero(nmod_poly_mat_entry(R, j, pivots[i]));
}
}
flint_free(pivots);
nmod_poly_clear(tmp);
nmod_poly_clear(tmp2);
}
return rank;
}
