Function NewVectorlp

Singular/walk.cc:4497–4504

* perturb the matrix order of "lex" * **************************************/

 * perturb the matrix order of  "lex" *
 **************************************/
static intvec* NewVectorlp(ideal I)
{
  int nV = currRing->N;
  intvec* iv_wlp =  MivMatrixOrderlp(nV);
  intvec* result = Mfpertvector(I, iv_wlp);
  delete iv_wlp;
  return result;
}

VAR int ngleich;
VAR intvec* Xsigma;