Changeset 9f5fca in git for kernel/kstd2.cc
- Timestamp:
- Dec 10, 2008, 8:48:51 PM (15 years ago)
- Branches:
- (u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')
- Children:
- 18c24555fbf92664b228c6d8d5ea653490aef960
- Parents:
- 1dfd7613337c8c2ac8c4636dda564d8899289dbd
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/kstd2.cc
r1dfd761 r9f5fca 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: kstd2.cc,v 1.7 7 2008-11-12 16:07:45 SingularExp $ */4 /* $Id: kstd2.cc,v 1.78 2008-12-10 19:48:51 levandov Exp $ */ 5 5 /* 6 6 * ABSTRACT - Kernel: alg. of Buchberger … … 1420 1420 { 1421 1421 strat->P.GetP(strat->lmBin); // because shifts are counted with .p structure 1422 /* assume strat->P.t_p != NULL */1423 1422 /* in the nonhomog case we have to shrink the polynomial */ 1424 1423 assume(strat->P.t_p!=NULL); … … 1660 1659 1661 1660 /* check whether the ideal is in V */ 1662 if (! ideal_isInV(I,lVblock) ) 1663 { 1664 PrintS("ERROR: The input ideal contains incorrectly encoded elements! "); 1661 1662 if (0) 1663 // if (! ideal_isInV(I,lVblock) ) 1664 { 1665 WerrorS("The input ideal contains incorrectly encoded elements! "); 1665 1666 return(NULL); 1666 1667 } … … 1719 1720 #endif 1720 1721 ksReducePoly(h, &(strat->T[j]), strat->kNoetherTail(), NULL, strat); 1722 1721 1723 #ifdef KDEBUG 1722 1724 if (TEST_OPT_DEBUG)
Note: See TracChangeset
for help on using the changeset viewer.