Changeset 07969d in git

Timestamp:

Jan 18, 2010, 2:18:20 PM (13 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

a01d50fc3b92a3003a532add6e1a65254adbd29e

Parents:

a0db9e2da8bb9de2698f9dc20fcd535934ff9b39

Message:

idChineseRemainder for matrices

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

File:

• kernel/ideals.cc (modified) (1 diff)

kernel/ideals.cc

@@ -4005 +4005 @@
 ideal idChineseRemainder(ideal *xx, number *q, int rl)
 {
-  ideal result=idInit(IDELEMS(xx[0]),xx[0]->rank);
+  int cnt=IDELEMS(xx[0])*xx[0]->nrows;
+  ideal result=idInit(cnt,xx[0]->rank);
+  result->nrows=xx[0]->nrows; // for lifting matrices
+  result->ncols=xx[0]->ncols; // for lifting matrices
   int i,j;
   poly r,h,hh,res_p;
   number *x=(number *)omAlloc(rl*sizeof(number));
-  for(i=IDELEMS(result)-1;i>=0;i--)
+  for(i=cnt-1;i>=0;i--)
   {
     res_p=NULL;