Changeset 6635a7e in git

Timestamp:

Aug 5, 2004, 2:25:23 PM (20 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

550d7020534c41b68dbe968361d3a624c367387e

Parents:

d1a99e65513060101742439a6decd89e1ecb83aa

Message:

*levandov: myInt replaced


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

File:

• Singular/LIB/qmatrix.lib (modified) (2 diffs)

Singular/LIB/qmatrix.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: qmatrix.lib,v 1.4 2004-06-01 13:53:36 levandov Exp $";
+version="$Id: qmatrix.lib,v 1.5 2004-08-05 12:25:23 levandov Exp $";
 category="Noncommutative";
 info="
@@ -148 +148 @@
       m[i,nv+1-i]=1;
     }
-    int chr = myInt(#);
+    int chr = 0;
+    if ( size(#) > 0 )
+    {
+      if ( typeof( #[1] ) == "int" )
+      {
+        chr = #[1];
+      }
+    }
     ring @rrr=(0,q),(y(1..nv)),Dp;
     minpoly = RootOfUnity(chr);