Function kModDeg

kernel/GBEngine/kstd1.cc:2414–2423

VAR intvec * kModW, * kHomW;

long kModDeg(poly p,const ring r)
{
  long o=p_WDegree(p, r);
  long i=__p_GetComp(p, r);
  if (i==0) return o;
  //assume((i>0) && (i<=kModW->length()));
  if (i<=kModW->length())
    return o+(*kModW)[i-1];
  return o;
}
long kHomModDeg(poly p,const ring r)
{
  int i;