Changeset cf29809 in git for Singular/iparith.cc

Timestamp:

Jun 30, 1997, 2:31:44 PM (27 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

c404887f96dfef9cbd021add3ee8d350244f6087

Parents:

7adb5028d58cd523bb79d18cb12bbde01aa25097

Message:

* hannes: changes to manual suggested by Christian Gorzel
       (doc/singular.doc)
       added libs of Martin Lamm (LIB/HNPuiseux.lib LIB/primitiv.lib)
       det(intmat) yields an error if m is not a square matrix
       minor(m,i) yields an error if i<=0
       minor optimization in error checking code of det/minor
       (clapsing.cc ideals.cc iparith.cc)


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

File:

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

Singular/iparith.cc

@@ -2281 +2281 @@
 static BOOLEAN jjDET_I(leftv res, leftv v)
 {
+  intvec * m=(intvec*)v->Data();
   int i,j;
-  intvec * m=(intvec*)v->Data();
-  res->data = (char *)singclap_det_i(m);
+  i=m->rows();j=m->cols();
+  if(i==j)
+    res->data = (char *)singclap_det_i(m);
+  else  
+  {
+    Werror("det of %d x %d intmat",i,j);
+    return TRUE;
+  }  
   return FALSE;
 }