Changeset 2ffd25 in git for Singular/ipassign.cc

Timestamp:

Jun 14, 2018, 2:59:48 PM (6 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

1f37c3385e83e4bc34dab711cc9b9797b6290c84

Parents:

db48f3ea705fcb451c2ea640a2b72f643bae2f22

Message:

introduce smatrix (sparse matrix)

File:

• Singular/ipassign.cc (modified) (1 diff)

Singular/ipassign.cc

@@ -687 +687 @@
       jjNormalizeQRingP(p);
     }
-    pDelete(&MATELEM(m,i,j));
-    MATELEM(m,i,j)=p;
-    /* for module: update rank */
-    if ((p!=NULL) && (pGetComp(p)!=0))
-    {
-      m->rank=si_max(m->rank,pMaxComp(p));
+    if (res->rtyp==SMATRIX_CMD)
+    {
+      p=pSub(p,SMATELEM(m,i-1,j-1,currRing));
+      pSetCompP(p,i);
+      m->m[j-1]=pAdd(m->m[j-1],p);
+    }
+    else
+    {
+      pDelete(&MATELEM(m,i,j));
+      MATELEM(m,i,j)=p;
+      /* for module: update rank */
+      if ((p!=NULL) && (pGetComp(p)!=0))
+      {
+        m->rank=si_max(m->rank,pMaxComp(p));
+      }
     }
   }