Changeset dded84 in git for Singular/iparith.cc

Timestamp:

Apr 11, 2000, 5:36:37 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

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

Children:

0726aadef41eba5ecc9e83edbbf1637cbabb2c79

Parents:

923c277a87a8ac9f0e47c5abe7034c3f9f6496ce

Message:

* hannes: fixed matrix size of U in divide if sm contains 0 at the end


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

File:

• Singular/iparith.cc (modified) (2 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.206 2000-03-31 12:16:11 Singular Exp $ */
+/* $Id: iparith.cc,v 1.207 2000-04-11 15:36:37 Singular Exp $ */
 
 /*
@@ -1492 +1492 @@
   ideal m = idLift(ui,vi,&R, FALSE,hasFlag(u,FLAG_STD),TRUE,&U);
   matrix T = idModule2formatedMatrix(m,ul,vl);
+  if (MATCOLS(U) != vl)
+  {
+    int mvl=min(vl,MATCOLS(U));
+    matrix UU=mpNew(vl,vl);
+    int i,j;
+    for(i=mvl;i>0;i--)
+    {
+      for(j=mvl;j>0;j--)
+      {
+        MATELEM(UU,i,j)=MATELEM(U,i,j);
+        MATELEM(U,i,j)=NULL;
+      }
+    }
+    idDelete((ideal *)&U);
+    U=UU;
+  }
   lists L=(lists)AllocSizeOf(slists);
   L->Init(3);