Changeset 77f279 in git

Timestamp:

Nov 11, 2010, 3:16:33 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

49a7660d31092e03deb306e45707cb52b2c37900

Parents:

1ee17f728ae0a970f0bbdb9e57aedc97c536715b

Message:

smCallNewBareiss -> smCallBareiss

git-svn-id: file:///usr/local/Singular/svn/trunk@13641 2c84dea3-7e68-4137-9b89-c4e89433aadc

Location:

kernel

Files:

• sparsmat.cc (modified) (1 diff)
• sparsmat.h (modified) (1 diff)

kernel/sparsmat.cc

@@ -390 +390 @@
 }
 
-void smCallBareiss(ideal I, int x, int y, ideal &M, intvec ** iv)
-{
-  int r=idRankFreeModule(I),t=r;
-  int c=IDELEMS(I),s=c;
-  long bound;
-  ring origR;
-  ring tmpR;
-  sparse_mat *bareiss;
-
-  if ((x>0) && (x<t))
-    t-=x;
-  if ((y>1) && (y<s))
-    s-=y;
-  if (t>s) t=s;
-  bound=2*smExpBound(I,c,r,t);
-  tmpR=smRingChange(&origR,bound);
-  ideal II = idrCopyR(I, origR);
-  bareiss = new sparse_mat(II);
-  if (bareiss->smGetAct() == NULL)
-  {
-    delete bareiss;
-    *iv=new intvec(1,pVariables);
-    rChangeCurrRing(origR);
-  }
-  else
-  {
-    idDelete(&II);
-    bareiss->smBareiss(x, y);
-    II = bareiss->smRes2Mod();
-    *iv = new intvec(bareiss->smGetRed());
-    bareiss->smToIntvec(*iv);
-    delete bareiss;
-    rChangeCurrRing(origR);
-    II = idrMoveR(II,tmpR);
-  }
-  smKillModifiedRing(tmpR);
-  M=II;
-}
-
-void smCallNewBareiss(ideal I, int x, int y, ideal & M, intvec **iv)
+void smCallBareiss(ideal I, int x, int y, ideal & M, intvec **iv)
 {
   int r=idRankFreeModule(I),t=r;

kernel/sparsmat.h

@@ -28 +28 @@
 poly smCallDet(ideal I);
 void smCallBareiss(ideal smat, int x, int y, ideal & M, intvec ** iv);
-void smCallNewBareiss(ideal smat, int x, int y, ideal & M, intvec ** iv);
 ideal smCallSolv(ideal I);