| 390 | } |
| 391 | |
| 392 | void p_LPshift(poly p, int sh, const ring ri) |
| 393 | { |
| 394 | if (sh == 0) return; |
| 395 | |
| 396 | while (p!=NULL) |
| 397 | { |
| 398 | p_mLPshift(p, sh, ri); |
| 399 | pIter(p); |
| 400 | } |
| 401 | } |
| 402 | |
| 403 | /* returns the number of maximal block */ |
| 404 | /* appearing among the monomials of p */ |