Changeset 9c0b20a in git for Singular/extra.cc

Timestamp:

Nov 25, 2010, 4:11:10 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '91e5db82acc17434e4062bcfa44e6efa7d41fd30')

Children:

488872b51cd1fa36918b12c9c2476c1edff62026

Parents:

c512d93f75cc91a718679d4a03b14439936966e2

Message:

LLL via system("LLL",M) for matrix (char 0)/intmat


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

File:

• Singular/extra.cc (modified) (1 diff)

Singular/extra.cc

@@ -3451 +3451 @@
       }
       else
+      if (strcmp(sys_cmd, "LLL") == 0)
+      {
+        if (h!=NULL)
+        {
+          res->rtyp=h->Typ();
+          if (h->Typ()==MATRIX_CMD)
+          {
+            res->data=(char *)singntl_LLL((matrix)h->Data());
+            return FALSE;
+          }
+          else if (h->Typ()==INTMAT_CMD)
+          {
+            res->data=(char *)singntl_LLL((intvec*)h->Data());
+            return FALSE;
+          }
+          else return TRUE;
+        }
+        else return TRUE;
+      }
+      else
   /*================= factoras =========================*/
       if (strcmp (sys_cmd, "factoras") == 0)