Changeset 0ebbcf4 in git

Timestamp:

Mar 8, 2002, 10:40:44 AM (21 years ago)

Author:

Mathias Schulze <mschulze@…>

Branches:

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

Children:

a8ddefa37127dd97a188f5d1739f73d7cec979dd

Parents:

215349cc6c5103c2290b07ec94c9d415bf517d9a

Message:

*mschulze: problem with 0-matrix in jordan procs


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

File:

• Singular/LIB/linalg.lib (modified) (4 diffs)

Singular/LIB/linalg.lib

@@ -1 +1 @@
 //GMG last modified: 04/25/2000
 //////////////////////////////////////////////////////////////////////////////
-version="$Id: linalg.lib,v 1.26 2002-03-06 16:38:54 mschulze Exp $";
+version="$Id: linalg.lib,v 1.27 2002-03-08 09:40:44 mschulze Exp $";
 category="Linear Algebra";
 info="
@@ -1543 +1543 @@
   for(i=1;i<=ncols(e0);i++)
   {
-    N0=M-e0[i]*freemodule(ncols(M));
+    N0=M-e0[i]*matrix(freemodule(ncols(M)));
 
     N1=N0;
@@ -1617 +1617 @@
   for(int i=1;i<=ncols(e);i++)
   {
-    if(deg(e[i]>0))
+    if(deg(e[i])>0)
     {
       ERROR("eigenvalues in coefficient field expected");
@@ -1634 +1634 @@
   for(i=1;i<=ncols(e);i++)
   {
-    N0=M-e[i]*freemodule(ncols(M));
+    N0=M-e[i]*matrix(freemodule(ncols(M)));
 
     N1=N0;