Changeset 30d73e in git

Timestamp:

Oct 5, 2004, 1:25:39 PM (19 years ago)

Author:

Wilfred Pohl <pohl@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

678128ae93a0fa4488f7ac619a423aa9593fda96

Parents:

ef55680083120888069dd5f51d66fba5c1b45513

Message:

fix error in kbase


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

File:

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

kernel/hdegree.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: hdegree.cc,v 1.2 2004-07-20 15:11:09 Singular Exp $ */
+/* $Id: hdegree.cc,v 1.3 2004-10-05 11:25:39 pohl Exp $ */
 /*
 *  ABSTRACT -  dimension, multiplicity, HC, kbase
@@ -1134 +1134 @@
   if (deg == 0)
   {
+    for (i=Nstc-1; i>=0; i--)
+    {
+      for (j=Nvar;j;j--){ if(stc[i][j]) break; }
+      if (j==0){return;}
+    }
     for (i=Nvar; i; i--) act[i] = 0;
     scElKbase();