Changeset d36f7f in git

Timestamp:

May 25, 2000, 1:44:57 PM (24 years ago)

Author:

Gerhard Pfister <pfister@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

1e014db427932961dae4142a40ed36d2f9cfc371

Parents:

e762aa7102176256bbb9d4ba9809f356f0a1f5ea

Message:

bug in decomp behoben @w jetzt intvec


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

File:

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

Singular/LIB/primdec.lib

@@ -1 @@
-// $Id: primdec.lib,v 1.72 2000-05-25 11:22:19 pfister Exp $
+// $Id: primdec.lib,v 1.73 2000-05-25 11:44:57 pfister Exp $
 ///////////////////////////////////////////////////////////////////////////////
 // primdec.lib                                                               //
@@ -11 +11 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: primdec.lib,v 1.72 2000-05-25 11:22:19 pfister Exp $";
+version="$Id: primdec.lib,v 1.73 2000-05-25 11:44:57 pfister Exp $";
 info="
 LIBRARY: primdec.lib   PROCEDURES FOR PRIMARY DECOMPOSITION
@@ -1999 +1999 @@
   def  @P = basering;
   list primary,indep,ltras;
-  intvec @vh,isat;
-  int @wr,@k,@n,@m,@n1,@n2,@n3,homo,seri,keepdi,@w;
+  intvec @vh,isat,@w;
+  int @wr,@k,@n,@m,@n1,@n2,@n3,homo,seri,keepdi;
   ideal peek=i;
   ideal ser,tras;
@@ -2050 +2050 @@
         return(primary);
      }
-     for(n=1;n<=nvars(basering);n++)
-     {
-        @w[n]=ord(var(n));
+     for(@n=1;@n<=nvars(basering);@n++)
+     {
+        @w[@n]=ord(var(@n));
      }
      intvec @hilb=hilb(tras,1,@w);