From ead458786713d4b66933938b304886f629179613 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sat, 16 May 2009 17:40:44 +0000 Subject: headers removed in GSL Special functions --- lib/Numeric/GSL/Special/Airy.hs | 48 ++++---- lib/Numeric/GSL/Special/Bessel.hs | 200 ++++++++++++++++----------------- lib/Numeric/GSL/Special/Clausen.hs | 4 +- lib/Numeric/GSL/Special/Coulomb.hs | 22 ++-- lib/Numeric/GSL/Special/Coupling.hs | 20 ++-- lib/Numeric/GSL/Special/Dawson.hs | 4 +- lib/Numeric/GSL/Special/Debye.hs | 24 ++-- lib/Numeric/GSL/Special/Dilog.hs | 10 +- lib/Numeric/GSL/Special/Elementary.hs | 6 +- lib/Numeric/GSL/Special/Ellint.hs | 48 ++++---- lib/Numeric/GSL/Special/Erf.hs | 24 ++-- lib/Numeric/GSL/Special/Exp.hs | 44 +++++--- lib/Numeric/GSL/Special/Expint.hs | 80 +++++++++---- lib/Numeric/GSL/Special/Fermi_dirac.hs | 36 +++--- lib/Numeric/GSL/Special/Gamma.hs | 88 +++++++-------- lib/Numeric/GSL/Special/Gegenbauer.hs | 18 +-- lib/Numeric/GSL/Special/Hyperg.hs | 44 ++++---- lib/Numeric/GSL/Special/Laguerre.hs | 16 +-- lib/Numeric/GSL/Special/Lambert.hs | 8 +- lib/Numeric/GSL/Special/Legendre.hs | 88 +++++++-------- lib/Numeric/GSL/Special/Log.hs | 18 +-- lib/Numeric/GSL/Special/Pow_int.hs | 4 +- lib/Numeric/GSL/Special/Psi.hs | 26 ++--- lib/Numeric/GSL/Special/Synchrotron.hs | 8 +- lib/Numeric/GSL/Special/Trig.hs | 50 ++++----- lib/Numeric/GSL/Special/Zeta.hs | 28 ++--- lib/Numeric/GSL/Special/airy.h | 24 ---- lib/Numeric/GSL/Special/auto.hs | 4 +- lib/Numeric/GSL/Special/bessel.h | 100 ----------------- lib/Numeric/GSL/Special/clausen.h | 2 - lib/Numeric/GSL/Special/coulomb.h | 11 -- lib/Numeric/GSL/Special/coupling.h | 10 -- lib/Numeric/GSL/Special/dawson.h | 2 - lib/Numeric/GSL/Special/debye.h | 12 -- lib/Numeric/GSL/Special/dilog.h | 5 - lib/Numeric/GSL/Special/elementary.h | 3 - lib/Numeric/GSL/Special/ellint.h | 24 ---- lib/Numeric/GSL/Special/erf.h | 12 -- lib/Numeric/GSL/Special/exp.h | 18 --- lib/Numeric/GSL/Special/expint.h | 24 ---- lib/Numeric/GSL/Special/fermi_dirac.h | 18 --- lib/Numeric/GSL/Special/gamma.h | 44 -------- lib/Numeric/GSL/Special/gegenbauer.h | 9 -- lib/Numeric/GSL/Special/hyperg.h | 22 ---- lib/Numeric/GSL/Special/laguerre.h | 8 -- lib/Numeric/GSL/Special/lambert.h | 4 - lib/Numeric/GSL/Special/legendre.h | 44 -------- lib/Numeric/GSL/Special/log.h | 9 -- lib/Numeric/GSL/Special/pow_int.h | 2 - lib/Numeric/GSL/Special/psi.h | 13 --- lib/Numeric/GSL/Special/synchrotron.h | 4 - lib/Numeric/GSL/Special/trig.h | 25 ----- lib/Numeric/GSL/Special/zeta.h | 14 --- 53 files changed, 505 insertions(+), 928 deletions(-) delete mode 100644 lib/Numeric/GSL/Special/airy.h delete mode 100644 lib/Numeric/GSL/Special/bessel.h delete mode 100644 lib/Numeric/GSL/Special/clausen.h delete mode 100644 lib/Numeric/GSL/Special/coulomb.h delete mode 100644 lib/Numeric/GSL/Special/coupling.h delete mode 100644 lib/Numeric/GSL/Special/dawson.h delete mode 100644 lib/Numeric/GSL/Special/debye.h delete mode 100644 lib/Numeric/GSL/Special/dilog.h delete mode 100644 lib/Numeric/GSL/Special/elementary.h delete mode 100644 lib/Numeric/GSL/Special/ellint.h delete mode 100644 lib/Numeric/GSL/Special/erf.h delete mode 100644 lib/Numeric/GSL/Special/exp.h delete mode 100644 lib/Numeric/GSL/Special/expint.h delete mode 100644 lib/Numeric/GSL/Special/fermi_dirac.h delete mode 100644 lib/Numeric/GSL/Special/gamma.h delete mode 100644 lib/Numeric/GSL/Special/gegenbauer.h delete mode 100644 lib/Numeric/GSL/Special/hyperg.h delete mode 100644 lib/Numeric/GSL/Special/laguerre.h delete mode 100644 lib/Numeric/GSL/Special/lambert.h delete mode 100644 lib/Numeric/GSL/Special/legendre.h delete mode 100644 lib/Numeric/GSL/Special/log.h delete mode 100644 lib/Numeric/GSL/Special/pow_int.h delete mode 100644 lib/Numeric/GSL/Special/psi.h delete mode 100644 lib/Numeric/GSL/Special/synchrotron.h delete mode 100644 lib/Numeric/GSL/Special/trig.h delete mode 100644 lib/Numeric/GSL/Special/zeta.h (limited to 'lib') diff --git a/lib/Numeric/GSL/Special/Airy.hs b/lib/Numeric/GSL/Special/Airy.hs index 43b0576..80e98f4 100644 --- a/lib/Numeric/GSL/Special/Airy.hs +++ b/lib/Numeric/GSL/Special/Airy.hs @@ -51,165 +51,165 @@ import Numeric.GSL.Special.Internal -- airy_Ai_e :: Double -> Precision -> (Double,Double) airy_Ai_e x mode = createSFR "airy_Ai_e" $ gsl_sf_airy_Ai_e x (precCode mode) -foreign import ccall "airy.h gsl_sf_airy_Ai_e" gsl_sf_airy_Ai_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_airy_Ai_e" gsl_sf_airy_Ai_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_airy_Ai(double x,gsl_mode_t mode); -- -- airy_Ai :: Double -> Precision -> Double airy_Ai x mode = gsl_sf_airy_Ai x (precCode mode) -foreign import ccall "airy.h gsl_sf_airy_Ai" gsl_sf_airy_Ai :: Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_airy_Ai" gsl_sf_airy_Ai :: Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_airy_Bi_e(double x,gsl_mode_t mode,gsl_sf_result* result); -- -- airy_Bi_e :: Double -> Precision -> (Double,Double) airy_Bi_e x mode = createSFR "airy_Bi_e" $ gsl_sf_airy_Bi_e x (precCode mode) -foreign import ccall "airy.h gsl_sf_airy_Bi_e" gsl_sf_airy_Bi_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_airy_Bi_e" gsl_sf_airy_Bi_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_airy_Bi(double x,gsl_mode_t mode); -- -- airy_Bi :: Double -> Precision -> Double airy_Bi x mode = gsl_sf_airy_Bi x (precCode mode) -foreign import ccall "airy.h gsl_sf_airy_Bi" gsl_sf_airy_Bi :: Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_airy_Bi" gsl_sf_airy_Bi :: Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_airy_Ai_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result); -- -- airy_Ai_scaled_e :: Double -> Precision -> (Double,Double) airy_Ai_scaled_e x mode = createSFR "airy_Ai_scaled_e" $ gsl_sf_airy_Ai_scaled_e x (precCode mode) -foreign import ccall "airy.h gsl_sf_airy_Ai_scaled_e" gsl_sf_airy_Ai_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_airy_Ai_scaled_e" gsl_sf_airy_Ai_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_airy_Ai_scaled(double x,gsl_mode_t mode); -- -- airy_Ai_scaled :: Double -> Precision -> Double airy_Ai_scaled x mode = gsl_sf_airy_Ai_scaled x (precCode mode) -foreign import ccall "airy.h gsl_sf_airy_Ai_scaled" gsl_sf_airy_Ai_scaled :: Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_airy_Ai_scaled" gsl_sf_airy_Ai_scaled :: Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_airy_Bi_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result); -- -- airy_Bi_scaled_e :: Double -> Precision -> (Double,Double) airy_Bi_scaled_e x mode = createSFR "airy_Bi_scaled_e" $ gsl_sf_airy_Bi_scaled_e x (precCode mode) -foreign import ccall "airy.h gsl_sf_airy_Bi_scaled_e" gsl_sf_airy_Bi_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_airy_Bi_scaled_e" gsl_sf_airy_Bi_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_airy_Bi_scaled(double x,gsl_mode_t mode); -- -- airy_Bi_scaled :: Double -> Precision -> Double airy_Bi_scaled x mode = gsl_sf_airy_Bi_scaled x (precCode mode) -foreign import ccall "airy.h gsl_sf_airy_Bi_scaled" gsl_sf_airy_Bi_scaled :: Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_airy_Bi_scaled" gsl_sf_airy_Bi_scaled :: Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_airy_Ai_deriv_e(double x,gsl_mode_t mode,gsl_sf_result* result); -- -- airy_Ai_deriv_e :: Double -> Precision -> (Double,Double) airy_Ai_deriv_e x mode = createSFR "airy_Ai_deriv_e" $ gsl_sf_airy_Ai_deriv_e x (precCode mode) -foreign import ccall "airy.h gsl_sf_airy_Ai_deriv_e" gsl_sf_airy_Ai_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_airy_Ai_deriv_e" gsl_sf_airy_Ai_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_airy_Ai_deriv(double x,gsl_mode_t mode); -- -- airy_Ai_deriv :: Double -> Precision -> Double airy_Ai_deriv x mode = gsl_sf_airy_Ai_deriv x (precCode mode) -foreign import ccall "airy.h gsl_sf_airy_Ai_deriv" gsl_sf_airy_Ai_deriv :: Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_airy_Ai_deriv" gsl_sf_airy_Ai_deriv :: Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_airy_Bi_deriv_e(double x,gsl_mode_t mode,gsl_sf_result* result); -- -- airy_Bi_deriv_e :: Double -> Precision -> (Double,Double) airy_Bi_deriv_e x mode = createSFR "airy_Bi_deriv_e" $ gsl_sf_airy_Bi_deriv_e x (precCode mode) -foreign import ccall "airy.h gsl_sf_airy_Bi_deriv_e" gsl_sf_airy_Bi_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_airy_Bi_deriv_e" gsl_sf_airy_Bi_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_airy_Bi_deriv(double x,gsl_mode_t mode); -- -- airy_Bi_deriv :: Double -> Precision -> Double airy_Bi_deriv x mode = gsl_sf_airy_Bi_deriv x (precCode mode) -foreign import ccall "airy.h gsl_sf_airy_Bi_deriv" gsl_sf_airy_Bi_deriv :: Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_airy_Bi_deriv" gsl_sf_airy_Bi_deriv :: Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_airy_Ai_deriv_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result); -- -- airy_Ai_deriv_scaled_e :: Double -> Precision -> (Double,Double) airy_Ai_deriv_scaled_e x mode = createSFR "airy_Ai_deriv_scaled_e" $ gsl_sf_airy_Ai_deriv_scaled_e x (precCode mode) -foreign import ccall "airy.h gsl_sf_airy_Ai_deriv_scaled_e" gsl_sf_airy_Ai_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_airy_Ai_deriv_scaled_e" gsl_sf_airy_Ai_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_airy_Ai_deriv_scaled(double x,gsl_mode_t mode); -- -- airy_Ai_deriv_scaled :: Double -> Precision -> Double airy_Ai_deriv_scaled x mode = gsl_sf_airy_Ai_deriv_scaled x (precCode mode) -foreign import ccall "airy.h gsl_sf_airy_Ai_deriv_scaled" gsl_sf_airy_Ai_deriv_scaled :: Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_airy_Ai_deriv_scaled" gsl_sf_airy_Ai_deriv_scaled :: Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_airy_Bi_deriv_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result); -- -- airy_Bi_deriv_scaled_e :: Double -> Precision -> (Double,Double) airy_Bi_deriv_scaled_e x mode = createSFR "airy_Bi_deriv_scaled_e" $ gsl_sf_airy_Bi_deriv_scaled_e x (precCode mode) -foreign import ccall "airy.h gsl_sf_airy_Bi_deriv_scaled_e" gsl_sf_airy_Bi_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_airy_Bi_deriv_scaled_e" gsl_sf_airy_Bi_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_airy_Bi_deriv_scaled(double x,gsl_mode_t mode); -- -- airy_Bi_deriv_scaled :: Double -> Precision -> Double airy_Bi_deriv_scaled x mode = gsl_sf_airy_Bi_deriv_scaled x (precCode mode) -foreign import ccall "airy.h gsl_sf_airy_Bi_deriv_scaled" gsl_sf_airy_Bi_deriv_scaled :: Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_airy_Bi_deriv_scaled" gsl_sf_airy_Bi_deriv_scaled :: Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_airy_zero_Ai_e(int s,gsl_sf_result* result); -- -- airy_zero_Ai_e :: CInt -> (Double,Double) airy_zero_Ai_e s = createSFR "airy_zero_Ai_e" $ gsl_sf_airy_zero_Ai_e s -foreign import ccall "airy.h gsl_sf_airy_zero_Ai_e" gsl_sf_airy_zero_Ai_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_airy_zero_Ai_e" gsl_sf_airy_zero_Ai_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_airy_zero_Ai(int s); -- -- airy_zero_Ai :: CInt -> Double airy_zero_Ai = gsl_sf_airy_zero_Ai -foreign import ccall "airy.h gsl_sf_airy_zero_Ai" gsl_sf_airy_zero_Ai :: CInt -> Double +foreign import ccall "gsl_sf_airy_zero_Ai" gsl_sf_airy_zero_Ai :: CInt -> Double -- | wrapper for int gsl_sf_airy_zero_Bi_e(int s,gsl_sf_result* result); -- -- airy_zero_Bi_e :: CInt -> (Double,Double) airy_zero_Bi_e s = createSFR "airy_zero_Bi_e" $ gsl_sf_airy_zero_Bi_e s -foreign import ccall "airy.h gsl_sf_airy_zero_Bi_e" gsl_sf_airy_zero_Bi_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_airy_zero_Bi_e" gsl_sf_airy_zero_Bi_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_airy_zero_Bi(int s); -- -- airy_zero_Bi :: CInt -> Double airy_zero_Bi = gsl_sf_airy_zero_Bi -foreign import ccall "airy.h gsl_sf_airy_zero_Bi" gsl_sf_airy_zero_Bi :: CInt -> Double +foreign import ccall "gsl_sf_airy_zero_Bi" gsl_sf_airy_zero_Bi :: CInt -> Double -- | wrapper for int gsl_sf_airy_zero_Ai_deriv_e(int s,gsl_sf_result* result); -- -- airy_zero_Ai_deriv_e :: CInt -> (Double,Double) airy_zero_Ai_deriv_e s = createSFR "airy_zero_Ai_deriv_e" $ gsl_sf_airy_zero_Ai_deriv_e s -foreign import ccall "airy.h gsl_sf_airy_zero_Ai_deriv_e" gsl_sf_airy_zero_Ai_deriv_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_airy_zero_Ai_deriv_e" gsl_sf_airy_zero_Ai_deriv_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_airy_zero_Ai_deriv(int s); -- -- airy_zero_Ai_deriv :: CInt -> Double airy_zero_Ai_deriv = gsl_sf_airy_zero_Ai_deriv -foreign import ccall "airy.h gsl_sf_airy_zero_Ai_deriv" gsl_sf_airy_zero_Ai_deriv :: CInt -> Double +foreign import ccall "gsl_sf_airy_zero_Ai_deriv" gsl_sf_airy_zero_Ai_deriv :: CInt -> Double -- | wrapper for int gsl_sf_airy_zero_Bi_deriv_e(int s,gsl_sf_result* result); -- -- airy_zero_Bi_deriv_e :: CInt -> (Double,Double) airy_zero_Bi_deriv_e s = createSFR "airy_zero_Bi_deriv_e" $ gsl_sf_airy_zero_Bi_deriv_e s -foreign import ccall "airy.h gsl_sf_airy_zero_Bi_deriv_e" gsl_sf_airy_zero_Bi_deriv_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_airy_zero_Bi_deriv_e" gsl_sf_airy_zero_Bi_deriv_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_airy_zero_Bi_deriv(int s); -- -- airy_zero_Bi_deriv :: CInt -> Double airy_zero_Bi_deriv = gsl_sf_airy_zero_Bi_deriv -foreign import ccall "airy.h gsl_sf_airy_zero_Bi_deriv" gsl_sf_airy_zero_Bi_deriv :: CInt -> Double +foreign import ccall "gsl_sf_airy_zero_Bi_deriv" gsl_sf_airy_zero_Bi_deriv :: CInt -> Double diff --git a/lib/Numeric/GSL/Special/Bessel.hs b/lib/Numeric/GSL/Special/Bessel.hs index 0340d24..d5df69b 100644 --- a/lib/Numeric/GSL/Special/Bessel.hs +++ b/lib/Numeric/GSL/Special/Bessel.hs @@ -114,697 +114,697 @@ import Numeric.GSL.Special.Internal -- bessel_J0_e :: Double -> (Double,Double) bessel_J0_e x = createSFR "bessel_J0_e" $ gsl_sf_bessel_J0_e x -foreign import ccall "bessel.h gsl_sf_bessel_J0_e" gsl_sf_bessel_J0_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_J0_e" gsl_sf_bessel_J0_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_J0(double x); -- -- bessel_J0 :: Double -> Double bessel_J0 = gsl_sf_bessel_J0 -foreign import ccall "bessel.h gsl_sf_bessel_J0" gsl_sf_bessel_J0 :: Double -> Double +foreign import ccall "gsl_sf_bessel_J0" gsl_sf_bessel_J0 :: Double -> Double -- | wrapper for int gsl_sf_bessel_J1_e(double x,gsl_sf_result* result); -- -- bessel_J1_e :: Double -> (Double,Double) bessel_J1_e x = createSFR "bessel_J1_e" $ gsl_sf_bessel_J1_e x -foreign import ccall "bessel.h gsl_sf_bessel_J1_e" gsl_sf_bessel_J1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_J1_e" gsl_sf_bessel_J1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_J1(double x); -- -- bessel_J1 :: Double -> Double bessel_J1 = gsl_sf_bessel_J1 -foreign import ccall "bessel.h gsl_sf_bessel_J1" gsl_sf_bessel_J1 :: Double -> Double +foreign import ccall "gsl_sf_bessel_J1" gsl_sf_bessel_J1 :: Double -> Double -- | wrapper for int gsl_sf_bessel_Jn_e(int n,double x,gsl_sf_result* result); -- -- bessel_Jn_e :: CInt -> Double -> (Double,Double) bessel_Jn_e n x = createSFR "bessel_Jn_e" $ gsl_sf_bessel_Jn_e n x -foreign import ccall "bessel.h gsl_sf_bessel_Jn_e" gsl_sf_bessel_Jn_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_Jn_e" gsl_sf_bessel_Jn_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_Jn(int n,double x); -- -- bessel_Jn :: CInt -> Double -> Double bessel_Jn = gsl_sf_bessel_Jn -foreign import ccall "bessel.h gsl_sf_bessel_Jn" gsl_sf_bessel_Jn :: CInt -> Double -> Double +foreign import ccall "gsl_sf_bessel_Jn" gsl_sf_bessel_Jn :: CInt -> Double -> Double -- | wrapper for int gsl_sf_bessel_Jn_array(int nmin,int nmax,double x,double* result_array); -- -- bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt bessel_Jn_array = gsl_sf_bessel_Jn_array -foreign import ccall "bessel.h gsl_sf_bessel_Jn_array" gsl_sf_bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_bessel_Jn_array" gsl_sf_bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_bessel_Y0_e(double x,gsl_sf_result* result); -- -- bessel_Y0_e :: Double -> (Double,Double) bessel_Y0_e x = createSFR "bessel_Y0_e" $ gsl_sf_bessel_Y0_e x -foreign import ccall "bessel.h gsl_sf_bessel_Y0_e" gsl_sf_bessel_Y0_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_Y0_e" gsl_sf_bessel_Y0_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_Y0(double x); -- -- bessel_Y0 :: Double -> Double bessel_Y0 = gsl_sf_bessel_Y0 -foreign import ccall "bessel.h gsl_sf_bessel_Y0" gsl_sf_bessel_Y0 :: Double -> Double +foreign import ccall "gsl_sf_bessel_Y0" gsl_sf_bessel_Y0 :: Double -> Double -- | wrapper for int gsl_sf_bessel_Y1_e(double x,gsl_sf_result* result); -- -- bessel_Y1_e :: Double -> (Double,Double) bessel_Y1_e x = createSFR "bessel_Y1_e" $ gsl_sf_bessel_Y1_e x -foreign import ccall "bessel.h gsl_sf_bessel_Y1_e" gsl_sf_bessel_Y1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_Y1_e" gsl_sf_bessel_Y1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_Y1(double x); -- -- bessel_Y1 :: Double -> Double bessel_Y1 = gsl_sf_bessel_Y1 -foreign import ccall "bessel.h gsl_sf_bessel_Y1" gsl_sf_bessel_Y1 :: Double -> Double +foreign import ccall "gsl_sf_bessel_Y1" gsl_sf_bessel_Y1 :: Double -> Double -- | wrapper for int gsl_sf_bessel_Yn_e(int n,double x,gsl_sf_result* result); -- -- bessel_Yn_e :: CInt -> Double -> (Double,Double) bessel_Yn_e n x = createSFR "bessel_Yn_e" $ gsl_sf_bessel_Yn_e n x -foreign import ccall "bessel.h gsl_sf_bessel_Yn_e" gsl_sf_bessel_Yn_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_Yn_e" gsl_sf_bessel_Yn_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_Yn(int n,double x); -- -- bessel_Yn :: CInt -> Double -> Double bessel_Yn = gsl_sf_bessel_Yn -foreign import ccall "bessel.h gsl_sf_bessel_Yn" gsl_sf_bessel_Yn :: CInt -> Double -> Double +foreign import ccall "gsl_sf_bessel_Yn" gsl_sf_bessel_Yn :: CInt -> Double -> Double -- | wrapper for int gsl_sf_bessel_Yn_array(int nmin,int nmax,double x,double* result_array); -- -- bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt bessel_Yn_array = gsl_sf_bessel_Yn_array -foreign import ccall "bessel.h gsl_sf_bessel_Yn_array" gsl_sf_bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_bessel_Yn_array" gsl_sf_bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_bessel_I0_e(double x,gsl_sf_result* result); -- -- bessel_I0_e :: Double -> (Double,Double) bessel_I0_e x = createSFR "bessel_I0_e" $ gsl_sf_bessel_I0_e x -foreign import ccall "bessel.h gsl_sf_bessel_I0_e" gsl_sf_bessel_I0_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_I0_e" gsl_sf_bessel_I0_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_I0(double x); -- -- bessel_I0 :: Double -> Double bessel_I0 = gsl_sf_bessel_I0 -foreign import ccall "bessel.h gsl_sf_bessel_I0" gsl_sf_bessel_I0 :: Double -> Double +foreign import ccall "gsl_sf_bessel_I0" gsl_sf_bessel_I0 :: Double -> Double -- | wrapper for int gsl_sf_bessel_I1_e(double x,gsl_sf_result* result); -- -- bessel_I1_e :: Double -> (Double,Double) bessel_I1_e x = createSFR "bessel_I1_e" $ gsl_sf_bessel_I1_e x -foreign import ccall "bessel.h gsl_sf_bessel_I1_e" gsl_sf_bessel_I1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_I1_e" gsl_sf_bessel_I1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_I1(double x); -- -- bessel_I1 :: Double -> Double bessel_I1 = gsl_sf_bessel_I1 -foreign import ccall "bessel.h gsl_sf_bessel_I1" gsl_sf_bessel_I1 :: Double -> Double +foreign import ccall "gsl_sf_bessel_I1" gsl_sf_bessel_I1 :: Double -> Double -- | wrapper for int gsl_sf_bessel_In_e(int n,double x,gsl_sf_result* result); -- -- bessel_In_e :: CInt -> Double -> (Double,Double) bessel_In_e n x = createSFR "bessel_In_e" $ gsl_sf_bessel_In_e n x -foreign import ccall "bessel.h gsl_sf_bessel_In_e" gsl_sf_bessel_In_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_In_e" gsl_sf_bessel_In_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_In(int n,double x); -- -- bessel_In :: CInt -> Double -> Double bessel_In = gsl_sf_bessel_In -foreign import ccall "bessel.h gsl_sf_bessel_In" gsl_sf_bessel_In :: CInt -> Double -> Double +foreign import ccall "gsl_sf_bessel_In" gsl_sf_bessel_In :: CInt -> Double -> Double -- | wrapper for int gsl_sf_bessel_In_array(int nmin,int nmax,double x,double* result_array); -- -- bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt bessel_In_array = gsl_sf_bessel_In_array -foreign import ccall "bessel.h gsl_sf_bessel_In_array" gsl_sf_bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_bessel_In_array" gsl_sf_bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_bessel_I0_scaled_e(double x,gsl_sf_result* result); -- -- bessel_I0_scaled_e :: Double -> (Double,Double) bessel_I0_scaled_e x = createSFR "bessel_I0_scaled_e" $ gsl_sf_bessel_I0_scaled_e x -foreign import ccall "bessel.h gsl_sf_bessel_I0_scaled_e" gsl_sf_bessel_I0_scaled_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_I0_scaled_e" gsl_sf_bessel_I0_scaled_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_I0_scaled(double x); -- -- bessel_I0_scaled :: Double -> Double bessel_I0_scaled = gsl_sf_bessel_I0_scaled -foreign import ccall "bessel.h gsl_sf_bessel_I0_scaled" gsl_sf_bessel_I0_scaled :: Double -> Double +foreign import ccall "gsl_sf_bessel_I0_scaled" gsl_sf_bessel_I0_scaled :: Double -> Double -- | wrapper for int gsl_sf_bessel_I1_scaled_e(double x,gsl_sf_result* result); -- -- bessel_I1_scaled_e :: Double -> (Double,Double) bessel_I1_scaled_e x = createSFR "bessel_I1_scaled_e" $ gsl_sf_bessel_I1_scaled_e x -foreign import ccall "bessel.h gsl_sf_bessel_I1_scaled_e" gsl_sf_bessel_I1_scaled_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_I1_scaled_e" gsl_sf_bessel_I1_scaled_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_I1_scaled(double x); -- -- bessel_I1_scaled :: Double -> Double bessel_I1_scaled = gsl_sf_bessel_I1_scaled -foreign import ccall "bessel.h gsl_sf_bessel_I1_scaled" gsl_sf_bessel_I1_scaled :: Double -> Double +foreign import ccall "gsl_sf_bessel_I1_scaled" gsl_sf_bessel_I1_scaled :: Double -> Double -- | wrapper for int gsl_sf_bessel_In_scaled_e(int n,double x,gsl_sf_result* result); -- -- bessel_In_scaled_e :: CInt -> Double -> (Double,Double) bessel_In_scaled_e n x = createSFR "bessel_In_scaled_e" $ gsl_sf_bessel_In_scaled_e n x -foreign import ccall "bessel.h gsl_sf_bessel_In_scaled_e" gsl_sf_bessel_In_scaled_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_In_scaled_e" gsl_sf_bessel_In_scaled_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_In_scaled(int n,double x); -- -- bessel_In_scaled :: CInt -> Double -> Double bessel_In_scaled = gsl_sf_bessel_In_scaled -foreign import ccall "bessel.h gsl_sf_bessel_In_scaled" gsl_sf_bessel_In_scaled :: CInt -> Double -> Double +foreign import ccall "gsl_sf_bessel_In_scaled" gsl_sf_bessel_In_scaled :: CInt -> Double -> Double -- | wrapper for int gsl_sf_bessel_In_scaled_array(int nmin,int nmax,double x,double* result_array); -- -- bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt bessel_In_scaled_array = gsl_sf_bessel_In_scaled_array -foreign import ccall "bessel.h gsl_sf_bessel_In_scaled_array" gsl_sf_bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_bessel_In_scaled_array" gsl_sf_bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_bessel_K0_e(double x,gsl_sf_result* result); -- -- bessel_K0_e :: Double -> (Double,Double) bessel_K0_e x = createSFR "bessel_K0_e" $ gsl_sf_bessel_K0_e x -foreign import ccall "bessel.h gsl_sf_bessel_K0_e" gsl_sf_bessel_K0_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_K0_e" gsl_sf_bessel_K0_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_K0(double x); -- -- bessel_K0 :: Double -> Double bessel_K0 = gsl_sf_bessel_K0 -foreign import ccall "bessel.h gsl_sf_bessel_K0" gsl_sf_bessel_K0 :: Double -> Double +foreign import ccall "gsl_sf_bessel_K0" gsl_sf_bessel_K0 :: Double -> Double -- | wrapper for int gsl_sf_bessel_K1_e(double x,gsl_sf_result* result); -- -- bessel_K1_e :: Double -> (Double,Double) bessel_K1_e x = createSFR "bessel_K1_e" $ gsl_sf_bessel_K1_e x -foreign import ccall "bessel.h gsl_sf_bessel_K1_e" gsl_sf_bessel_K1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_K1_e" gsl_sf_bessel_K1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_K1(double x); -- -- bessel_K1 :: Double -> Double bessel_K1 = gsl_sf_bessel_K1 -foreign import ccall "bessel.h gsl_sf_bessel_K1" gsl_sf_bessel_K1 :: Double -> Double +foreign import ccall "gsl_sf_bessel_K1" gsl_sf_bessel_K1 :: Double -> Double -- | wrapper for int gsl_sf_bessel_Kn_e(int n,double x,gsl_sf_result* result); -- -- bessel_Kn_e :: CInt -> Double -> (Double,Double) bessel_Kn_e n x = createSFR "bessel_Kn_e" $ gsl_sf_bessel_Kn_e n x -foreign import ccall "bessel.h gsl_sf_bessel_Kn_e" gsl_sf_bessel_Kn_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_Kn_e" gsl_sf_bessel_Kn_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_Kn(int n,double x); -- -- bessel_Kn :: CInt -> Double -> Double bessel_Kn = gsl_sf_bessel_Kn -foreign import ccall "bessel.h gsl_sf_bessel_Kn" gsl_sf_bessel_Kn :: CInt -> Double -> Double +foreign import ccall "gsl_sf_bessel_Kn" gsl_sf_bessel_Kn :: CInt -> Double -> Double -- | wrapper for int gsl_sf_bessel_Kn_array(int nmin,int nmax,double x,double* result_array); -- -- bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt bessel_Kn_array = gsl_sf_bessel_Kn_array -foreign import ccall "bessel.h gsl_sf_bessel_Kn_array" gsl_sf_bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_bessel_Kn_array" gsl_sf_bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_bessel_K0_scaled_e(double x,gsl_sf_result* result); -- -- bessel_K0_scaled_e :: Double -> (Double,Double) bessel_K0_scaled_e x = createSFR "bessel_K0_scaled_e" $ gsl_sf_bessel_K0_scaled_e x -foreign import ccall "bessel.h gsl_sf_bessel_K0_scaled_e" gsl_sf_bessel_K0_scaled_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_K0_scaled_e" gsl_sf_bessel_K0_scaled_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_K0_scaled(double x); -- -- bessel_K0_scaled :: Double -> Double bessel_K0_scaled = gsl_sf_bessel_K0_scaled -foreign import ccall "bessel.h gsl_sf_bessel_K0_scaled" gsl_sf_bessel_K0_scaled :: Double -> Double +foreign import ccall "gsl_sf_bessel_K0_scaled" gsl_sf_bessel_K0_scaled :: Double -> Double -- | wrapper for int gsl_sf_bessel_K1_scaled_e(double x,gsl_sf_result* result); -- -- bessel_K1_scaled_e :: Double -> (Double,Double) bessel_K1_scaled_e x = createSFR "bessel_K1_scaled_e" $ gsl_sf_bessel_K1_scaled_e x -foreign import ccall "bessel.h gsl_sf_bessel_K1_scaled_e" gsl_sf_bessel_K1_scaled_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_K1_scaled_e" gsl_sf_bessel_K1_scaled_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_K1_scaled(double x); -- -- bessel_K1_scaled :: Double -> Double bessel_K1_scaled = gsl_sf_bessel_K1_scaled -foreign import ccall "bessel.h gsl_sf_bessel_K1_scaled" gsl_sf_bessel_K1_scaled :: Double -> Double +foreign import ccall "gsl_sf_bessel_K1_scaled" gsl_sf_bessel_K1_scaled :: Double -> Double -- | wrapper for int gsl_sf_bessel_Kn_scaled_e(int n,double x,gsl_sf_result* result); -- -- bessel_Kn_scaled_e :: CInt -> Double -> (Double,Double) bessel_Kn_scaled_e n x = createSFR "bessel_Kn_scaled_e" $ gsl_sf_bessel_Kn_scaled_e n x -foreign import ccall "bessel.h gsl_sf_bessel_Kn_scaled_e" gsl_sf_bessel_Kn_scaled_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_Kn_scaled_e" gsl_sf_bessel_Kn_scaled_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_Kn_scaled(int n,double x); -- -- bessel_Kn_scaled :: CInt -> Double -> Double bessel_Kn_scaled = gsl_sf_bessel_Kn_scaled -foreign import ccall "bessel.h gsl_sf_bessel_Kn_scaled" gsl_sf_bessel_Kn_scaled :: CInt -> Double -> Double +foreign import ccall "gsl_sf_bessel_Kn_scaled" gsl_sf_bessel_Kn_scaled :: CInt -> Double -> Double -- | wrapper for int gsl_sf_bessel_Kn_scaled_array(int nmin,int nmax,double x,double* result_array); -- -- bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt bessel_Kn_scaled_array = gsl_sf_bessel_Kn_scaled_array -foreign import ccall "bessel.h gsl_sf_bessel_Kn_scaled_array" gsl_sf_bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_bessel_Kn_scaled_array" gsl_sf_bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_bessel_j0_e(double x,gsl_sf_result* result); -- -- bessel_j0_e :: Double -> (Double,Double) bessel_j0_e x = createSFR "bessel_j0_e" $ gsl_sf_bessel_j0_e x -foreign import ccall "bessel.h gsl_sf_bessel_j0_e" gsl_sf_bessel_j0_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_j0_e" gsl_sf_bessel_j0_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_j0(double x); -- -- bessel_j0 :: Double -> Double bessel_j0 = gsl_sf_bessel_j0 -foreign import ccall "bessel.h gsl_sf_bessel_j0" gsl_sf_bessel_j0 :: Double -> Double +foreign import ccall "gsl_sf_bessel_j0" gsl_sf_bessel_j0 :: Double -> Double -- | wrapper for int gsl_sf_bessel_j1_e(double x,gsl_sf_result* result); -- -- bessel_j1_e :: Double -> (Double,Double) bessel_j1_e x = createSFR "bessel_j1_e" $ gsl_sf_bessel_j1_e x -foreign import ccall "bessel.h gsl_sf_bessel_j1_e" gsl_sf_bessel_j1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_j1_e" gsl_sf_bessel_j1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_j1(double x); -- -- bessel_j1 :: Double -> Double bessel_j1 = gsl_sf_bessel_j1 -foreign import ccall "bessel.h gsl_sf_bessel_j1" gsl_sf_bessel_j1 :: Double -> Double +foreign import ccall "gsl_sf_bessel_j1" gsl_sf_bessel_j1 :: Double -> Double -- | wrapper for int gsl_sf_bessel_j2_e(double x,gsl_sf_result* result); -- -- bessel_j2_e :: Double -> (Double,Double) bessel_j2_e x = createSFR "bessel_j2_e" $ gsl_sf_bessel_j2_e x -foreign import ccall "bessel.h gsl_sf_bessel_j2_e" gsl_sf_bessel_j2_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_j2_e" gsl_sf_bessel_j2_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_j2(double x); -- -- bessel_j2 :: Double -> Double bessel_j2 = gsl_sf_bessel_j2 -foreign import ccall "bessel.h gsl_sf_bessel_j2" gsl_sf_bessel_j2 :: Double -> Double +foreign import ccall "gsl_sf_bessel_j2" gsl_sf_bessel_j2 :: Double -> Double -- | wrapper for int gsl_sf_bessel_jl_e(int l,double x,gsl_sf_result* result); -- -- bessel_jl_e :: CInt -> Double -> (Double,Double) bessel_jl_e l x = createSFR "bessel_jl_e" $ gsl_sf_bessel_jl_e l x -foreign import ccall "bessel.h gsl_sf_bessel_jl_e" gsl_sf_bessel_jl_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_jl_e" gsl_sf_bessel_jl_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_jl(int l,double x); -- -- bessel_jl :: CInt -> Double -> Double bessel_jl = gsl_sf_bessel_jl -foreign import ccall "bessel.h gsl_sf_bessel_jl" gsl_sf_bessel_jl :: CInt -> Double -> Double +foreign import ccall "gsl_sf_bessel_jl" gsl_sf_bessel_jl :: CInt -> Double -> Double -- | wrapper for int gsl_sf_bessel_jl_array(int lmax,double x,double* result_array); -- -- bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt bessel_jl_array = gsl_sf_bessel_jl_array -foreign import ccall "bessel.h gsl_sf_bessel_jl_array" gsl_sf_bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_bessel_jl_array" gsl_sf_bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_bessel_jl_steed_array(int lmax,double x,double* jl_x_array); -- -- bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt bessel_jl_steed_array = gsl_sf_bessel_jl_steed_array -foreign import ccall "bessel.h gsl_sf_bessel_jl_steed_array" gsl_sf_bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_bessel_jl_steed_array" gsl_sf_bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_bessel_y0_e(double x,gsl_sf_result* result); -- -- bessel_y0_e :: Double -> (Double,Double) bessel_y0_e x = createSFR "bessel_y0_e" $ gsl_sf_bessel_y0_e x -foreign import ccall "bessel.h gsl_sf_bessel_y0_e" gsl_sf_bessel_y0_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_y0_e" gsl_sf_bessel_y0_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_y0(double x); -- -- bessel_y0 :: Double -> Double bessel_y0 = gsl_sf_bessel_y0 -foreign import ccall "bessel.h gsl_sf_bessel_y0" gsl_sf_bessel_y0 :: Double -> Double +foreign import ccall "gsl_sf_bessel_y0" gsl_sf_bessel_y0 :: Double -> Double -- | wrapper for int gsl_sf_bessel_y1_e(double x,gsl_sf_result* result); -- -- bessel_y1_e :: Double -> (Double,Double) bessel_y1_e x = createSFR "bessel_y1_e" $ gsl_sf_bessel_y1_e x -foreign import ccall "bessel.h gsl_sf_bessel_y1_e" gsl_sf_bessel_y1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_y1_e" gsl_sf_bessel_y1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_y1(double x); -- -- bessel_y1 :: Double -> Double bessel_y1 = gsl_sf_bessel_y1 -foreign import ccall "bessel.h gsl_sf_bessel_y1" gsl_sf_bessel_y1 :: Double -> Double +foreign import ccall "gsl_sf_bessel_y1" gsl_sf_bessel_y1 :: Double -> Double -- | wrapper for int gsl_sf_bessel_y2_e(double x,gsl_sf_result* result); -- -- bessel_y2_e :: Double -> (Double,Double) bessel_y2_e x = createSFR "bessel_y2_e" $ gsl_sf_bessel_y2_e x -foreign import ccall "bessel.h gsl_sf_bessel_y2_e" gsl_sf_bessel_y2_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_y2_e" gsl_sf_bessel_y2_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_y2(double x); -- -- bessel_y2 :: Double -> Double bessel_y2 = gsl_sf_bessel_y2 -foreign import ccall "bessel.h gsl_sf_bessel_y2" gsl_sf_bessel_y2 :: Double -> Double +foreign import ccall "gsl_sf_bessel_y2" gsl_sf_bessel_y2 :: Double -> Double -- | wrapper for int gsl_sf_bessel_yl_e(int l,double x,gsl_sf_result* result); -- -- bessel_yl_e :: CInt -> Double -> (Double,Double) bessel_yl_e l x = createSFR "bessel_yl_e" $ gsl_sf_bessel_yl_e l x -foreign import ccall "bessel.h gsl_sf_bessel_yl_e" gsl_sf_bessel_yl_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_yl_e" gsl_sf_bessel_yl_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_yl(int l,double x); -- -- bessel_yl :: CInt -> Double -> Double bessel_yl = gsl_sf_bessel_yl -foreign import ccall "bessel.h gsl_sf_bessel_yl" gsl_sf_bessel_yl :: CInt -> Double -> Double +foreign import ccall "gsl_sf_bessel_yl" gsl_sf_bessel_yl :: CInt -> Double -> Double -- | wrapper for int gsl_sf_bessel_yl_array(int lmax,double x,double* result_array); -- -- bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt bessel_yl_array = gsl_sf_bessel_yl_array -foreign import ccall "bessel.h gsl_sf_bessel_yl_array" gsl_sf_bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_bessel_yl_array" gsl_sf_bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_bessel_i0_scaled_e(double x,gsl_sf_result* result); -- -- bessel_i0_scaled_e :: Double -> (Double,Double) bessel_i0_scaled_e x = createSFR "bessel_i0_scaled_e" $ gsl_sf_bessel_i0_scaled_e x -foreign import ccall "bessel.h gsl_sf_bessel_i0_scaled_e" gsl_sf_bessel_i0_scaled_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_i0_scaled_e" gsl_sf_bessel_i0_scaled_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_i0_scaled(double x); -- -- bessel_i0_scaled :: Double -> Double bessel_i0_scaled = gsl_sf_bessel_i0_scaled -foreign import ccall "bessel.h gsl_sf_bessel_i0_scaled" gsl_sf_bessel_i0_scaled :: Double -> Double +foreign import ccall "gsl_sf_bessel_i0_scaled" gsl_sf_bessel_i0_scaled :: Double -> Double -- | wrapper for int gsl_sf_bessel_i1_scaled_e(double x,gsl_sf_result* result); -- -- bessel_i1_scaled_e :: Double -> (Double,Double) bessel_i1_scaled_e x = createSFR "bessel_i1_scaled_e" $ gsl_sf_bessel_i1_scaled_e x -foreign import ccall "bessel.h gsl_sf_bessel_i1_scaled_e" gsl_sf_bessel_i1_scaled_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_i1_scaled_e" gsl_sf_bessel_i1_scaled_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_i1_scaled(double x); -- -- bessel_i1_scaled :: Double -> Double bessel_i1_scaled = gsl_sf_bessel_i1_scaled -foreign import ccall "bessel.h gsl_sf_bessel_i1_scaled" gsl_sf_bessel_i1_scaled :: Double -> Double +foreign import ccall "gsl_sf_bessel_i1_scaled" gsl_sf_bessel_i1_scaled :: Double -> Double -- | wrapper for int gsl_sf_bessel_i2_scaled_e(double x,gsl_sf_result* result); -- -- bessel_i2_scaled_e :: Double -> (Double,Double) bessel_i2_scaled_e x = createSFR "bessel_i2_scaled_e" $ gsl_sf_bessel_i2_scaled_e x -foreign import ccall "bessel.h gsl_sf_bessel_i2_scaled_e" gsl_sf_bessel_i2_scaled_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_i2_scaled_e" gsl_sf_bessel_i2_scaled_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_i2_scaled(double x); -- -- bessel_i2_scaled :: Double -> Double bessel_i2_scaled = gsl_sf_bessel_i2_scaled -foreign import ccall "bessel.h gsl_sf_bessel_i2_scaled" gsl_sf_bessel_i2_scaled :: Double -> Double +foreign import ccall "gsl_sf_bessel_i2_scaled" gsl_sf_bessel_i2_scaled :: Double -> Double -- | wrapper for int gsl_sf_bessel_il_scaled_e(int l,double x,gsl_sf_result* result); -- -- bessel_il_scaled_e :: CInt -> Double -> (Double,Double) bessel_il_scaled_e l x = createSFR "bessel_il_scaled_e" $ gsl_sf_bessel_il_scaled_e l x -foreign import ccall "bessel.h gsl_sf_bessel_il_scaled_e" gsl_sf_bessel_il_scaled_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_il_scaled_e" gsl_sf_bessel_il_scaled_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_il_scaled(int l,double x); -- -- bessel_il_scaled :: CInt -> Double -> Double bessel_il_scaled = gsl_sf_bessel_il_scaled -foreign import ccall "bessel.h gsl_sf_bessel_il_scaled" gsl_sf_bessel_il_scaled :: CInt -> Double -> Double +foreign import ccall "gsl_sf_bessel_il_scaled" gsl_sf_bessel_il_scaled :: CInt -> Double -> Double -- | wrapper for int gsl_sf_bessel_il_scaled_array(int lmax,double x,double* result_array); -- -- bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt bessel_il_scaled_array = gsl_sf_bessel_il_scaled_array -foreign import ccall "bessel.h gsl_sf_bessel_il_scaled_array" gsl_sf_bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_bessel_il_scaled_array" gsl_sf_bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_bessel_k0_scaled_e(double x,gsl_sf_result* result); -- -- bessel_k0_scaled_e :: Double -> (Double,Double) bessel_k0_scaled_e x = createSFR "bessel_k0_scaled_e" $ gsl_sf_bessel_k0_scaled_e x -foreign import ccall "bessel.h gsl_sf_bessel_k0_scaled_e" gsl_sf_bessel_k0_scaled_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_k0_scaled_e" gsl_sf_bessel_k0_scaled_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_k0_scaled(double x); -- -- bessel_k0_scaled :: Double -> Double bessel_k0_scaled = gsl_sf_bessel_k0_scaled -foreign import ccall "bessel.h gsl_sf_bessel_k0_scaled" gsl_sf_bessel_k0_scaled :: Double -> Double +foreign import ccall "gsl_sf_bessel_k0_scaled" gsl_sf_bessel_k0_scaled :: Double -> Double -- | wrapper for int gsl_sf_bessel_k1_scaled_e(double x,gsl_sf_result* result); -- -- bessel_k1_scaled_e :: Double -> (Double,Double) bessel_k1_scaled_e x = createSFR "bessel_k1_scaled_e" $ gsl_sf_bessel_k1_scaled_e x -foreign import ccall "bessel.h gsl_sf_bessel_k1_scaled_e" gsl_sf_bessel_k1_scaled_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_k1_scaled_e" gsl_sf_bessel_k1_scaled_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_k1_scaled(double x); -- -- bessel_k1_scaled :: Double -> Double bessel_k1_scaled = gsl_sf_bessel_k1_scaled -foreign import ccall "bessel.h gsl_sf_bessel_k1_scaled" gsl_sf_bessel_k1_scaled :: Double -> Double +foreign import ccall "gsl_sf_bessel_k1_scaled" gsl_sf_bessel_k1_scaled :: Double -> Double -- | wrapper for int gsl_sf_bessel_k2_scaled_e(double x,gsl_sf_result* result); -- -- bessel_k2_scaled_e :: Double -> (Double,Double) bessel_k2_scaled_e x = createSFR "bessel_k2_scaled_e" $ gsl_sf_bessel_k2_scaled_e x -foreign import ccall "bessel.h gsl_sf_bessel_k2_scaled_e" gsl_sf_bessel_k2_scaled_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_k2_scaled_e" gsl_sf_bessel_k2_scaled_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_k2_scaled(double x); -- -- bessel_k2_scaled :: Double -> Double bessel_k2_scaled = gsl_sf_bessel_k2_scaled -foreign import ccall "bessel.h gsl_sf_bessel_k2_scaled" gsl_sf_bessel_k2_scaled :: Double -> Double +foreign import ccall "gsl_sf_bessel_k2_scaled" gsl_sf_bessel_k2_scaled :: Double -> Double -- | wrapper for int gsl_sf_bessel_kl_scaled_e(int l,double x,gsl_sf_result* result); -- -- bessel_kl_scaled_e :: CInt -> Double -> (Double,Double) bessel_kl_scaled_e l x = createSFR "bessel_kl_scaled_e" $ gsl_sf_bessel_kl_scaled_e l x -foreign import ccall "bessel.h gsl_sf_bessel_kl_scaled_e" gsl_sf_bessel_kl_scaled_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_kl_scaled_e" gsl_sf_bessel_kl_scaled_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_kl_scaled(int l,double x); -- -- bessel_kl_scaled :: CInt -> Double -> Double bessel_kl_scaled = gsl_sf_bessel_kl_scaled -foreign import ccall "bessel.h gsl_sf_bessel_kl_scaled" gsl_sf_bessel_kl_scaled :: CInt -> Double -> Double +foreign import ccall "gsl_sf_bessel_kl_scaled" gsl_sf_bessel_kl_scaled :: CInt -> Double -> Double -- | wrapper for int gsl_sf_bessel_kl_scaled_array(int lmax,double x,double* result_array); -- -- bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt bessel_kl_scaled_array = gsl_sf_bessel_kl_scaled_array -foreign import ccall "bessel.h gsl_sf_bessel_kl_scaled_array" gsl_sf_bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_bessel_kl_scaled_array" gsl_sf_bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_bessel_Jnu_e(double nu,double x,gsl_sf_result* result); -- -- bessel_Jnu_e :: Double -> Double -> (Double,Double) bessel_Jnu_e nu x = createSFR "bessel_Jnu_e" $ gsl_sf_bessel_Jnu_e nu x -foreign import ccall "bessel.h gsl_sf_bessel_Jnu_e" gsl_sf_bessel_Jnu_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_Jnu_e" gsl_sf_bessel_Jnu_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_Jnu(double nu,double x); -- -- bessel_Jnu :: Double -> Double -> Double bessel_Jnu = gsl_sf_bessel_Jnu -foreign import ccall "bessel.h gsl_sf_bessel_Jnu" gsl_sf_bessel_Jnu :: Double -> Double -> Double +foreign import ccall "gsl_sf_bessel_Jnu" gsl_sf_bessel_Jnu :: Double -> Double -> Double -- | wrapper for int gsl_sf_bessel_Ynu_e(double nu,double x,gsl_sf_result* result); -- -- bessel_Ynu_e :: Double -> Double -> (Double,Double) bessel_Ynu_e nu x = createSFR "bessel_Ynu_e" $ gsl_sf_bessel_Ynu_e nu x -foreign import ccall "bessel.h gsl_sf_bessel_Ynu_e" gsl_sf_bessel_Ynu_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_Ynu_e" gsl_sf_bessel_Ynu_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_Ynu(double nu,double x); -- -- bessel_Ynu :: Double -> Double -> Double bessel_Ynu = gsl_sf_bessel_Ynu -foreign import ccall "bessel.h gsl_sf_bessel_Ynu" gsl_sf_bessel_Ynu :: Double -> Double -> Double +foreign import ccall "gsl_sf_bessel_Ynu" gsl_sf_bessel_Ynu :: Double -> Double -> Double -- | wrapper for int gsl_sf_bessel_sequence_Jnu_e(double nu,gsl_mode_t mode,size_t size,double* v); -- -- bessel_sequence_Jnu_e :: Double -> Precision -> Size_t -> Ptr Double -> CInt bessel_sequence_Jnu_e nu mode size v = gsl_sf_bessel_sequence_Jnu_e nu (precCode mode) size v -foreign import ccall "bessel.h gsl_sf_bessel_sequence_Jnu_e" gsl_sf_bessel_sequence_Jnu_e :: Double -> Gsl_mode_t -> Size_t -> Ptr Double -> CInt +foreign import ccall "gsl_sf_bessel_sequence_Jnu_e" gsl_sf_bessel_sequence_Jnu_e :: Double -> Gsl_mode_t -> Size_t -> Ptr Double -> CInt -- | wrapper for int gsl_sf_bessel_Inu_scaled_e(double nu,double x,gsl_sf_result* result); -- -- bessel_Inu_scaled_e :: Double -> Double -> (Double,Double) bessel_Inu_scaled_e nu x = createSFR "bessel_Inu_scaled_e" $ gsl_sf_bessel_Inu_scaled_e nu x -foreign import ccall "bessel.h gsl_sf_bessel_Inu_scaled_e" gsl_sf_bessel_Inu_scaled_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_Inu_scaled_e" gsl_sf_bessel_Inu_scaled_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_Inu_scaled(double nu,double x); -- -- bessel_Inu_scaled :: Double -> Double -> Double bessel_Inu_scaled = gsl_sf_bessel_Inu_scaled -foreign import ccall "bessel.h gsl_sf_bessel_Inu_scaled" gsl_sf_bessel_Inu_scaled :: Double -> Double -> Double +foreign import ccall "gsl_sf_bessel_Inu_scaled" gsl_sf_bessel_Inu_scaled :: Double -> Double -> Double -- | wrapper for int gsl_sf_bessel_Inu_e(double nu,double x,gsl_sf_result* result); -- -- bessel_Inu_e :: Double -> Double -> (Double,Double) bessel_Inu_e nu x = createSFR "bessel_Inu_e" $ gsl_sf_bessel_Inu_e nu x -foreign import ccall "bessel.h gsl_sf_bessel_Inu_e" gsl_sf_bessel_Inu_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_Inu_e" gsl_sf_bessel_Inu_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_Inu(double nu,double x); -- -- bessel_Inu :: Double -> Double -> Double bessel_Inu = gsl_sf_bessel_Inu -foreign import ccall "bessel.h gsl_sf_bessel_Inu" gsl_sf_bessel_Inu :: Double -> Double -> Double +foreign import ccall "gsl_sf_bessel_Inu" gsl_sf_bessel_Inu :: Double -> Double -> Double -- | wrapper for int gsl_sf_bessel_Knu_scaled_e(double nu,double x,gsl_sf_result* result); -- -- bessel_Knu_scaled_e :: Double -> Double -> (Double,Double) bessel_Knu_scaled_e nu x = createSFR "bessel_Knu_scaled_e" $ gsl_sf_bessel_Knu_scaled_e nu x -foreign import ccall "bessel.h gsl_sf_bessel_Knu_scaled_e" gsl_sf_bessel_Knu_scaled_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_Knu_scaled_e" gsl_sf_bessel_Knu_scaled_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_Knu_scaled(double nu,double x); -- -- bessel_Knu_scaled :: Double -> Double -> Double bessel_Knu_scaled = gsl_sf_bessel_Knu_scaled -foreign import ccall "bessel.h gsl_sf_bessel_Knu_scaled" gsl_sf_bessel_Knu_scaled :: Double -> Double -> Double +foreign import ccall "gsl_sf_bessel_Knu_scaled" gsl_sf_bessel_Knu_scaled :: Double -> Double -> Double -- | wrapper for int gsl_sf_bessel_Knu_e(double nu,double x,gsl_sf_result* result); -- -- bessel_Knu_e :: Double -> Double -> (Double,Double) bessel_Knu_e nu x = createSFR "bessel_Knu_e" $ gsl_sf_bessel_Knu_e nu x -foreign import ccall "bessel.h gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_Knu(double nu,double x); -- -- bessel_Knu :: Double -> Double -> Double bessel_Knu = gsl_sf_bessel_Knu -foreign import ccall "bessel.h gsl_sf_bessel_Knu" gsl_sf_bessel_Knu :: Double -> Double -> Double +foreign import ccall "gsl_sf_bessel_Knu" gsl_sf_bessel_Knu :: Double -> Double -> Double -- | wrapper for int gsl_sf_bessel_lnKnu_e(double nu,double x,gsl_sf_result* result); -- -- bessel_lnKnu_e :: Double -> Double -> (Double,Double) bessel_lnKnu_e nu x = createSFR "bessel_lnKnu_e" $ gsl_sf_bessel_lnKnu_e nu x -foreign import ccall "bessel.h gsl_sf_bessel_lnKnu_e" gsl_sf_bessel_lnKnu_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_lnKnu_e" gsl_sf_bessel_lnKnu_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_lnKnu(double nu,double x); -- -- bessel_lnKnu :: Double -> Double -> Double bessel_lnKnu = gsl_sf_bessel_lnKnu -foreign import ccall "bessel.h gsl_sf_bessel_lnKnu" gsl_sf_bessel_lnKnu :: Double -> Double -> Double +foreign import ccall "gsl_sf_bessel_lnKnu" gsl_sf_bessel_lnKnu :: Double -> Double -> Double -- | wrapper for int gsl_sf_bessel_zero_J0_e(int s,gsl_sf_result* result); -- -- bessel_zero_J0_e :: CInt -> (Double,Double) bessel_zero_J0_e s = createSFR "bessel_zero_J0_e" $ gsl_sf_bessel_zero_J0_e s -foreign import ccall "bessel.h gsl_sf_bessel_zero_J0_e" gsl_sf_bessel_zero_J0_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_zero_J0_e" gsl_sf_bessel_zero_J0_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_zero_J0(int s); -- -- bessel_zero_J0 :: CInt -> Double bessel_zero_J0 = gsl_sf_bessel_zero_J0 -foreign import ccall "bessel.h gsl_sf_bessel_zero_J0" gsl_sf_bessel_zero_J0 :: CInt -> Double +foreign import ccall "gsl_sf_bessel_zero_J0" gsl_sf_bessel_zero_J0 :: CInt -> Double -- | wrapper for int gsl_sf_bessel_zero_J1_e(int s,gsl_sf_result* result); -- -- bessel_zero_J1_e :: CInt -> (Double,Double) bessel_zero_J1_e s = createSFR "bessel_zero_J1_e" $ gsl_sf_bessel_zero_J1_e s -foreign import ccall "bessel.h gsl_sf_bessel_zero_J1_e" gsl_sf_bessel_zero_J1_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_zero_J1_e" gsl_sf_bessel_zero_J1_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_zero_J1(int s); -- -- bessel_zero_J1 :: CInt -> Double bessel_zero_J1 = gsl_sf_bessel_zero_J1 -foreign import ccall "bessel.h gsl_sf_bessel_zero_J1" gsl_sf_bessel_zero_J1 :: CInt -> Double +foreign import ccall "gsl_sf_bessel_zero_J1" gsl_sf_bessel_zero_J1 :: CInt -> Double -- | wrapper for int gsl_sf_bessel_zero_Jnu_e(double nu,int s,gsl_sf_result* result); -- -- bessel_zero_Jnu_e :: Double -> CInt -> (Double,Double) bessel_zero_Jnu_e nu s = createSFR "bessel_zero_Jnu_e" $ gsl_sf_bessel_zero_Jnu_e nu s -foreign import ccall "bessel.h gsl_sf_bessel_zero_Jnu_e" gsl_sf_bessel_zero_Jnu_e :: Double -> CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_bessel_zero_Jnu_e" gsl_sf_bessel_zero_Jnu_e :: Double -> CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_bessel_zero_Jnu(double nu,int s); -- -- bessel_zero_Jnu :: Double -> CInt -> Double bessel_zero_Jnu = gsl_sf_bessel_zero_Jnu -foreign import ccall "bessel.h gsl_sf_bessel_zero_Jnu" gsl_sf_bessel_zero_Jnu :: Double -> CInt -> Double +foreign import ccall "gsl_sf_bessel_zero_Jnu" gsl_sf_bessel_zero_Jnu :: Double -> CInt -> Double diff --git a/lib/Numeric/GSL/Special/Clausen.hs b/lib/Numeric/GSL/Special/Clausen.hs index 9f509cc..4ebf0e2 100644 --- a/lib/Numeric/GSL/Special/Clausen.hs +++ b/lib/Numeric/GSL/Special/Clausen.hs @@ -28,11 +28,11 @@ import Numeric.GSL.Special.Internal -- clausen_e :: Double -> (Double,Double) clausen_e x = createSFR "clausen_e" $ gsl_sf_clausen_e x -foreign import ccall "clausen.h gsl_sf_clausen_e" gsl_sf_clausen_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_clausen_e" gsl_sf_clausen_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_clausen(double x); -- -- clausen :: Double -> Double clausen = gsl_sf_clausen -foreign import ccall "clausen.h gsl_sf_clausen" gsl_sf_clausen :: Double -> Double +foreign import ccall "gsl_sf_clausen" gsl_sf_clausen :: Double -> Double diff --git a/lib/Numeric/GSL/Special/Coulomb.hs b/lib/Numeric/GSL/Special/Coulomb.hs index 57cfa23..2b89f03 100644 --- a/lib/Numeric/GSL/Special/Coulomb.hs +++ b/lib/Numeric/GSL/Special/Coulomb.hs @@ -31,74 +31,74 @@ import Numeric.GSL.Special.Internal -- hydrogenicR_1_e :: Double -> Double -> (Double,Double) hydrogenicR_1_e zZ r = createSFR "hydrogenicR_1_e" $ gsl_sf_hydrogenicR_1_e zZ r -foreign import ccall "coulomb.h gsl_sf_hydrogenicR_1_e" gsl_sf_hydrogenicR_1_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hydrogenicR_1_e" gsl_sf_hydrogenicR_1_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_hydrogenicR_1(double Z,double r); -- -- hydrogenicR_1 :: Double -> Double -> Double hydrogenicR_1 = gsl_sf_hydrogenicR_1 -foreign import ccall "coulomb.h gsl_sf_hydrogenicR_1" gsl_sf_hydrogenicR_1 :: Double -> Double -> Double +foreign import ccall "gsl_sf_hydrogenicR_1" gsl_sf_hydrogenicR_1 :: Double -> Double -> Double -- | wrapper for int gsl_sf_hydrogenicR_e(int n,int l,double Z,double r,gsl_sf_result* result); -- -- hydrogenicR_e :: CInt -> CInt -> Double -> Double -> (Double,Double) hydrogenicR_e n l zZ r = createSFR "hydrogenicR_e" $ gsl_sf_hydrogenicR_e n l zZ r -foreign import ccall "coulomb.h gsl_sf_hydrogenicR_e" gsl_sf_hydrogenicR_e :: CInt -> CInt -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hydrogenicR_e" gsl_sf_hydrogenicR_e :: CInt -> CInt -> Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_hydrogenicR(int n,int l,double Z,double r); -- -- hydrogenicR :: CInt -> CInt -> Double -> Double -> Double hydrogenicR = gsl_sf_hydrogenicR -foreign import ccall "coulomb.h gsl_sf_hydrogenicR" gsl_sf_hydrogenicR :: CInt -> CInt -> Double -> Double -> Double +foreign import ccall "gsl_sf_hydrogenicR" gsl_sf_hydrogenicR :: CInt -> CInt -> Double -> Double -> Double -- | wrapper for int gsl_sf_coulomb_wave_FG_e(double eta,double x,double lam_F,int k_lam_G,gsl_sf_result* F,gsl_sf_result* Fp,gsl_sf_result* G,gsl_sf_result* Gp,double* exp_F,double* exp_G); -- -- coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt coulomb_wave_FG_e = gsl_sf_coulomb_wave_FG_e -foreign import ccall "coulomb.h gsl_sf_coulomb_wave_FG_e" gsl_sf_coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_coulomb_wave_FG_e" gsl_sf_coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_coulomb_wave_F_array(double lam_min,int kmax,double eta,double x,double* fc_array,double* F_exponent); -- -- coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt coulomb_wave_F_array = gsl_sf_coulomb_wave_F_array -foreign import ccall "coulomb.h gsl_sf_coulomb_wave_F_array" gsl_sf_coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_coulomb_wave_F_array" gsl_sf_coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_coulomb_wave_FG_array(double lam_min,int kmax,double eta,double x,double* fc_array,double* gc_array,double* F_exponent,double* G_exponent); -- -- coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt coulomb_wave_FG_array = gsl_sf_coulomb_wave_FG_array -foreign import ccall "coulomb.h gsl_sf_coulomb_wave_FG_array" gsl_sf_coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_coulomb_wave_FG_array" gsl_sf_coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_coulomb_wave_FGp_array(double lam_min,int kmax,double eta,double x,double* fc_array,double* fcp_array,double* gc_array,double* gcp_array,double* F_exponent,double* G_exponent); -- -- coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt coulomb_wave_FGp_array = gsl_sf_coulomb_wave_FGp_array -foreign import ccall "coulomb.h gsl_sf_coulomb_wave_FGp_array" gsl_sf_coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_coulomb_wave_FGp_array" gsl_sf_coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_coulomb_wave_sphF_array(double lam_min,int kmax,double eta,double x,double* fc_array,double* F_exponent); -- -- coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt coulomb_wave_sphF_array = gsl_sf_coulomb_wave_sphF_array -foreign import ccall "coulomb.h gsl_sf_coulomb_wave_sphF_array" gsl_sf_coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_coulomb_wave_sphF_array" gsl_sf_coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_coulomb_CL_e(double L,double eta,gsl_sf_result* result); -- -- coulomb_CL_e :: Double -> Double -> (Double,Double) coulomb_CL_e lL eta = createSFR "coulomb_CL_e" $ gsl_sf_coulomb_CL_e lL eta -foreign import ccall "coulomb.h gsl_sf_coulomb_CL_e" gsl_sf_coulomb_CL_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_coulomb_CL_e" gsl_sf_coulomb_CL_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_coulomb_CL_array(double Lmin,int kmax,double eta,double* cl); -- -- coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt coulomb_CL_array = gsl_sf_coulomb_CL_array -foreign import ccall "coulomb.h gsl_sf_coulomb_CL_array" gsl_sf_coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_coulomb_CL_array" gsl_sf_coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt diff --git a/lib/Numeric/GSL/Special/Coupling.hs b/lib/Numeric/GSL/Special/Coupling.hs index 91a5dc6..836a968 100644 --- a/lib/Numeric/GSL/Special/Coupling.hs +++ b/lib/Numeric/GSL/Special/Coupling.hs @@ -34,67 +34,67 @@ import Numeric.GSL.Special.Internal -- coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) coupling_3j_e two_ja two_jb two_jc two_ma two_mb two_mc = createSFR "coupling_3j_e" $ gsl_sf_coupling_3j_e two_ja two_jb two_jc two_ma two_mb two_mc -foreign import ccall "coupling.h gsl_sf_coupling_3j_e" gsl_sf_coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_coupling_3j_e" gsl_sf_coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_coupling_3j(int two_ja,int two_jb,int two_jc,int two_ma,int two_mb,int two_mc); -- -- coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double coupling_3j = gsl_sf_coupling_3j -foreign import ccall "coupling.h gsl_sf_coupling_3j" gsl_sf_coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double +foreign import ccall "gsl_sf_coupling_3j" gsl_sf_coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double -- | wrapper for int gsl_sf_coupling_6j_e(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf,gsl_sf_result* result); -- -- coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) coupling_6j_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_6j_e" $ gsl_sf_coupling_6j_e two_ja two_jb two_jc two_jd two_je two_jf -foreign import ccall "coupling.h gsl_sf_coupling_6j_e" gsl_sf_coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_coupling_6j_e" gsl_sf_coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_coupling_6j(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf); -- -- coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double coupling_6j = gsl_sf_coupling_6j -foreign import ccall "coupling.h gsl_sf_coupling_6j" gsl_sf_coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double +foreign import ccall "gsl_sf_coupling_6j" gsl_sf_coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double -- | wrapper for int gsl_sf_coupling_RacahW_e(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf,gsl_sf_result* result); -- -- coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) coupling_RacahW_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_RacahW_e" $ gsl_sf_coupling_RacahW_e two_ja two_jb two_jc two_jd two_je two_jf -foreign import ccall "coupling.h gsl_sf_coupling_RacahW_e" gsl_sf_coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_coupling_RacahW_e" gsl_sf_coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_coupling_RacahW(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf); -- -- coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double coupling_RacahW = gsl_sf_coupling_RacahW -foreign import ccall "coupling.h gsl_sf_coupling_RacahW" gsl_sf_coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double +foreign import ccall "gsl_sf_coupling_RacahW" gsl_sf_coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double -- | wrapper for int gsl_sf_coupling_9j_e(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf,int two_jg,int two_jh,int two_ji,gsl_sf_result* result); -- -- coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) coupling_9j_e two_ja two_jb two_jc two_jd two_je two_jf two_jg two_jh two_ji = createSFR "coupling_9j_e" $ gsl_sf_coupling_9j_e two_ja two_jb two_jc two_jd two_je two_jf two_jg two_jh two_ji -foreign import ccall "coupling.h gsl_sf_coupling_9j_e" gsl_sf_coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_coupling_9j_e" gsl_sf_coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_coupling_9j(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf,int two_jg,int two_jh,int two_ji); -- -- coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double coupling_9j = gsl_sf_coupling_9j -foreign import ccall "coupling.h gsl_sf_coupling_9j" gsl_sf_coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double +foreign import ccall "gsl_sf_coupling_9j" gsl_sf_coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double -- | wrapper for int gsl_sf_coupling_6j_INCORRECT_e(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf,gsl_sf_result* result); -- -- coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) coupling_6j_INCORRECT_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_6j_INCORRECT_e" $ gsl_sf_coupling_6j_INCORRECT_e two_ja two_jb two_jc two_jd two_je two_jf -foreign import ccall "coupling.h gsl_sf_coupling_6j_INCORRECT_e" gsl_sf_coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_coupling_6j_INCORRECT_e" gsl_sf_coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_coupling_6j_INCORRECT(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf); -- -- coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double coupling_6j_INCORRECT = gsl_sf_coupling_6j_INCORRECT -foreign import ccall "coupling.h gsl_sf_coupling_6j_INCORRECT" gsl_sf_coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double +foreign import ccall "gsl_sf_coupling_6j_INCORRECT" gsl_sf_coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double diff --git a/lib/Numeric/GSL/Special/Dawson.hs b/lib/Numeric/GSL/Special/Dawson.hs index 3a47570..40d4d4e 100644 --- a/lib/Numeric/GSL/Special/Dawson.hs +++ b/lib/Numeric/GSL/Special/Dawson.hs @@ -28,11 +28,11 @@ import Numeric.GSL.Special.Internal -- dawson_e :: Double -> (Double,Double) dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x -foreign import ccall "dawson.h gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_dawson(double x); -- -- dawson :: Double -> Double dawson = gsl_sf_dawson -foreign import ccall "dawson.h gsl_sf_dawson" gsl_sf_dawson :: Double -> Double +foreign import ccall "gsl_sf_dawson" gsl_sf_dawson :: Double -> Double diff --git a/lib/Numeric/GSL/Special/Debye.hs b/lib/Numeric/GSL/Special/Debye.hs index c059cf1..7221fca 100644 --- a/lib/Numeric/GSL/Special/Debye.hs +++ b/lib/Numeric/GSL/Special/Debye.hs @@ -38,81 +38,81 @@ import Numeric.GSL.Special.Internal -- debye_1_e :: Double -> (Double,Double) debye_1_e x = createSFR "debye_1_e" $ gsl_sf_debye_1_e x -foreign import ccall "debye.h gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_debye_1(double x); -- -- debye_1 :: Double -> Double debye_1 = gsl_sf_debye_1 -foreign import ccall "debye.h gsl_sf_debye_1" gsl_sf_debye_1 :: Double -> Double +foreign import ccall "gsl_sf_debye_1" gsl_sf_debye_1 :: Double -> Double -- | wrapper for int gsl_sf_debye_2_e(double x,gsl_sf_result* result); -- -- debye_2_e :: Double -> (Double,Double) debye_2_e x = createSFR "debye_2_e" $ gsl_sf_debye_2_e x -foreign import ccall "debye.h gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_debye_2(double x); -- -- debye_2 :: Double -> Double debye_2 = gsl_sf_debye_2 -foreign import ccall "debye.h gsl_sf_debye_2" gsl_sf_debye_2 :: Double -> Double +foreign import ccall "gsl_sf_debye_2" gsl_sf_debye_2 :: Double -> Double -- | wrapper for int gsl_sf_debye_3_e(double x,gsl_sf_result* result); -- -- debye_3_e :: Double -> (Double,Double) debye_3_e x = createSFR "debye_3_e" $ gsl_sf_debye_3_e x -foreign import ccall "debye.h gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_debye_3(double x); -- -- debye_3 :: Double -> Double debye_3 = gsl_sf_debye_3 -foreign import ccall "debye.h gsl_sf_debye_3" gsl_sf_debye_3 :: Double -> Double +foreign import ccall "gsl_sf_debye_3" gsl_sf_debye_3 :: Double -> Double -- | wrapper for int gsl_sf_debye_4_e(double x,gsl_sf_result* result); -- -- debye_4_e :: Double -> (Double,Double) debye_4_e x = createSFR "debye_4_e" $ gsl_sf_debye_4_e x -foreign import ccall "debye.h gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_debye_4(double x); -- -- debye_4 :: Double -> Double debye_4 = gsl_sf_debye_4 -foreign import ccall "debye.h gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double +foreign import ccall "gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double -- | wrapper for int gsl_sf_debye_5_e(double x,gsl_sf_result* result); -- -- debye_5_e :: Double -> (Double,Double) debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x -foreign import ccall "debye.h gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_debye_5(double x); -- -- debye_5 :: Double -> Double debye_5 = gsl_sf_debye_5 -foreign import ccall "debye.h gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double +foreign import ccall "gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double -- | wrapper for int gsl_sf_debye_6_e(double x,gsl_sf_result* result); -- -- debye_6_e :: Double -> (Double,Double) debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x -foreign import ccall "debye.h gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_debye_6(double x); -- -- debye_6 :: Double -> Double debye_6 = gsl_sf_debye_6 -foreign import ccall "debye.h gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double +foreign import ccall "gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double diff --git a/lib/Numeric/GSL/Special/Dilog.hs b/lib/Numeric/GSL/Special/Dilog.hs index eee33ac..ac70b8b 100644 --- a/lib/Numeric/GSL/Special/Dilog.hs +++ b/lib/Numeric/GSL/Special/Dilog.hs @@ -28,32 +28,32 @@ import Numeric.GSL.Special.Internal -- dilog_e :: Double -> (Double,Double) dilog_e x = createSFR "dilog_e" $ gsl_sf_dilog_e x -foreign import ccall "dilog.h gsl_sf_dilog_e" gsl_sf_dilog_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_dilog_e" gsl_sf_dilog_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_dilog(double x); -- -- dilog :: Double -> Double dilog = gsl_sf_dilog -foreign import ccall "dilog.h gsl_sf_dilog" gsl_sf_dilog :: Double -> Double +foreign import ccall "gsl_sf_dilog" gsl_sf_dilog :: Double -> Double -- | wrapper for int gsl_sf_complex_dilog_xy_e(double x,double y,gsl_sf_result* result_re,gsl_sf_result* result_im); -- -- complex_dilog_xy_e :: Double -> Double -> Ptr () -> (Double,Double) complex_dilog_xy_e x y result_re = createSFR "complex_dilog_xy_e" $ gsl_sf_complex_dilog_xy_e x y result_re -foreign import ccall "dilog.h gsl_sf_complex_dilog_xy_e" gsl_sf_complex_dilog_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_complex_dilog_xy_e" gsl_sf_complex_dilog_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_complex_dilog_e(double r,double theta,gsl_sf_result* result_re,gsl_sf_result* result_im); -- -- complex_dilog_e :: Double -> Double -> Ptr () -> (Double,Double) complex_dilog_e r theta result_re = createSFR "complex_dilog_e" $ gsl_sf_complex_dilog_e r theta result_re -foreign import ccall "dilog.h gsl_sf_complex_dilog_e" gsl_sf_complex_dilog_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_complex_dilog_e" gsl_sf_complex_dilog_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_complex_spence_xy_e(double x,double y,gsl_sf_result* real_sp,gsl_sf_result* imag_sp); -- -- complex_spence_xy_e :: Double -> Double -> Ptr () -> (Double,Double) complex_spence_xy_e x y real_sp = createSFR "complex_spence_xy_e" $ gsl_sf_complex_spence_xy_e x y real_sp -foreign import ccall "dilog.h gsl_sf_complex_spence_xy_e" gsl_sf_complex_spence_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_complex_spence_xy_e" gsl_sf_complex_spence_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt diff --git a/lib/Numeric/GSL/Special/Elementary.hs b/lib/Numeric/GSL/Special/Elementary.hs index 7744778..b433a7a 100644 --- a/lib/Numeric/GSL/Special/Elementary.hs +++ b/lib/Numeric/GSL/Special/Elementary.hs @@ -29,18 +29,18 @@ import Numeric.GSL.Special.Internal -- multiply_e :: Double -> Double -> (Double,Double) multiply_e x y = createSFR "multiply_e" $ gsl_sf_multiply_e x y -foreign import ccall "elementary.h gsl_sf_multiply_e" gsl_sf_multiply_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_multiply_e" gsl_sf_multiply_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_multiply(double x,double y); -- -- multiply :: Double -> Double -> Double multiply = gsl_sf_multiply -foreign import ccall "elementary.h gsl_sf_multiply" gsl_sf_multiply :: Double -> Double -> Double +foreign import ccall "gsl_sf_multiply" gsl_sf_multiply :: Double -> Double -> Double -- | wrapper for int gsl_sf_multiply_err_e(double x,double dx,double y,double dy,gsl_sf_result* result); -- -- multiply_err_e :: Double -> Double -> Double -> Double -> (Double,Double) multiply_err_e x dx y dy = createSFR "multiply_err_e" $ gsl_sf_multiply_err_e x dx y dy -foreign import ccall "elementary.h gsl_sf_multiply_err_e" gsl_sf_multiply_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_multiply_err_e" gsl_sf_multiply_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt diff --git a/lib/Numeric/GSL/Special/Ellint.hs b/lib/Numeric/GSL/Special/Ellint.hs index 52ca412..b4e84ad 100644 --- a/lib/Numeric/GSL/Special/Ellint.hs +++ b/lib/Numeric/GSL/Special/Ellint.hs @@ -50,165 +50,165 @@ import Numeric.GSL.Special.Internal -- ellint_Kcomp_e :: Double -> Precision -> (Double,Double) ellint_Kcomp_e k mode = createSFR "ellint_Kcomp_e" $ gsl_sf_ellint_Kcomp_e k (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_ellint_Kcomp(double k,gsl_mode_t mode); -- -- ellint_Kcomp :: Double -> Precision -> Double ellint_Kcomp k mode = gsl_sf_ellint_Kcomp k (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_Kcomp" gsl_sf_ellint_Kcomp :: Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_ellint_Kcomp" gsl_sf_ellint_Kcomp :: Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_ellint_Ecomp_e(double k,gsl_mode_t mode,gsl_sf_result* result); -- -- ellint_Ecomp_e :: Double -> Precision -> (Double,Double) ellint_Ecomp_e k mode = createSFR "ellint_Ecomp_e" $ gsl_sf_ellint_Ecomp_e k (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_ellint_Ecomp(double k,gsl_mode_t mode); -- -- ellint_Ecomp :: Double -> Precision -> Double ellint_Ecomp k mode = gsl_sf_ellint_Ecomp k (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_ellint_Pcomp_e(double k,double n,gsl_mode_t mode,gsl_sf_result* result); -- -- ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double) ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_ellint_Pcomp(double k,double n,gsl_mode_t mode); -- -- ellint_Pcomp :: Double -> Double -> Precision -> Double ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_ellint_Dcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result); -- -- ellint_Dcomp_e :: Double -> Precision -> (Double,Double) ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_ellint_Dcomp(double k,gsl_mode_t mode); -- -- ellint_Dcomp :: Double -> Precision -> Double ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_ellint_F_e(double phi,double k,gsl_mode_t mode,gsl_sf_result* result); -- -- ellint_F_e :: Double -> Double -> Precision -> (Double,Double) ellint_F_e phi k mode = createSFR "ellint_F_e" $ gsl_sf_ellint_F_e phi k (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_ellint_F(double phi,double k,gsl_mode_t mode); -- -- ellint_F :: Double -> Double -> Precision -> Double ellint_F phi k mode = gsl_sf_ellint_F phi k (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_F" gsl_sf_ellint_F :: Double -> Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_ellint_F" gsl_sf_ellint_F :: Double -> Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_ellint_E_e(double phi,double k,gsl_mode_t mode,gsl_sf_result* result); -- -- ellint_E_e :: Double -> Double -> Precision -> (Double,Double) ellint_E_e phi k mode = createSFR "ellint_E_e" $ gsl_sf_ellint_E_e phi k (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_ellint_E(double phi,double k,gsl_mode_t mode); -- -- ellint_E :: Double -> Double -> Precision -> Double ellint_E phi k mode = gsl_sf_ellint_E phi k (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_E" gsl_sf_ellint_E :: Double -> Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_ellint_E" gsl_sf_ellint_E :: Double -> Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_ellint_P_e(double phi,double k,double n,gsl_mode_t mode,gsl_sf_result* result); -- -- ellint_P_e :: Double -> Double -> Double -> Precision -> (Double,Double) ellint_P_e phi k n mode = createSFR "ellint_P_e" $ gsl_sf_ellint_P_e phi k n (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_ellint_P(double phi,double k,double n,gsl_mode_t mode); -- -- ellint_P :: Double -> Double -> Double -> Precision -> Double ellint_P phi k n mode = gsl_sf_ellint_P phi k n (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_P" gsl_sf_ellint_P :: Double -> Double -> Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_ellint_P" gsl_sf_ellint_P :: Double -> Double -> Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_ellint_D_e(double phi,double k,double n,gsl_mode_t mode,gsl_sf_result* result); -- -- ellint_D_e :: Double -> Double -> Double -> Precision -> (Double,Double) ellint_D_e phi k n mode = createSFR "ellint_D_e" $ gsl_sf_ellint_D_e phi k n (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_ellint_D(double phi,double k,double n,gsl_mode_t mode); -- -- ellint_D :: Double -> Double -> Double -> Precision -> Double ellint_D phi k n mode = gsl_sf_ellint_D phi k n (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_D" gsl_sf_ellint_D :: Double -> Double -> Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_ellint_D" gsl_sf_ellint_D :: Double -> Double -> Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_ellint_RC_e(double x,double y,gsl_mode_t mode,gsl_sf_result* result); -- -- ellint_RC_e :: Double -> Double -> Precision -> (Double,Double) ellint_RC_e x y mode = createSFR "ellint_RC_e" $ gsl_sf_ellint_RC_e x y (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_ellint_RC(double x,double y,gsl_mode_t mode); -- -- ellint_RC :: Double -> Double -> Precision -> Double ellint_RC x y mode = gsl_sf_ellint_RC x y (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_RC" gsl_sf_ellint_RC :: Double -> Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_ellint_RC" gsl_sf_ellint_RC :: Double -> Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_ellint_RD_e(double x,double y,double z,gsl_mode_t mode,gsl_sf_result* result); -- -- ellint_RD_e :: Double -> Double -> Double -> Precision -> (Double,Double) ellint_RD_e x y z mode = createSFR "ellint_RD_e" $ gsl_sf_ellint_RD_e x y z (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_ellint_RD(double x,double y,double z,gsl_mode_t mode); -- -- ellint_RD :: Double -> Double -> Double -> Precision -> Double ellint_RD x y z mode = gsl_sf_ellint_RD x y z (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_RD" gsl_sf_ellint_RD :: Double -> Double -> Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_ellint_RD" gsl_sf_ellint_RD :: Double -> Double -> Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_ellint_RF_e(double x,double y,double z,gsl_mode_t mode,gsl_sf_result* result); -- -- ellint_RF_e :: Double -> Double -> Double -> Precision -> (Double,Double) ellint_RF_e x y z mode = createSFR "ellint_RF_e" $ gsl_sf_ellint_RF_e x y z (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_ellint_RF(double x,double y,double z,gsl_mode_t mode); -- -- ellint_RF :: Double -> Double -> Double -> Precision -> Double ellint_RF x y z mode = gsl_sf_ellint_RF x y z (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_RF" gsl_sf_ellint_RF :: Double -> Double -> Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_ellint_RF" gsl_sf_ellint_RF :: Double -> Double -> Double -> Gsl_mode_t -> Double -- | wrapper for int gsl_sf_ellint_RJ_e(double x,double y,double z,double p,gsl_mode_t mode,gsl_sf_result* result); -- -- ellint_RJ_e :: Double -> Double -> Double -> Double -> Precision -> (Double,Double) ellint_RJ_e x y z p mode = createSFR "ellint_RJ_e" $ gsl_sf_ellint_RJ_e x y z p (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_ellint_RJ(double x,double y,double z,double p,gsl_mode_t mode); -- -- ellint_RJ :: Double -> Double -> Double -> Double -> Precision -> Double ellint_RJ x y z p mode = gsl_sf_ellint_RJ x y z p (precCode mode) -foreign import ccall "ellint.h gsl_sf_ellint_RJ" gsl_sf_ellint_RJ :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Double +foreign import ccall "gsl_sf_ellint_RJ" gsl_sf_ellint_RJ :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Double diff --git a/lib/Numeric/GSL/Special/Erf.hs b/lib/Numeric/GSL/Special/Erf.hs index 347e621..6689c1e 100644 --- a/lib/Numeric/GSL/Special/Erf.hs +++ b/lib/Numeric/GSL/Special/Erf.hs @@ -38,81 +38,81 @@ import Numeric.GSL.Special.Internal -- erfc_e :: Double -> (Double,Double) erfc_e x = createSFR "erfc_e" $ gsl_sf_erfc_e x -foreign import ccall "erf.h gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_erfc(double x); -- -- erfc :: Double -> Double erfc = gsl_sf_erfc -foreign import ccall "erf.h gsl_sf_erfc" gsl_sf_erfc :: Double -> Double +foreign import ccall "gsl_sf_erfc" gsl_sf_erfc :: Double -> Double -- | wrapper for int gsl_sf_log_erfc_e(double x,gsl_sf_result* result); -- -- log_erfc_e :: Double -> (Double,Double) log_erfc_e x = createSFR "log_erfc_e" $ gsl_sf_log_erfc_e x -foreign import ccall "erf.h gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_log_erfc(double x); -- -- log_erfc :: Double -> Double log_erfc = gsl_sf_log_erfc -foreign import ccall "erf.h gsl_sf_log_erfc" gsl_sf_log_erfc :: Double -> Double +foreign import ccall "gsl_sf_log_erfc" gsl_sf_log_erfc :: Double -> Double -- | wrapper for int gsl_sf_erf_e(double x,gsl_sf_result* result); -- -- erf_e :: Double -> (Double,Double) erf_e x = createSFR "erf_e" $ gsl_sf_erf_e x -foreign import ccall "erf.h gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_erf(double x); -- -- erf :: Double -> Double erf = gsl_sf_erf -foreign import ccall "erf.h gsl_sf_erf" gsl_sf_erf :: Double -> Double +foreign import ccall "gsl_sf_erf" gsl_sf_erf :: Double -> Double -- | wrapper for int gsl_sf_erf_Z_e(double x,gsl_sf_result* result); -- -- erf_Z_e :: Double -> (Double,Double) erf_Z_e x = createSFR "erf_Z_e" $ gsl_sf_erf_Z_e x -foreign import ccall "erf.h gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_erf_Q_e(double x,gsl_sf_result* result); -- -- erf_Q_e :: Double -> (Double,Double) erf_Q_e x = createSFR "erf_Q_e" $ gsl_sf_erf_Q_e x -foreign import ccall "erf.h gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_erf_Z(double x); -- -- erf_Z :: Double -> Double erf_Z = gsl_sf_erf_Z -foreign import ccall "erf.h gsl_sf_erf_Z" gsl_sf_erf_Z :: Double -> Double +foreign import ccall "gsl_sf_erf_Z" gsl_sf_erf_Z :: Double -> Double -- | wrapper for double gsl_sf_erf_Q(double x); -- -- erf_Q :: Double -> Double erf_Q = gsl_sf_erf_Q -foreign import ccall "erf.h gsl_sf_erf_Q" gsl_sf_erf_Q :: Double -> Double +foreign import ccall "gsl_sf_erf_Q" gsl_sf_erf_Q :: Double -> Double -- | wrapper for int gsl_sf_hazard_e(double x,gsl_sf_result* result); -- -- hazard_e :: Double -> (Double,Double) hazard_e x = createSFR "hazard_e" $ gsl_sf_hazard_e x -foreign import ccall "erf.h gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_hazard(double x); -- -- hazard :: Double -> Double hazard = gsl_sf_hazard -foreign import ccall "erf.h gsl_sf_hazard" gsl_sf_hazard :: Double -> Double +foreign import ccall "gsl_sf_hazard" gsl_sf_hazard :: Double -> Double diff --git a/lib/Numeric/GSL/Special/Exp.hs b/lib/Numeric/GSL/Special/Exp.hs index 52ec6df..9a407e7 100644 --- a/lib/Numeric/GSL/Special/Exp.hs +++ b/lib/Numeric/GSL/Special/Exp.hs @@ -29,6 +29,7 @@ module Numeric.GSL.Special.Exp( , exprel_2 , exprel_n_e , exprel_n +, exprel_n_CF_e , exp_err_e , exp_err_e10_e , exp_mult_err_e @@ -44,123 +45,130 @@ import Numeric.GSL.Special.Internal -- exp_e :: Double -> (Double,Double) exp_e x = createSFR "exp_e" $ gsl_sf_exp_e x -foreign import ccall "exp.h gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_exp(double x); -- -- exp :: Double -> Double exp = gsl_sf_exp -foreign import ccall "exp.h gsl_sf_exp" gsl_sf_exp :: Double -> Double +foreign import ccall "gsl_sf_exp" gsl_sf_exp :: Double -> Double -- | wrapper for int gsl_sf_exp_e10_e(double x,gsl_sf_result_e10* result); -- -- exp_e10_e :: Double -> (Double,Int,Double) exp_e10_e x = createSFR_E10 "exp_e10_e" $ gsl_sf_exp_e10_e x -foreign import ccall "exp.h gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_exp_mult_e(double x,double y,gsl_sf_result* result); -- -- exp_mult_e :: Double -> Double -> (Double,Double) exp_mult_e x y = createSFR "exp_mult_e" $ gsl_sf_exp_mult_e x y -foreign import ccall "exp.h gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_exp_mult(double x,double y); -- -- exp_mult :: Double -> Double -> Double exp_mult = gsl_sf_exp_mult -foreign import ccall "exp.h gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double +foreign import ccall "gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double -- | wrapper for int gsl_sf_exp_mult_e10_e(double x,double y,gsl_sf_result_e10* result); -- -- exp_mult_e10_e :: Double -> Double -> (Double,Int,Double) exp_mult_e10_e x y = createSFR_E10 "exp_mult_e10_e" $ gsl_sf_exp_mult_e10_e x y -foreign import ccall "exp.h gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_expm1_e(double x,gsl_sf_result* result); -- -- expm1_e :: Double -> (Double,Double) expm1_e x = createSFR "expm1_e" $ gsl_sf_expm1_e x -foreign import ccall "exp.h gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_expm1(double x); -- -- expm1 :: Double -> Double expm1 = gsl_sf_expm1 -foreign import ccall "exp.h gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double +foreign import ccall "gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double -- | wrapper for int gsl_sf_exprel_e(double x,gsl_sf_result* result); -- -- exprel_e :: Double -> (Double,Double) exprel_e x = createSFR "exprel_e" $ gsl_sf_exprel_e x -foreign import ccall "exp.h gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_exprel(double x); -- -- exprel :: Double -> Double exprel = gsl_sf_exprel -foreign import ccall "exp.h gsl_sf_exprel" gsl_sf_exprel :: Double -> Double +foreign import ccall "gsl_sf_exprel" gsl_sf_exprel :: Double -> Double -- | wrapper for int gsl_sf_exprel_2_e(double x,gsl_sf_result* result); -- -- exprel_2_e :: Double -> (Double,Double) exprel_2_e x = createSFR "exprel_2_e" $ gsl_sf_exprel_2_e x -foreign import ccall "exp.h gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_exprel_2(double x); -- -- exprel_2 :: Double -> Double exprel_2 = gsl_sf_exprel_2 -foreign import ccall "exp.h gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double +foreign import ccall "gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double -- | wrapper for int gsl_sf_exprel_n_e(int n,double x,gsl_sf_result* result); -- -- exprel_n_e :: CInt -> Double -> (Double,Double) exprel_n_e n x = createSFR "exprel_n_e" $ gsl_sf_exprel_n_e n x -foreign import ccall "exp.h gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_exprel_n(int n,double x); -- -- exprel_n :: CInt -> Double -> Double exprel_n = gsl_sf_exprel_n -foreign import ccall "exp.h gsl_sf_exprel_n" gsl_sf_exprel_n :: CInt -> Double -> Double +foreign import ccall "gsl_sf_exprel_n" gsl_sf_exprel_n :: CInt -> Double -> Double + +-- | wrapper for int gsl_sf_exprel_n_CF_e(double n,double x,gsl_sf_result* result); +-- +-- +exprel_n_CF_e :: Double -> Double -> (Double,Double) +exprel_n_CF_e n x = createSFR "exprel_n_CF_e" $ gsl_sf_exprel_n_CF_e n x +foreign import ccall "gsl_sf_exprel_n_CF_e" gsl_sf_exprel_n_CF_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_exp_err_e(double x,double dx,gsl_sf_result* result); -- -- exp_err_e :: Double -> Double -> (Double,Double) exp_err_e x dx = createSFR "exp_err_e" $ gsl_sf_exp_err_e x dx -foreign import ccall "exp.h gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_exp_err_e10_e(double x,double dx,gsl_sf_result_e10* result); -- -- exp_err_e10_e :: Double -> Double -> (Double,Int,Double) exp_err_e10_e x dx = createSFR_E10 "exp_err_e10_e" $ gsl_sf_exp_err_e10_e x dx -foreign import ccall "exp.h gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_exp_mult_err_e(double x,double dx,double y,double dy,gsl_sf_result* result); -- -- exp_mult_err_e :: Double -> Double -> Double -> Double -> (Double,Double) exp_mult_err_e x dx y dy = createSFR "exp_mult_err_e" $ gsl_sf_exp_mult_err_e x dx y dy -foreign import ccall "exp.h gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_exp_mult_err_e10_e(double x,double dx,double y,double dy,gsl_sf_result_e10* result); -- -- exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> (Double,Int,Double) exp_mult_err_e10_e x dx y dy = createSFR_E10 "exp_mult_err_e10_e" $ gsl_sf_exp_mult_err_e10_e x dx y dy -foreign import ccall "exp.h gsl_sf_exp_mult_err_e10_e" gsl_sf_exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_exp_mult_err_e10_e" gsl_sf_exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt diff --git a/lib/Numeric/GSL/Special/Expint.hs b/lib/Numeric/GSL/Special/Expint.hs index fd92216..c70d28a 100644 --- a/lib/Numeric/GSL/Special/Expint.hs +++ b/lib/Numeric/GSL/Special/Expint.hs @@ -19,10 +19,14 @@ module Numeric.GSL.Special.Expint( , expint_E1 , expint_E2_e , expint_E2 +, expint_En_e +, expint_En , expint_E1_scaled_e , expint_E1_scaled , expint_E2_scaled_e , expint_E2_scaled +, expint_En_scaled_e +, expint_En_scaled , expint_Ei_e , expint_Ei , expint_Ei_scaled_e @@ -50,165 +54,193 @@ import Numeric.GSL.Special.Internal -- expint_E1_e :: Double -> (Double,Double) expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x -foreign import ccall "expint.h gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_expint_E1(double x); -- -- expint_E1 :: Double -> Double expint_E1 = gsl_sf_expint_E1 -foreign import ccall "expint.h gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double +foreign import ccall "gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double -- | wrapper for int gsl_sf_expint_E2_e(double x,gsl_sf_result* result); -- -- expint_E2_e :: Double -> (Double,Double) expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x -foreign import ccall "expint.h gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_expint_E2(double x); -- -- expint_E2 :: Double -> Double expint_E2 = gsl_sf_expint_E2 -foreign import ccall "expint.h gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double +foreign import ccall "gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double + +-- | wrapper for int gsl_sf_expint_En_e(int n,double x,gsl_sf_result* result); +-- +-- +expint_En_e :: CInt -> Double -> (Double,Double) +expint_En_e n x = createSFR "expint_En_e" $ gsl_sf_expint_En_e n x +foreign import ccall "gsl_sf_expint_En_e" gsl_sf_expint_En_e :: CInt -> Double -> Ptr () -> IO CInt + +-- | wrapper for double gsl_sf_expint_En(int n,double x); +-- +-- +expint_En :: CInt -> Double -> Double +expint_En = gsl_sf_expint_En +foreign import ccall "gsl_sf_expint_En" gsl_sf_expint_En :: CInt -> Double -> Double -- | wrapper for int gsl_sf_expint_E1_scaled_e(double x,gsl_sf_result* result); -- -- expint_E1_scaled_e :: Double -> (Double,Double) expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x -foreign import ccall "expint.h gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_expint_E1_scaled(double x); -- -- expint_E1_scaled :: Double -> Double expint_E1_scaled = gsl_sf_expint_E1_scaled -foreign import ccall "expint.h gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double +foreign import ccall "gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double -- | wrapper for int gsl_sf_expint_E2_scaled_e(double x,gsl_sf_result* result); -- -- expint_E2_scaled_e :: Double -> (Double,Double) expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x -foreign import ccall "expint.h gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_expint_E2_scaled(double x); -- -- expint_E2_scaled :: Double -> Double expint_E2_scaled = gsl_sf_expint_E2_scaled -foreign import ccall "expint.h gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double +foreign import ccall "gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double + +-- | wrapper for int gsl_sf_expint_En_scaled_e(int n,double x,gsl_sf_result* result); +-- +-- +expint_En_scaled_e :: CInt -> Double -> (Double,Double) +expint_En_scaled_e n x = createSFR "expint_En_scaled_e" $ gsl_sf_expint_En_scaled_e n x +foreign import ccall "gsl_sf_expint_En_scaled_e" gsl_sf_expint_En_scaled_e :: CInt -> Double -> Ptr () -> IO CInt + +-- | wrapper for double gsl_sf_expint_En_scaled(int n,double x); +-- +-- +expint_En_scaled :: CInt -> Double -> Double +expint_En_scaled = gsl_sf_expint_En_scaled +foreign import ccall "gsl_sf_expint_En_scaled" gsl_sf_expint_En_scaled :: CInt -> Double -> Double -- | wrapper for int gsl_sf_expint_Ei_e(double x,gsl_sf_result* result); -- -- expint_Ei_e :: Double -> (Double,Double) expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x -foreign import ccall "expint.h gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_expint_Ei(double x); -- -- expint_Ei :: Double -> Double expint_Ei = gsl_sf_expint_Ei -foreign import ccall "expint.h gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double +foreign import ccall "gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double -- | wrapper for int gsl_sf_expint_Ei_scaled_e(double x,gsl_sf_result* result); -- -- expint_Ei_scaled_e :: Double -> (Double,Double) expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x -foreign import ccall "expint.h gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_expint_Ei_scaled(double x); -- -- expint_Ei_scaled :: Double -> Double expint_Ei_scaled = gsl_sf_expint_Ei_scaled -foreign import ccall "expint.h gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double +foreign import ccall "gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double -- | wrapper for int gsl_sf_Shi_e(double x,gsl_sf_result* result); -- -- shi_e :: Double -> (Double,Double) shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x -foreign import ccall "expint.h gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_Shi(double x); -- -- shi :: Double -> Double shi = gsl_sf_Shi -foreign import ccall "expint.h gsl_sf_Shi" gsl_sf_Shi :: Double -> Double +foreign import ccall "gsl_sf_Shi" gsl_sf_Shi :: Double -> Double -- | wrapper for int gsl_sf_Chi_e(double x,gsl_sf_result* result); -- -- chi_e :: Double -> (Double,Double) chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x -foreign import ccall "expint.h gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_Chi(double x); -- -- chi :: Double -> Double chi = gsl_sf_Chi -foreign import ccall "expint.h gsl_sf_Chi" gsl_sf_Chi :: Double -> Double +foreign import ccall "gsl_sf_Chi" gsl_sf_Chi :: Double -> Double -- | wrapper for int gsl_sf_expint_3_e(double x,gsl_sf_result* result); -- -- expint_3_e :: Double -> (Double,Double) expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x -foreign import ccall "expint.h gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_expint_3(double x); -- -- expint_3 :: Double -> Double expint_3 = gsl_sf_expint_3 -foreign import ccall "expint.h gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double +foreign import ccall "gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double -- | wrapper for int gsl_sf_Si_e(double x,gsl_sf_result* result); -- -- si_e :: Double -> (Double,Double) si_e x = createSFR "si_e" $ gsl_sf_Si_e x -foreign import ccall "expint.h gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_Si(double x); -- -- si :: Double -> Double si = gsl_sf_Si -foreign import ccall "expint.h gsl_sf_Si" gsl_sf_Si :: Double -> Double +foreign import ccall "gsl_sf_Si" gsl_sf_Si :: Double -> Double -- | wrapper for int gsl_sf_Ci_e(double x,gsl_sf_result* result); -- -- ci_e :: Double -> (Double,Double) ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x -foreign import ccall "expint.h gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_Ci(double x); -- -- ci :: Double -> Double ci = gsl_sf_Ci -foreign import ccall "expint.h gsl_sf_Ci" gsl_sf_Ci :: Double -> Double +foreign import ccall "gsl_sf_Ci" gsl_sf_Ci :: Double -> Double -- | wrapper for int gsl_sf_atanint_e(double x,gsl_sf_result* result); -- -- atanint_e :: Double -> (Double,Double) atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x -foreign import ccall "expint.h gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_atanint(double x); -- -- atanint :: Double -> Double atanint = gsl_sf_atanint -foreign import ccall "expint.h gsl_sf_atanint" gsl_sf_atanint :: Double -> Double +foreign import ccall "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double diff --git a/lib/Numeric/GSL/Special/Fermi_dirac.hs b/lib/Numeric/GSL/Special/Fermi_dirac.hs index cef5304..d59fce1 100644 --- a/lib/Numeric/GSL/Special/Fermi_dirac.hs +++ b/lib/Numeric/GSL/Special/Fermi_dirac.hs @@ -44,123 +44,123 @@ import Numeric.GSL.Special.Internal -- fermi_dirac_m1_e :: Double -> (Double,Double) fermi_dirac_m1_e x = createSFR "fermi_dirac_m1_e" $ gsl_sf_fermi_dirac_m1_e x -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_fermi_dirac_m1(double x); -- -- fermi_dirac_m1 :: Double -> Double fermi_dirac_m1 = gsl_sf_fermi_dirac_m1 -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1 :: Double -> Double +foreign import ccall "gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1 :: Double -> Double -- | wrapper for int gsl_sf_fermi_dirac_0_e(double x,gsl_sf_result* result); -- -- fermi_dirac_0_e :: Double -> (Double,Double) fermi_dirac_0_e x = createSFR "fermi_dirac_0_e" $ gsl_sf_fermi_dirac_0_e x -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_fermi_dirac_0(double x); -- -- fermi_dirac_0 :: Double -> Double fermi_dirac_0 = gsl_sf_fermi_dirac_0 -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 :: Double -> Double +foreign import ccall "gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 :: Double -> Double -- | wrapper for int gsl_sf_fermi_dirac_1_e(double x,gsl_sf_result* result); -- -- fermi_dirac_1_e :: Double -> (Double,Double) fermi_dirac_1_e x = createSFR "fermi_dirac_1_e" $ gsl_sf_fermi_dirac_1_e x -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_fermi_dirac_1(double x); -- -- fermi_dirac_1 :: Double -> Double fermi_dirac_1 = gsl_sf_fermi_dirac_1 -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 :: Double -> Double +foreign import ccall "gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 :: Double -> Double -- | wrapper for int gsl_sf_fermi_dirac_2_e(double x,gsl_sf_result* result); -- -- fermi_dirac_2_e :: Double -> (Double,Double) fermi_dirac_2_e x = createSFR "fermi_dirac_2_e" $ gsl_sf_fermi_dirac_2_e x -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_fermi_dirac_2(double x); -- -- fermi_dirac_2 :: Double -> Double fermi_dirac_2 = gsl_sf_fermi_dirac_2 -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 :: Double -> Double +foreign import ccall "gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 :: Double -> Double -- | wrapper for int gsl_sf_fermi_dirac_int_e(int j,double x,gsl_sf_result* result); -- -- fermi_dirac_int_e :: CInt -> Double -> (Double,Double) fermi_dirac_int_e j x = createSFR "fermi_dirac_int_e" $ gsl_sf_fermi_dirac_int_e j x -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_fermi_dirac_int(int j,double x); -- -- fermi_dirac_int :: CInt -> Double -> Double fermi_dirac_int = gsl_sf_fermi_dirac_int -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: CInt -> Double -> Double +foreign import ccall "gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: CInt -> Double -> Double -- | wrapper for int gsl_sf_fermi_dirac_mhalf_e(double x,gsl_sf_result* result); -- -- fermi_dirac_mhalf_e :: Double -> (Double,Double) fermi_dirac_mhalf_e x = createSFR "fermi_dirac_mhalf_e" $ gsl_sf_fermi_dirac_mhalf_e x -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_fermi_dirac_mhalf(double x); -- -- fermi_dirac_mhalf :: Double -> Double fermi_dirac_mhalf = gsl_sf_fermi_dirac_mhalf -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac_mhalf :: Double -> Double +foreign import ccall "gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac_mhalf :: Double -> Double -- | wrapper for int gsl_sf_fermi_dirac_half_e(double x,gsl_sf_result* result); -- -- fermi_dirac_half_e :: Double -> (Double,Double) fermi_dirac_half_e x = createSFR "fermi_dirac_half_e" $ gsl_sf_fermi_dirac_half_e x -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_fermi_dirac_half(double x); -- -- fermi_dirac_half :: Double -> Double fermi_dirac_half = gsl_sf_fermi_dirac_half -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_half :: Double -> Double +foreign import ccall "gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_half :: Double -> Double -- | wrapper for int gsl_sf_fermi_dirac_3half_e(double x,gsl_sf_result* result); -- -- fermi_dirac_3half_e :: Double -> (Double,Double) fermi_dirac_3half_e x = createSFR "fermi_dirac_3half_e" $ gsl_sf_fermi_dirac_3half_e x -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_fermi_dirac_3half(double x); -- -- fermi_dirac_3half :: Double -> Double fermi_dirac_3half = gsl_sf_fermi_dirac_3half -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac_3half :: Double -> Double +foreign import ccall "gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac_3half :: Double -> Double -- | wrapper for int gsl_sf_fermi_dirac_inc_0_e(double x,double b,gsl_sf_result* result); -- -- fermi_dirac_inc_0_e :: Double -> Double -> (Double,Double) fermi_dirac_inc_0_e x b = createSFR "fermi_dirac_inc_0_e" $ gsl_sf_fermi_dirac_inc_0_e x b -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_inc_0_e" gsl_sf_fermi_dirac_inc_0_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_fermi_dirac_inc_0_e" gsl_sf_fermi_dirac_inc_0_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_fermi_dirac_inc_0(double x,double b); -- -- fermi_dirac_inc_0 :: Double -> Double -> Double fermi_dirac_inc_0 = gsl_sf_fermi_dirac_inc_0 -foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_inc_0" gsl_sf_fermi_dirac_inc_0 :: Double -> Double -> Double +foreign import ccall "gsl_sf_fermi_dirac_inc_0" gsl_sf_fermi_dirac_inc_0 :: Double -> Double -> Double diff --git a/lib/Numeric/GSL/Special/Gamma.hs b/lib/Numeric/GSL/Special/Gamma.hs index 7bba728..cef086e 100644 --- a/lib/Numeric/GSL/Special/Gamma.hs +++ b/lib/Numeric/GSL/Special/Gamma.hs @@ -66,305 +66,305 @@ import Numeric.GSL.Special.Internal -- lngamma_e :: Double -> (Double,Double) lngamma_e x = createSFR "lngamma_e" $ gsl_sf_lngamma_e x -foreign import ccall "gamma.h gsl_sf_lngamma_e" gsl_sf_lngamma_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_lngamma_e" gsl_sf_lngamma_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_lngamma(double x); -- -- lngamma :: Double -> Double lngamma = gsl_sf_lngamma -foreign import ccall "gamma.h gsl_sf_lngamma" gsl_sf_lngamma :: Double -> Double +foreign import ccall "gsl_sf_lngamma" gsl_sf_lngamma :: Double -> Double -- | wrapper for int gsl_sf_lngamma_sgn_e(double x,gsl_sf_result* result_lg,double* sgn); -- -- lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt lngamma_sgn_e = gsl_sf_lngamma_sgn_e -foreign import ccall "gamma.h gsl_sf_lngamma_sgn_e" gsl_sf_lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt +foreign import ccall "gsl_sf_lngamma_sgn_e" gsl_sf_lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt -- | wrapper for int gsl_sf_gamma_e(double x,gsl_sf_result* result); -- -- gamma_e :: Double -> (Double,Double) gamma_e x = createSFR "gamma_e" $ gsl_sf_gamma_e x -foreign import ccall "gamma.h gsl_sf_gamma_e" gsl_sf_gamma_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_gamma_e" gsl_sf_gamma_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_gamma(double x); -- -- gamma :: Double -> Double gamma = gsl_sf_gamma -foreign import ccall "gamma.h gsl_sf_gamma" gsl_sf_gamma :: Double -> Double +foreign import ccall "gsl_sf_gamma" gsl_sf_gamma :: Double -> Double -- | wrapper for int gsl_sf_gammastar_e(double x,gsl_sf_result* result); -- -- gammastar_e :: Double -> (Double,Double) gammastar_e x = createSFR "gammastar_e" $ gsl_sf_gammastar_e x -foreign import ccall "gamma.h gsl_sf_gammastar_e" gsl_sf_gammastar_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_gammastar_e" gsl_sf_gammastar_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_gammastar(double x); -- -- gammastar :: Double -> Double gammastar = gsl_sf_gammastar -foreign import ccall "gamma.h gsl_sf_gammastar" gsl_sf_gammastar :: Double -> Double +foreign import ccall "gsl_sf_gammastar" gsl_sf_gammastar :: Double -> Double -- | wrapper for int gsl_sf_gammainv_e(double x,gsl_sf_result* result); -- -- gammainv_e :: Double -> (Double,Double) gammainv_e x = createSFR "gammainv_e" $ gsl_sf_gammainv_e x -foreign import ccall "gamma.h gsl_sf_gammainv_e" gsl_sf_gammainv_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_gammainv_e" gsl_sf_gammainv_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_gammainv(double x); -- -- gammainv :: Double -> Double gammainv = gsl_sf_gammainv -foreign import ccall "gamma.h gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double +foreign import ccall "gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double -- | wrapper for int gsl_sf_lngamma_complex_e(double zr,double zi,gsl_sf_result* lnr,gsl_sf_result* arg); -- -- lngamma_complex_e :: Double -> Double -> Ptr () -> (Double,Double) lngamma_complex_e zr zi lnr = createSFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi lnr -foreign import ccall "gamma.h gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_taylorcoeff_e(int n,double x,gsl_sf_result* result); -- -- taylorcoeff_e :: CInt -> Double -> (Double,Double) taylorcoeff_e n x = createSFR "taylorcoeff_e" $ gsl_sf_taylorcoeff_e n x -foreign import ccall "gamma.h gsl_sf_taylorcoeff_e" gsl_sf_taylorcoeff_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_taylorcoeff_e" gsl_sf_taylorcoeff_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_taylorcoeff(int n,double x); -- -- taylorcoeff :: CInt -> Double -> Double taylorcoeff = gsl_sf_taylorcoeff -foreign import ccall "gamma.h gsl_sf_taylorcoeff" gsl_sf_taylorcoeff :: CInt -> Double -> Double +foreign import ccall "gsl_sf_taylorcoeff" gsl_sf_taylorcoeff :: CInt -> Double -> Double -- | wrapper for int gsl_sf_fact_e(int n,gsl_sf_result* result); -- -- fact_e :: CInt -> (Double,Double) fact_e n = createSFR "fact_e" $ gsl_sf_fact_e n -foreign import ccall "gamma.h gsl_sf_fact_e" gsl_sf_fact_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_fact_e" gsl_sf_fact_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_fact(int n); -- -- fact :: CInt -> Double fact = gsl_sf_fact -foreign import ccall "gamma.h gsl_sf_fact" gsl_sf_fact :: CInt -> Double +foreign import ccall "gsl_sf_fact" gsl_sf_fact :: CInt -> Double -- | wrapper for int gsl_sf_doublefact_e(int n,gsl_sf_result* result); -- -- doublefact_e :: CInt -> (Double,Double) doublefact_e n = createSFR "doublefact_e" $ gsl_sf_doublefact_e n -foreign import ccall "gamma.h gsl_sf_doublefact_e" gsl_sf_doublefact_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_doublefact_e" gsl_sf_doublefact_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_doublefact(int n); -- -- doublefact :: CInt -> Double doublefact = gsl_sf_doublefact -foreign import ccall "gamma.h gsl_sf_doublefact" gsl_sf_doublefact :: CInt -> Double +foreign import ccall "gsl_sf_doublefact" gsl_sf_doublefact :: CInt -> Double -- | wrapper for int gsl_sf_lnfact_e(int n,gsl_sf_result* result); -- -- lnfact_e :: CInt -> (Double,Double) lnfact_e n = createSFR "lnfact_e" $ gsl_sf_lnfact_e n -foreign import ccall "gamma.h gsl_sf_lnfact_e" gsl_sf_lnfact_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_lnfact_e" gsl_sf_lnfact_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_lnfact(int n); -- -- lnfact :: CInt -> Double lnfact = gsl_sf_lnfact -foreign import ccall "gamma.h gsl_sf_lnfact" gsl_sf_lnfact :: CInt -> Double +foreign import ccall "gsl_sf_lnfact" gsl_sf_lnfact :: CInt -> Double -- | wrapper for int gsl_sf_lndoublefact_e(int n,gsl_sf_result* result); -- -- lndoublefact_e :: CInt -> (Double,Double) lndoublefact_e n = createSFR "lndoublefact_e" $ gsl_sf_lndoublefact_e n -foreign import ccall "gamma.h gsl_sf_lndoublefact_e" gsl_sf_lndoublefact_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_lndoublefact_e" gsl_sf_lndoublefact_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_lndoublefact(int n); -- -- lndoublefact :: CInt -> Double lndoublefact = gsl_sf_lndoublefact -foreign import ccall "gamma.h gsl_sf_lndoublefact" gsl_sf_lndoublefact :: CInt -> Double +foreign import ccall "gsl_sf_lndoublefact" gsl_sf_lndoublefact :: CInt -> Double -- | wrapper for int gsl_sf_lnchoose_e(int n,int m,gsl_sf_result* result); -- -- lnchoose_e :: CInt -> CInt -> (Double,Double) lnchoose_e n m = createSFR "lnchoose_e" $ gsl_sf_lnchoose_e n m -foreign import ccall "gamma.h gsl_sf_lnchoose_e" gsl_sf_lnchoose_e :: CInt -> CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_lnchoose_e" gsl_sf_lnchoose_e :: CInt -> CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_lnchoose(int n,int m); -- -- lnchoose :: CInt -> CInt -> Double lnchoose = gsl_sf_lnchoose -foreign import ccall "gamma.h gsl_sf_lnchoose" gsl_sf_lnchoose :: CInt -> CInt -> Double +foreign import ccall "gsl_sf_lnchoose" gsl_sf_lnchoose :: CInt -> CInt -> Double -- | wrapper for int gsl_sf_choose_e(int n,int m,gsl_sf_result* result); -- -- choose_e :: CInt -> CInt -> (Double,Double) choose_e n m = createSFR "choose_e" $ gsl_sf_choose_e n m -foreign import ccall "gamma.h gsl_sf_choose_e" gsl_sf_choose_e :: CInt -> CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_choose_e" gsl_sf_choose_e :: CInt -> CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_choose(int n,int m); -- -- choose :: CInt -> CInt -> Double choose = gsl_sf_choose -foreign import ccall "gamma.h gsl_sf_choose" gsl_sf_choose :: CInt -> CInt -> Double +foreign import ccall "gsl_sf_choose" gsl_sf_choose :: CInt -> CInt -> Double -- | wrapper for int gsl_sf_lnpoch_e(double a,double x,gsl_sf_result* result); -- -- lnpoch_e :: Double -> Double -> (Double,Double) lnpoch_e a x = createSFR "lnpoch_e" $ gsl_sf_lnpoch_e a x -foreign import ccall "gamma.h gsl_sf_lnpoch_e" gsl_sf_lnpoch_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_lnpoch_e" gsl_sf_lnpoch_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_lnpoch(double a,double x); -- -- lnpoch :: Double -> Double -> Double lnpoch = gsl_sf_lnpoch -foreign import ccall "gamma.h gsl_sf_lnpoch" gsl_sf_lnpoch :: Double -> Double -> Double +foreign import ccall "gsl_sf_lnpoch" gsl_sf_lnpoch :: Double -> Double -> Double -- | wrapper for int gsl_sf_lnpoch_sgn_e(double a,double x,gsl_sf_result* result,double* sgn); -- -- lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt lnpoch_sgn_e = gsl_sf_lnpoch_sgn_e -foreign import ccall "gamma.h gsl_sf_lnpoch_sgn_e" gsl_sf_lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt +foreign import ccall "gsl_sf_lnpoch_sgn_e" gsl_sf_lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt -- | wrapper for int gsl_sf_poch_e(double a,double x,gsl_sf_result* result); -- -- poch_e :: Double -> Double -> (Double,Double) poch_e a x = createSFR "poch_e" $ gsl_sf_poch_e a x -foreign import ccall "gamma.h gsl_sf_poch_e" gsl_sf_poch_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_poch_e" gsl_sf_poch_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_poch(double a,double x); -- -- poch :: Double -> Double -> Double poch = gsl_sf_poch -foreign import ccall "gamma.h gsl_sf_poch" gsl_sf_poch :: Double -> Double -> Double +foreign import ccall "gsl_sf_poch" gsl_sf_poch :: Double -> Double -> Double -- | wrapper for int gsl_sf_pochrel_e(double a,double x,gsl_sf_result* result); -- -- pochrel_e :: Double -> Double -> (Double,Double) pochrel_e a x = createSFR "pochrel_e" $ gsl_sf_pochrel_e a x -foreign import ccall "gamma.h gsl_sf_pochrel_e" gsl_sf_pochrel_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_pochrel_e" gsl_sf_pochrel_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_pochrel(double a,double x); -- -- pochrel :: Double -> Double -> Double pochrel = gsl_sf_pochrel -foreign import ccall "gamma.h gsl_sf_pochrel" gsl_sf_pochrel :: Double -> Double -> Double +foreign import ccall "gsl_sf_pochrel" gsl_sf_pochrel :: Double -> Double -> Double -- | wrapper for int gsl_sf_gamma_inc_Q_e(double a,double x,gsl_sf_result* result); -- -- gamma_inc_Q_e :: Double -> Double -> (Double,Double) gamma_inc_Q_e a x = createSFR "gamma_inc_Q_e" $ gsl_sf_gamma_inc_Q_e a x -foreign import ccall "gamma.h gsl_sf_gamma_inc_Q_e" gsl_sf_gamma_inc_Q_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_gamma_inc_Q_e" gsl_sf_gamma_inc_Q_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_gamma_inc_Q(double a,double x); -- -- gamma_inc_Q :: Double -> Double -> Double gamma_inc_Q = gsl_sf_gamma_inc_Q -foreign import ccall "gamma.h gsl_sf_gamma_inc_Q" gsl_sf_gamma_inc_Q :: Double -> Double -> Double +foreign import ccall "gsl_sf_gamma_inc_Q" gsl_sf_gamma_inc_Q :: Double -> Double -> Double -- | wrapper for int gsl_sf_gamma_inc_P_e(double a,double x,gsl_sf_result* result); -- -- gamma_inc_P_e :: Double -> Double -> (Double,Double) gamma_inc_P_e a x = createSFR "gamma_inc_P_e" $ gsl_sf_gamma_inc_P_e a x -foreign import ccall "gamma.h gsl_sf_gamma_inc_P_e" gsl_sf_gamma_inc_P_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_gamma_inc_P_e" gsl_sf_gamma_inc_P_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_gamma_inc_P(double a,double x); -- -- gamma_inc_P :: Double -> Double -> Double gamma_inc_P = gsl_sf_gamma_inc_P -foreign import ccall "gamma.h gsl_sf_gamma_inc_P" gsl_sf_gamma_inc_P :: Double -> Double -> Double +foreign import ccall "gsl_sf_gamma_inc_P" gsl_sf_gamma_inc_P :: Double -> Double -> Double -- | wrapper for int gsl_sf_gamma_inc_e(double a,double x,gsl_sf_result* result); -- -- gamma_inc_e :: Double -> Double -> (Double,Double) gamma_inc_e a x = createSFR "gamma_inc_e" $ gsl_sf_gamma_inc_e a x -foreign import ccall "gamma.h gsl_sf_gamma_inc_e" gsl_sf_gamma_inc_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_gamma_inc_e" gsl_sf_gamma_inc_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_gamma_inc(double a,double x); -- -- gamma_inc :: Double -> Double -> Double gamma_inc = gsl_sf_gamma_inc -foreign import ccall "gamma.h gsl_sf_gamma_inc" gsl_sf_gamma_inc :: Double -> Double -> Double +foreign import ccall "gsl_sf_gamma_inc" gsl_sf_gamma_inc :: Double -> Double -> Double -- | wrapper for int gsl_sf_lnbeta_e(double a,double b,gsl_sf_result* result); -- -- lnbeta_e :: Double -> Double -> (Double,Double) lnbeta_e a b = createSFR "lnbeta_e" $ gsl_sf_lnbeta_e a b -foreign import ccall "gamma.h gsl_sf_lnbeta_e" gsl_sf_lnbeta_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_lnbeta_e" gsl_sf_lnbeta_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_lnbeta(double a,double b); -- -- lnbeta :: Double -> Double -> Double lnbeta = gsl_sf_lnbeta -foreign import ccall "gamma.h gsl_sf_lnbeta" gsl_sf_lnbeta :: Double -> Double -> Double +foreign import ccall "gsl_sf_lnbeta" gsl_sf_lnbeta :: Double -> Double -> Double -- | wrapper for int gsl_sf_lnbeta_sgn_e(double x,double y,gsl_sf_result* result,double* sgn); -- -- lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt lnbeta_sgn_e = gsl_sf_lnbeta_sgn_e -foreign import ccall "gamma.h gsl_sf_lnbeta_sgn_e" gsl_sf_lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt +foreign import ccall "gsl_sf_lnbeta_sgn_e" gsl_sf_lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt -- | wrapper for int gsl_sf_beta_e(double a,double b,gsl_sf_result* result); -- -- beta_e :: Double -> Double -> (Double,Double) beta_e a b = createSFR "beta_e" $ gsl_sf_beta_e a b -foreign import ccall "gamma.h gsl_sf_beta_e" gsl_sf_beta_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_beta_e" gsl_sf_beta_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_beta(double a,double b); -- -- beta :: Double -> Double -> Double beta = gsl_sf_beta -foreign import ccall "gamma.h gsl_sf_beta" gsl_sf_beta :: Double -> Double -> Double +foreign import ccall "gsl_sf_beta" gsl_sf_beta :: Double -> Double -> Double -- | wrapper for int gsl_sf_beta_inc_e(double a,double b,double x,gsl_sf_result* result); -- -- beta_inc_e :: Double -> Double -> Double -> (Double,Double) beta_inc_e a b x = createSFR "beta_inc_e" $ gsl_sf_beta_inc_e a b x -foreign import ccall "gamma.h gsl_sf_beta_inc_e" gsl_sf_beta_inc_e :: Double -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_beta_inc_e" gsl_sf_beta_inc_e :: Double -> Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_beta_inc(double a,double b,double x); -- -- beta_inc :: Double -> Double -> Double -> Double beta_inc = gsl_sf_beta_inc -foreign import ccall "gamma.h gsl_sf_beta_inc" gsl_sf_beta_inc :: Double -> Double -> Double -> Double +foreign import ccall "gsl_sf_beta_inc" gsl_sf_beta_inc :: Double -> Double -> Double -> Double diff --git a/lib/Numeric/GSL/Special/Gegenbauer.hs b/lib/Numeric/GSL/Special/Gegenbauer.hs index 9e8ebcd..7f15fa7 100644 --- a/lib/Numeric/GSL/Special/Gegenbauer.hs +++ b/lib/Numeric/GSL/Special/Gegenbauer.hs @@ -34,60 +34,60 @@ import Numeric.GSL.Special.Internal -- gegenpoly_1_e :: Double -> Double -> (Double,Double) gegenpoly_1_e lambda x = createSFR "gegenpoly_1_e" $ gsl_sf_gegenpoly_1_e lambda x -foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_1_e" gsl_sf_gegenpoly_1_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_gegenpoly_1_e" gsl_sf_gegenpoly_1_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_gegenpoly_2_e(double lambda,double x,gsl_sf_result* result); -- -- gegenpoly_2_e :: Double -> Double -> (Double,Double) gegenpoly_2_e lambda x = createSFR "gegenpoly_2_e" $ gsl_sf_gegenpoly_2_e lambda x -foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_2_e" gsl_sf_gegenpoly_2_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_gegenpoly_2_e" gsl_sf_gegenpoly_2_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_gegenpoly_3_e(double lambda,double x,gsl_sf_result* result); -- -- gegenpoly_3_e :: Double -> Double -> (Double,Double) gegenpoly_3_e lambda x = createSFR "gegenpoly_3_e" $ gsl_sf_gegenpoly_3_e lambda x -foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_3_e" gsl_sf_gegenpoly_3_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_gegenpoly_3_e" gsl_sf_gegenpoly_3_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_gegenpoly_1(double lambda,double x); -- -- gegenpoly_1 :: Double -> Double -> Double gegenpoly_1 = gsl_sf_gegenpoly_1 -foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_1" gsl_sf_gegenpoly_1 :: Double -> Double -> Double +foreign import ccall "gsl_sf_gegenpoly_1" gsl_sf_gegenpoly_1 :: Double -> Double -> Double -- | wrapper for double gsl_sf_gegenpoly_2(double lambda,double x); -- -- gegenpoly_2 :: Double -> Double -> Double gegenpoly_2 = gsl_sf_gegenpoly_2 -foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_2" gsl_sf_gegenpoly_2 :: Double -> Double -> Double +foreign import ccall "gsl_sf_gegenpoly_2" gsl_sf_gegenpoly_2 :: Double -> Double -> Double -- | wrapper for double gsl_sf_gegenpoly_3(double lambda,double x); -- -- gegenpoly_3 :: Double -> Double -> Double gegenpoly_3 = gsl_sf_gegenpoly_3 -foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_3" gsl_sf_gegenpoly_3 :: Double -> Double -> Double +foreign import ccall "gsl_sf_gegenpoly_3" gsl_sf_gegenpoly_3 :: Double -> Double -> Double -- | wrapper for int gsl_sf_gegenpoly_n_e(int n,double lambda,double x,gsl_sf_result* result); -- -- gegenpoly_n_e :: CInt -> Double -> Double -> (Double,Double) gegenpoly_n_e n lambda x = createSFR "gegenpoly_n_e" $ gsl_sf_gegenpoly_n_e n lambda x -foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_n_e" gsl_sf_gegenpoly_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_gegenpoly_n_e" gsl_sf_gegenpoly_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_gegenpoly_n(int n,double lambda,double x); -- -- gegenpoly_n :: CInt -> Double -> Double -> Double gegenpoly_n = gsl_sf_gegenpoly_n -foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_n" gsl_sf_gegenpoly_n :: CInt -> Double -> Double -> Double +foreign import ccall "gsl_sf_gegenpoly_n" gsl_sf_gegenpoly_n :: CInt -> Double -> Double -> Double -- | wrapper for int gsl_sf_gegenpoly_array(int nmax,double lambda,double x,double* result_array); -- -- gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt gegenpoly_array = gsl_sf_gegenpoly_array -foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_array" gsl_sf_gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_gegenpoly_array" gsl_sf_gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt diff --git a/lib/Numeric/GSL/Special/Hyperg.hs b/lib/Numeric/GSL/Special/Hyperg.hs index 45f5c3e..ed920fb 100644 --- a/lib/Numeric/GSL/Special/Hyperg.hs +++ b/lib/Numeric/GSL/Special/Hyperg.hs @@ -48,151 +48,151 @@ import Numeric.GSL.Special.Internal -- hyperg_0F1_e :: Double -> Double -> (Double,Double) hyperg_0F1_e c x = createSFR "hyperg_0F1_e" $ gsl_sf_hyperg_0F1_e c x -foreign import ccall "hyperg.h gsl_sf_hyperg_0F1_e" gsl_sf_hyperg_0F1_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hyperg_0F1_e" gsl_sf_hyperg_0F1_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_hyperg_0F1(double c,double x); -- -- hyperg_0F1 :: Double -> Double -> Double hyperg_0F1 = gsl_sf_hyperg_0F1 -foreign import ccall "hyperg.h gsl_sf_hyperg_0F1" gsl_sf_hyperg_0F1 :: Double -> Double -> Double +foreign import ccall "gsl_sf_hyperg_0F1" gsl_sf_hyperg_0F1 :: Double -> Double -> Double -- | wrapper for int gsl_sf_hyperg_1F1_int_e(int m,int n,double x,gsl_sf_result* result); -- -- hyperg_1F1_int_e :: CInt -> CInt -> Double -> (Double,Double) hyperg_1F1_int_e m n x = createSFR "hyperg_1F1_int_e" $ gsl_sf_hyperg_1F1_int_e m n x -foreign import ccall "hyperg.h gsl_sf_hyperg_1F1_int_e" gsl_sf_hyperg_1F1_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hyperg_1F1_int_e" gsl_sf_hyperg_1F1_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_hyperg_1F1_int(int m,int n,double x); -- -- hyperg_1F1_int :: CInt -> CInt -> Double -> Double hyperg_1F1_int = gsl_sf_hyperg_1F1_int -foreign import ccall "hyperg.h gsl_sf_hyperg_1F1_int" gsl_sf_hyperg_1F1_int :: CInt -> CInt -> Double -> Double +foreign import ccall "gsl_sf_hyperg_1F1_int" gsl_sf_hyperg_1F1_int :: CInt -> CInt -> Double -> Double -- | wrapper for int gsl_sf_hyperg_1F1_e(double a,double b,double x,gsl_sf_result* result); -- -- hyperg_1F1_e :: Double -> Double -> Double -> (Double,Double) hyperg_1F1_e a b x = createSFR "hyperg_1F1_e" $ gsl_sf_hyperg_1F1_e a b x -foreign import ccall "hyperg.h gsl_sf_hyperg_1F1_e" gsl_sf_hyperg_1F1_e :: Double -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hyperg_1F1_e" gsl_sf_hyperg_1F1_e :: Double -> Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_hyperg_1F1(double a,double b,double x); -- -- hyperg_1F1 :: Double -> Double -> Double -> Double hyperg_1F1 = gsl_sf_hyperg_1F1 -foreign import ccall "hyperg.h gsl_sf_hyperg_1F1" gsl_sf_hyperg_1F1 :: Double -> Double -> Double -> Double +foreign import ccall "gsl_sf_hyperg_1F1" gsl_sf_hyperg_1F1 :: Double -> Double -> Double -> Double -- | wrapper for int gsl_sf_hyperg_U_int_e(int m,int n,double x,gsl_sf_result* result); -- -- hyperg_U_int_e :: CInt -> CInt -> Double -> (Double,Double) hyperg_U_int_e m n x = createSFR "hyperg_U_int_e" $ gsl_sf_hyperg_U_int_e m n x -foreign import ccall "hyperg.h gsl_sf_hyperg_U_int_e" gsl_sf_hyperg_U_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hyperg_U_int_e" gsl_sf_hyperg_U_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_hyperg_U_int(int m,int n,double x); -- -- hyperg_U_int :: CInt -> CInt -> Double -> Double hyperg_U_int = gsl_sf_hyperg_U_int -foreign import ccall "hyperg.h gsl_sf_hyperg_U_int" gsl_sf_hyperg_U_int :: CInt -> CInt -> Double -> Double +foreign import ccall "gsl_sf_hyperg_U_int" gsl_sf_hyperg_U_int :: CInt -> CInt -> Double -> Double -- | wrapper for int gsl_sf_hyperg_U_int_e10_e(int m,int n,double x,gsl_sf_result_e10* result); -- -- hyperg_U_int_e10_e :: CInt -> CInt -> Double -> (Double,Int,Double) hyperg_U_int_e10_e m n x = createSFR_E10 "hyperg_U_int_e10_e" $ gsl_sf_hyperg_U_int_e10_e m n x -foreign import ccall "hyperg.h gsl_sf_hyperg_U_int_e10_e" gsl_sf_hyperg_U_int_e10_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hyperg_U_int_e10_e" gsl_sf_hyperg_U_int_e10_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_hyperg_U_e(double a,double b,double x,gsl_sf_result* result); -- -- hyperg_U_e :: Double -> Double -> Double -> (Double,Double) hyperg_U_e a b x = createSFR "hyperg_U_e" $ gsl_sf_hyperg_U_e a b x -foreign import ccall "hyperg.h gsl_sf_hyperg_U_e" gsl_sf_hyperg_U_e :: Double -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hyperg_U_e" gsl_sf_hyperg_U_e :: Double -> Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_hyperg_U(double a,double b,double x); -- -- hyperg_U :: Double -> Double -> Double -> Double hyperg_U = gsl_sf_hyperg_U -foreign import ccall "hyperg.h gsl_sf_hyperg_U" gsl_sf_hyperg_U :: Double -> Double -> Double -> Double +foreign import ccall "gsl_sf_hyperg_U" gsl_sf_hyperg_U :: Double -> Double -> Double -> Double -- | wrapper for int gsl_sf_hyperg_U_e10_e(double a,double b,double x,gsl_sf_result_e10* result); -- -- hyperg_U_e10_e :: Double -> Double -> Double -> (Double,Int,Double) hyperg_U_e10_e a b x = createSFR_E10 "hyperg_U_e10_e" $ gsl_sf_hyperg_U_e10_e a b x -foreign import ccall "hyperg.h gsl_sf_hyperg_U_e10_e" gsl_sf_hyperg_U_e10_e :: Double -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hyperg_U_e10_e" gsl_sf_hyperg_U_e10_e :: Double -> Double -> Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_hyperg_2F1_e(double a,double b,double c,double x,gsl_sf_result* result); -- -- hyperg_2F1_e :: Double -> Double -> Double -> Double -> (Double,Double) hyperg_2F1_e a b c x = createSFR "hyperg_2F1_e" $ gsl_sf_hyperg_2F1_e a b c x -foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_e" gsl_sf_hyperg_2F1_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hyperg_2F1_e" gsl_sf_hyperg_2F1_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_hyperg_2F1(double a,double b,double c,double x); -- -- hyperg_2F1 :: Double -> Double -> Double -> Double -> Double hyperg_2F1 = gsl_sf_hyperg_2F1 -foreign import ccall "hyperg.h gsl_sf_hyperg_2F1" gsl_sf_hyperg_2F1 :: Double -> Double -> Double -> Double -> Double +foreign import ccall "gsl_sf_hyperg_2F1" gsl_sf_hyperg_2F1 :: Double -> Double -> Double -> Double -> Double -- | wrapper for int gsl_sf_hyperg_2F1_conj_e(double aR,double aI,double c,double x,gsl_sf_result* result); -- -- hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> (Double,Double) hyperg_2F1_conj_e aR aI c x = createSFR "hyperg_2F1_conj_e" $ gsl_sf_hyperg_2F1_conj_e aR aI c x -foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_conj_e" gsl_sf_hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hyperg_2F1_conj_e" gsl_sf_hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_hyperg_2F1_conj(double aR,double aI,double c,double x); -- -- hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double hyperg_2F1_conj = gsl_sf_hyperg_2F1_conj -foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_conj" gsl_sf_hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double +foreign import ccall "gsl_sf_hyperg_2F1_conj" gsl_sf_hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double -- | wrapper for int gsl_sf_hyperg_2F1_renorm_e(double a,double b,double c,double x,gsl_sf_result* result); -- -- hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) hyperg_2F1_renorm_e a b c x = createSFR "hyperg_2F1_renorm_e" $ gsl_sf_hyperg_2F1_renorm_e a b c x -foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_renorm_e" gsl_sf_hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hyperg_2F1_renorm_e" gsl_sf_hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_hyperg_2F1_renorm(double a,double b,double c,double x); -- -- hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double hyperg_2F1_renorm = gsl_sf_hyperg_2F1_renorm -foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_renorm" gsl_sf_hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double +foreign import ccall "gsl_sf_hyperg_2F1_renorm" gsl_sf_hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double -- | wrapper for int gsl_sf_hyperg_2F1_conj_renorm_e(double aR,double aI,double c,double x,gsl_sf_result* result); -- -- hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) hyperg_2F1_conj_renorm_e aR aI c x = createSFR "hyperg_2F1_conj_renorm_e" $ gsl_sf_hyperg_2F1_conj_renorm_e aR aI c x -foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_conj_renorm_e" gsl_sf_hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hyperg_2F1_conj_renorm_e" gsl_sf_hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_hyperg_2F1_conj_renorm(double aR,double aI,double c,double x); -- -- hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double hyperg_2F1_conj_renorm = gsl_sf_hyperg_2F1_conj_renorm -foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_conj_renorm" gsl_sf_hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double +foreign import ccall "gsl_sf_hyperg_2F1_conj_renorm" gsl_sf_hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double -- | wrapper for int gsl_sf_hyperg_2F0_e(double a,double b,double x,gsl_sf_result* result); -- -- hyperg_2F0_e :: Double -> Double -> Double -> (Double,Double) hyperg_2F0_e a b x = createSFR "hyperg_2F0_e" $ gsl_sf_hyperg_2F0_e a b x -foreign import ccall "hyperg.h gsl_sf_hyperg_2F0_e" gsl_sf_hyperg_2F0_e :: Double -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hyperg_2F0_e" gsl_sf_hyperg_2F0_e :: Double -> Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_hyperg_2F0(double a,double b,double x); -- -- hyperg_2F0 :: Double -> Double -> Double -> Double hyperg_2F0 = gsl_sf_hyperg_2F0 -foreign import ccall "hyperg.h gsl_sf_hyperg_2F0" gsl_sf_hyperg_2F0 :: Double -> Double -> Double -> Double +foreign import ccall "gsl_sf_hyperg_2F0" gsl_sf_hyperg_2F0 :: Double -> Double -> Double -> Double diff --git a/lib/Numeric/GSL/Special/Laguerre.hs b/lib/Numeric/GSL/Special/Laguerre.hs index 81e7c47..71d2e49 100644 --- a/lib/Numeric/GSL/Special/Laguerre.hs +++ b/lib/Numeric/GSL/Special/Laguerre.hs @@ -34,53 +34,53 @@ import Numeric.GSL.Special.Internal -- laguerre_1_e :: Double -> Double -> (Double,Double) laguerre_1_e a x = createSFR "laguerre_1_e" $ gsl_sf_laguerre_1_e a x -foreign import ccall "laguerre.h gsl_sf_laguerre_1_e" gsl_sf_laguerre_1_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_laguerre_1_e" gsl_sf_laguerre_1_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_laguerre_2_e(double a,double x,gsl_sf_result* result); -- -- laguerre_2_e :: Double -> Double -> (Double,Double) laguerre_2_e a x = createSFR "laguerre_2_e" $ gsl_sf_laguerre_2_e a x -foreign import ccall "laguerre.h gsl_sf_laguerre_2_e" gsl_sf_laguerre_2_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_laguerre_2_e" gsl_sf_laguerre_2_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_laguerre_3_e(double a,double x,gsl_sf_result* result); -- -- laguerre_3_e :: Double -> Double -> (Double,Double) laguerre_3_e a x = createSFR "laguerre_3_e" $ gsl_sf_laguerre_3_e a x -foreign import ccall "laguerre.h gsl_sf_laguerre_3_e" gsl_sf_laguerre_3_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_laguerre_3_e" gsl_sf_laguerre_3_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_laguerre_1(double a,double x); -- -- laguerre_1 :: Double -> Double -> Double laguerre_1 = gsl_sf_laguerre_1 -foreign import ccall "laguerre.h gsl_sf_laguerre_1" gsl_sf_laguerre_1 :: Double -> Double -> Double +foreign import ccall "gsl_sf_laguerre_1" gsl_sf_laguerre_1 :: Double -> Double -> Double -- | wrapper for double gsl_sf_laguerre_2(double a,double x); -- -- laguerre_2 :: Double -> Double -> Double laguerre_2 = gsl_sf_laguerre_2 -foreign import ccall "laguerre.h gsl_sf_laguerre_2" gsl_sf_laguerre_2 :: Double -> Double -> Double +foreign import ccall "gsl_sf_laguerre_2" gsl_sf_laguerre_2 :: Double -> Double -> Double -- | wrapper for double gsl_sf_laguerre_3(double a,double x); -- -- laguerre_3 :: Double -> Double -> Double laguerre_3 = gsl_sf_laguerre_3 -foreign import ccall "laguerre.h gsl_sf_laguerre_3" gsl_sf_laguerre_3 :: Double -> Double -> Double +foreign import ccall "gsl_sf_laguerre_3" gsl_sf_laguerre_3 :: Double -> Double -> Double -- | wrapper for int gsl_sf_laguerre_n_e(int n,double a,double x,gsl_sf_result* result); -- -- laguerre_n_e :: CInt -> Double -> Double -> (Double,Double) laguerre_n_e n a x = createSFR "laguerre_n_e" $ gsl_sf_laguerre_n_e n a x -foreign import ccall "laguerre.h gsl_sf_laguerre_n_e" gsl_sf_laguerre_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_laguerre_n_e" gsl_sf_laguerre_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_laguerre_n(int n,double a,double x); -- -- laguerre_n :: CInt -> Double -> Double -> Double laguerre_n = gsl_sf_laguerre_n -foreign import ccall "laguerre.h gsl_sf_laguerre_n" gsl_sf_laguerre_n :: CInt -> Double -> Double -> Double +foreign import ccall "gsl_sf_laguerre_n" gsl_sf_laguerre_n :: CInt -> Double -> Double -> Double diff --git a/lib/Numeric/GSL/Special/Lambert.hs b/lib/Numeric/GSL/Special/Lambert.hs index 18071fa..3ea0596 100644 --- a/lib/Numeric/GSL/Special/Lambert.hs +++ b/lib/Numeric/GSL/Special/Lambert.hs @@ -30,25 +30,25 @@ import Numeric.GSL.Special.Internal -- lambert_W0_e :: Double -> (Double,Double) lambert_W0_e x = createSFR "lambert_W0_e" $ gsl_sf_lambert_W0_e x -foreign import ccall "lambert.h gsl_sf_lambert_W0_e" gsl_sf_lambert_W0_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_lambert_W0_e" gsl_sf_lambert_W0_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_lambert_W0(double x); -- -- lambert_W0 :: Double -> Double lambert_W0 = gsl_sf_lambert_W0 -foreign import ccall "lambert.h gsl_sf_lambert_W0" gsl_sf_lambert_W0 :: Double -> Double +foreign import ccall "gsl_sf_lambert_W0" gsl_sf_lambert_W0 :: Double -> Double -- | wrapper for int gsl_sf_lambert_Wm1_e(double x,gsl_sf_result* result); -- -- lambert_Wm1_e :: Double -> (Double,Double) lambert_Wm1_e x = createSFR "lambert_Wm1_e" $ gsl_sf_lambert_Wm1_e x -foreign import ccall "lambert.h gsl_sf_lambert_Wm1_e" gsl_sf_lambert_Wm1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_lambert_Wm1_e" gsl_sf_lambert_Wm1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_lambert_Wm1(double x); -- -- lambert_Wm1 :: Double -> Double lambert_Wm1 = gsl_sf_lambert_Wm1 -foreign import ccall "lambert.h gsl_sf_lambert_Wm1" gsl_sf_lambert_Wm1 :: Double -> Double +foreign import ccall "gsl_sf_lambert_Wm1" gsl_sf_lambert_Wm1 :: Double -> Double diff --git a/lib/Numeric/GSL/Special/Legendre.hs b/lib/Numeric/GSL/Special/Legendre.hs index bd1c40d..97b9543 100644 --- a/lib/Numeric/GSL/Special/Legendre.hs +++ b/lib/Numeric/GSL/Special/Legendre.hs @@ -63,305 +63,305 @@ import Numeric.GSL.Special.Internal -- legendre_Pl_e :: CInt -> Double -> (Double,Double) legendre_Pl_e l x = createSFR "legendre_Pl_e" $ gsl_sf_legendre_Pl_e l x -foreign import ccall "legendre.h gsl_sf_legendre_Pl_e" gsl_sf_legendre_Pl_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_legendre_Pl_e" gsl_sf_legendre_Pl_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_legendre_Pl(int l,double x); -- -- legendre_Pl :: CInt -> Double -> Double legendre_Pl = gsl_sf_legendre_Pl -foreign import ccall "legendre.h gsl_sf_legendre_Pl" gsl_sf_legendre_Pl :: CInt -> Double -> Double +foreign import ccall "gsl_sf_legendre_Pl" gsl_sf_legendre_Pl :: CInt -> Double -> Double -- | wrapper for int gsl_sf_legendre_Pl_array(int lmax,double x,double* result_array); -- -- legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt legendre_Pl_array = gsl_sf_legendre_Pl_array -foreign import ccall "legendre.h gsl_sf_legendre_Pl_array" gsl_sf_legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_legendre_Pl_array" gsl_sf_legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_legendre_Pl_deriv_array(int lmax,double x,double* result_array,double* result_deriv_array); -- -- legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt legendre_Pl_deriv_array = gsl_sf_legendre_Pl_deriv_array -foreign import ccall "legendre.h gsl_sf_legendre_Pl_deriv_array" gsl_sf_legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_legendre_Pl_deriv_array" gsl_sf_legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_legendre_P1_e(double x,gsl_sf_result* result); -- -- legendre_P1_e :: Double -> (Double,Double) legendre_P1_e x = createSFR "legendre_P1_e" $ gsl_sf_legendre_P1_e x -foreign import ccall "legendre.h gsl_sf_legendre_P1_e" gsl_sf_legendre_P1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_legendre_P1_e" gsl_sf_legendre_P1_e :: Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_legendre_P2_e(double x,gsl_sf_result* result); -- -- legendre_P2_e :: Double -> (Double,Double) legendre_P2_e x = createSFR "legendre_P2_e" $ gsl_sf_legendre_P2_e x -foreign import ccall "legendre.h gsl_sf_legendre_P2_e" gsl_sf_legendre_P2_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_legendre_P2_e" gsl_sf_legendre_P2_e :: Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_legendre_P3_e(double x,gsl_sf_result* result); -- -- legendre_P3_e :: Double -> (Double,Double) legendre_P3_e x = createSFR "legendre_P3_e" $ gsl_sf_legendre_P3_e x -foreign import ccall "legendre.h gsl_sf_legendre_P3_e" gsl_sf_legendre_P3_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_legendre_P3_e" gsl_sf_legendre_P3_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_legendre_P1(double x); -- -- legendre_P1 :: Double -> Double legendre_P1 = gsl_sf_legendre_P1 -foreign import ccall "legendre.h gsl_sf_legendre_P1" gsl_sf_legendre_P1 :: Double -> Double +foreign import ccall "gsl_sf_legendre_P1" gsl_sf_legendre_P1 :: Double -> Double -- | wrapper for double gsl_sf_legendre_P2(double x); -- -- legendre_P2 :: Double -> Double legendre_P2 = gsl_sf_legendre_P2 -foreign import ccall "legendre.h gsl_sf_legendre_P2" gsl_sf_legendre_P2 :: Double -> Double +foreign import ccall "gsl_sf_legendre_P2" gsl_sf_legendre_P2 :: Double -> Double -- | wrapper for double gsl_sf_legendre_P3(double x); -- -- legendre_P3 :: Double -> Double legendre_P3 = gsl_sf_legendre_P3 -foreign import ccall "legendre.h gsl_sf_legendre_P3" gsl_sf_legendre_P3 :: Double -> Double +foreign import ccall "gsl_sf_legendre_P3" gsl_sf_legendre_P3 :: Double -> Double -- | wrapper for int gsl_sf_legendre_Q0_e(double x,gsl_sf_result* result); -- -- legendre_Q0_e :: Double -> (Double,Double) legendre_Q0_e x = createSFR "legendre_Q0_e" $ gsl_sf_legendre_Q0_e x -foreign import ccall "legendre.h gsl_sf_legendre_Q0_e" gsl_sf_legendre_Q0_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_legendre_Q0_e" gsl_sf_legendre_Q0_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_legendre_Q0(double x); -- -- legendre_Q0 :: Double -> Double legendre_Q0 = gsl_sf_legendre_Q0 -foreign import ccall "legendre.h gsl_sf_legendre_Q0" gsl_sf_legendre_Q0 :: Double -> Double +foreign import ccall "gsl_sf_legendre_Q0" gsl_sf_legendre_Q0 :: Double -> Double -- | wrapper for int gsl_sf_legendre_Q1_e(double x,gsl_sf_result* result); -- -- legendre_Q1_e :: Double -> (Double,Double) legendre_Q1_e x = createSFR "legendre_Q1_e" $ gsl_sf_legendre_Q1_e x -foreign import ccall "legendre.h gsl_sf_legendre_Q1_e" gsl_sf_legendre_Q1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_legendre_Q1_e" gsl_sf_legendre_Q1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_legendre_Q1(double x); -- -- legendre_Q1 :: Double -> Double legendre_Q1 = gsl_sf_legendre_Q1 -foreign import ccall "legendre.h gsl_sf_legendre_Q1" gsl_sf_legendre_Q1 :: Double -> Double +foreign import ccall "gsl_sf_legendre_Q1" gsl_sf_legendre_Q1 :: Double -> Double -- | wrapper for int gsl_sf_legendre_Ql_e(int l,double x,gsl_sf_result* result); -- -- legendre_Ql_e :: CInt -> Double -> (Double,Double) legendre_Ql_e l x = createSFR "legendre_Ql_e" $ gsl_sf_legendre_Ql_e l x -foreign import ccall "legendre.h gsl_sf_legendre_Ql_e" gsl_sf_legendre_Ql_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_legendre_Ql_e" gsl_sf_legendre_Ql_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_legendre_Ql(int l,double x); -- -- legendre_Ql :: CInt -> Double -> Double legendre_Ql = gsl_sf_legendre_Ql -foreign import ccall "legendre.h gsl_sf_legendre_Ql" gsl_sf_legendre_Ql :: CInt -> Double -> Double +foreign import ccall "gsl_sf_legendre_Ql" gsl_sf_legendre_Ql :: CInt -> Double -> Double -- | wrapper for int gsl_sf_legendre_Plm_e(int l,int m,double x,gsl_sf_result* result); -- -- legendre_Plm_e :: CInt -> CInt -> Double -> (Double,Double) legendre_Plm_e l m x = createSFR "legendre_Plm_e" $ gsl_sf_legendre_Plm_e l m x -foreign import ccall "legendre.h gsl_sf_legendre_Plm_e" gsl_sf_legendre_Plm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_legendre_Plm_e" gsl_sf_legendre_Plm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_legendre_Plm(int l,int m,double x); -- -- legendre_Plm :: CInt -> CInt -> Double -> Double legendre_Plm = gsl_sf_legendre_Plm -foreign import ccall "legendre.h gsl_sf_legendre_Plm" gsl_sf_legendre_Plm :: CInt -> CInt -> Double -> Double +foreign import ccall "gsl_sf_legendre_Plm" gsl_sf_legendre_Plm :: CInt -> CInt -> Double -> Double -- | wrapper for int gsl_sf_legendre_Plm_array(int lmax,int m,double x,double* result_array); -- -- legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt legendre_Plm_array = gsl_sf_legendre_Plm_array -foreign import ccall "legendre.h gsl_sf_legendre_Plm_array" gsl_sf_legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_legendre_Plm_array" gsl_sf_legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_legendre_Plm_deriv_array(int lmax,int m,double x,double* result_array,double* result_deriv_array); -- -- legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt legendre_Plm_deriv_array = gsl_sf_legendre_Plm_deriv_array -foreign import ccall "legendre.h gsl_sf_legendre_Plm_deriv_array" gsl_sf_legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_legendre_Plm_deriv_array" gsl_sf_legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_legendre_sphPlm_e(int l,int m,double x,gsl_sf_result* result); -- -- legendre_sphPlm_e :: CInt -> CInt -> Double -> (Double,Double) legendre_sphPlm_e l m x = createSFR "legendre_sphPlm_e" $ gsl_sf_legendre_sphPlm_e l m x -foreign import ccall "legendre.h gsl_sf_legendre_sphPlm_e" gsl_sf_legendre_sphPlm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_legendre_sphPlm_e" gsl_sf_legendre_sphPlm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_legendre_sphPlm(int l,int m,double x); -- -- legendre_sphPlm :: CInt -> CInt -> Double -> Double legendre_sphPlm = gsl_sf_legendre_sphPlm -foreign import ccall "legendre.h gsl_sf_legendre_sphPlm" gsl_sf_legendre_sphPlm :: CInt -> CInt -> Double -> Double +foreign import ccall "gsl_sf_legendre_sphPlm" gsl_sf_legendre_sphPlm :: CInt -> CInt -> Double -> Double -- | wrapper for int gsl_sf_legendre_sphPlm_array(int lmax,int m,double x,double* result_array); -- -- legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt legendre_sphPlm_array = gsl_sf_legendre_sphPlm_array -foreign import ccall "legendre.h gsl_sf_legendre_sphPlm_array" gsl_sf_legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_legendre_sphPlm_array" gsl_sf_legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_legendre_sphPlm_deriv_array(int lmax,int m,double x,double* result_array,double* result_deriv_array); -- -- legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt legendre_sphPlm_deriv_array = gsl_sf_legendre_sphPlm_deriv_array -foreign import ccall "legendre.h gsl_sf_legendre_sphPlm_deriv_array" gsl_sf_legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_legendre_sphPlm_deriv_array" gsl_sf_legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt -- | wrapper for int gsl_sf_legendre_array_size(int lmax,int m); -- -- legendre_array_size :: CInt -> CInt -> CInt legendre_array_size = gsl_sf_legendre_array_size -foreign import ccall "legendre.h gsl_sf_legendre_array_size" gsl_sf_legendre_array_size :: CInt -> CInt -> CInt +foreign import ccall "gsl_sf_legendre_array_size" gsl_sf_legendre_array_size :: CInt -> CInt -> CInt -- | wrapper for int gsl_sf_conicalP_half_e(double lambda,double x,gsl_sf_result* result); -- -- conicalP_half_e :: Double -> Double -> (Double,Double) conicalP_half_e lambda x = createSFR "conicalP_half_e" $ gsl_sf_conicalP_half_e lambda x -foreign import ccall "legendre.h gsl_sf_conicalP_half_e" gsl_sf_conicalP_half_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_conicalP_half_e" gsl_sf_conicalP_half_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_conicalP_half(double lambda,double x); -- -- conicalP_half :: Double -> Double -> Double conicalP_half = gsl_sf_conicalP_half -foreign import ccall "legendre.h gsl_sf_conicalP_half" gsl_sf_conicalP_half :: Double -> Double -> Double +foreign import ccall "gsl_sf_conicalP_half" gsl_sf_conicalP_half :: Double -> Double -> Double -- | wrapper for int gsl_sf_conicalP_mhalf_e(double lambda,double x,gsl_sf_result* result); -- -- conicalP_mhalf_e :: Double -> Double -> (Double,Double) conicalP_mhalf_e lambda x = createSFR "conicalP_mhalf_e" $ gsl_sf_conicalP_mhalf_e lambda x -foreign import ccall "legendre.h gsl_sf_conicalP_mhalf_e" gsl_sf_conicalP_mhalf_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_conicalP_mhalf_e" gsl_sf_conicalP_mhalf_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_conicalP_mhalf(double lambda,double x); -- -- conicalP_mhalf :: Double -> Double -> Double conicalP_mhalf = gsl_sf_conicalP_mhalf -foreign import ccall "legendre.h gsl_sf_conicalP_mhalf" gsl_sf_conicalP_mhalf :: Double -> Double -> Double +foreign import ccall "gsl_sf_conicalP_mhalf" gsl_sf_conicalP_mhalf :: Double -> Double -> Double -- | wrapper for int gsl_sf_conicalP_0_e(double lambda,double x,gsl_sf_result* result); -- -- conicalP_0_e :: Double -> Double -> (Double,Double) conicalP_0_e lambda x = createSFR "conicalP_0_e" $ gsl_sf_conicalP_0_e lambda x -foreign import ccall "legendre.h gsl_sf_conicalP_0_e" gsl_sf_conicalP_0_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_conicalP_0_e" gsl_sf_conicalP_0_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_conicalP_0(double lambda,double x); -- -- conicalP_0 :: Double -> Double -> Double conicalP_0 = gsl_sf_conicalP_0 -foreign import ccall "legendre.h gsl_sf_conicalP_0" gsl_sf_conicalP_0 :: Double -> Double -> Double +foreign import ccall "gsl_sf_conicalP_0" gsl_sf_conicalP_0 :: Double -> Double -> Double -- | wrapper for int gsl_sf_conicalP_1_e(double lambda,double x,gsl_sf_result* result); -- -- conicalP_1_e :: Double -> Double -> (Double,Double) conicalP_1_e lambda x = createSFR "conicalP_1_e" $ gsl_sf_conicalP_1_e lambda x -foreign import ccall "legendre.h gsl_sf_conicalP_1_e" gsl_sf_conicalP_1_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_conicalP_1_e" gsl_sf_conicalP_1_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_conicalP_1(double lambda,double x); -- -- conicalP_1 :: Double -> Double -> Double conicalP_1 = gsl_sf_conicalP_1 -foreign import ccall "legendre.h gsl_sf_conicalP_1" gsl_sf_conicalP_1 :: Double -> Double -> Double +foreign import ccall "gsl_sf_conicalP_1" gsl_sf_conicalP_1 :: Double -> Double -> Double -- | wrapper for int gsl_sf_conicalP_sph_reg_e(int l,double lambda,double x,gsl_sf_result* result); -- -- conicalP_sph_reg_e :: CInt -> Double -> Double -> (Double,Double) conicalP_sph_reg_e l lambda x = createSFR "conicalP_sph_reg_e" $ gsl_sf_conicalP_sph_reg_e l lambda x -foreign import ccall "legendre.h gsl_sf_conicalP_sph_reg_e" gsl_sf_conicalP_sph_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_conicalP_sph_reg_e" gsl_sf_conicalP_sph_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_conicalP_sph_reg(int l,double lambda,double x); -- -- conicalP_sph_reg :: CInt -> Double -> Double -> Double conicalP_sph_reg = gsl_sf_conicalP_sph_reg -foreign import ccall "legendre.h gsl_sf_conicalP_sph_reg" gsl_sf_conicalP_sph_reg :: CInt -> Double -> Double -> Double +foreign import ccall "gsl_sf_conicalP_sph_reg" gsl_sf_conicalP_sph_reg :: CInt -> Double -> Double -> Double -- | wrapper for int gsl_sf_conicalP_cyl_reg_e(int m,double lambda,double x,gsl_sf_result* result); -- -- conicalP_cyl_reg_e :: CInt -> Double -> Double -> (Double,Double) conicalP_cyl_reg_e m lambda x = createSFR "conicalP_cyl_reg_e" $ gsl_sf_conicalP_cyl_reg_e m lambda x -foreign import ccall "legendre.h gsl_sf_conicalP_cyl_reg_e" gsl_sf_conicalP_cyl_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_conicalP_cyl_reg_e" gsl_sf_conicalP_cyl_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_conicalP_cyl_reg(int m,double lambda,double x); -- -- conicalP_cyl_reg :: CInt -> Double -> Double -> Double conicalP_cyl_reg = gsl_sf_conicalP_cyl_reg -foreign import ccall "legendre.h gsl_sf_conicalP_cyl_reg" gsl_sf_conicalP_cyl_reg :: CInt -> Double -> Double -> Double +foreign import ccall "gsl_sf_conicalP_cyl_reg" gsl_sf_conicalP_cyl_reg :: CInt -> Double -> Double -> Double -- | wrapper for int gsl_sf_legendre_H3d_0_e(double lambda,double eta,gsl_sf_result* result); -- -- legendre_H3d_0_e :: Double -> Double -> (Double,Double) legendre_H3d_0_e lambda eta = createSFR "legendre_H3d_0_e" $ gsl_sf_legendre_H3d_0_e lambda eta -foreign import ccall "legendre.h gsl_sf_legendre_H3d_0_e" gsl_sf_legendre_H3d_0_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_legendre_H3d_0_e" gsl_sf_legendre_H3d_0_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_legendre_H3d_0(double lambda,double eta); -- -- legendre_H3d_0 :: Double -> Double -> Double legendre_H3d_0 = gsl_sf_legendre_H3d_0 -foreign import ccall "legendre.h gsl_sf_legendre_H3d_0" gsl_sf_legendre_H3d_0 :: Double -> Double -> Double +foreign import ccall "gsl_sf_legendre_H3d_0" gsl_sf_legendre_H3d_0 :: Double -> Double -> Double -- | wrapper for int gsl_sf_legendre_H3d_1_e(double lambda,double eta,gsl_sf_result* result); -- -- legendre_H3d_1_e :: Double -> Double -> (Double,Double) legendre_H3d_1_e lambda eta = createSFR "legendre_H3d_1_e" $ gsl_sf_legendre_H3d_1_e lambda eta -foreign import ccall "legendre.h gsl_sf_legendre_H3d_1_e" gsl_sf_legendre_H3d_1_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_legendre_H3d_1_e" gsl_sf_legendre_H3d_1_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_legendre_H3d_1(double lambda,double eta); -- -- legendre_H3d_1 :: Double -> Double -> Double legendre_H3d_1 = gsl_sf_legendre_H3d_1 -foreign import ccall "legendre.h gsl_sf_legendre_H3d_1" gsl_sf_legendre_H3d_1 :: Double -> Double -> Double +foreign import ccall "gsl_sf_legendre_H3d_1" gsl_sf_legendre_H3d_1 :: Double -> Double -> Double -- | wrapper for int gsl_sf_legendre_H3d_e(int l,double lambda,double eta,gsl_sf_result* result); -- -- legendre_H3d_e :: CInt -> Double -> Double -> (Double,Double) legendre_H3d_e l lambda eta = createSFR "legendre_H3d_e" $ gsl_sf_legendre_H3d_e l lambda eta -foreign import ccall "legendre.h gsl_sf_legendre_H3d_e" gsl_sf_legendre_H3d_e :: CInt -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_legendre_H3d_e" gsl_sf_legendre_H3d_e :: CInt -> Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_legendre_H3d(int l,double lambda,double eta); -- -- legendre_H3d :: CInt -> Double -> Double -> Double legendre_H3d = gsl_sf_legendre_H3d -foreign import ccall "legendre.h gsl_sf_legendre_H3d" gsl_sf_legendre_H3d :: CInt -> Double -> Double -> Double +foreign import ccall "gsl_sf_legendre_H3d" gsl_sf_legendre_H3d :: CInt -> Double -> Double -> Double -- | wrapper for int gsl_sf_legendre_H3d_array(int lmax,double lambda,double eta,double* result_array); -- -- legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt legendre_H3d_array = gsl_sf_legendre_H3d_array -foreign import ccall "legendre.h gsl_sf_legendre_H3d_array" gsl_sf_legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt +foreign import ccall "gsl_sf_legendre_H3d_array" gsl_sf_legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt diff --git a/lib/Numeric/GSL/Special/Log.hs b/lib/Numeric/GSL/Special/Log.hs index fabbe76..370c5bd 100644 --- a/lib/Numeric/GSL/Special/Log.hs +++ b/lib/Numeric/GSL/Special/Log.hs @@ -34,60 +34,60 @@ import Numeric.GSL.Special.Internal -- log_e :: Double -> (Double,Double) log_e x = createSFR "log_e" $ gsl_sf_log_e x -foreign import ccall "log.h gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_log(double x); -- -- log :: Double -> Double log = gsl_sf_log -foreign import ccall "log.h gsl_sf_log" gsl_sf_log :: Double -> Double +foreign import ccall "gsl_sf_log" gsl_sf_log :: Double -> Double -- | wrapper for int gsl_sf_log_abs_e(double x,gsl_sf_result* result); -- -- log_abs_e :: Double -> (Double,Double) log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x -foreign import ccall "log.h gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_log_abs(double x); -- -- log_abs :: Double -> Double log_abs = gsl_sf_log_abs -foreign import ccall "log.h gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double +foreign import ccall "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double -- | wrapper for int gsl_sf_complex_log_e(double zr,double zi,gsl_sf_result* lnr,gsl_sf_result* theta); -- -- complex_log_e :: Double -> Double -> Ptr () -> (Double,Double) complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr -foreign import ccall "log.h gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_log_1plusx_e(double x,gsl_sf_result* result); -- -- log_1plusx_e :: Double -> (Double,Double) log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x -foreign import ccall "log.h gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_log_1plusx(double x); -- -- log_1plusx :: Double -> Double log_1plusx = gsl_sf_log_1plusx -foreign import ccall "log.h gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double +foreign import ccall "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double -- | wrapper for int gsl_sf_log_1plusx_mx_e(double x,gsl_sf_result* result); -- -- log_1plusx_mx_e :: Double -> (Double,Double) log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x -foreign import ccall "log.h gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_log_1plusx_mx(double x); -- -- log_1plusx_mx :: Double -> Double log_1plusx_mx = gsl_sf_log_1plusx_mx -foreign import ccall "log.h gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double +foreign import ccall "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double diff --git a/lib/Numeric/GSL/Special/Pow_int.hs b/lib/Numeric/GSL/Special/Pow_int.hs index f30dfb9..a1a1066 100644 --- a/lib/Numeric/GSL/Special/Pow_int.hs +++ b/lib/Numeric/GSL/Special/Pow_int.hs @@ -28,11 +28,11 @@ import Numeric.GSL.Special.Internal -- pow_int_e :: Double -> CInt -> (Double,Double) pow_int_e x n = createSFR "pow_int_e" $ gsl_sf_pow_int_e x n -foreign import ccall "pow_int.h gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_pow_int(double x,int n); -- -- pow_int :: Double -> CInt -> Double pow_int = gsl_sf_pow_int -foreign import ccall "pow_int.h gsl_sf_pow_int" gsl_sf_pow_int :: Double -> CInt -> Double +foreign import ccall "gsl_sf_pow_int" gsl_sf_pow_int :: Double -> CInt -> Double diff --git a/lib/Numeric/GSL/Special/Psi.hs b/lib/Numeric/GSL/Special/Psi.hs index 3ff6570..2bd2848 100644 --- a/lib/Numeric/GSL/Special/Psi.hs +++ b/lib/Numeric/GSL/Special/Psi.hs @@ -38,88 +38,88 @@ import Numeric.GSL.Special.Internal -- psi_int_e :: CInt -> (Double,Double) psi_int_e n = createSFR "psi_int_e" $ gsl_sf_psi_int_e n -foreign import ccall "psi.h gsl_sf_psi_int_e" gsl_sf_psi_int_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_psi_int_e" gsl_sf_psi_int_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_psi_int(int n); -- -- psi_int :: CInt -> Double psi_int = gsl_sf_psi_int -foreign import ccall "psi.h gsl_sf_psi_int" gsl_sf_psi_int :: CInt -> Double +foreign import ccall "gsl_sf_psi_int" gsl_sf_psi_int :: CInt -> Double -- | wrapper for int gsl_sf_psi_e(double x,gsl_sf_result* result); -- -- psi_e :: Double -> (Double,Double) psi_e x = createSFR "psi_e" $ gsl_sf_psi_e x -foreign import ccall "psi.h gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_psi(double x); -- -- psi :: Double -> Double psi = gsl_sf_psi -foreign import ccall "psi.h gsl_sf_psi" gsl_sf_psi :: Double -> Double +foreign import ccall "gsl_sf_psi" gsl_sf_psi :: Double -> Double -- | wrapper for int gsl_sf_psi_1piy_e(double y,gsl_sf_result* result); -- -- psi_1piy_e :: Double -> (Double,Double) psi_1piy_e y = createSFR "psi_1piy_e" $ gsl_sf_psi_1piy_e y -foreign import ccall "psi.h gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_psi_1piy(double y); -- -- psi_1piy :: Double -> Double psi_1piy = gsl_sf_psi_1piy -foreign import ccall "psi.h gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double +foreign import ccall "gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double -- | wrapper for int gsl_sf_complex_psi_e(double x,double y,gsl_sf_result* result_re,gsl_sf_result* result_im); -- -- complex_psi_e :: Double -> Double -> Ptr () -> (Double,Double) complex_psi_e x y result_re = createSFR "complex_psi_e" $ gsl_sf_complex_psi_e x y result_re -foreign import ccall "psi.h gsl_sf_complex_psi_e" gsl_sf_complex_psi_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_complex_psi_e" gsl_sf_complex_psi_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_psi_1_int_e(int n,gsl_sf_result* result); -- -- psi_1_int_e :: CInt -> (Double,Double) psi_1_int_e n = createSFR "psi_1_int_e" $ gsl_sf_psi_1_int_e n -foreign import ccall "psi.h gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_psi_1_int(int n); -- -- psi_1_int :: CInt -> Double psi_1_int = gsl_sf_psi_1_int -foreign import ccall "psi.h gsl_sf_psi_1_int" gsl_sf_psi_1_int :: CInt -> Double +foreign import ccall "gsl_sf_psi_1_int" gsl_sf_psi_1_int :: CInt -> Double -- | wrapper for int gsl_sf_psi_1_e(double x,gsl_sf_result* result); -- -- psi_1_e :: Double -> (Double,Double) psi_1_e x = createSFR "psi_1_e" $ gsl_sf_psi_1_e x -foreign import ccall "psi.h gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_psi_1(double x); -- -- psi_1 :: Double -> Double psi_1 = gsl_sf_psi_1 -foreign import ccall "psi.h gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double +foreign import ccall "gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double -- | wrapper for int gsl_sf_psi_n_e(int n,double x,gsl_sf_result* result); -- -- psi_n_e :: CInt -> Double -> (Double,Double) psi_n_e n x = createSFR "psi_n_e" $ gsl_sf_psi_n_e n x -foreign import ccall "psi.h gsl_sf_psi_n_e" gsl_sf_psi_n_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_psi_n_e" gsl_sf_psi_n_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_psi_n(int n,double x); -- -- psi_n :: CInt -> Double -> Double psi_n = gsl_sf_psi_n -foreign import ccall "psi.h gsl_sf_psi_n" gsl_sf_psi_n :: CInt -> Double -> Double +foreign import ccall "gsl_sf_psi_n" gsl_sf_psi_n :: CInt -> Double -> Double diff --git a/lib/Numeric/GSL/Special/Synchrotron.hs b/lib/Numeric/GSL/Special/Synchrotron.hs index 8adcce8..7f2785d 100644 --- a/lib/Numeric/GSL/Special/Synchrotron.hs +++ b/lib/Numeric/GSL/Special/Synchrotron.hs @@ -30,25 +30,25 @@ import Numeric.GSL.Special.Internal -- synchrotron_1_e :: Double -> (Double,Double) synchrotron_1_e x = createSFR "synchrotron_1_e" $ gsl_sf_synchrotron_1_e x -foreign import ccall "synchrotron.h gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_synchrotron_1(double x); -- -- synchrotron_1 :: Double -> Double synchrotron_1 = gsl_sf_synchrotron_1 -foreign import ccall "synchrotron.h gsl_sf_synchrotron_1" gsl_sf_synchrotron_1 :: Double -> Double +foreign import ccall "gsl_sf_synchrotron_1" gsl_sf_synchrotron_1 :: Double -> Double -- | wrapper for int gsl_sf_synchrotron_2_e(double x,gsl_sf_result* result); -- -- synchrotron_2_e :: Double -> (Double,Double) synchrotron_2_e x = createSFR "synchrotron_2_e" $ gsl_sf_synchrotron_2_e x -foreign import ccall "synchrotron.h gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_synchrotron_2(double x); -- -- synchrotron_2 :: Double -> Double synchrotron_2 = gsl_sf_synchrotron_2 -foreign import ccall "synchrotron.h gsl_sf_synchrotron_2" gsl_sf_synchrotron_2 :: Double -> Double +foreign import ccall "gsl_sf_synchrotron_2" gsl_sf_synchrotron_2 :: Double -> Double diff --git a/lib/Numeric/GSL/Special/Trig.hs b/lib/Numeric/GSL/Special/Trig.hs index 98c2c84..1869733 100644 --- a/lib/Numeric/GSL/Special/Trig.hs +++ b/lib/Numeric/GSL/Special/Trig.hs @@ -44,172 +44,172 @@ import Numeric.GSL.Special.Internal -- sin_e :: Double -> (Double,Double) sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x -foreign import ccall "trig.h gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_sin(double x); -- -- sin :: Double -> Double sin = gsl_sf_sin -foreign import ccall "trig.h gsl_sf_sin" gsl_sf_sin :: Double -> Double +foreign import ccall "gsl_sf_sin" gsl_sf_sin :: Double -> Double -- | wrapper for int gsl_sf_cos_e(double x,gsl_sf_result* result); -- -- cos_e :: Double -> (Double,Double) cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x -foreign import ccall "trig.h gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_cos(double x); -- -- cos :: Double -> Double cos = gsl_sf_cos -foreign import ccall "trig.h gsl_sf_cos" gsl_sf_cos :: Double -> Double +foreign import ccall "gsl_sf_cos" gsl_sf_cos :: Double -> Double -- | wrapper for int gsl_sf_hypot_e(double x,double y,gsl_sf_result* result); -- -- hypot_e :: Double -> Double -> (Double,Double) hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y -foreign import ccall "trig.h gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_hypot(double x,double y); -- -- hypot :: Double -> Double -> Double hypot = gsl_sf_hypot -foreign import ccall "trig.h gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double +foreign import ccall "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double -- | wrapper for int gsl_sf_complex_sin_e(double zr,double zi,gsl_sf_result* szr,gsl_sf_result* szi); -- -- complex_sin_e :: Double -> Double -> Ptr () -> (Double,Double) complex_sin_e zr zi szr = createSFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi szr -foreign import ccall "trig.h gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_complex_cos_e(double zr,double zi,gsl_sf_result* czr,gsl_sf_result* czi); -- -- complex_cos_e :: Double -> Double -> Ptr () -> (Double,Double) complex_cos_e zr zi czr = createSFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi czr -foreign import ccall "trig.h gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_complex_logsin_e(double zr,double zi,gsl_sf_result* lszr,gsl_sf_result* lszi); -- -- complex_logsin_e :: Double -> Double -> Ptr () -> (Double,Double) complex_logsin_e zr zi lszr = createSFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi lszr -foreign import ccall "trig.h gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_sinc_e(double x,gsl_sf_result* result); -- -- sinc_e :: Double -> (Double,Double) sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x -foreign import ccall "trig.h gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_sinc(double x); -- -- sinc :: Double -> Double sinc = gsl_sf_sinc -foreign import ccall "trig.h gsl_sf_sinc" gsl_sf_sinc :: Double -> Double +foreign import ccall "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double -- | wrapper for int gsl_sf_lnsinh_e(double x,gsl_sf_result* result); -- -- lnsinh_e :: Double -> (Double,Double) lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x -foreign import ccall "trig.h gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_lnsinh(double x); -- -- lnsinh :: Double -> Double lnsinh = gsl_sf_lnsinh -foreign import ccall "trig.h gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double +foreign import ccall "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double -- | wrapper for int gsl_sf_lncosh_e(double x,gsl_sf_result* result); -- -- lncosh_e :: Double -> (Double,Double) lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x -foreign import ccall "trig.h gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_lncosh(double x); -- -- lncosh :: Double -> Double lncosh = gsl_sf_lncosh -foreign import ccall "trig.h gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double +foreign import ccall "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double -- | wrapper for int gsl_sf_polar_to_rect(double r,double theta,gsl_sf_result* x,gsl_sf_result* y); -- -- polar_to_rect :: Double -> Double -> Ptr () -> (Double,Double) polar_to_rect r theta x = createSFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta x -foreign import ccall "trig.h gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_rect_to_polar(double x,double y,gsl_sf_result* r,gsl_sf_result* theta); -- -- rect_to_polar :: Double -> Double -> Ptr () -> (Double,Double) rect_to_polar x y r = createSFR "rect_to_polar" $ gsl_sf_rect_to_polar x y r -foreign import ccall "trig.h gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_sin_err_e(double x,double dx,gsl_sf_result* result); -- -- sin_err_e :: Double -> Double -> (Double,Double) sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx -foreign import ccall "trig.h gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_cos_err_e(double x,double dx,gsl_sf_result* result); -- -- cos_err_e :: Double -> Double -> (Double,Double) cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx -foreign import ccall "trig.h gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_angle_restrict_symm_e(double* theta); -- -- angle_restrict_symm_e :: Ptr Double -> CInt angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e -foreign import ccall "trig.h gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt +foreign import ccall "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt -- | wrapper for double gsl_sf_angle_restrict_symm(double theta); -- -- angle_restrict_symm :: Double -> Double angle_restrict_symm = gsl_sf_angle_restrict_symm -foreign import ccall "trig.h gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double +foreign import ccall "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double -- | wrapper for int gsl_sf_angle_restrict_pos_e(double* theta); -- -- angle_restrict_pos_e :: Ptr Double -> CInt angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e -foreign import ccall "trig.h gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt +foreign import ccall "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt -- | wrapper for double gsl_sf_angle_restrict_pos(double theta); -- -- angle_restrict_pos :: Double -> Double angle_restrict_pos = gsl_sf_angle_restrict_pos -foreign import ccall "trig.h gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double +foreign import ccall "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double -- | wrapper for int gsl_sf_angle_restrict_symm_err_e(double theta,gsl_sf_result* result); -- -- angle_restrict_symm_err_e :: Double -> (Double,Double) angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta -foreign import ccall "trig.h gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_angle_restrict_pos_err_e(double theta,gsl_sf_result* result); -- -- angle_restrict_pos_err_e :: Double -> (Double,Double) angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta -foreign import ccall "trig.h gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt diff --git a/lib/Numeric/GSL/Special/Zeta.hs b/lib/Numeric/GSL/Special/Zeta.hs index 4970834..a78d0e8 100644 --- a/lib/Numeric/GSL/Special/Zeta.hs +++ b/lib/Numeric/GSL/Special/Zeta.hs @@ -40,95 +40,95 @@ import Numeric.GSL.Special.Internal -- zeta_int_e :: CInt -> (Double,Double) zeta_int_e n = createSFR "zeta_int_e" $ gsl_sf_zeta_int_e n -foreign import ccall "zeta.h gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_zeta_int(int n); -- -- zeta_int :: CInt -> Double zeta_int = gsl_sf_zeta_int -foreign import ccall "zeta.h gsl_sf_zeta_int" gsl_sf_zeta_int :: CInt -> Double +foreign import ccall "gsl_sf_zeta_int" gsl_sf_zeta_int :: CInt -> Double -- | wrapper for int gsl_sf_zeta_e(double s,gsl_sf_result* result); -- -- zeta_e :: Double -> (Double,Double) zeta_e s = createSFR "zeta_e" $ gsl_sf_zeta_e s -foreign import ccall "zeta.h gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_zeta(double s); -- -- zeta :: Double -> Double zeta = gsl_sf_zeta -foreign import ccall "zeta.h gsl_sf_zeta" gsl_sf_zeta :: Double -> Double +foreign import ccall "gsl_sf_zeta" gsl_sf_zeta :: Double -> Double -- | wrapper for int gsl_sf_zetam1_e(double s,gsl_sf_result* result); -- -- zetam1_e :: Double -> (Double,Double) zetam1_e s = createSFR "zetam1_e" $ gsl_sf_zetam1_e s -foreign import ccall "zeta.h gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_zetam1(double s); -- -- zetam1 :: Double -> Double zetam1 = gsl_sf_zetam1 -foreign import ccall "zeta.h gsl_sf_zetam1" gsl_sf_zetam1 :: Double -> Double +foreign import ccall "gsl_sf_zetam1" gsl_sf_zetam1 :: Double -> Double -- | wrapper for int gsl_sf_zetam1_int_e(int s,gsl_sf_result* result); -- -- zetam1_int_e :: CInt -> (Double,Double) zetam1_int_e s = createSFR "zetam1_int_e" $ gsl_sf_zetam1_int_e s -foreign import ccall "zeta.h gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_zetam1_int(int s); -- -- zetam1_int :: CInt -> Double zetam1_int = gsl_sf_zetam1_int -foreign import ccall "zeta.h gsl_sf_zetam1_int" gsl_sf_zetam1_int :: CInt -> Double +foreign import ccall "gsl_sf_zetam1_int" gsl_sf_zetam1_int :: CInt -> Double -- | wrapper for int gsl_sf_hzeta_e(double s,double q,gsl_sf_result* result); -- -- hzeta_e :: Double -> Double -> (Double,Double) hzeta_e s q = createSFR "hzeta_e" $ gsl_sf_hzeta_e s q -foreign import ccall "zeta.h gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_hzeta(double s,double q); -- -- hzeta :: Double -> Double -> Double hzeta = gsl_sf_hzeta -foreign import ccall "zeta.h gsl_sf_hzeta" gsl_sf_hzeta :: Double -> Double -> Double +foreign import ccall "gsl_sf_hzeta" gsl_sf_hzeta :: Double -> Double -> Double -- | wrapper for int gsl_sf_eta_int_e(int n,gsl_sf_result* result); -- -- eta_int_e :: CInt -> (Double,Double) eta_int_e n = createSFR "eta_int_e" $ gsl_sf_eta_int_e n -foreign import ccall "zeta.h gsl_sf_eta_int_e" gsl_sf_eta_int_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_eta_int_e" gsl_sf_eta_int_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_eta_int(int n); -- -- eta_int :: CInt -> Double eta_int = gsl_sf_eta_int -foreign import ccall "zeta.h gsl_sf_eta_int" gsl_sf_eta_int :: CInt -> Double +foreign import ccall "gsl_sf_eta_int" gsl_sf_eta_int :: CInt -> Double -- | wrapper for int gsl_sf_eta_e(double s,gsl_sf_result* result); -- -- eta_e :: Double -> (Double,Double) eta_e s = createSFR "eta_e" $ gsl_sf_eta_e s -foreign import ccall "zeta.h gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_eta(double s); -- -- eta :: Double -> Double eta = gsl_sf_eta -foreign import ccall "zeta.h gsl_sf_eta" gsl_sf_eta :: Double -> Double +foreign import ccall "gsl_sf_eta" gsl_sf_eta :: Double -> Double diff --git a/lib/Numeric/GSL/Special/airy.h b/lib/Numeric/GSL/Special/airy.h deleted file mode 100644 index e34e012..0000000 --- a/lib/Numeric/GSL/Special/airy.h +++ /dev/null @@ -1,24 +0,0 @@ -int gsl_sf_airy_Ai_e(double x,int mode,double* result); -double gsl_sf_airy_Ai(double x,int mode); -int gsl_sf_airy_Bi_e(double x,int mode,double* result); -double gsl_sf_airy_Bi(double x,int mode); -int gsl_sf_airy_Ai_scaled_e(double x,int mode,double* result); -double gsl_sf_airy_Ai_scaled(double x,int mode); -int gsl_sf_airy_Bi_scaled_e(double x,int mode,double* result); -double gsl_sf_airy_Bi_scaled(double x,int mode); -int gsl_sf_airy_Ai_deriv_e(double x,int mode,double* result); -double gsl_sf_airy_Ai_deriv(double x,int mode); -int gsl_sf_airy_Bi_deriv_e(double x,int mode,double* result); -double gsl_sf_airy_Bi_deriv(double x,int mode); -int gsl_sf_airy_Ai_deriv_scaled_e(double x,int mode,double* result); -double gsl_sf_airy_Ai_deriv_scaled(double x,int mode); -int gsl_sf_airy_Bi_deriv_scaled_e(double x,int mode,double* result); -double gsl_sf_airy_Bi_deriv_scaled(double x,int mode); -int gsl_sf_airy_zero_Ai_e(int s,double* result); -double gsl_sf_airy_zero_Ai(int s); -int gsl_sf_airy_zero_Bi_e(int s,double* result); -double gsl_sf_airy_zero_Bi(int s); -int gsl_sf_airy_zero_Ai_deriv_e(int s,double* result); -double gsl_sf_airy_zero_Ai_deriv(int s); -int gsl_sf_airy_zero_Bi_deriv_e(int s,double* result); -double gsl_sf_airy_zero_Bi_deriv(int s); diff --git a/lib/Numeric/GSL/Special/auto.hs b/lib/Numeric/GSL/Special/auto.hs index 9785fe7..c8b0529 100644 --- a/lib/Numeric/GSL/Special/auto.hs +++ b/lib/Numeric/GSL/Special/auto.hs @@ -54,7 +54,7 @@ main = do putStrLn headerfile --mapM_ print (headers $ fixlong file) let parsed = (headers $ fixlong file) - writeFile (name ++".h") (fixC $ unlines $ map showC parsed) + -- writeFile (name ++".h") (fixC $ unlines $ map showC parsed) --putStrLn "" --mapM (\(Header _ n _) -> putStrLn (drop 7 n ++",")) parsed @@ -180,7 +180,7 @@ showCt (Pointer s) = s ++ "*" showCa (t, a) = showCt t ++" "++ a -showH hc h@(Header t n args) = "foreign import ccall \""++hc++" "++n++"\" "++n++" :: "++ (concat$intersperse" -> "$map showHa args) ++" -> " ++ t' +showH hc h@(Header t n args) = "foreign import ccall \""++n++"\" "++n++" :: "++ (concat$intersperse" -> "$map showHa args) ++" -> " ++ t' where t' | pure h = showHt t | otherwise = "IO "++showHt t diff --git a/lib/Numeric/GSL/Special/bessel.h b/lib/Numeric/GSL/Special/bessel.h deleted file mode 100644 index 5a2445d..0000000 --- a/lib/Numeric/GSL/Special/bessel.h +++ /dev/null @@ -1,100 +0,0 @@ -int gsl_sf_bessel_J0_e(double x,double* result); -double gsl_sf_bessel_J0(double x); -int gsl_sf_bessel_J1_e(double x,double* result); -double gsl_sf_bessel_J1(double x); -int gsl_sf_bessel_Jn_e(int n,double x,double* result); -double gsl_sf_bessel_Jn(int n,double x); -int gsl_sf_bessel_Jn_array(int nmin,int nmax,double x,double* result_array); -int gsl_sf_bessel_Y0_e(double x,double* result); -double gsl_sf_bessel_Y0(double x); -int gsl_sf_bessel_Y1_e(double x,double* result); -double gsl_sf_bessel_Y1(double x); -int gsl_sf_bessel_Yn_e(int n,double x,double* result); -double gsl_sf_bessel_Yn(int n,double x); -int gsl_sf_bessel_Yn_array(int nmin,int nmax,double x,double* result_array); -int gsl_sf_bessel_I0_e(double x,double* result); -double gsl_sf_bessel_I0(double x); -int gsl_sf_bessel_I1_e(double x,double* result); -double gsl_sf_bessel_I1(double x); -int gsl_sf_bessel_In_e(int n,double x,double* result); -double gsl_sf_bessel_In(int n,double x); -int gsl_sf_bessel_In_array(int nmin,int nmax,double x,double* result_array); -int gsl_sf_bessel_I0_scaled_e(double x,double* result); -double gsl_sf_bessel_I0_scaled(double x); -int gsl_sf_bessel_I1_scaled_e(double x,double* result); -double gsl_sf_bessel_I1_scaled(double x); -int gsl_sf_bessel_In_scaled_e(int n,double x,double* result); -double gsl_sf_bessel_In_scaled(int n,double x); -int gsl_sf_bessel_In_scaled_array(int nmin,int nmax,double x,double* result_array); -int gsl_sf_bessel_K0_e(double x,double* result); -double gsl_sf_bessel_K0(double x); -int gsl_sf_bessel_K1_e(double x,double* result); -double gsl_sf_bessel_K1(double x); -int gsl_sf_bessel_Kn_e(int n,double x,double* result); -double gsl_sf_bessel_Kn(int n,double x); -int gsl_sf_bessel_Kn_array(int nmin,int nmax,double x,double* result_array); -int gsl_sf_bessel_K0_scaled_e(double x,double* result); -double gsl_sf_bessel_K0_scaled(double x); -int gsl_sf_bessel_K1_scaled_e(double x,double* result); -double gsl_sf_bessel_K1_scaled(double x); -int gsl_sf_bessel_Kn_scaled_e(int n,double x,double* result); -double gsl_sf_bessel_Kn_scaled(int n,double x); -int gsl_sf_bessel_Kn_scaled_array(int nmin,int nmax,double x,double* result_array); -int gsl_sf_bessel_j0_e(double x,double* result); -double gsl_sf_bessel_j0(double x); -int gsl_sf_bessel_j1_e(double x,double* result); -double gsl_sf_bessel_j1(double x); -int gsl_sf_bessel_j2_e(double x,double* result); -double gsl_sf_bessel_j2(double x); -int gsl_sf_bessel_jl_e(int l,double x,double* result); -double gsl_sf_bessel_jl(int l,double x); -int gsl_sf_bessel_jl_array(int lmax,double x,double* result_array); -int gsl_sf_bessel_jl_steed_array(int lmax,double x,double* jl_x_array); -int gsl_sf_bessel_y0_e(double x,double* result); -double gsl_sf_bessel_y0(double x); -int gsl_sf_bessel_y1_e(double x,double* result); -double gsl_sf_bessel_y1(double x); -int gsl_sf_bessel_y2_e(double x,double* result); -double gsl_sf_bessel_y2(double x); -int gsl_sf_bessel_yl_e(int l,double x,double* result); -double gsl_sf_bessel_yl(int l,double x); -int gsl_sf_bessel_yl_array(int lmax,double x,double* result_array); -int gsl_sf_bessel_i0_scaled_e(double x,double* result); -double gsl_sf_bessel_i0_scaled(double x); -int gsl_sf_bessel_i1_scaled_e(double x,double* result); -double gsl_sf_bessel_i1_scaled(double x); -int gsl_sf_bessel_i2_scaled_e(double x,double* result); -double gsl_sf_bessel_i2_scaled(double x); -int gsl_sf_bessel_il_scaled_e(int l,double x,double* result); -double gsl_sf_bessel_il_scaled(int l,double x); -int gsl_sf_bessel_il_scaled_array(int lmax,double x,double* result_array); -int gsl_sf_bessel_k0_scaled_e(double x,double* result); -double gsl_sf_bessel_k0_scaled(double x); -int gsl_sf_bessel_k1_scaled_e(double x,double* result); -double gsl_sf_bessel_k1_scaled(double x); -int gsl_sf_bessel_k2_scaled_e(double x,double* result); -double gsl_sf_bessel_k2_scaled(double x); -int gsl_sf_bessel_kl_scaled_e(int l,double x,double* result); -double gsl_sf_bessel_kl_scaled(int l,double x); -int gsl_sf_bessel_kl_scaled_array(int lmax,double x,double* result_array); -int gsl_sf_bessel_Jnu_e(double nu,double x,double* result); -double gsl_sf_bessel_Jnu(double nu,double x); -int gsl_sf_bessel_Ynu_e(double nu,double x,double* result); -double gsl_sf_bessel_Ynu(double nu,double x); -int gsl_sf_bessel_sequence_Jnu_e(double nu,int mode,size_t size,double* v); -int gsl_sf_bessel_Inu_scaled_e(double nu,double x,double* result); -double gsl_sf_bessel_Inu_scaled(double nu,double x); -int gsl_sf_bessel_Inu_e(double nu,double x,double* result); -double gsl_sf_bessel_Inu(double nu,double x); -int gsl_sf_bessel_Knu_scaled_e(double nu,double x,double* result); -double gsl_sf_bessel_Knu_scaled(double nu,double x); -int gsl_sf_bessel_Knu_e(double nu,double x,double* result); -double gsl_sf_bessel_Knu(double nu,double x); -int gsl_sf_bessel_lnKnu_e(double nu,double x,double* result); -double gsl_sf_bessel_lnKnu(double nu,double x); -int gsl_sf_bessel_zero_J0_e(int s,double* result); -double gsl_sf_bessel_zero_J0(int s); -int gsl_sf_bessel_zero_J1_e(int s,double* result); -double gsl_sf_bessel_zero_J1(int s); -int gsl_sf_bessel_zero_Jnu_e(double nu,int s,double* result); -double gsl_sf_bessel_zero_Jnu(double nu,int s); diff --git a/lib/Numeric/GSL/Special/clausen.h b/lib/Numeric/GSL/Special/clausen.h deleted file mode 100644 index 9f0225b..0000000 --- a/lib/Numeric/GSL/Special/clausen.h +++ /dev/null @@ -1,2 +0,0 @@ -int gsl_sf_clausen_e(double x,double* result); -double gsl_sf_clausen(double x); diff --git a/lib/Numeric/GSL/Special/coulomb.h b/lib/Numeric/GSL/Special/coulomb.h deleted file mode 100644 index 2551081..0000000 --- a/lib/Numeric/GSL/Special/coulomb.h +++ /dev/null @@ -1,11 +0,0 @@ -int gsl_sf_hydrogenicR_1_e(double Z,double r,double* result); -double gsl_sf_hydrogenicR_1(double Z,double r); -int gsl_sf_hydrogenicR_e(int n,int l,double Z,double r,double* result); -double gsl_sf_hydrogenicR(int n,int l,double Z,double r); -int gsl_sf_coulomb_wave_FG_e(double eta,double x,double lam_F,int k_lam_G,double* F,double* Fp,double* G,double* Gp,double* exp_F,double* exp_G); -int gsl_sf_coulomb_wave_F_array(double lam_min,int kmax,double eta,double x,double* fc_array,double* F_exponent); -int gsl_sf_coulomb_wave_FG_array(double lam_min,int kmax,double eta,double x,double* fc_array,double* gc_array,double* F_exponent,double* G_exponent); -int gsl_sf_coulomb_wave_FGp_array(double lam_min,int kmax,double eta,double x,double* fc_array,double* fcp_array,double* gc_array,double* gcp_array,double* F_exponent,double* G_exponent); -int gsl_sf_coulomb_wave_sphF_array(double lam_min,int kmax,double eta,double x,double* fc_array,double* F_exponent); -int gsl_sf_coulomb_CL_e(double L,double eta,double* result); -int gsl_sf_coulomb_CL_array(double Lmin,int kmax,double eta,double* cl); diff --git a/lib/Numeric/GSL/Special/coupling.h b/lib/Numeric/GSL/Special/coupling.h deleted file mode 100644 index 17de964..0000000 --- a/lib/Numeric/GSL/Special/coupling.h +++ /dev/null @@ -1,10 +0,0 @@ -int gsl_sf_coupling_3j_e(int two_ja,int two_jb,int two_jc,int two_ma,int two_mb,int two_mc,double* result); -double gsl_sf_coupling_3j(int two_ja,int two_jb,int two_jc,int two_ma,int two_mb,int two_mc); -int gsl_sf_coupling_6j_e(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf,double* result); -double gsl_sf_coupling_6j(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf); -int gsl_sf_coupling_RacahW_e(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf,double* result); -double gsl_sf_coupling_RacahW(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf); -int gsl_sf_coupling_9j_e(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf,int two_jg,int two_jh,int two_ji,double* result); -double gsl_sf_coupling_9j(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf,int two_jg,int two_jh,int two_ji); -int gsl_sf_coupling_6j_INCORRECT_e(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf,double* result); -double gsl_sf_coupling_6j_INCORRECT(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf); diff --git a/lib/Numeric/GSL/Special/dawson.h b/lib/Numeric/GSL/Special/dawson.h deleted file mode 100644 index 5f878b5..0000000 --- a/lib/Numeric/GSL/Special/dawson.h +++ /dev/null @@ -1,2 +0,0 @@ -int gsl_sf_dawson_e(double x,double* result); -double gsl_sf_dawson(double x); diff --git a/lib/Numeric/GSL/Special/debye.h b/lib/Numeric/GSL/Special/debye.h deleted file mode 100644 index 5e56fe1..0000000 --- a/lib/Numeric/GSL/Special/debye.h +++ /dev/null @@ -1,12 +0,0 @@ -int gsl_sf_debye_1_e(double x,double* result); -double gsl_sf_debye_1(double x); -int gsl_sf_debye_2_e(double x,double* result); -double gsl_sf_debye_2(double x); -int gsl_sf_debye_3_e(double x,double* result); -double gsl_sf_debye_3(double x); -int gsl_sf_debye_4_e(double x,double* result); -double gsl_sf_debye_4(double x); -int gsl_sf_debye_5_e(double x,double* result); -double gsl_sf_debye_5(double x); -int gsl_sf_debye_6_e(double x,double* result); -double gsl_sf_debye_6(double x); diff --git a/lib/Numeric/GSL/Special/dilog.h b/lib/Numeric/GSL/Special/dilog.h deleted file mode 100644 index ce1599e..0000000 --- a/lib/Numeric/GSL/Special/dilog.h +++ /dev/null @@ -1,5 +0,0 @@ -int gsl_sf_dilog_e(double x,double* result); -double gsl_sf_dilog(double x); -int gsl_sf_complex_dilog_xy_e(double x,double y,double* result_re,double* result_im); -int gsl_sf_complex_dilog_e(double r,double theta,double* result_re,double* result_im); -int gsl_sf_complex_spence_xy_e(double x,double y,double* real_sp,double* imag_sp); diff --git a/lib/Numeric/GSL/Special/elementary.h b/lib/Numeric/GSL/Special/elementary.h deleted file mode 100644 index bf5adf8..0000000 --- a/lib/Numeric/GSL/Special/elementary.h +++ /dev/null @@ -1,3 +0,0 @@ -int gsl_sf_multiply_e(double x,double y,double* result); -double gsl_sf_multiply(double x,double y); -int gsl_sf_multiply_err_e(double x,double dx,double y,double dy,double* result); diff --git a/lib/Numeric/GSL/Special/ellint.h b/lib/Numeric/GSL/Special/ellint.h deleted file mode 100644 index bc61ef1..0000000 --- a/lib/Numeric/GSL/Special/ellint.h +++ /dev/null @@ -1,24 +0,0 @@ -int gsl_sf_ellint_Kcomp_e(double k,int mode,double* result); -double gsl_sf_ellint_Kcomp(double k,int mode); -int gsl_sf_ellint_Ecomp_e(double k,int mode,double* result); -double gsl_sf_ellint_Ecomp(double k,int mode); -int gsl_sf_ellint_Pcomp_e(double k,double n,int mode,double* result); -double gsl_sf_ellint_Pcomp(double k,double n,int mode); -int gsl_sf_ellint_Dcomp_e(double k,int mode,double* result); -double gsl_sf_ellint_Dcomp(double k,int mode); -int gsl_sf_ellint_F_e(double phi,double k,int mode,double* result); -double gsl_sf_ellint_F(double phi,double k,int mode); -int gsl_sf_ellint_E_e(double phi,double k,int mode,double* result); -double gsl_sf_ellint_E(double phi,double k,int mode); -int gsl_sf_ellint_P_e(double phi,double k,double n,int mode,double* result); -double gsl_sf_ellint_P(double phi,double k,double n,int mode); -int gsl_sf_ellint_D_e(double phi,double k,double n,int mode,double* result); -double gsl_sf_ellint_D(double phi,double k,double n,int mode); -int gsl_sf_ellint_RC_e(double x,double y,int mode,double* result); -double gsl_sf_ellint_RC(double x,double y,int mode); -int gsl_sf_ellint_RD_e(double x,double y,double z,int mode,double* result); -double gsl_sf_ellint_RD(double x,double y,double z,int mode); -int gsl_sf_ellint_RF_e(double x,double y,double z,int mode,double* result); -double gsl_sf_ellint_RF(double x,double y,double z,int mode); -int gsl_sf_ellint_RJ_e(double x,double y,double z,double p,int mode,double* result); -double gsl_sf_ellint_RJ(double x,double y,double z,double p,int mode); diff --git a/lib/Numeric/GSL/Special/erf.h b/lib/Numeric/GSL/Special/erf.h deleted file mode 100644 index 17369cf..0000000 --- a/lib/Numeric/GSL/Special/erf.h +++ /dev/null @@ -1,12 +0,0 @@ -int gsl_sf_erfc_e(double x,double* result); -double gsl_sf_erfc(double x); -int gsl_sf_log_erfc_e(double x,double* result); -double gsl_sf_log_erfc(double x); -int gsl_sf_erf_e(double x,double* result); -double gsl_sf_erf(double x); -int gsl_sf_erf_Z_e(double x,double* result); -int gsl_sf_erf_Q_e(double x,double* result); -double gsl_sf_erf_Z(double x); -double gsl_sf_erf_Q(double x); -int gsl_sf_hazard_e(double x,double* result); -double gsl_sf_hazard(double x); diff --git a/lib/Numeric/GSL/Special/exp.h b/lib/Numeric/GSL/Special/exp.h deleted file mode 100644 index 20062f0..0000000 --- a/lib/Numeric/GSL/Special/exp.h +++ /dev/null @@ -1,18 +0,0 @@ -int gsl_sf_exp_e(double x,double* result); -double gsl_sf_exp(double x); -int gsl_sf_exp_e10_e(double x,double* result); -int gsl_sf_exp_mult_e(double x,double y,double* result); -double gsl_sf_exp_mult(double x,double y); -int gsl_sf_exp_mult_e10_e(double x,double y,double* result); -int gsl_sf_expm1_e(double x,double* result); -double gsl_sf_expm1(double x); -int gsl_sf_exprel_e(double x,double* result); -double gsl_sf_exprel(double x); -int gsl_sf_exprel_2_e(double x,double* result); -double gsl_sf_exprel_2(double x); -int gsl_sf_exprel_n_e(int n,double x,double* result); -double gsl_sf_exprel_n(int n,double x); -int gsl_sf_exp_err_e(double x,double dx,double* result); -int gsl_sf_exp_err_e10_e(double x,double dx,double* result); -int gsl_sf_exp_mult_err_e(double x,double dx,double y,double dy,double* result); -int gsl_sf_exp_mult_err_e10_e(double x,double dx,double y,double dy,double* result); diff --git a/lib/Numeric/GSL/Special/expint.h b/lib/Numeric/GSL/Special/expint.h deleted file mode 100644 index 1dd469f..0000000 --- a/lib/Numeric/GSL/Special/expint.h +++ /dev/null @@ -1,24 +0,0 @@ -int gsl_sf_expint_E1_e(double x,double* result); -double gsl_sf_expint_E1(double x); -int gsl_sf_expint_E2_e(double x,double* result); -double gsl_sf_expint_E2(double x); -int gsl_sf_expint_E1_scaled_e(double x,double* result); -double gsl_sf_expint_E1_scaled(double x); -int gsl_sf_expint_E2_scaled_e(double x,double* result); -double gsl_sf_expint_E2_scaled(double x); -int gsl_sf_expint_Ei_e(double x,double* result); -double gsl_sf_expint_Ei(double x); -int gsl_sf_expint_Ei_scaled_e(double x,double* result); -double gsl_sf_expint_Ei_scaled(double x); -int gsl_sf_Shi_e(double x,double* result); -double gsl_sf_Shi(double x); -int gsl_sf_Chi_e(double x,double* result); -double gsl_sf_Chi(double x); -int gsl_sf_expint_3_e(double x,double* result); -double gsl_sf_expint_3(double x); -int gsl_sf_Si_e(double x,double* result); -double gsl_sf_Si(double x); -int gsl_sf_Ci_e(double x,double* result); -double gsl_sf_Ci(double x); -int gsl_sf_atanint_e(double x,double* result); -double gsl_sf_atanint(double x); diff --git a/lib/Numeric/GSL/Special/fermi_dirac.h b/lib/Numeric/GSL/Special/fermi_dirac.h deleted file mode 100644 index 7a4c757..0000000 --- a/lib/Numeric/GSL/Special/fermi_dirac.h +++ /dev/null @@ -1,18 +0,0 @@ -int gsl_sf_fermi_dirac_m1_e(double x,double* result); -double gsl_sf_fermi_dirac_m1(double x); -int gsl_sf_fermi_dirac_0_e(double x,double* result); -double gsl_sf_fermi_dirac_0(double x); -int gsl_sf_fermi_dirac_1_e(double x,double* result); -double gsl_sf_fermi_dirac_1(double x); -int gsl_sf_fermi_dirac_2_e(double x,double* result); -double gsl_sf_fermi_dirac_2(double x); -int gsl_sf_fermi_dirac_int_e(int j,double x,double* result); -double gsl_sf_fermi_dirac_int(int j,double x); -int gsl_sf_fermi_dirac_mhalf_e(double x,double* result); -double gsl_sf_fermi_dirac_mhalf(double x); -int gsl_sf_fermi_dirac_half_e(double x,double* result); -double gsl_sf_fermi_dirac_half(double x); -int gsl_sf_fermi_dirac_3half_e(double x,double* result); -double gsl_sf_fermi_dirac_3half(double x); -int gsl_sf_fermi_dirac_inc_0_e(double x,double b,double* result); -double gsl_sf_fermi_dirac_inc_0(double x,double b); diff --git a/lib/Numeric/GSL/Special/gamma.h b/lib/Numeric/GSL/Special/gamma.h deleted file mode 100644 index f449d7c..0000000 --- a/lib/Numeric/GSL/Special/gamma.h +++ /dev/null @@ -1,44 +0,0 @@ -int gsl_sf_lngamma_e(double x,double* result); -double gsl_sf_lngamma(double x); -int gsl_sf_lngamma_sgn_e(double x,double* result_lg,double* sgn); -int gsl_sf_gamma_e(double x,double* result); -double gsl_sf_gamma(double x); -int gsl_sf_gammastar_e(double x,double* result); -double gsl_sf_gammastar(double x); -int gsl_sf_gammainv_e(double x,double* result); -double gsl_sf_gammainv(double x); -int gsl_sf_lngamma_complex_e(double zr,double zi,double* lnr,double* arg); -int gsl_sf_taylorcoeff_e(int n,double x,double* result); -double gsl_sf_taylorcoeff(int n,double x); -int gsl_sf_fact_e(int n,double* result); -double gsl_sf_fact(int n); -int gsl_sf_doublefact_e(int n,double* result); -double gsl_sf_doublefact(int n); -int gsl_sf_lnfact_e(int n,double* result); -double gsl_sf_lnfact(int n); -int gsl_sf_lndoublefact_e(int n,double* result); -double gsl_sf_lndoublefact(int n); -int gsl_sf_lnchoose_e(int n,int m,double* result); -double gsl_sf_lnchoose(int n,int m); -int gsl_sf_choose_e(int n,int m,double* result); -double gsl_sf_choose(int n,int m); -int gsl_sf_lnpoch_e(double a,double x,double* result); -double gsl_sf_lnpoch(double a,double x); -int gsl_sf_lnpoch_sgn_e(double a,double x,double* result,double* sgn); -int gsl_sf_poch_e(double a,double x,double* result); -double gsl_sf_poch(double a,double x); -int gsl_sf_pochrel_e(double a,double x,double* result); -double gsl_sf_pochrel(double a,double x); -int gsl_sf_gamma_inc_Q_e(double a,double x,double* result); -double gsl_sf_gamma_inc_Q(double a,double x); -int gsl_sf_gamma_inc_P_e(double a,double x,double* result); -double gsl_sf_gamma_inc_P(double a,double x); -int gsl_sf_gamma_inc_e(double a,double x,double* result); -double gsl_sf_gamma_inc(double a,double x); -int gsl_sf_lnbeta_e(double a,double b,double* result); -double gsl_sf_lnbeta(double a,double b); -int gsl_sf_lnbeta_sgn_e(double x,double y,double* result,double* sgn); -int gsl_sf_beta_e(double a,double b,double* result); -double gsl_sf_beta(double a,double b); -int gsl_sf_beta_inc_e(double a,double b,double x,double* result); -double gsl_sf_beta_inc(double a,double b,double x); diff --git a/lib/Numeric/GSL/Special/gegenbauer.h b/lib/Numeric/GSL/Special/gegenbauer.h deleted file mode 100644 index 228cbd3..0000000 --- a/lib/Numeric/GSL/Special/gegenbauer.h +++ /dev/null @@ -1,9 +0,0 @@ -int gsl_sf_gegenpoly_1_e(double lambda,double x,double* result); -int gsl_sf_gegenpoly_2_e(double lambda,double x,double* result); -int gsl_sf_gegenpoly_3_e(double lambda,double x,double* result); -double gsl_sf_gegenpoly_1(double lambda,double x); -double gsl_sf_gegenpoly_2(double lambda,double x); -double gsl_sf_gegenpoly_3(double lambda,double x); -int gsl_sf_gegenpoly_n_e(int n,double lambda,double x,double* result); -double gsl_sf_gegenpoly_n(int n,double lambda,double x); -int gsl_sf_gegenpoly_array(int nmax,double lambda,double x,double* result_array); diff --git a/lib/Numeric/GSL/Special/hyperg.h b/lib/Numeric/GSL/Special/hyperg.h deleted file mode 100644 index aa59106..0000000 --- a/lib/Numeric/GSL/Special/hyperg.h +++ /dev/null @@ -1,22 +0,0 @@ -int gsl_sf_hyperg_0F1_e(double c,double x,double* result); -double gsl_sf_hyperg_0F1(double c,double x); -int gsl_sf_hyperg_1F1_int_e(int m,int n,double x,double* result); -double gsl_sf_hyperg_1F1_int(int m,int n,double x); -int gsl_sf_hyperg_1F1_e(double a,double b,double x,double* result); -double gsl_sf_hyperg_1F1(double a,double b,double x); -int gsl_sf_hyperg_U_int_e(int m,int n,double x,double* result); -double gsl_sf_hyperg_U_int(int m,int n,double x); -int gsl_sf_hyperg_U_int_e10_e(int m,int n,double x,double* result); -int gsl_sf_hyperg_U_e(double a,double b,double x,double* result); -double gsl_sf_hyperg_U(double a,double b,double x); -int gsl_sf_hyperg_U_e10_e(double a,double b,double x,double* result); -int gsl_sf_hyperg_2F1_e(double a,double b,double c,double x,double* result); -double gsl_sf_hyperg_2F1(double a,double b,double c,double x); -int gsl_sf_hyperg_2F1_conj_e(double aR,double aI,double c,double x,double* result); -double gsl_sf_hyperg_2F1_conj(double aR,double aI,double c,double x); -int gsl_sf_hyperg_2F1_renorm_e(double a,double b,double c,double x,double* result); -double gsl_sf_hyperg_2F1_renorm(double a,double b,double c,double x); -int gsl_sf_hyperg_2F1_conj_renorm_e(double aR,double aI,double c,double x,double* result); -double gsl_sf_hyperg_2F1_conj_renorm(double aR,double aI,double c,double x); -int gsl_sf_hyperg_2F0_e(double a,double b,double x,double* result); -double gsl_sf_hyperg_2F0(double a,double b,double x); diff --git a/lib/Numeric/GSL/Special/laguerre.h b/lib/Numeric/GSL/Special/laguerre.h deleted file mode 100644 index 6275a05..0000000 --- a/lib/Numeric/GSL/Special/laguerre.h +++ /dev/null @@ -1,8 +0,0 @@ -int gsl_sf_laguerre_1_e(double a,double x,double* result); -int gsl_sf_laguerre_2_e(double a,double x,double* result); -int gsl_sf_laguerre_3_e(double a,double x,double* result); -double gsl_sf_laguerre_1(double a,double x); -double gsl_sf_laguerre_2(double a,double x); -double gsl_sf_laguerre_3(double a,double x); -int gsl_sf_laguerre_n_e(int n,double a,double x,double* result); -double gsl_sf_laguerre_n(int n,double a,double x); diff --git a/lib/Numeric/GSL/Special/lambert.h b/lib/Numeric/GSL/Special/lambert.h deleted file mode 100644 index df90d11..0000000 --- a/lib/Numeric/GSL/Special/lambert.h +++ /dev/null @@ -1,4 +0,0 @@ -int gsl_sf_lambert_W0_e(double x,double* result); -double gsl_sf_lambert_W0(double x); -int gsl_sf_lambert_Wm1_e(double x,double* result); -double gsl_sf_lambert_Wm1(double x); diff --git a/lib/Numeric/GSL/Special/legendre.h b/lib/Numeric/GSL/Special/legendre.h deleted file mode 100644 index aebe84f..0000000 --- a/lib/Numeric/GSL/Special/legendre.h +++ /dev/null @@ -1,44 +0,0 @@ -int gsl_sf_legendre_Pl_e(int l,double x,double* result); -double gsl_sf_legendre_Pl(int l,double x); -int gsl_sf_legendre_Pl_array(int lmax,double x,double* result_array); -int gsl_sf_legendre_Pl_deriv_array(int lmax,double x,double* result_array,double* result_deriv_array); -int gsl_sf_legendre_P1_e(double x,double* result); -int gsl_sf_legendre_P2_e(double x,double* result); -int gsl_sf_legendre_P3_e(double x,double* result); -double gsl_sf_legendre_P1(double x); -double gsl_sf_legendre_P2(double x); -double gsl_sf_legendre_P3(double x); -int gsl_sf_legendre_Q0_e(double x,double* result); -double gsl_sf_legendre_Q0(double x); -int gsl_sf_legendre_Q1_e(double x,double* result); -double gsl_sf_legendre_Q1(double x); -int gsl_sf_legendre_Ql_e(int l,double x,double* result); -double gsl_sf_legendre_Ql(int l,double x); -int gsl_sf_legendre_Plm_e(int l,int m,double x,double* result); -double gsl_sf_legendre_Plm(int l,int m,double x); -int gsl_sf_legendre_Plm_array(int lmax,int m,double x,double* result_array); -int gsl_sf_legendre_Plm_deriv_array(int lmax,int m,double x,double* result_array,double* result_deriv_array); -int gsl_sf_legendre_sphPlm_e(int l,int m,double x,double* result); -double gsl_sf_legendre_sphPlm(int l,int m,double x); -int gsl_sf_legendre_sphPlm_array(int lmax,int m,double x,double* result_array); -int gsl_sf_legendre_sphPlm_deriv_array(int lmax,int m,double x,double* result_array,double* result_deriv_array); -int gsl_sf_legendre_array_size(int lmax,int m); -int gsl_sf_conicalP_half_e(double lambda,double x,double* result); -double gsl_sf_conicalP_half(double lambda,double x); -int gsl_sf_conicalP_mhalf_e(double lambda,double x,double* result); -double gsl_sf_conicalP_mhalf(double lambda,double x); -int gsl_sf_conicalP_0_e(double lambda,double x,double* result); -double gsl_sf_conicalP_0(double lambda,double x); -int gsl_sf_conicalP_1_e(double lambda,double x,double* result); -double gsl_sf_conicalP_1(double lambda,double x); -int gsl_sf_conicalP_sph_reg_e(int l,double lambda,double x,double* result); -double gsl_sf_conicalP_sph_reg(int l,double lambda,double x); -int gsl_sf_conicalP_cyl_reg_e(int m,double lambda,double x,double* result); -double gsl_sf_conicalP_cyl_reg(int m,double lambda,double x); -int gsl_sf_legendre_H3d_0_e(double lambda,double eta,double* result); -double gsl_sf_legendre_H3d_0(double lambda,double eta); -int gsl_sf_legendre_H3d_1_e(double lambda,double eta,double* result); -double gsl_sf_legendre_H3d_1(double lambda,double eta); -int gsl_sf_legendre_H3d_e(int l,double lambda,double eta,double* result); -double gsl_sf_legendre_H3d(int l,double lambda,double eta); -int gsl_sf_legendre_H3d_array(int lmax,double lambda,double eta,double* result_array); diff --git a/lib/Numeric/GSL/Special/log.h b/lib/Numeric/GSL/Special/log.h deleted file mode 100644 index 5713845..0000000 --- a/lib/Numeric/GSL/Special/log.h +++ /dev/null @@ -1,9 +0,0 @@ -int gsl_sf_log_e(double x,double* result); -double gsl_sf_log(double x); -int gsl_sf_log_abs_e(double x,double* result); -double gsl_sf_log_abs(double x); -int gsl_sf_complex_log_e(double zr,double zi,double* lnr,double* theta); -int gsl_sf_log_1plusx_e(double x,double* result); -double gsl_sf_log_1plusx(double x); -int gsl_sf_log_1plusx_mx_e(double x,double* result); -double gsl_sf_log_1plusx_mx(double x); diff --git a/lib/Numeric/GSL/Special/pow_int.h b/lib/Numeric/GSL/Special/pow_int.h deleted file mode 100644 index aba8bc9..0000000 --- a/lib/Numeric/GSL/Special/pow_int.h +++ /dev/null @@ -1,2 +0,0 @@ -int gsl_sf_pow_int_e(double x,int n,double* result); -double gsl_sf_pow_int(double x,int n); diff --git a/lib/Numeric/GSL/Special/psi.h b/lib/Numeric/GSL/Special/psi.h deleted file mode 100644 index fa2853e..0000000 --- a/lib/Numeric/GSL/Special/psi.h +++ /dev/null @@ -1,13 +0,0 @@ -int gsl_sf_psi_int_e(int n,double* result); -double gsl_sf_psi_int(int n); -int gsl_sf_psi_e(double x,double* result); -double gsl_sf_psi(double x); -int gsl_sf_psi_1piy_e(double y,double* result); -double gsl_sf_psi_1piy(double y); -int gsl_sf_complex_psi_e(double x,double y,double* result_re,double* result_im); -int gsl_sf_psi_1_int_e(int n,double* result); -double gsl_sf_psi_1_int(int n); -int gsl_sf_psi_1_e(double x,double* result); -double gsl_sf_psi_1(double x); -int gsl_sf_psi_n_e(int n,double x,double* result); -double gsl_sf_psi_n(int n,double x); diff --git a/lib/Numeric/GSL/Special/synchrotron.h b/lib/Numeric/GSL/Special/synchrotron.h deleted file mode 100644 index 786401c..0000000 --- a/lib/Numeric/GSL/Special/synchrotron.h +++ /dev/null @@ -1,4 +0,0 @@ -int gsl_sf_synchrotron_1_e(double x,double* result); -double gsl_sf_synchrotron_1(double x); -int gsl_sf_synchrotron_2_e(double x,double* result); -double gsl_sf_synchrotron_2(double x); diff --git a/lib/Numeric/GSL/Special/trig.h b/lib/Numeric/GSL/Special/trig.h deleted file mode 100644 index 50677f2..0000000 --- a/lib/Numeric/GSL/Special/trig.h +++ /dev/null @@ -1,25 +0,0 @@ -int gsl_sf_sin_e(double x,double* result); -double gsl_sf_sin(double x); -int gsl_sf_cos_e(double x,double* result); -double gsl_sf_cos(double x); -int gsl_sf_hypot_e(double x,double y,double* result); -double gsl_sf_hypot(double x,double y); -int gsl_sf_complex_sin_e(double zr,double zi,double* szr,double* szi); -int gsl_sf_complex_cos_e(double zr,double zi,double* czr,double* czi); -int gsl_sf_complex_logsin_e(double zr,double zi,double* lszr,double* lszi); -int gsl_sf_sinc_e(double x,double* result); -double gsl_sf_sinc(double x); -int gsl_sf_lnsinh_e(double x,double* result); -double gsl_sf_lnsinh(double x); -int gsl_sf_lncosh_e(double x,double* result); -double gsl_sf_lncosh(double x); -int gsl_sf_polar_to_rect(double r,double theta,double* x,double* y); -int gsl_sf_rect_to_polar(double x,double y,double* r,double* theta); -int gsl_sf_sin_err_e(double x,double dx,double* result); -int gsl_sf_cos_err_e(double x,double dx,double* result); -int gsl_sf_angle_restrict_symm_e(double* theta); -double gsl_sf_angle_restrict_symm(double theta); -int gsl_sf_angle_restrict_pos_e(double* theta); -double gsl_sf_angle_restrict_pos(double theta); -int gsl_sf_angle_restrict_symm_err_e(double theta,double* result); -int gsl_sf_angle_restrict_pos_err_e(double theta,double* result); diff --git a/lib/Numeric/GSL/Special/zeta.h b/lib/Numeric/GSL/Special/zeta.h deleted file mode 100644 index b961ece..0000000 --- a/lib/Numeric/GSL/Special/zeta.h +++ /dev/null @@ -1,14 +0,0 @@ -int gsl_sf_zeta_int_e(int n,double* result); -double gsl_sf_zeta_int(int n); -int gsl_sf_zeta_e(double s,double* result); -double gsl_sf_zeta(double s); -int gsl_sf_zetam1_e(double s,double* result); -double gsl_sf_zetam1(double s); -int gsl_sf_zetam1_int_e(int s,double* result); -double gsl_sf_zetam1_int(int s); -int gsl_sf_hzeta_e(double s,double q,double* result); -double gsl_sf_hzeta(double s,double q); -int gsl_sf_eta_int_e(int n,double* result); -double gsl_sf_eta_int(int n); -int gsl_sf_eta_e(double s,double* result); -double gsl_sf_eta(double s); -- cgit v1.2.3