Changeset 7012d0 in git for kernel/ideals.cc

Timestamp:

Feb 25, 2009, 11:41:54 AM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')

Children:

8bdaab44e15deb0fcc5340fad52e47e770503689

Parents:

26d633bea196d3f0e73fe91e0d3b3753397016ac

Message:

*hannes: minor(A,b,R): kNF also at the beginning


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

File:

• kernel/ideals.cc (modified) (2 diffs)

kernel/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.69 2009-02-12 16:19:23 motsak Exp $ */
+/* $Id: ideals.cc,v 1.70 2009-02-25 10:41:54 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -2748 +2748 @@
       b->m[i] = prCopyR(a->m[i],origR);
   }
-  if (R) R = idrCopyR(R,origR);
+  if (R!=NULL)
+  {
+    R = idrCopyR(R,origR);
+    if (ar>1) // otherwise done in mpMinorToResult
+    {
+      matrix bb=(matrix)kNF(R,currQuotient,(ideal)b);
+      bb->rank=b->rank; bb->nrows=b->nrows; bb->ncols=b->ncols;
+      idDelete((ideal*)&b); b=bb;
+    }
+  }
   result=idInit(32,1);
   if(ar>1) mpRecMin(ar-1,result,elems,b,r,c,NULL,R);
   else mpMinorToResult(result,elems,b,r,c,R);
   idDelete((ideal *)&b);
-  if (R) idDelete(&R);
+  if (R!=NULL) idDelete(&R);
   idSkipZeroes(result);
   rChangeCurrRing(origR);