From 5af5a54db6b83c77a521d7602f454efb9d723bdc Mon Sep 17 00:00:00 2001
From: Franz Zotter <fzotter@users.sourceforge.net>
Date: Thu, 15 Jan 2009 11:13:32 +0000
Subject: corrected the dependency of [mtx_eig] on recent gsl versions

svn path=/trunk/externals/iem/iemmatrix/; revision=10557
---
 src/mtx_eig.c | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/mtx_eig.c')

diff --git a/src/mtx_eig.c b/src/mtx_eig.c
index 04dc068..5878078 100644
--- a/src/mtx_eig.c
+++ b/src/mtx_eig.c
@@ -26,7 +26,7 @@ typedef struct _MTXEig_ MTXEig;
 struct _MTXEig_
 {
   t_object x_obj;
-#ifdef HAVE_LIBGSL
+#ifdef HAVE_LIBGSL_EIGEN_NONSYMM
   gsl_matrix *a;
   gsl_matrix_complex *q;
   gsl_vector_complex *l;
@@ -45,7 +45,7 @@ struct _MTXEig_
   enum WithEigenVectors withevs;
 };
 
-#ifdef HAVE_LIBGSL
+#ifdef HAVE_LIBGSL_EIGEN_NONSYMM
 static void allocMTXqlw (MTXEig *x) 
 {
      x->a=(gsl_matrix*)gsl_matrix_alloc(x->size,x->size);
@@ -103,7 +103,7 @@ static void deleteMTXqlw (MTXEig *x)
 
 static void deleteMTXEig (MTXEig *x) 
 {
-#ifdef HAVE_LIBGSL
+#ifdef HAVE_LIBGSL_EIGEN_NONSYMM 
    deleteMTXqlw(x);
 #endif
 }
@@ -124,7 +124,7 @@ static void *newMTXEig (t_symbol *s, int argc, t_atom *argv)
   x->list_l_im = 0;
   x->list_q_re = 0; 
   x->list_q_im = 0; 
-#ifdef HAVE_LIBGSL
+#ifdef HAVE_LIBGSL_EIGEN_NONSYMM
   x->a=0;
   x->q=0;
   x->l=0;
@@ -159,7 +159,7 @@ static void mTXEigMatrix (MTXEig *x, t_symbol *s,
   int n,m;
   float f;
 
-#ifdef HAVE_LIBGSL
+#ifdef HAVE_LIBGSL_EIGEN_NONSYMM
   gsl_complex c;
   /* size check */
   if (!size) 
@@ -205,7 +205,7 @@ static void mTXEigMatrix (MTXEig *x, t_symbol *s,
     mTXEigBang(x);
   }
 #else
-    post("mtx_eig: implementation requires gsl");
+    post("mtx_eig: implementation requires more recent gsl version to handle nonsymmetric matrices");
 #endif
 
 }
-- 
cgit v1.2.1