Changeset 34ab5f6 in git

Timestamp:

Dec 2, 2010, 4:06:01 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

be1e92ee0c87c9a2bdae2aa22601cba0ac97c857

Parents:

e81572c65614d207af363ed0da23be28de8043dd

Message:

code cleanup: smBareiss

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

File:

• kernel/sparsmat.cc (modified) (1 diff)

kernel/sparsmat.cc

@@ -587 +587 @@
 
 /*
-* the Bareiss elimination:
-*   - with x unreduced last rows, pivots from here are not allowed
-*   - the method will finish for number of unreduced columns < y
-*/
-void sparse_mat::smBareiss(int x, int y)
-{
-  if ((x > 0) && (x < nrows))
-  {
-    tored -= x;
-    this->smToredElim();
-  }
-  if (y < 1) y = 1;
-  if (act <= y)
-  {
-    this->smCopToRes();
-    return;
-  }
-  normalize = this->smCheckNormalize();
-  if (normalize) this->smNormalize();
-  this->smPivot();
-  this->smSelectPR();
-  this->smElim();
-  crd++;
-  this->smColToRow();
-  act--;
-  this->smRowToCol();
-  this->smZeroElim();
-  if (tored != nrows)
-    this->smToredElim();
-  if (act < y)
-  {
-    this->smCopToRes();
-    return;
-  }
-  loop
-  {
-    if (normalize) this->smNormalize();
-    this->smPivot();
-    oldpiv = piv;
-    this->smSelectPR();
-    this->smElim();
-    crd++;
-    this->smColToRow();
-    act--;
-    this->smRowToCol();
-    this->smZeroElim();
-    if (tored != nrows)
-      this->smToredElim();
-    if (act < y)
-    {
-      if (TEST_OPT_PROT) PrintS(".\n");
-      this->smCopToRes();
-      return;
-    }
-  }
-}
-
-/*
 * the new Bareiss elimination:
 *   - with x unreduced last rows, pivots from here are not allowed