Changeset 650ffc4 in git

Timestamp:

Jun 4, 1999, 3:07:30 PM (24 years ago)

Author:

Wilfred Pohl <pohl@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

f6b84b0c4cb0137f375cd3b08d4536f9b0c0c189

Parents:

9a596d7c3d7c58bebe3c8b5be18d45d256dff19c

Message:

det for sparse


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

File:

• Singular/iparith.cc (modified) (3 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.148 1999-05-19 11:41:48 Singular Exp $ */
+/* $Id: iparith.cc,v 1.149 1999-06-04 13:07:30 pohl Exp $ */
 
 /*
@@ -2463 +2463 @@
   return FALSE;
 }
+static BOOLEAN jjDET_S(leftv res, leftv v)
+{
+  ideal I=(ideal)v->Data();
+  poly p=smCallDet(I);
+  res->data = (char *)p;
+  return FALSE;
+}
 #endif
 static BOOLEAN jjDIM(leftv res, leftv v)
@@ -3392 +3399 @@
 ,{jjDET_I,      DET_CMD,         INT_CMD,        INTMAT_CMD }
 ,{jjDET,        DET_CMD,         POLY_CMD,       MATRIX_CMD }
+,{jjDET_S,      DET_CMD,         POLY_CMD,       MODUL_CMD }
 #else
 ,{jjWRONG,      DET_CMD,         INT_CMD,        INTMAT_CMD }