Changeset 7bab5d in git for Singular/ideals.cc

Timestamp:

Oct 27, 1999, 5:04:45 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

bbe0d8c8be70a9d889fbef7f37918ed72c3f6b92

Parents:

abb58ee79709ad9633f0606a39db51dcc34a20c2

Message:

* hannes: rank fixes etc.


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

File:

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

Singular/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.70 1999-10-25 08:32:15 obachman Exp $ */
+/* $Id: ideals.cc,v 1.71 1999-10-27 15:04:44 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -1102 +1102 @@
     length = 1;
   }
-  temp = idInit(IDELEMS(first),1);
   j = IDELEMS(first);
+  temp = idInit(j /*IDELEMS(first)*/,length+j);
 
   ring orig_ring=currRing;
@@ -1398 +1398 @@
   ring orig_ring=currRing;
   ring syz_ring=rAddSyzComp(currRing);
-  
-  
+
   pSetSyzComp(k);
 
@@ -1559 +1558 @@
   if (s_quot!=NULL) idDelete(&s_quot);
   idDelete(&s_h1);
-  
+
   if (syz_ring!=orig_ring)
     rChangeCurrRing(orig_ring,TRUE);
@@ -1573 +1572 @@
       q = pFetchCopyDelete(syz_ring, s_h2->m[j]);
       s_h2->m[j] = NULL;
-      
+
       while (q != NULL)
       {
@@ -2013 +2012 @@
     s_h3 = kStd(s_h4,currQuotient,hom,&weights1,NULL,kmax-1);
   }
-  if (resultIsIdeal)
-    s_h3->rank = 1;
-  else
-    s_h3->rank = h1->rank;
   idTest(s_h3);
   if (weights1!=NULL) delete weights1;
@@ -2041 +2036 @@
       pDelete(&h3->m[i]);
   }
+  if (resultIsIdeal)
+    h3->rank = 1;
+  else
+    h3->rank = h1->rank;
   if(syz_ring!=orig_ring)
   {
@@ -2955 +2954 @@
     length = 1;
   }
-  ideal temp = idInit(IDELEMS(h2),1);
+  ideal temp = idInit(IDELEMS(h2),length+IDELEMS(h2));
   for (i=0;i<IDELEMS(h2);i++)
   {