Changeset c8bd75 in git for Singular/kstd1.cc

Timestamp:

Apr 23, 1998, 11:52:15 AM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

d6fc3c5cb4a5d2eed49001686d571df819c5496b

Parents:

5079a04545e2a0f77d583f20b994866d68545a3b

Message:

 *hannes: minor fixes


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

File:

• Singular/kstd1.cc (modified) (8 diffs)

Singular/kstd1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd1.cc,v 1.19 1998-04-07 17:54:20 Singular Exp $ */
+/* $Id: kstd1.cc,v 1.20 1998-04-23 09:52:09 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -1644 +1644 @@
   initBuchMoraPos(strat);
   initMora(F,strat);
-  strat->spSpolyLoop = spGetSpolyLoop(currRing, 
+  strat->spSpolyLoop = spGetSpolyLoop(currRing,
                                       max(strat->ak,pMaxComp(q)),
                                       strat->syzComp, FALSE);
@@ -1739 +1739 @@
   strat->enterS = enterSMoraNF;
   /*- set T -*/
-  strat->spSpolyLoop = spGetSpolyLoop(currRing, 
+  strat->spSpolyLoop = spGetSpolyLoop(currRing,
                                       max(strat->ak,idRankFreeModule(q)),
                                       strat->syzComp, FALSE);
@@ -1846 +1846 @@
   )
   {
-    if (strat->ak == 0)       
-    {
-      h = (tHomog)idHomIdeal(F,Q);    
+    if (strat->ak == 0)
+    {
+      h = (tHomog)idHomIdeal(F,Q);
       w=NULL;
     }
     else
-      h = (tHomog)idHomModule(F,Q,w); 
-    //Print("test homog:%d\n",h);     
+      h = (tHomog)idHomModule(F,Q,w);
+    //Print("test homog:%d\n",h);
     //if ((h==isHomog)&&(w!=NULL)&&(*w!=NULL))
     //{
     //  (*w)->show();
     //  PrintLn();
-    //  if (F!=NULL) jjPRINT_MA0(idModule2Matrix(idCopy(F)),sNoName);   
+    //  if (F!=NULL) jjPRINT_MA0(idModule2Matrix(idCopy(F)),sNoName);
     //}
   }
@@ -1866 +1866 @@
   if (h==isHomog)
   {
-    if ((w!=NULL) && (*w!=NULL))      
+    if ((w!=NULL) && (*w!=NULL))
     {
       kModW = *w;
@@ -1883 +1883 @@
   {
     if (w!=NULL)
-      r=mora(F,Q,*w,hilb,strat);      
+      r=mora(F,Q,*w,hilb,strat);
     else
       r=mora(F,Q,NULL,hilb,strat);
@@ -2134 +2134 @@
     l->m[1].data=(void *)idInit(1,F->rank);
     Warn("no minimal generating set computed");
-  }  
+  }
   else
   {
@@ -2142 +2142 @@
   Free((ADDRESS)strat,sizeof(skStrategy));
   if (reduced>2)
-  {  
+  {
     Kstd1_deg=Kstd1_OldDeg;
     if (!oldDegBound)