Changeset 894377 in git for kernel/ring.cc

Timestamp:

Nov 6, 2007, 6:57:34 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

2302217da042315eb0c77eb207bebd8a2bdff294

Parents:

08ab8274b09c6dee43107b83b7de2017ef66e731

Message:

*hannes: HEdge and weights


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

File:

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

kernel/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.68 2007-09-17 08:33:17 Singular Exp $ */
+/* $Id: ring.cc,v 1.69 2007-11-06 17:55:58 Singular Exp $ */
 
 /*
@@ -3196 +3196 @@
   p_ProcsSet(r, r->p_Procs);
 
+  // weight_all_1
+  {
+    int i;
+    r->weight_all_1=TRUE;
+    for(i=r->N; i>0; i--)
+    {
+      if (pWeight(i,r)!=1) { r->weight_all_1=FALSE; break; }
+    }
+  }
   return FALSE;
 }