Changeset d4cb43b in git for Singular/syz2.cc

Timestamp:

Jan 30, 2002, 3:33:07 PM (22 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

c658ed43f0faca30bee15dba7bad146606a58727

Parents:

70981176bc24302d6a91e9beb7523f2aec93937a

Message:

* hannes: icc-port (code cleanup)


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

File:

• Singular/syz2.cc (modified) (15 diffs)

Singular/syz2.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: syz2.cc,v 1.23 2001-08-27 14:47:42 Singular Exp $ */
+/* $Id: syz2.cc,v 1.24 2002-01-30 14:33:06 Singular Exp $ */
 /*
 * ABSTRACT: resolutions
@@ -82 +82 @@
   while ((l>0) && ((syzstr->resPairs[index])[l-1].lcm==NULL)) l--;
   rr = l-1;
-  while ((rr>=0) && (((syzstr->resPairs[index])[rr].p==NULL) ||
+  while ((rr>=0) && (((syzstr->resPairs[index])[rr].p==NULL) || 
         ((syzstr->resPairs[index])[rr].order>actdeg))) rr--;
-  r2 = rr+1;
+  r2 = rr+1; 
   while ((rr>=0) && ((syzstr->resPairs[index])[rr].order==actdeg)
          && ((syzstr->resPairs[index])[rr].syzind<0))
@@ -117 +117 @@
           if (tcp!=NULL)
           {
-            while ((tcp!=NULL) &&
+            while ((tcp!=NULL) && 
               ((tcp->first_poly!=i)||(tcp->second_poly!=r1))) tcp = tcp->next;
           }
@@ -128 +128 @@
             j = 0;
             while (j<i)
-            {
+            { 
               if (nP->m[j]!=NULL)
               {
@@ -169 +169 @@
                       while ((ti<l) && (((syzstr->resPairs[index])[ti].ind1!=j)||
                              ((syzstr->resPairs[index])[ti].ind2!=i))) ti++;
-                      if (ti<l)
+                      if (ti<l) 
                       {
 #ifdef SHOW_SPRFL
@@ -292 +292 @@
 {
   SObject tso;
+  memset(&tso,0,sizeof(tso));
   int l=(*syzstr->Tl)[index];
 
@@ -566 +567 @@
   while (kk>=0)
   {
-    if (toGo==0)
+    if (toGo==0) 
     {
       while (kk>=0)
@@ -612 +613 @@
         q = kBucketGetLm(syzstr->bucket);
         j = 0;
-        while (j<kres)
+        while (j<kres) 
         {
-          if ((redset[j].p!=NULL) && (pLmDivisibleBy(redset[j].p,q))
+          if ((redset[j].p!=NULL) && (pLmDivisibleBy(redset[j].p,q)) 
               && ((redset[j].ind1!=tso.ind1) || (redset[j].ind2!=tso.ind2)))
           {
@@ -756 +757 @@
       i = 0;
       delete spl1;
-      spl1 = ivStrip(spl2);
+      spl1 = ivStrip(spl2); 
       delete spl2;
       if (spl1!=NULL)
@@ -763 +764 @@
         kk = (*spl1)[i]-1;
       }
-    }
+    } 
 #endif
 #ifdef USE_HEURISTIC2
@@ -914 +915 @@
   for (i=1;i<=syzstr->length;i++)
   {
-    if (!idIs0(syzstr->orderedRes[i]))
+    if (!idIs0(syzstr->orderedRes[i])) 
     {
       toreor = syzstr->orderedRes[i];
@@ -927 +928 @@
         toreor->m[j] = NULL;
       }
-      m = 0;
+      m = 0; 
       for (j=0;j<togo;j++)
       {
@@ -948 +949 @@
 
 /*2
-* the CoCoA-algorithm for free resolutions, using a formula
+* the CoCoA-algorithm for free resolutions, using a formula 
 * for remaining pairs based on Hilbert-functions
 */
@@ -968 +969 @@
     return syzstr;
   }
-
+  
   // Creare dp,S ring and change to it
   syzstr->syRing = rCurrRingAssure_dp_C();
@@ -1082 +1083 @@
   kBucketDestroy(&(syzstr->bucket));
   kBucketDestroy(&(syzstr->syz_bucket));
-  if (origR != syzstr->syRing)
+  if (origR != syzstr->syRing)  
     rChangeCurrRing(origR);
   else