Changeset 99cfcba in git


Ignore:
Timestamp:
Apr 8, 1998, 12:01:58 PM (26 years ago)
Author:
Wilfred Pohl <pohl@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd25190065115c859833252500a64cfb7b11e3a50')
Children:
e3cab3223ca48edb3c313973c3907bd9a256f319
Parents:
33e52153b30e64770ad38770e23349caf3d128fb
Message:
kbase without Werror


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

Legend:

Unmodified
Added
Removed
  • Singular/hdegree.cc

    r33e521 r99cfcba  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: hdegree.cc,v 1.11 1998-04-07 18:13:57 Singular Exp $ */
     4/* $Id: hdegree.cc,v 1.12 1998-04-08 10:01:58 pohl Exp $ */
    55/*
    66*  ABSTRACT -  dimension, multiplicity, HC, kbase
     
    7373  Exponent_t  mc;
    7474  hexist = hInit(S, Q, &hNexist);
    75   if (hNexist==0)
     75  if (!hNexist)
    7676    return pVariables;
    7777  hwork = (scfmon)Alloc(hNexist * sizeof(scmon));
     
    7979  hpure = (scmon)Alloc((1 + (pVariables * pVariables)) * sizeof(Exponent_t));
    8080  mc = hisModule;
    81   if (mc==0)
     81  if (!mc)
    8282  {
    8383    hrad = hexist;
     
    9090  loop
    9191  {
    92     if (mc!=0)
     92    if (mc)
    9393      hComp(hexist, hNexist, mc, hrad, &hNrad);
    94     if (hNrad!=0)
     94    if (hNrad)
    9595    {
    9696      hNvar = pVariables;
    9797      hRadical(hrad, &hNrad, hNvar);
    9898      hSupp(hrad, hNrad, hvar, &hNvar);
    99       if (hNvar!=0)
     99      if (hNvar)
    100100      {
    101101        memset(hpure, 0, (pVariables + 1) * sizeof(Exponent_t));
     
    119119  Free((ADDRESS)hwork, hNexist * sizeof(scmon));
    120120  hDelete(hexist, hNexist);
    121   if (hisModule!=0)
     121  if (hisModule)
    122122    Free((ADDRESS)hrad, hNexist * sizeof(scmon));
    123123  return pVariables - hCo;
     
    139139    {
    140140      hCo = dn;
    141       for (iv=pVariables; iv>0; iv--)
    142       {
    143         if (pure[iv]!=0)
     141      for (iv=pVariables; iv; iv--)
     142      {
     143        if (pure[iv])
    144144          hInd[iv] = 0;
    145145        else
    146146          hInd[iv] = 1;
    147147      }
    148       if (Nrad!=0)
     148      if (Nrad)
    149149      {
    150150        pn = *rad;
     
    153153        {
    154154          x = var[iv];
    155           if (pn[x]!=0)
     155          if (pn[x])
    156156          {
    157157            hInd[x] = 0;
     
    169169  while(pure[var[iv]]) iv--;
    170170  hStepR(rad, Nrad, var, iv, &rad0);
    171   if (rad0!=0)
     171  if (rad0)
    172172  {
    173173    iv--;
     
    195195  {
    196196    hCo = Npure + 1;
    197     for (x=pVariables; x>0; x--)
    198     {
    199       if (pure[x]!=0)
     197    for (x=pVariables; x; x--)
     198    {
     199      if (pure[x])
    200200        hInd[x] = 0;
    201201      else
     
    265265  Free((ADDRESS)hwork, hNexist * sizeof(scmon));
    266266  hDelete(hexist, hNexist);
    267   if (hisModule!=0)
     267  if (hisModule)
    268268    Free((ADDRESS)hrad, hNexist * sizeof(scmon));
    269269  return Set;
     
    303303  for (iv=pVariables; iv!=0 ; iv--)
    304304  {
    305     if (pure[iv]!=0)
     305    if (pure[iv])
    306306      (*Set)[iv-1] = 0;
    307307    else
     
    331331        {
    332332          x = var[iv];
    333           if (pn[x]!=0)
     333          if (pn[x])
    334334          {
    335335            pure[x] = 1;
     
    350350    loop
    351351    {
    352       if(pure[var[iv]]==0)
     352      if(!pure[var[iv]])
    353353      {
    354354        if(hNotZero(rad, Nrad, var, iv))
     
    360360      }
    361361      iv--;
    362       if (iv==0)
     362      if (!iv)
    363363        return;
    364364    }
    365365  }
    366   while(pure[var[iv]]!=0) iv--;
     366  while(pure[var[iv]]) iv--;
    367367  hStepR(rad, Nrad, var, iv, &rad0);
    368368  iv--;
     
    486486      for (iv=pVariables; iv; iv--)
    487487      {
    488         if (pure[iv]!=0)
     488        if (pure[iv])
    489489          (*Set)[iv-1] = 0;
    490490        else
     
    506506    if (dn > hCo)
    507507    {
    508       if (Nrad==0)
     508      if (!Nrad)
    509509        hCheckIndep(pure);
    510510      else
    511511      {
    512512        pn = *rad;
    513         for (iv = Nvar; iv>0; iv--)
     513        for (iv = Nvar; iv; iv--)
    514514        {
    515515          x = var[iv];
    516           if (pn[x]!=0)
     516          if (pn[x])
    517517          {
    518518            pure[x] = 1;
     
    526526  }
    527527  iv = Nvar;
    528   while(pure[var[iv]]!=0) iv--;
     528  while(pure[var[iv]]) iv--;
    529529  hStepR(rad, Nrad, var, iv, &rad0);
    530530  iv--;
     
    574574  hRadical(hrad, &hNrad, hNvar);
    575575  hSupp(hrad, hNrad, hvar, &hNvar);
    576   if (hNvar!=0)
     576  if (hNvar)
    577577  {
    578578    hCo = hNvar;
     
    582582    hDimSolve(hpure, hNpure, hrad, hNrad, hvar, hNvar);
    583583  }
    584   if ((hCo!=0) && (hCo < pVariables))
     584  if (hCo && (hCo < pVariables))
    585585  {
    586586    hIndMult(hpure, hNpure, hrad, hNrad, hvar, hNvar);
     
    649649  scmon pn;
    650650  scfmon sn;
    651   if (iv==0)
     651  if (!iv)
    652652    return pure[var[1]];
    653   else if (Nstc==0)
     653  else if (!Nstc)
    654654  {
    655655    sum = 1;
    656     for (i = Nvar; i>0; i--)
     656    for (i = Nvar; i; i--)
    657657      sum *= pure[var[i]];
    658658    return sum;
     
    695695  for (i = 1; i <= pVariables; i++)
    696696  {
    697     if (pure[i]!=0)
     697    if (pure[i])
    698698    {
    699699      i0++;
     
    723723    if (dn == hCo)
    724724    {
    725       if (Nrad==0)
     725      if (!Nrad)
    726726        hProject(pure, hsel);
    727727      else
    728728      {
    729729        pn = *rad;
    730         for (iv = Nvar; iv>0; iv--)
     730        for (iv = Nvar; iv; iv--)
    731731        {
    732732          x = var[iv];
    733           if (pn[x]!=0)
     733          if (pn[x])
    734734          {
    735735            pure[x] = 1;
     
    750750    loop
    751751    {
    752       if(pure[var[iv]]==0)
     752      if(!pure[var[iv]])
    753753      {
    754754        if(hNotZero(rad, Nrad, var, iv))
     
    760760      }
    761761      iv--;
    762       if (iv==0)
     762      if (!iv)
    763763        return;
    764764    }
     
    793793  Exponent_t  mc;
    794794  hexist = hInit(S, Q, &hNexist);
    795   if (hNexist==0)
     795  if (!hNexist)
    796796  {
    797797    hCo = 0;
     
    806806  mc = hisModule;
    807807  hrad = (scfmon)Alloc(hNexist * sizeof(scmon));
    808   if (mc==0)
     808  if (!mc)
    809809  {
    810810    memcpy(hrad, hexist, hNexist * sizeof(scmon));
     
    820820  loop
    821821  {
    822     if (mc!=0)
     822    if (mc)
    823823    {
    824824      hComp(hexist, hNexist, mc, hrad, &hNrad);
     
    826826      memcpy(hstc, hrad, hNrad * sizeof(scmon));
    827827    }
    828     if (hNrad!=0)
     828    if (hNrad)
    829829    {
    830830      hNvar = pVariables;
    831831      hRadical(hrad, &hNrad, hNvar);
    832832      hSupp(hrad, hNrad, hvar, &hNvar);
    833       if (hNvar!=0)
     833      if (hNvar)
    834834      {
    835835        hCo = hNvar;
     
    850850      hMu = 0;
    851851    }
    852     if ((hNvar!=0) && (hCo == di))
    853     {
    854       if ((di!=0) && (di < pVariables))
     852    if (hNvar && (hCo == di))
     853    {
     854      if (di && (di < pVariables))
    855855        hDimMult(hpure, hNpure, hrad, hNrad, hvar, hNvar);
    856       else if (di==0)
     856      else if (!di)
    857857        hMu++;
    858858      else
     
    13761376    if (di != 0)
    13771377    {
    1378       Werror("KBase not finite");
    1379       return idInit(1,1);
     1378      //Werror("KBase not finite");
     1379      return idInit(1,s->rank);
    13801380    }
    13811381  }
Note: See TracChangeset for help on using the changeset viewer.