Changeset a1ada5 in git for Singular/iparith.cc

Timestamp:

Sep 29, 2009, 12:37:15 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'ec94ef7a30b928574c0c3daf41f6804dff5f6b69')

Children:

8388ca6fcf9818d8283cb348a276e3df373686bf

Parents:

fda6e6ef5610f3872c7b9c6228cba279a73c792c

Message:

*hannes: fixed U in division


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

File:

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

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.517 2009-09-25 08:00:48 Singular Exp $ */
+/* $Id: iparith.cc,v 1.518 2009-09-29 10:37:15 Singular Exp $ */
 
 /*
@@ -1941 +1941 @@
   // now make sure that all matices have the corect size:
   matrix T = idModule2formatedMatrix(m,vl,ul);
+  int i;
   if (MATCOLS(U) != ul)
   {
     int mul=si_min(ul,MATCOLS(U));
     matrix UU=mpNew(ul,ul);
-    int i,j;
+    int j;
     for(i=mul;i>0;i--)
     {
@@ -1956 +1957 @@
     idDelete((ideal *)&U);
     U=UU;
+  }
+  // make sure that U is a diagonal matrix of units
+  for(i=ul;i>0;i--)
+  {
+    if(MATELEM(U,i,i)==NULL) MATELEM(U,i,i)=pOne();
   }
   lists L=(lists)omAllocBin(slists_bin);