Changeset db3570 in git for Singular/LIB

Timestamp:

Oct 8, 2010, 1:58:58 PM (14 years ago)

Author:

Santiago Laplagne <laplagne@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

16fba9ba0eeffb62ae953b25e4e83ce25dff0305

Parents:

f8b2a310b09d55aa1dd2adc60a173dc2996435c4

Message:

Fixed bug in positive characteristic.

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

File:

• Singular/LIB/integralbasis.lib (modified) (1 diff)

Singular/LIB/integralbasis.lib

@@ -177 +177 @@
 //--------------------- moving to a ring with dp ordering ---------------------
   if(ordstr(origR) != "dp(2),C"){
-    ring R = 0, (var(1), var(2)), dp;
+    // We change to dp ordering.
+    list rl = ringlist(origR);
+    list origOrd = rl[3];
+    list newOrd = list("dp", intvec(1:nvars(origR))), list("C", 0);
+    rl[3] = newOrd;
+    def R = ring(rl);
+    setring R;
     poly f = fetch(origR, f);
     ideal inputJ = fetch(origR, inputJ);