Changeset 16262b7 in git

Timestamp:

May 4, 1998, 1:38:57 PM (25 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

bfa2f0a2efa10018731a15f33e610bc213c178f0

Parents:

b1e0d728de187e7f8d741366a8168300b783b9cd

Message:

*idCoeffOfKBase: Corrected dimensions of output matrix, s.t. rows =
size(arg), cols = size(kBase)


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

File:

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

Singular/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.23 1998-04-29 07:05:25 siebert Exp $ */
+/* $Id: ideals.cc,v 1.24 1998-05-04 11:38:57 obachman Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -2933 +2933 @@
   intvec * convert;
   int i=IDELEMS(kbase),j=IDELEMS(arg),k,pos;
-
+#if 0
   while ((i>0) && (kbase->m[i-1]==NULL)) i--;
   if (idIs0(arg))
@@ -2939 +2939 @@
   while ((j>0) && (arg->m[j-1]==NULL)) j--;
   result = mpNew(i,j);
+#else
+  result = mpNew(i, j);
+  while ((j>0) && (arg->m[j-1]==NULL)) j--;
+#endif
+
   tempKbase = idCreateSpecialKbase(kbase,&convert);
   for (k=0;k<j;k++)