Changeset a13cae in git for kernel/kutil.cc


Ignore:
Timestamp:
Jul 27, 2008, 12:21:59 PM (16 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd25190065115c859833252500a64cfb7b11e3a50')
Children:
37d43ec78deb09e94d2b41b08283e6fe466687d7
Parents:
e4df0ba39c30b0d3f0f545e4cf34a78b4b74fbea
Message:
*hannes: OPT_DEBUG fuor ratGB


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

Legend:

Unmodified
Added
Removed
  • kernel/kutil.cc

    re4df0ba ra13cae  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: kutil.cc,v 1.104 2008-07-25 15:40:59 Singular Exp $ */
     4/* $Id: kutil.cc,v 1.105 2008-07-27 10:21:59 Singular Exp $ */
    55/*
    66* ABSTRACT: kernel: utils for kStd
     
    19801980               currRing->real_var_start,currRing->real_var_end))
    19811981            {
     1982              if(TEST_OPT_DEBUG)
     1983              {
     1984                 Print("chain-crit-part: S[%d]=",j);
     1985                 p_wrp(strat->S[j],currRing);
     1986                 Print(" divide B[%d].lcm=",i);
     1987                 p_wrp(strat->B[i].lcm,currRing);
     1988                 PrintLn();
     1989              }
    19821990              deleteInL(strat->B,&strat->Bl,i,strat);
    19831991              strat->c3++;
     
    20072015          if (strat->L[j].p == strat->tail)
    20082016          {
     2017              if(TEST_OPT_DEBUG)
     2018              {
     2019                 PrintS("chain-crit-part: pCompareChainPart p=");
     2020                 p_wrp(p,currRing);
     2021                 Print(" delete L[%d]",j);
     2022                 p_wrp(strat->L[j].lcm,currRing);
     2023                 PrintLn();
     2024              }
    20092025              deleteInL(strat->L,&strat->Ll,j,strat);
    20102026              strat->c3++;
     
    20302046            if (sugarDivisibleBy(strat->B[j].ecart,strat->B[i].ecart))
    20312047            {
     2048              if(TEST_OPT_DEBUG)
     2049              {
     2050                 Print("chain-crit-part: sugar B[%d].lcm=",j);
     2051                 p_wrp(strat->B[j].lcm,currRing);
     2052                 Print(" delete B[%d]",i);
     2053                 p_wrp(strat->B[i].lcm,currRing);
     2054                 PrintLn();
     2055              }
    20322056              deleteInL(strat->B,&strat->Bl,i,strat);
    20332057              j--;
     
    20352059            else
    20362060            {
     2061              if(TEST_OPT_DEBUG)
     2062              {
     2063                 Print("chain-crit-part: sugar B[%d].lcm=",i);
     2064                 p_wrp(strat->B[i].lcm,currRing);
     2065                 Print(" delete B[%d]",j);
     2066                 p_wrp(strat->B[j].lcm,currRing);
     2067                 PrintLn();
     2068              }
    20372069              deleteInL(strat->B,&strat->Bl,j,strat);
    20382070              break;
     
    20572089          if ((pNext(strat->L[j].p) == strat->tail)||(pOrdSgn==1))
    20582090          {
     2091              if(TEST_OPT_DEBUG)
     2092              {
     2093                 PrintS("chain-crit-part: sugar:pCompareChainPart p=");
     2094                 p_wrp(p,currRing);
     2095                 Print(" delete L[%d]",j);
     2096                 p_wrp(strat->L[j].lcm,currRing);
     2097                 PrintLn();
     2098              }
    20592099            deleteInL(strat->L,&strat->Ll,j,strat);
    20602100            strat->c3++;
     
    20752115          if (pLmEqual(strat->B[j].lcm,strat->B[i].lcm))
    20762116          {
     2117              if(TEST_OPT_DEBUG)
     2118              {
     2119                 Print("chain-crit-part: equal lcm B[%d].lcm=",j);
     2120                 p_wrp(strat->B[j].lcm,currRing);
     2121                 Print(" delete B[%d]\n",i);
     2122              }
    20772123            strat->c3++;
    20782124            deleteInL(strat->B,&strat->Bl,i,strat);
     
    21052151        if ((pNext(strat->L[j].p) == strat->tail)||(pOrdSgn==1))
    21062152        {
     2153              if(TEST_OPT_DEBUG)
     2154              {
     2155                 PrintS("chain-crit-part: pCompareChainPart p=");
     2156                 p_wrp(p,currRing);
     2157                 Print(" delete L[%d]",j);
     2158                 p_wrp(strat->L[j].lcm,currRing);
     2159                 PrintLn();
     2160              }
    21072161          deleteInL(strat->L,&strat->Ll,j,strat);
    21082162          strat->c3++;
     
    21672221              *so we mark it with "tail"
    21682222              */
     2223              if(TEST_OPT_DEBUG)
     2224              {
     2225                 PrintS("chain-crit-part: divisible_by p=");
     2226                 p_wrp(p,currRing);
     2227                 Print(" delete L[%d]",l);
     2228                 p_wrp(strat->L[l].lcm,currRing);
     2229                 PrintLn();
     2230              }
    21692231              deleteInL(strat->L,&strat->Ll,l,strat);
    21702232              i--;
     
    21722234            else
    21732235            {
     2236              if(TEST_OPT_DEBUG)
     2237              {
     2238                 PrintS("chain-crit-part: divisible_by(2) p=");
     2239                 p_wrp(p,currRing);
     2240                 Print(" delete L[%d]",i);
     2241                 p_wrp(strat->L[i].lcm,currRing);
     2242                 PrintLn();
     2243              }
    21742244              deleteInL(strat->L,&strat->Ll,i,strat);
    21752245            }
Note: See TracChangeset for help on using the changeset viewer.