Changeset 628f563 in git

Timestamp:

Dec 16, 2021, 2:47:30 PM (2 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

c9351a51b8791c97541ae99d470ccb73718d03b9

Parents:

d0f41676ab81e97f36215dcae477cbd7b5ef45cf

Message:

system("rref",M)

Files:

• Singular/extra.cc (modified) (2 diffs)
• doc/reference.doc (modified) (previous)

Singular/extra.cc

@@ -1237 +1237 @@
     else
   #endif
+  #endif
+/* ====== rref ============================*/
+  #ifdef HAVE_FLINT
+  if(strcmp(sys_cmd,"rref")==0)
+  {
+    const short t1[]={1,MATRIX_CMD};
+    if (iiCheckTypes(h,t1,1))
+    {
+      matrix M=(matrix)h->Data();
+      res->data=(void*)singflint_rref(M,currRing);
+      res->rtyp=MATRIX_CMD;
+      return FALSE;
+    }
+    else
+    {
+      WerrorS("expected system(\"rref\",<matrix>)");
+      return TRUE;
+    }
+  }
+  else
   #endif
   /*==================== pcv ==================================*/
@@ -3918 +3938 @@
     }
     else
-/* ====== rref ============================*/
-    #ifdef HAVE_FLINT
-    if(strcmp(sys_cmd,"rref")==0)
-    {
-      const short t1[]={1,MATRIX_CMD};
-      if (iiCheckTypes(h,t1,1))
-      {
-        matrix M=(matrix)h->Data();
-        res->data=(void*)singflint_rref(M,currRing);
-        res->rtyp=MATRIX_CMD;
-        return FALSE;
-      }
-      else
-      {
-        WerrorS("expected system(\"fq_nmod_mat_rref\",<matrix>)");
-        return TRUE;
-      }
-    }
-    else
-    #endif
 /*==================== Error =================*/
       Werror( "(extended) system(\"%s\",...) %s", sys_cmd, feNotImplemented );