Changeset db19b8d in git

Timestamp:

Nov 7, 2000, 4:08:56 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

a3f7dfdce2de577c3894d03276b7bbf41384e113

Parents:

a3b7c05326658881f72fbcffc919c56723c0e96c

Message:

* hannes: rModilfyRing: case of dp and 1 var.


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

File:

• Singular/ring.cc (modified) (6 diffs)

Singular/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.136 2000-11-03 14:50:24 obachman Exp $ */
+/* $Id: ring.cc,v 1.137 2000-11-07 15:08:56 Singular Exp $ */
 
 /*
@@ -2392 +2392 @@
   {
     BOOLEAN copy_block_index=TRUE;
-    switch(r->order[i])
+    int r_ord=r->order[i];
+    if (r->block0[i]==r->block1[i])
+    {
+      switch(r_ord)
+      {
+        case ringorder_wp:
+        case ringorder_dp:
+        case ringorder_Wp:
+        case ringorder_Dp:
+          r_ord=ringorder_lp;
+          break;
+        case ringorder_Ws:
+        case ringorder_Ds:
+        case ringorder_ws:
+        case ringorder_ds:
+          r_ord=ringorder_ls;
+          break;
+        default:
+          break;
+      }
+    }
+    switch(r_ord)
     {
       case ringorder_C:
@@ -2398 +2419 @@
         if (!omit_comp)
         {
-          order[j]=r->order[i];
+          order[j]=r_ord; /*r->order[i]*/;
         }
         else
@@ -2414 +2435 @@
         if(!omit_degree)
         {
-          order[j]=r->order[i];
+          order[j]=r_ord; /*r->order[i]*/;
         }
         else
@@ -2429 +2450 @@
         if(!omit_degree)
         {
-          order[j]=r->order[i];
+          order[j]=r_ord; /*r->order[i];*/
         }
         else
@@ -2439 +2460 @@
         break;
       default:
-        order[j]=r->order[i];
+        order[j]=r_ord; /*r->order[i];*/
         break;
     }