332{
333 ring_elem f = D0[i][pivot_col];
334 ring_elem pivot = D0[r][pivot_col];
335
336 for (size_t c = 0; c < pivot_col; c++)
337 D0[i][c] =
detmult(pivot, D0[i][c], f, D0[r][c], lastpivot);
338
339 for (size_t c = pivot_col + 1; c <= r; c++)
340 D0[i][c - 1] =
detmult(pivot, D0[i][c], f, D0[r][c], lastpivot);
341
343}
ring_elem detmult(ring_elem f1, ring_elem g1, ring_elem f2, ring_elem g2, ring_elem d)