[PD-cvs] SF.net SVN: pure-data:[10558] trunk/externals/iem/iemmatrix/src
fzotter at users.sourceforge.net
fzotter at users.sourceforge.net
Thu Jan 15 12:44:23 CET 2009
Revision: 10558
http://pure-data.svn.sourceforge.net/pure-data/?rev=10558&view=rev
Author: fzotter
Date: 2009-01-15 11:44:21 +0000 (Thu, 15 Jan 2009)
Log Message:
-----------
considered dependency of [mtx_eig] for complex eigenvalues on recent gsl versions
Modified Paths:
--------------
trunk/externals/iem/iemmatrix/src/config.h.in
trunk/externals/iem/iemmatrix/src/configure.ac
trunk/externals/iem/iemmatrix/src/mtx_eig.c
Modified: trunk/externals/iem/iemmatrix/src/config.h.in
===================================================================
--- trunk/externals/iem/iemmatrix/src/config.h.in 2009-01-15 11:13:32 UTC (rev 10557)
+++ trunk/externals/iem/iemmatrix/src/config.h.in 2009-01-15 11:44:21 UTC (rev 10558)
@@ -10,5 +10,9 @@
/* do we have libgsl installed? */
#undef HAVE_LIBGSL
+/* can libgsl compute complex eigenvalues? */
+#undef HAVE_GSL_EIGEN_NONSYMM
+
+
#endif /* CONFIG_H_ */
Modified: trunk/externals/iem/iemmatrix/src/configure.ac
===================================================================
--- trunk/externals/iem/iemmatrix/src/configure.ac 2009-01-15 11:13:32 UTC (rev 10557)
+++ trunk/externals/iem/iemmatrix/src/configure.ac 2009-01-15 11:44:21 UTC (rev 10558)
@@ -76,7 +76,7 @@
dnl AC_CHECK_LIB([m], [cos])
AC_CHECK_LIB([gslcblas], [cblas_dgemm])
AC_CHECK_LIB([gsl], [gsl_blas_dgemm])
-AC_CHECK_FUNCS([gsl], [gsl_eigen_nonsymm], )
+AC_CHECK_LIB([gsl], [gsl_eigen_nonsymm],AC_DEFINE(HAVE_GSL_EIGEN_NONSYMM,1,[can gsl compute complex eigenvalues?]))
if test "x$with_pd" != "x"; then
Modified: trunk/externals/iem/iemmatrix/src/mtx_eig.c
===================================================================
--- trunk/externals/iem/iemmatrix/src/mtx_eig.c 2009-01-15 11:13:32 UTC (rev 10557)
+++ trunk/externals/iem/iemmatrix/src/mtx_eig.c 2009-01-15 11:44:21 UTC (rev 10558)
@@ -26,7 +26,7 @@
struct _MTXEig_
{
t_object x_obj;
-#ifdef HAVE_LIBGSL_EIGEN_NONSYMM
+#ifdef HAVE_GSL_EIGEN_NONSYMM
gsl_matrix *a;
gsl_matrix_complex *q;
gsl_vector_complex *l;
@@ -45,7 +45,7 @@
enum WithEigenVectors withevs;
};
-#ifdef HAVE_LIBGSL_EIGEN_NONSYMM
+#ifdef HAVE_GSL_EIGEN_NONSYMM
static void allocMTXqlw (MTXEig *x)
{
x->a=(gsl_matrix*)gsl_matrix_alloc(x->size,x->size);
@@ -103,7 +103,7 @@
static void deleteMTXEig (MTXEig *x)
{
-#ifdef HAVE_LIBGSL_EIGEN_NONSYMM
+#ifdef HAVE_GSL_EIGEN_NONSYMM
deleteMTXqlw(x);
#endif
}
@@ -124,7 +124,7 @@
x->list_l_im = 0;
x->list_q_re = 0;
x->list_q_im = 0;
-#ifdef HAVE_LIBGSL_EIGEN_NONSYMM
+#ifdef HAVE_GSL_EIGEN_NONSYMM
x->a=0;
x->q=0;
x->l=0;
@@ -159,7 +159,7 @@
int n,m;
float f;
-#ifdef HAVE_LIBGSL_EIGEN_NONSYMM
+#ifdef HAVE_GSL_EIGEN_NONSYMM
gsl_complex c;
/* size check */
if (!size)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
More information about the Pd-cvs
mailing list