From 4e0347379605425a02cb2323a30c0e9f0ad61dac Mon Sep 17 00:00:00 2001
From: Franz Zotter <fzotter@users.sourceforge.net>
Date: Mon, 21 Feb 2011 21:59:48 +0000
Subject: [mtx_bessel] extended to gsl/gsl_sf_bessel.h support

svn path=/trunk/externals/iem/iemmatrix/; revision=14939
---
 src/mtx_bessel.c | 25 ++++++++++++++++++++-----
 1 file changed, 20 insertions(+), 5 deletions(-)

(limited to 'src/mtx_bessel.c')

diff --git a/src/mtx_bessel.c b/src/mtx_bessel.c
index f17342f..458100c 100644
--- a/src/mtx_bessel.c
+++ b/src/mtx_bessel.c
@@ -16,6 +16,9 @@
 #include "iemmatrix.h"
 #include "math.h"
 #include <stdlib.h>
+#ifdef HAVE_GSL_BESSEL
+#include <gsl/gsl_sf_bessel.h>
+#endif
 
 static t_class *mtx_bessel_class;
 
@@ -121,7 +124,7 @@ static void mTXBesselMatrix (MTXBessel *x, t_symbol *s,
   int n,m,ofs;
 
 
-#ifdef HAVE_MATH_BESSEL
+#if defined HAVE_MATH_BESSEL || defined HAVE_GSL_BESSEL
 
   /* size check */
   if (!size) 
@@ -139,16 +142,28 @@ static void mTXBesselMatrix (MTXBessel *x, t_symbol *s,
      for (n=0;n<x->l;n++) {
         x->kr[n]=(double) atom_getfloat(argv+n);
      }
-  
+ 
+#ifdef HAVE_GSL_BESSEL 
      if (x->h_re!=0) 
         for (m=0;m<x->l;m++)
            for (n=0;n<x->nmax+1;n++)
-              x->h_re[n+m*(x->nmax+1)]=jnf(n,x->kr[m]);
+              x->h_re[n+m*(x->nmax+1)]=gsl_sf_bessel_Jn(n,x->kr[m]);
 
      if (x->h_im!=0) 
         for (m=0;m<x->l;m++)
            for (n=0;n<x->nmax+1;n++)
-              x->h_im[n+m*(x->nmax+1)]=ynf(n,x->kr[m]);
+              x->h_im[n+m*(x->nmax+1)]=gsl_sf_bessel_Yn(n,x->kr[m]);
+#else
+     if (x->h_re!=0) 
+        for (m=0;m<x->l;m++)
+           for (n=0;n<x->nmax+1;n++)
+              x->h_re[n+m*(x->nmax+1)]=jn(n,x->kr[m]);
+
+     if (x->h_im!=0) 
+        for (m=0;m<x->l;m++)
+           for (n=0;n<x->nmax+1;n++)
+              x->h_im[n+m*(x->nmax+1)]=yn(n,x->kr[m]);
+#endif
 
      
      if (x->h_re!=0) {
@@ -169,7 +184,7 @@ static void mTXBesselMatrix (MTXBessel *x, t_symbol *s,
   }
 
 #else
-  post("mtx_bessel: implementation requires math.h that implements jnf and ynf Bessel functions");
+  post("mtx_bessel: implementation requires math.h that implements jn and yn Bessel functions or gsl_sf_bessel.h");
 #endif
 }
 
-- 
cgit v1.2.1