Changeset e32e26 in git for kernel/tgb.cc

Timestamp:

Feb 21, 2006, 12:08:37 PM (18 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

113bb80810ddfdbdfc62ccc7d8f773e229208934

Parents:

d20265caf2e7ae98d9b125466d5fcb53f8575e0e

Message:

*bricken: further optimized


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

File:

• kernel/tgb.cc (modified) (3 diffs)

kernel/tgb.cc

@@ -5 +5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: tgb.cc,v 1.62 2006-02-21 06:41:24 bricken Exp $ */
+/* $Id: tgb.cc,v 1.63 2006-02-21 11:08:37 bricken Exp $ */
 /*
 * ABSTRACT: slimgb and F4 implementation
@@ -981 +981 @@
 }
 static wlen_type pair_weighted_length(int i, int j, slimgb_alg* c){
-    if ((c->is_char0) && (pLexOrder))  {
+    if ((c->is_char0) && (pLexOrder) &&(!c->is_homog))  {
         int c1=slim_nsize(p_GetCoeff(c->S->m[i],c->r),c->r);
         int c2=slim_nsize(p_GetCoeff(c->S->m[j],c->r),c->r);
@@ -1007 +1007 @@
             (wlen_type)cs;
     }
-    if (pLexOrder) {
+    if ((pLexOrder) &&(!c->is_homog)) {
 
         return (c->weighted_lengths[i]+c->weighted_lengths[j]-2);