summaryrefslogtreecommitdiff
path: root/lib/Numeric
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2008-01-21 21:40:07 +0000
committerAlberto Ruiz <aruiz@um.es>2008-01-21 21:40:07 +0000
commit17749900a9146ddf6cd8ebf59dc35e56d6bff413 (patch)
treed352b7b155ebf650cd41a134aeb39450e54163b2 /lib/Numeric
parent4fb0006a2227d3d5293a53b88ef67ce6ebd73440 (diff)
IO CInt results
Diffstat (limited to 'lib/Numeric')
-rw-r--r--lib/Numeric/GSL/Differentiation.hs3
-rw-r--r--lib/Numeric/GSL/Integration.hs5
-rw-r--r--lib/Numeric/GSL/Special/Airy.hs105
-rw-r--r--lib/Numeric/GSL/Special/Bessel.hs215
-rw-r--r--lib/Numeric/GSL/Special/Clausen.hs3
-rw-r--r--lib/Numeric/GSL/Special/Coulomb.hs37
-rw-r--r--lib/Numeric/GSL/Special/Coupling.hs65
-rw-r--r--lib/Numeric/GSL/Special/Dawson.hs3
-rw-r--r--lib/Numeric/GSL/Special/Debye.hs41
-rw-r--r--lib/Numeric/GSL/Special/Dilog.hs15
-rw-r--r--lib/Numeric/GSL/Special/Elementary.hs5
-rw-r--r--lib/Numeric/GSL/Special/Ellint.hs53
-rw-r--r--lib/Numeric/GSL/Special/Erf.hs13
-rw-r--r--lib/Numeric/GSL/Special/Exp.hs69
-rw-r--r--lib/Numeric/GSL/Special/Expint.hs25
-rw-r--r--lib/Numeric/GSL/Special/Fermi_dirac.hs25
-rw-r--r--lib/Numeric/GSL/Special/Gamma.hs102
-rw-r--r--lib/Numeric/GSL/Special/Gegenbauer.hs19
-rw-r--r--lib/Numeric/GSL/Special/Hyperg.hs39
-rw-r--r--lib/Numeric/GSL/Special/Internal.hsc10
-rw-r--r--lib/Numeric/GSL/Special/Laguerre.hs15
-rw-r--r--lib/Numeric/GSL/Special/Lambert.hs5
-rw-r--r--lib/Numeric/GSL/Special/Legendre.hs321
-rw-r--r--lib/Numeric/GSL/Special/Log.hs33
-rw-r--r--lib/Numeric/GSL/Special/Pow_int.hs9
-rw-r--r--lib/Numeric/GSL/Special/Psi.hs38
-rw-r--r--lib/Numeric/GSL/Special/Synchrotron.hs5
-rw-r--r--lib/Numeric/GSL/Special/Trig.hs101
-rw-r--r--lib/Numeric/GSL/Special/Zeta.hs33
-rw-r--r--lib/Numeric/GSL/Special/auto.hs15
-rw-r--r--lib/Numeric/GSL/Special/autoall.sh2
-rw-r--r--lib/Numeric/GSL/Special/debye.h4
-rw-r--r--lib/Numeric/GSL/Special/ellint.h4
-rw-r--r--lib/Numeric/GSL/Special/gamma.h1
-rw-r--r--lib/Numeric/GSL/Special/psi.h1
35 files changed, 900 insertions, 539 deletions
diff --git a/lib/Numeric/GSL/Differentiation.hs b/lib/Numeric/GSL/Differentiation.hs
index 071704a..841f2a0 100644
--- a/lib/Numeric/GSL/Differentiation.hs
+++ b/lib/Numeric/GSL/Differentiation.hs
@@ -23,6 +23,7 @@ module Numeric.GSL.Differentiation (
23) where 23) where
24 24
25import Foreign 25import Foreign
26import Foreign.C.Types(CInt)
26import Data.Packed.Internal(mkfun,check,(//)) 27import Data.Packed.Internal(mkfun,check,(//))
27 28
28derivGen :: 29derivGen ::
@@ -46,7 +47,7 @@ derivGen c h f x = unsafePerformIO $ do
46 47
47foreign import ccall "gsl-aux.h deriv" 48foreign import ccall "gsl-aux.h deriv"
48 c_deriv :: Int -> FunPtr (Double -> Ptr () -> Double) -> Double -> Double 49 c_deriv :: Int -> FunPtr (Double -> Ptr () -> Double) -> Double -> Double
49 -> Ptr Double -> Ptr Double -> IO Int 50 -> Ptr Double -> Ptr Double -> IO CInt
50 51
51 52
52{- | Adaptive central difference algorithm, /gsl_deriv_central/. For example: 53{- | Adaptive central difference algorithm, /gsl_deriv_central/. For example:
diff --git a/lib/Numeric/GSL/Integration.hs b/lib/Numeric/GSL/Integration.hs
index 747b34c..b5f5930 100644
--- a/lib/Numeric/GSL/Integration.hs
+++ b/lib/Numeric/GSL/Integration.hs
@@ -21,6 +21,7 @@ module Numeric.GSL.Integration (
21) where 21) where
22 22
23import Foreign 23import Foreign
24import Foreign.C.Types(CInt)
24import Data.Packed.Internal(mkfun,check,(//)) 25import Data.Packed.Internal(mkfun,check,(//))
25 26
26 27
@@ -55,7 +56,7 @@ integrateQAGS prec n f a b = unsafePerformIO $ do
55 56
56foreign import ccall "gsl-aux.h integrate_qags" 57foreign import ccall "gsl-aux.h integrate_qags"
57 c_integrate_qags :: FunPtr (Double-> Ptr() -> Double) -> Double -> Double -> Double -> Int 58 c_integrate_qags :: FunPtr (Double-> Ptr() -> Double) -> Double -> Double -> Double -> Int
58 -> Ptr Double -> Ptr Double -> IO Int 59 -> Ptr Double -> Ptr Double -> IO CInt
59 60
60----------------------------------------------------------------- 61-----------------------------------------------------------------
61{- | Numerical integration using /gsl_integration_qng/ (useful for fast integration of smooth functions). For example: 62{- | Numerical integration using /gsl_integration_qng/ (useful for fast integration of smooth functions). For example:
@@ -86,5 +87,5 @@ integrateQNG prec f a b = unsafePerformIO $ do
86 87
87foreign import ccall "gsl-aux.h integrate_qng" 88foreign import ccall "gsl-aux.h integrate_qng"
88 c_integrate_qng :: FunPtr (Double-> Ptr() -> Double) -> Double -> Double -> Double 89 c_integrate_qng :: FunPtr (Double-> Ptr() -> Double) -> Double -> Double -> Double
89 -> Ptr Double -> Ptr Double -> IO Int 90 -> Ptr Double -> Ptr Double -> IO CInt
90 91
diff --git a/lib/Numeric/GSL/Special/Airy.hs b/lib/Numeric/GSL/Special/Airy.hs
index d987e1f..382be7f 100644
--- a/lib/Numeric/GSL/Special/Airy.hs
+++ b/lib/Numeric/GSL/Special/Airy.hs
@@ -9,14 +9,13 @@ Portability : uses ffi
9 9
10Wrappers for selected functions described at: 10Wrappers for selected functions described at:
11 11
12<http://www.gnu.org/software/gsl/manual/html_node/Airy-Functions-and-Derivatives.html> 12<http://www.google.com/search?q=gsl_sf_airy.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13 13
14-} 14-}
15------------------------------------------------------------ 15------------------------------------------------------------
16 16
17module Numeric.GSL.Special.Airy( 17module Numeric.GSL.Special.Airy(
18 Precision (..) 18 airy_Ai_e
19, airy_Ai_e
20, airy_Ai 19, airy_Ai
21, airy_Bi_e 20, airy_Bi_e
22, airy_Bi 21, airy_Bi
@@ -39,128 +38,178 @@ module Numeric.GSL.Special.Airy(
39, airy_zero_Ai_deriv_e 38, airy_zero_Ai_deriv_e
40, airy_zero_Ai_deriv 39, airy_zero_Ai_deriv
41, airy_zero_Bi_deriv_e 40, airy_zero_Bi_deriv_e
42, airy_zero_Bi_deriv 41, airy_zero_Bi_deriv,
42Precision(..)
43) where 43) where
44 44
45import Foreign(Ptr) 45import Foreign(Ptr)
46import Foreign.C.Types(CInt)
46import Numeric.GSL.Special.Internal 47import Numeric.GSL.Special.Internal
47 48
48-- | wrapper for int gsl_sf_airy_Ai_e(double x,gsl_mode_t mode,gsl_sf_result* result); 49-- | wrapper for int gsl_sf_airy_Ai_e(double x,gsl_mode_t mode,gsl_sf_result* result);
50--
51-- <http://www.google.com/search?q=gsl_sf_airy_Ai_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
49airy_Ai_e :: Double -> Precision -> (Double,Double) 52airy_Ai_e :: Double -> Precision -> (Double,Double)
50airy_Ai_e x mode = createSFR "airy_Ai_e" $ gsl_sf_airy_Ai_e x (precCode mode) 53airy_Ai_e x mode = createSFR "airy_Ai_e" $ gsl_sf_airy_Ai_e x (precCode mode)
51foreign import ccall "airy.h gsl_sf_airy_Ai_e" gsl_sf_airy_Ai_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 54foreign import ccall "airy.h gsl_sf_airy_Ai_e" gsl_sf_airy_Ai_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
52 55
53-- | wrapper for double gsl_sf_airy_Ai(double x,gsl_mode_t mode); 56-- | wrapper for double gsl_sf_airy_Ai(double x,gsl_mode_t mode);
57--
58-- <http://www.google.com/search?q=gsl_sf_airy_Ai&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
54airy_Ai :: Double -> Precision -> Double 59airy_Ai :: Double -> Precision -> Double
55airy_Ai x mode = gsl_sf_airy_Ai x (precCode mode) 60airy_Ai x mode = gsl_sf_airy_Ai x (precCode mode)
56foreign import ccall "airy.h gsl_sf_airy_Ai" gsl_sf_airy_Ai :: Double -> Gsl_mode_t -> Double 61foreign import ccall "airy.h gsl_sf_airy_Ai" gsl_sf_airy_Ai :: Double -> Gsl_mode_t -> Double
57 62
58-- | wrapper for int gsl_sf_airy_Bi_e(double x,gsl_mode_t mode,gsl_sf_result* result); 63-- | wrapper for int gsl_sf_airy_Bi_e(double x,gsl_mode_t mode,gsl_sf_result* result);
64--
65-- <http://www.google.com/search?q=gsl_sf_airy_Bi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
59airy_Bi_e :: Double -> Precision -> (Double,Double) 66airy_Bi_e :: Double -> Precision -> (Double,Double)
60airy_Bi_e x mode = createSFR "airy_Bi_e" $ gsl_sf_airy_Bi_e x (precCode mode) 67airy_Bi_e x mode = createSFR "airy_Bi_e" $ gsl_sf_airy_Bi_e x (precCode mode)
61foreign import ccall "airy.h gsl_sf_airy_Bi_e" gsl_sf_airy_Bi_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 68foreign import ccall "airy.h gsl_sf_airy_Bi_e" gsl_sf_airy_Bi_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
62 69
63-- | wrapper for double gsl_sf_airy_Bi(double x,gsl_mode_t mode); 70-- | wrapper for double gsl_sf_airy_Bi(double x,gsl_mode_t mode);
71--
72-- <http://www.google.com/search?q=gsl_sf_airy_Bi&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
64airy_Bi :: Double -> Precision -> Double 73airy_Bi :: Double -> Precision -> Double
65airy_Bi x mode = gsl_sf_airy_Bi x (precCode mode) 74airy_Bi x mode = gsl_sf_airy_Bi x (precCode mode)
66foreign import ccall "airy.h gsl_sf_airy_Bi" gsl_sf_airy_Bi :: Double -> Gsl_mode_t -> Double 75foreign import ccall "airy.h gsl_sf_airy_Bi" gsl_sf_airy_Bi :: Double -> Gsl_mode_t -> Double
67 76
68-- | wrapper for int gsl_sf_airy_Ai_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result); 77-- | wrapper for int gsl_sf_airy_Ai_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result);
78--
79-- <http://www.google.com/search?q=gsl_sf_airy_Ai_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
69airy_Ai_scaled_e :: Double -> Precision -> (Double,Double) 80airy_Ai_scaled_e :: Double -> Precision -> (Double,Double)
70airy_Ai_scaled_e x mode = createSFR "airy_Ai_scaled_e" $ gsl_sf_airy_Ai_scaled_e x (precCode mode) 81airy_Ai_scaled_e x mode = createSFR "airy_Ai_scaled_e" $ gsl_sf_airy_Ai_scaled_e x (precCode mode)
71foreign import ccall "airy.h gsl_sf_airy_Ai_scaled_e" gsl_sf_airy_Ai_scaled_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 82foreign import ccall "airy.h gsl_sf_airy_Ai_scaled_e" gsl_sf_airy_Ai_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
72 83
73-- | wrapper for double gsl_sf_airy_Ai_scaled(double x,gsl_mode_t mode); 84-- | wrapper for double gsl_sf_airy_Ai_scaled(double x,gsl_mode_t mode);
85--
86-- <http://www.google.com/search?q=gsl_sf_airy_Ai_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
74airy_Ai_scaled :: Double -> Precision -> Double 87airy_Ai_scaled :: Double -> Precision -> Double
75airy_Ai_scaled x mode = gsl_sf_airy_Ai_scaled x (precCode mode) 88airy_Ai_scaled x mode = gsl_sf_airy_Ai_scaled x (precCode mode)
76foreign import ccall "airy.h gsl_sf_airy_Ai_scaled" gsl_sf_airy_Ai_scaled :: Double -> Gsl_mode_t -> Double 89foreign import ccall "airy.h gsl_sf_airy_Ai_scaled" gsl_sf_airy_Ai_scaled :: Double -> Gsl_mode_t -> Double
77 90
78-- | wrapper for int gsl_sf_airy_Bi_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result); 91-- | wrapper for int gsl_sf_airy_Bi_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result);
92--
93-- <http://www.google.com/search?q=gsl_sf_airy_Bi_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
79airy_Bi_scaled_e :: Double -> Precision -> (Double,Double) 94airy_Bi_scaled_e :: Double -> Precision -> (Double,Double)
80airy_Bi_scaled_e x mode = createSFR "airy_Bi_scaled_e" $ gsl_sf_airy_Bi_scaled_e x (precCode mode) 95airy_Bi_scaled_e x mode = createSFR "airy_Bi_scaled_e" $ gsl_sf_airy_Bi_scaled_e x (precCode mode)
81foreign import ccall "airy.h gsl_sf_airy_Bi_scaled_e" gsl_sf_airy_Bi_scaled_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 96foreign import ccall "airy.h gsl_sf_airy_Bi_scaled_e" gsl_sf_airy_Bi_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
82 97
83-- | wrapper for double gsl_sf_airy_Bi_scaled(double x,gsl_mode_t mode); 98-- | wrapper for double gsl_sf_airy_Bi_scaled(double x,gsl_mode_t mode);
99--
100-- <http://www.google.com/search?q=gsl_sf_airy_Bi_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
84airy_Bi_scaled :: Double -> Precision -> Double 101airy_Bi_scaled :: Double -> Precision -> Double
85airy_Bi_scaled x mode = gsl_sf_airy_Bi_scaled x (precCode mode) 102airy_Bi_scaled x mode = gsl_sf_airy_Bi_scaled x (precCode mode)
86foreign import ccall "airy.h gsl_sf_airy_Bi_scaled" gsl_sf_airy_Bi_scaled :: Double -> Gsl_mode_t -> Double 103foreign import ccall "airy.h gsl_sf_airy_Bi_scaled" gsl_sf_airy_Bi_scaled :: Double -> Gsl_mode_t -> Double
87 104
88-- | wrapper for int gsl_sf_airy_Ai_deriv_e(double x,gsl_mode_t mode,gsl_sf_result* result); 105-- | wrapper for int gsl_sf_airy_Ai_deriv_e(double x,gsl_mode_t mode,gsl_sf_result* result);
106--
107-- <http://www.google.com/search?q=gsl_sf_airy_Ai_deriv_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
89airy_Ai_deriv_e :: Double -> Precision -> (Double,Double) 108airy_Ai_deriv_e :: Double -> Precision -> (Double,Double)
90airy_Ai_deriv_e x mode = createSFR "airy_Ai_deriv_e" $ gsl_sf_airy_Ai_deriv_e x (precCode mode) 109airy_Ai_deriv_e x mode = createSFR "airy_Ai_deriv_e" $ gsl_sf_airy_Ai_deriv_e x (precCode mode)
91foreign import ccall "airy.h gsl_sf_airy_Ai_deriv_e" gsl_sf_airy_Ai_deriv_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 110foreign import ccall "airy.h gsl_sf_airy_Ai_deriv_e" gsl_sf_airy_Ai_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
92 111
93-- | wrapper for double gsl_sf_airy_Ai_deriv(double x,gsl_mode_t mode); 112-- | wrapper for double gsl_sf_airy_Ai_deriv(double x,gsl_mode_t mode);
113--
114-- <http://www.google.com/search?q=gsl_sf_airy_Ai_deriv&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
94airy_Ai_deriv :: Double -> Precision -> Double 115airy_Ai_deriv :: Double -> Precision -> Double
95airy_Ai_deriv x mode = gsl_sf_airy_Ai_deriv x (precCode mode) 116airy_Ai_deriv x mode = gsl_sf_airy_Ai_deriv x (precCode mode)
96foreign import ccall "airy.h gsl_sf_airy_Ai_deriv" gsl_sf_airy_Ai_deriv :: Double -> Gsl_mode_t -> Double 117foreign import ccall "airy.h gsl_sf_airy_Ai_deriv" gsl_sf_airy_Ai_deriv :: Double -> Gsl_mode_t -> Double
97 118
98-- | wrapper for int gsl_sf_airy_Bi_deriv_e(double x,gsl_mode_t mode,gsl_sf_result* result); 119-- | wrapper for int gsl_sf_airy_Bi_deriv_e(double x,gsl_mode_t mode,gsl_sf_result* result);
120--
121-- <http://www.google.com/search?q=gsl_sf_airy_Bi_deriv_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
99airy_Bi_deriv_e :: Double -> Precision -> (Double,Double) 122airy_Bi_deriv_e :: Double -> Precision -> (Double,Double)
100airy_Bi_deriv_e x mode = createSFR "airy_Bi_deriv_e" $ gsl_sf_airy_Bi_deriv_e x (precCode mode) 123airy_Bi_deriv_e x mode = createSFR "airy_Bi_deriv_e" $ gsl_sf_airy_Bi_deriv_e x (precCode mode)
101foreign import ccall "airy.h gsl_sf_airy_Bi_deriv_e" gsl_sf_airy_Bi_deriv_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 124foreign import ccall "airy.h gsl_sf_airy_Bi_deriv_e" gsl_sf_airy_Bi_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
102 125
103-- | wrapper for double gsl_sf_airy_Bi_deriv(double x,gsl_mode_t mode); 126-- | wrapper for double gsl_sf_airy_Bi_deriv(double x,gsl_mode_t mode);
127--
128-- <http://www.google.com/search?q=gsl_sf_airy_Bi_deriv&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
104airy_Bi_deriv :: Double -> Precision -> Double 129airy_Bi_deriv :: Double -> Precision -> Double
105airy_Bi_deriv x mode = gsl_sf_airy_Bi_deriv x (precCode mode) 130airy_Bi_deriv x mode = gsl_sf_airy_Bi_deriv x (precCode mode)
106foreign import ccall "airy.h gsl_sf_airy_Bi_deriv" gsl_sf_airy_Bi_deriv :: Double -> Gsl_mode_t -> Double 131foreign import ccall "airy.h gsl_sf_airy_Bi_deriv" gsl_sf_airy_Bi_deriv :: Double -> Gsl_mode_t -> Double
107 132
108-- | wrapper for int gsl_sf_airy_Ai_deriv_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result); 133-- | wrapper for int gsl_sf_airy_Ai_deriv_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result);
134--
135-- <http://www.google.com/search?q=gsl_sf_airy_Ai_deriv_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
109airy_Ai_deriv_scaled_e :: Double -> Precision -> (Double,Double) 136airy_Ai_deriv_scaled_e :: Double -> Precision -> (Double,Double)
110airy_Ai_deriv_scaled_e x mode = createSFR "airy_Ai_deriv_scaled_e" $ gsl_sf_airy_Ai_deriv_scaled_e x (precCode mode) 137airy_Ai_deriv_scaled_e x mode = createSFR "airy_Ai_deriv_scaled_e" $ gsl_sf_airy_Ai_deriv_scaled_e x (precCode mode)
111foreign import ccall "airy.h gsl_sf_airy_Ai_deriv_scaled_e" gsl_sf_airy_Ai_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 138foreign 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
112 139
113-- | wrapper for double gsl_sf_airy_Ai_deriv_scaled(double x,gsl_mode_t mode); 140-- | wrapper for double gsl_sf_airy_Ai_deriv_scaled(double x,gsl_mode_t mode);
141--
142-- <http://www.google.com/search?q=gsl_sf_airy_Ai_deriv_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
114airy_Ai_deriv_scaled :: Double -> Precision -> Double 143airy_Ai_deriv_scaled :: Double -> Precision -> Double
115airy_Ai_deriv_scaled x mode = gsl_sf_airy_Ai_deriv_scaled x (precCode mode) 144airy_Ai_deriv_scaled x mode = gsl_sf_airy_Ai_deriv_scaled x (precCode mode)
116foreign import ccall "airy.h gsl_sf_airy_Ai_deriv_scaled" gsl_sf_airy_Ai_deriv_scaled :: Double -> Gsl_mode_t -> Double 145foreign import ccall "airy.h gsl_sf_airy_Ai_deriv_scaled" gsl_sf_airy_Ai_deriv_scaled :: Double -> Gsl_mode_t -> Double
117 146
118-- | wrapper for int gsl_sf_airy_Bi_deriv_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result); 147-- | wrapper for int gsl_sf_airy_Bi_deriv_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result);
148--
149-- <http://www.google.com/search?q=gsl_sf_airy_Bi_deriv_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
119airy_Bi_deriv_scaled_e :: Double -> Precision -> (Double,Double) 150airy_Bi_deriv_scaled_e :: Double -> Precision -> (Double,Double)
120airy_Bi_deriv_scaled_e x mode = createSFR "airy_Bi_deriv_scaled_e" $ gsl_sf_airy_Bi_deriv_scaled_e x (precCode mode) 151airy_Bi_deriv_scaled_e x mode = createSFR "airy_Bi_deriv_scaled_e" $ gsl_sf_airy_Bi_deriv_scaled_e x (precCode mode)
121foreign import ccall "airy.h gsl_sf_airy_Bi_deriv_scaled_e" gsl_sf_airy_Bi_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 152foreign 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
122 153
123-- | wrapper for double gsl_sf_airy_Bi_deriv_scaled(double x,gsl_mode_t mode); 154-- | wrapper for double gsl_sf_airy_Bi_deriv_scaled(double x,gsl_mode_t mode);
155--
156-- <http://www.google.com/search?q=gsl_sf_airy_Bi_deriv_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
124airy_Bi_deriv_scaled :: Double -> Precision -> Double 157airy_Bi_deriv_scaled :: Double -> Precision -> Double
125airy_Bi_deriv_scaled x mode = gsl_sf_airy_Bi_deriv_scaled x (precCode mode) 158airy_Bi_deriv_scaled x mode = gsl_sf_airy_Bi_deriv_scaled x (precCode mode)
126foreign import ccall "airy.h gsl_sf_airy_Bi_deriv_scaled" gsl_sf_airy_Bi_deriv_scaled :: Double -> Gsl_mode_t -> Double 159foreign import ccall "airy.h gsl_sf_airy_Bi_deriv_scaled" gsl_sf_airy_Bi_deriv_scaled :: Double -> Gsl_mode_t -> Double
127 160
128-- | wrapper for int gsl_sf_airy_zero_Ai_e(int s,gsl_sf_result* result); 161-- | wrapper for int gsl_sf_airy_zero_Ai_e(int s,gsl_sf_result* result);
129airy_zero_Ai_e :: Int -> (Double,Double) 162--
163-- <http://www.google.com/search?q=gsl_sf_airy_zero_Ai_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
164airy_zero_Ai_e :: CInt -> (Double,Double)
130airy_zero_Ai_e s = createSFR "airy_zero_Ai_e" $ gsl_sf_airy_zero_Ai_e s 165airy_zero_Ai_e s = createSFR "airy_zero_Ai_e" $ gsl_sf_airy_zero_Ai_e s
131foreign import ccall "airy.h gsl_sf_airy_zero_Ai_e" gsl_sf_airy_zero_Ai_e :: Int -> Ptr Double -> IO(Int) 166foreign import ccall "airy.h gsl_sf_airy_zero_Ai_e" gsl_sf_airy_zero_Ai_e :: CInt -> Ptr () -> IO CInt
132 167
133-- | wrapper for double gsl_sf_airy_zero_Ai(int s); 168-- | wrapper for double gsl_sf_airy_zero_Ai(int s);
134airy_zero_Ai :: Int -> Double 169--
170-- <http://www.google.com/search?q=gsl_sf_airy_zero_Ai&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
171airy_zero_Ai :: CInt -> Double
135airy_zero_Ai = gsl_sf_airy_zero_Ai 172airy_zero_Ai = gsl_sf_airy_zero_Ai
136foreign import ccall "airy.h gsl_sf_airy_zero_Ai" gsl_sf_airy_zero_Ai :: Int -> Double 173foreign import ccall "airy.h gsl_sf_airy_zero_Ai" gsl_sf_airy_zero_Ai :: CInt -> Double
137 174
138-- | wrapper for int gsl_sf_airy_zero_Bi_e(int s,gsl_sf_result* result); 175-- | wrapper for int gsl_sf_airy_zero_Bi_e(int s,gsl_sf_result* result);
139airy_zero_Bi_e :: Int -> (Double,Double) 176--
177-- <http://www.google.com/search?q=gsl_sf_airy_zero_Bi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
178airy_zero_Bi_e :: CInt -> (Double,Double)
140airy_zero_Bi_e s = createSFR "airy_zero_Bi_e" $ gsl_sf_airy_zero_Bi_e s 179airy_zero_Bi_e s = createSFR "airy_zero_Bi_e" $ gsl_sf_airy_zero_Bi_e s
141foreign import ccall "airy.h gsl_sf_airy_zero_Bi_e" gsl_sf_airy_zero_Bi_e :: Int -> Ptr Double -> IO(Int) 180foreign import ccall "airy.h gsl_sf_airy_zero_Bi_e" gsl_sf_airy_zero_Bi_e :: CInt -> Ptr () -> IO CInt
142 181
143-- | wrapper for double gsl_sf_airy_zero_Bi(int s); 182-- | wrapper for double gsl_sf_airy_zero_Bi(int s);
144airy_zero_Bi :: Int -> Double 183--
184-- <http://www.google.com/search?q=gsl_sf_airy_zero_Bi&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
185airy_zero_Bi :: CInt -> Double
145airy_zero_Bi = gsl_sf_airy_zero_Bi 186airy_zero_Bi = gsl_sf_airy_zero_Bi
146foreign import ccall "airy.h gsl_sf_airy_zero_Bi" gsl_sf_airy_zero_Bi :: Int -> Double 187foreign import ccall "airy.h gsl_sf_airy_zero_Bi" gsl_sf_airy_zero_Bi :: CInt -> Double
147 188
148-- | wrapper for int gsl_sf_airy_zero_Ai_deriv_e(int s,gsl_sf_result* result); 189-- | wrapper for int gsl_sf_airy_zero_Ai_deriv_e(int s,gsl_sf_result* result);
149airy_zero_Ai_deriv_e :: Int -> (Double,Double) 190--
191-- <http://www.google.com/search?q=gsl_sf_airy_zero_Ai_deriv_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
192airy_zero_Ai_deriv_e :: CInt -> (Double,Double)
150airy_zero_Ai_deriv_e s = createSFR "airy_zero_Ai_deriv_e" $ gsl_sf_airy_zero_Ai_deriv_e s 193airy_zero_Ai_deriv_e s = createSFR "airy_zero_Ai_deriv_e" $ gsl_sf_airy_zero_Ai_deriv_e s
151foreign import ccall "airy.h gsl_sf_airy_zero_Ai_deriv_e" gsl_sf_airy_zero_Ai_deriv_e :: Int -> Ptr Double -> IO(Int) 194foreign import ccall "airy.h gsl_sf_airy_zero_Ai_deriv_e" gsl_sf_airy_zero_Ai_deriv_e :: CInt -> Ptr () -> IO CInt
152 195
153-- | wrapper for double gsl_sf_airy_zero_Ai_deriv(int s); 196-- | wrapper for double gsl_sf_airy_zero_Ai_deriv(int s);
154airy_zero_Ai_deriv :: Int -> Double 197--
198-- <http://www.google.com/search?q=gsl_sf_airy_zero_Ai_deriv&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
199airy_zero_Ai_deriv :: CInt -> Double
155airy_zero_Ai_deriv = gsl_sf_airy_zero_Ai_deriv 200airy_zero_Ai_deriv = gsl_sf_airy_zero_Ai_deriv
156foreign import ccall "airy.h gsl_sf_airy_zero_Ai_deriv" gsl_sf_airy_zero_Ai_deriv :: Int -> Double 201foreign import ccall "airy.h gsl_sf_airy_zero_Ai_deriv" gsl_sf_airy_zero_Ai_deriv :: CInt -> Double
157 202
158-- | wrapper for int gsl_sf_airy_zero_Bi_deriv_e(int s,gsl_sf_result* result); 203-- | wrapper for int gsl_sf_airy_zero_Bi_deriv_e(int s,gsl_sf_result* result);
159airy_zero_Bi_deriv_e :: Int -> (Double,Double) 204--
205-- <http://www.google.com/search?q=gsl_sf_airy_zero_Bi_deriv_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
206airy_zero_Bi_deriv_e :: CInt -> (Double,Double)
160airy_zero_Bi_deriv_e s = createSFR "airy_zero_Bi_deriv_e" $ gsl_sf_airy_zero_Bi_deriv_e s 207airy_zero_Bi_deriv_e s = createSFR "airy_zero_Bi_deriv_e" $ gsl_sf_airy_zero_Bi_deriv_e s
161foreign import ccall "airy.h gsl_sf_airy_zero_Bi_deriv_e" gsl_sf_airy_zero_Bi_deriv_e :: Int -> Ptr Double -> IO(Int) 208foreign import ccall "airy.h gsl_sf_airy_zero_Bi_deriv_e" gsl_sf_airy_zero_Bi_deriv_e :: CInt -> Ptr () -> IO CInt
162 209
163-- | wrapper for double gsl_sf_airy_zero_Bi_deriv(int s); 210-- | wrapper for double gsl_sf_airy_zero_Bi_deriv(int s);
164airy_zero_Bi_deriv :: Int -> Double 211--
212-- <http://www.google.com/search?q=gsl_sf_airy_zero_Bi_deriv&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
213airy_zero_Bi_deriv :: CInt -> Double
165airy_zero_Bi_deriv = gsl_sf_airy_zero_Bi_deriv 214airy_zero_Bi_deriv = gsl_sf_airy_zero_Bi_deriv
166foreign import ccall "airy.h gsl_sf_airy_zero_Bi_deriv" gsl_sf_airy_zero_Bi_deriv :: Int -> Double 215foreign import ccall "airy.h 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 e059666..0340d24 100644
--- a/lib/Numeric/GSL/Special/Bessel.hs
+++ b/lib/Numeric/GSL/Special/Bessel.hs
@@ -106,6 +106,7 @@ module Numeric.GSL.Special.Bessel(
106) where 106) where
107 107
108import Foreign(Ptr) 108import Foreign(Ptr)
109import Foreign.C.Types(CInt)
109import Numeric.GSL.Special.Internal 110import Numeric.GSL.Special.Internal
110 111
111-- | wrapper for int gsl_sf_bessel_J0_e(double x,gsl_sf_result* result); 112-- | wrapper for int gsl_sf_bessel_J0_e(double x,gsl_sf_result* result);
@@ -113,7 +114,7 @@ import Numeric.GSL.Special.Internal
113-- <http://www.google.com/search?q=gsl_sf_bessel_J0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 114-- <http://www.google.com/search?q=gsl_sf_bessel_J0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
114bessel_J0_e :: Double -> (Double,Double) 115bessel_J0_e :: Double -> (Double,Double)
115bessel_J0_e x = createSFR "bessel_J0_e" $ gsl_sf_bessel_J0_e x 116bessel_J0_e x = createSFR "bessel_J0_e" $ gsl_sf_bessel_J0_e x
116foreign import ccall "bessel.h gsl_sf_bessel_J0_e" gsl_sf_bessel_J0_e :: Double -> Ptr Double -> IO(Int) 117foreign import ccall "bessel.h gsl_sf_bessel_J0_e" gsl_sf_bessel_J0_e :: Double -> Ptr () -> IO CInt
117 118
118-- | wrapper for double gsl_sf_bessel_J0(double x); 119-- | wrapper for double gsl_sf_bessel_J0(double x);
119-- 120--
@@ -127,7 +128,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_J0" gsl_sf_bessel_J0 :: Double -> D
127-- <http://www.google.com/search?q=gsl_sf_bessel_J1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 128-- <http://www.google.com/search?q=gsl_sf_bessel_J1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
128bessel_J1_e :: Double -> (Double,Double) 129bessel_J1_e :: Double -> (Double,Double)
129bessel_J1_e x = createSFR "bessel_J1_e" $ gsl_sf_bessel_J1_e x 130bessel_J1_e x = createSFR "bessel_J1_e" $ gsl_sf_bessel_J1_e x
130foreign import ccall "bessel.h gsl_sf_bessel_J1_e" gsl_sf_bessel_J1_e :: Double -> Ptr Double -> IO(Int) 131foreign import ccall "bessel.h gsl_sf_bessel_J1_e" gsl_sf_bessel_J1_e :: Double -> Ptr () -> IO CInt
131 132
132-- | wrapper for double gsl_sf_bessel_J1(double x); 133-- | wrapper for double gsl_sf_bessel_J1(double x);
133-- 134--
@@ -139,30 +140,30 @@ foreign import ccall "bessel.h gsl_sf_bessel_J1" gsl_sf_bessel_J1 :: Double -> D
139-- | wrapper for int gsl_sf_bessel_Jn_e(int n,double x,gsl_sf_result* result); 140-- | wrapper for int gsl_sf_bessel_Jn_e(int n,double x,gsl_sf_result* result);
140-- 141--
141-- <http://www.google.com/search?q=gsl_sf_bessel_Jn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 142-- <http://www.google.com/search?q=gsl_sf_bessel_Jn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
142bessel_Jn_e :: Int -> Double -> (Double,Double) 143bessel_Jn_e :: CInt -> Double -> (Double,Double)
143bessel_Jn_e n x = createSFR "bessel_Jn_e" $ gsl_sf_bessel_Jn_e n x 144bessel_Jn_e n x = createSFR "bessel_Jn_e" $ gsl_sf_bessel_Jn_e n x
144foreign import ccall "bessel.h gsl_sf_bessel_Jn_e" gsl_sf_bessel_Jn_e :: Int -> Double -> Ptr Double -> IO(Int) 145foreign import ccall "bessel.h gsl_sf_bessel_Jn_e" gsl_sf_bessel_Jn_e :: CInt -> Double -> Ptr () -> IO CInt
145 146
146-- | wrapper for double gsl_sf_bessel_Jn(int n,double x); 147-- | wrapper for double gsl_sf_bessel_Jn(int n,double x);
147-- 148--
148-- <http://www.google.com/search?q=gsl_sf_bessel_Jn&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 149-- <http://www.google.com/search?q=gsl_sf_bessel_Jn&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
149bessel_Jn :: Int -> Double -> Double 150bessel_Jn :: CInt -> Double -> Double
150bessel_Jn = gsl_sf_bessel_Jn 151bessel_Jn = gsl_sf_bessel_Jn
151foreign import ccall "bessel.h gsl_sf_bessel_Jn" gsl_sf_bessel_Jn :: Int -> Double -> Double 152foreign import ccall "bessel.h gsl_sf_bessel_Jn" gsl_sf_bessel_Jn :: CInt -> Double -> Double
152 153
153-- | wrapper for int gsl_sf_bessel_Jn_array(int nmin,int nmax,double x,double* result_array); 154-- | wrapper for int gsl_sf_bessel_Jn_array(int nmin,int nmax,double x,double* result_array);
154-- 155--
155-- <http://www.google.com/search?q=gsl_sf_bessel_Jn_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 156-- <http://www.google.com/search?q=gsl_sf_bessel_Jn_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
156bessel_Jn_array :: Int -> Int -> Double -> Ptr Double -> Int 157bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
157bessel_Jn_array = gsl_sf_bessel_Jn_array 158bessel_Jn_array = gsl_sf_bessel_Jn_array
158foreign import ccall "bessel.h gsl_sf_bessel_Jn_array" gsl_sf_bessel_Jn_array :: Int -> Int -> Double -> Ptr Double -> Int 159foreign import ccall "bessel.h gsl_sf_bessel_Jn_array" gsl_sf_bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
159 160
160-- | wrapper for int gsl_sf_bessel_Y0_e(double x,gsl_sf_result* result); 161-- | wrapper for int gsl_sf_bessel_Y0_e(double x,gsl_sf_result* result);
161-- 162--
162-- <http://www.google.com/search?q=gsl_sf_bessel_Y0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 163-- <http://www.google.com/search?q=gsl_sf_bessel_Y0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
163bessel_Y0_e :: Double -> (Double,Double) 164bessel_Y0_e :: Double -> (Double,Double)
164bessel_Y0_e x = createSFR "bessel_Y0_e" $ gsl_sf_bessel_Y0_e x 165bessel_Y0_e x = createSFR "bessel_Y0_e" $ gsl_sf_bessel_Y0_e x
165foreign import ccall "bessel.h gsl_sf_bessel_Y0_e" gsl_sf_bessel_Y0_e :: Double -> Ptr Double -> IO(Int) 166foreign import ccall "bessel.h gsl_sf_bessel_Y0_e" gsl_sf_bessel_Y0_e :: Double -> Ptr () -> IO CInt
166 167
167-- | wrapper for double gsl_sf_bessel_Y0(double x); 168-- | wrapper for double gsl_sf_bessel_Y0(double x);
168-- 169--
@@ -176,7 +177,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_Y0" gsl_sf_bessel_Y0 :: Double -> D
176-- <http://www.google.com/search?q=gsl_sf_bessel_Y1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 177-- <http://www.google.com/search?q=gsl_sf_bessel_Y1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
177bessel_Y1_e :: Double -> (Double,Double) 178bessel_Y1_e :: Double -> (Double,Double)
178bessel_Y1_e x = createSFR "bessel_Y1_e" $ gsl_sf_bessel_Y1_e x 179bessel_Y1_e x = createSFR "bessel_Y1_e" $ gsl_sf_bessel_Y1_e x
179foreign import ccall "bessel.h gsl_sf_bessel_Y1_e" gsl_sf_bessel_Y1_e :: Double -> Ptr Double -> IO(Int) 180foreign import ccall "bessel.h gsl_sf_bessel_Y1_e" gsl_sf_bessel_Y1_e :: Double -> Ptr () -> IO CInt
180 181
181-- | wrapper for double gsl_sf_bessel_Y1(double x); 182-- | wrapper for double gsl_sf_bessel_Y1(double x);
182-- 183--
@@ -188,30 +189,30 @@ foreign import ccall "bessel.h gsl_sf_bessel_Y1" gsl_sf_bessel_Y1 :: Double -> D
188-- | wrapper for int gsl_sf_bessel_Yn_e(int n,double x,gsl_sf_result* result); 189-- | wrapper for int gsl_sf_bessel_Yn_e(int n,double x,gsl_sf_result* result);
189-- 190--
190-- <http://www.google.com/search?q=gsl_sf_bessel_Yn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 191-- <http://www.google.com/search?q=gsl_sf_bessel_Yn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
191bessel_Yn_e :: Int -> Double -> (Double,Double) 192bessel_Yn_e :: CInt -> Double -> (Double,Double)
192bessel_Yn_e n x = createSFR "bessel_Yn_e" $ gsl_sf_bessel_Yn_e n x 193bessel_Yn_e n x = createSFR "bessel_Yn_e" $ gsl_sf_bessel_Yn_e n x
193foreign import ccall "bessel.h gsl_sf_bessel_Yn_e" gsl_sf_bessel_Yn_e :: Int -> Double -> Ptr Double -> IO(Int) 194foreign import ccall "bessel.h gsl_sf_bessel_Yn_e" gsl_sf_bessel_Yn_e :: CInt -> Double -> Ptr () -> IO CInt
194 195
195-- | wrapper for double gsl_sf_bessel_Yn(int n,double x); 196-- | wrapper for double gsl_sf_bessel_Yn(int n,double x);
196-- 197--
197-- <http://www.google.com/search?q=gsl_sf_bessel_Yn&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 198-- <http://www.google.com/search?q=gsl_sf_bessel_Yn&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
198bessel_Yn :: Int -> Double -> Double 199bessel_Yn :: CInt -> Double -> Double
199bessel_Yn = gsl_sf_bessel_Yn 200bessel_Yn = gsl_sf_bessel_Yn
200foreign import ccall "bessel.h gsl_sf_bessel_Yn" gsl_sf_bessel_Yn :: Int -> Double -> Double 201foreign import ccall "bessel.h gsl_sf_bessel_Yn" gsl_sf_bessel_Yn :: CInt -> Double -> Double
201 202
202-- | wrapper for int gsl_sf_bessel_Yn_array(int nmin,int nmax,double x,double* result_array); 203-- | wrapper for int gsl_sf_bessel_Yn_array(int nmin,int nmax,double x,double* result_array);
203-- 204--
204-- <http://www.google.com/search?q=gsl_sf_bessel_Yn_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 205-- <http://www.google.com/search?q=gsl_sf_bessel_Yn_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
205bessel_Yn_array :: Int -> Int -> Double -> Ptr Double -> Int 206bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
206bessel_Yn_array = gsl_sf_bessel_Yn_array 207bessel_Yn_array = gsl_sf_bessel_Yn_array
207foreign import ccall "bessel.h gsl_sf_bessel_Yn_array" gsl_sf_bessel_Yn_array :: Int -> Int -> Double -> Ptr Double -> Int 208foreign import ccall "bessel.h gsl_sf_bessel_Yn_array" gsl_sf_bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
208 209
209-- | wrapper for int gsl_sf_bessel_I0_e(double x,gsl_sf_result* result); 210-- | wrapper for int gsl_sf_bessel_I0_e(double x,gsl_sf_result* result);
210-- 211--
211-- <http://www.google.com/search?q=gsl_sf_bessel_I0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 212-- <http://www.google.com/search?q=gsl_sf_bessel_I0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
212bessel_I0_e :: Double -> (Double,Double) 213bessel_I0_e :: Double -> (Double,Double)
213bessel_I0_e x = createSFR "bessel_I0_e" $ gsl_sf_bessel_I0_e x 214bessel_I0_e x = createSFR "bessel_I0_e" $ gsl_sf_bessel_I0_e x
214foreign import ccall "bessel.h gsl_sf_bessel_I0_e" gsl_sf_bessel_I0_e :: Double -> Ptr Double -> IO(Int) 215foreign import ccall "bessel.h gsl_sf_bessel_I0_e" gsl_sf_bessel_I0_e :: Double -> Ptr () -> IO CInt
215 216
216-- | wrapper for double gsl_sf_bessel_I0(double x); 217-- | wrapper for double gsl_sf_bessel_I0(double x);
217-- 218--
@@ -225,7 +226,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_I0" gsl_sf_bessel_I0 :: Double -> D
225-- <http://www.google.com/search?q=gsl_sf_bessel_I1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 226-- <http://www.google.com/search?q=gsl_sf_bessel_I1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
226bessel_I1_e :: Double -> (Double,Double) 227bessel_I1_e :: Double -> (Double,Double)
227bessel_I1_e x = createSFR "bessel_I1_e" $ gsl_sf_bessel_I1_e x 228bessel_I1_e x = createSFR "bessel_I1_e" $ gsl_sf_bessel_I1_e x
228foreign import ccall "bessel.h gsl_sf_bessel_I1_e" gsl_sf_bessel_I1_e :: Double -> Ptr Double -> IO(Int) 229foreign import ccall "bessel.h gsl_sf_bessel_I1_e" gsl_sf_bessel_I1_e :: Double -> Ptr () -> IO CInt
229 230
230-- | wrapper for double gsl_sf_bessel_I1(double x); 231-- | wrapper for double gsl_sf_bessel_I1(double x);
231-- 232--
@@ -237,30 +238,30 @@ foreign import ccall "bessel.h gsl_sf_bessel_I1" gsl_sf_bessel_I1 :: Double -> D
237-- | wrapper for int gsl_sf_bessel_In_e(int n,double x,gsl_sf_result* result); 238-- | wrapper for int gsl_sf_bessel_In_e(int n,double x,gsl_sf_result* result);
238-- 239--
239-- <http://www.google.com/search?q=gsl_sf_bessel_In_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 240-- <http://www.google.com/search?q=gsl_sf_bessel_In_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
240bessel_In_e :: Int -> Double -> (Double,Double) 241bessel_In_e :: CInt -> Double -> (Double,Double)
241bessel_In_e n x = createSFR "bessel_In_e" $ gsl_sf_bessel_In_e n x 242bessel_In_e n x = createSFR "bessel_In_e" $ gsl_sf_bessel_In_e n x
242foreign import ccall "bessel.h gsl_sf_bessel_In_e" gsl_sf_bessel_In_e :: Int -> Double -> Ptr Double -> IO(Int) 243foreign import ccall "bessel.h gsl_sf_bessel_In_e" gsl_sf_bessel_In_e :: CInt -> Double -> Ptr () -> IO CInt
243 244
244-- | wrapper for double gsl_sf_bessel_In(int n,double x); 245-- | wrapper for double gsl_sf_bessel_In(int n,double x);
245-- 246--
246-- <http://www.google.com/search?q=gsl_sf_bessel_In&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 247-- <http://www.google.com/search?q=gsl_sf_bessel_In&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
247bessel_In :: Int -> Double -> Double 248bessel_In :: CInt -> Double -> Double
248bessel_In = gsl_sf_bessel_In 249bessel_In = gsl_sf_bessel_In
249foreign import ccall "bessel.h gsl_sf_bessel_In" gsl_sf_bessel_In :: Int -> Double -> Double 250foreign import ccall "bessel.h gsl_sf_bessel_In" gsl_sf_bessel_In :: CInt -> Double -> Double
250 251
251-- | wrapper for int gsl_sf_bessel_In_array(int nmin,int nmax,double x,double* result_array); 252-- | wrapper for int gsl_sf_bessel_In_array(int nmin,int nmax,double x,double* result_array);
252-- 253--
253-- <http://www.google.com/search?q=gsl_sf_bessel_In_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 254-- <http://www.google.com/search?q=gsl_sf_bessel_In_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
254bessel_In_array :: Int -> Int -> Double -> Ptr Double -> Int 255bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
255bessel_In_array = gsl_sf_bessel_In_array 256bessel_In_array = gsl_sf_bessel_In_array
256foreign import ccall "bessel.h gsl_sf_bessel_In_array" gsl_sf_bessel_In_array :: Int -> Int -> Double -> Ptr Double -> Int 257foreign import ccall "bessel.h gsl_sf_bessel_In_array" gsl_sf_bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
257 258
258-- | wrapper for int gsl_sf_bessel_I0_scaled_e(double x,gsl_sf_result* result); 259-- | wrapper for int gsl_sf_bessel_I0_scaled_e(double x,gsl_sf_result* result);
259-- 260--
260-- <http://www.google.com/search?q=gsl_sf_bessel_I0_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 261-- <http://www.google.com/search?q=gsl_sf_bessel_I0_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
261bessel_I0_scaled_e :: Double -> (Double,Double) 262bessel_I0_scaled_e :: Double -> (Double,Double)
262bessel_I0_scaled_e x = createSFR "bessel_I0_scaled_e" $ gsl_sf_bessel_I0_scaled_e x 263bessel_I0_scaled_e x = createSFR "bessel_I0_scaled_e" $ gsl_sf_bessel_I0_scaled_e x
263foreign import ccall "bessel.h gsl_sf_bessel_I0_scaled_e" gsl_sf_bessel_I0_scaled_e :: Double -> Ptr Double -> IO(Int) 264foreign import ccall "bessel.h gsl_sf_bessel_I0_scaled_e" gsl_sf_bessel_I0_scaled_e :: Double -> Ptr () -> IO CInt
264 265
265-- | wrapper for double gsl_sf_bessel_I0_scaled(double x); 266-- | wrapper for double gsl_sf_bessel_I0_scaled(double x);
266-- 267--
@@ -274,7 +275,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_I0_scaled" gsl_sf_bessel_I0_scaled
274-- <http://www.google.com/search?q=gsl_sf_bessel_I1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 275-- <http://www.google.com/search?q=gsl_sf_bessel_I1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
275bessel_I1_scaled_e :: Double -> (Double,Double) 276bessel_I1_scaled_e :: Double -> (Double,Double)
276bessel_I1_scaled_e x = createSFR "bessel_I1_scaled_e" $ gsl_sf_bessel_I1_scaled_e x 277bessel_I1_scaled_e x = createSFR "bessel_I1_scaled_e" $ gsl_sf_bessel_I1_scaled_e x
277foreign import ccall "bessel.h gsl_sf_bessel_I1_scaled_e" gsl_sf_bessel_I1_scaled_e :: Double -> Ptr Double -> IO(Int) 278foreign import ccall "bessel.h gsl_sf_bessel_I1_scaled_e" gsl_sf_bessel_I1_scaled_e :: Double -> Ptr () -> IO CInt
278 279
279-- | wrapper for double gsl_sf_bessel_I1_scaled(double x); 280-- | wrapper for double gsl_sf_bessel_I1_scaled(double x);
280-- 281--
@@ -286,30 +287,30 @@ foreign import ccall "bessel.h gsl_sf_bessel_I1_scaled" gsl_sf_bessel_I1_scaled
286-- | wrapper for int gsl_sf_bessel_In_scaled_e(int n,double x,gsl_sf_result* result); 287-- | wrapper for int gsl_sf_bessel_In_scaled_e(int n,double x,gsl_sf_result* result);
287-- 288--
288-- <http://www.google.com/search?q=gsl_sf_bessel_In_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 289-- <http://www.google.com/search?q=gsl_sf_bessel_In_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
289bessel_In_scaled_e :: Int -> Double -> (Double,Double) 290bessel_In_scaled_e :: CInt -> Double -> (Double,Double)
290bessel_In_scaled_e n x = createSFR "bessel_In_scaled_e" $ gsl_sf_bessel_In_scaled_e n x 291bessel_In_scaled_e n x = createSFR "bessel_In_scaled_e" $ gsl_sf_bessel_In_scaled_e n x
291foreign import ccall "bessel.h gsl_sf_bessel_In_scaled_e" gsl_sf_bessel_In_scaled_e :: Int -> Double -> Ptr Double -> IO(Int) 292foreign import ccall "bessel.h gsl_sf_bessel_In_scaled_e" gsl_sf_bessel_In_scaled_e :: CInt -> Double -> Ptr () -> IO CInt
292 293
293-- | wrapper for double gsl_sf_bessel_In_scaled(int n,double x); 294-- | wrapper for double gsl_sf_bessel_In_scaled(int n,double x);
294-- 295--
295-- <http://www.google.com/search?q=gsl_sf_bessel_In_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 296-- <http://www.google.com/search?q=gsl_sf_bessel_In_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
296bessel_In_scaled :: Int -> Double -> Double 297bessel_In_scaled :: CInt -> Double -> Double
297bessel_In_scaled = gsl_sf_bessel_In_scaled 298bessel_In_scaled = gsl_sf_bessel_In_scaled
298foreign import ccall "bessel.h gsl_sf_bessel_In_scaled" gsl_sf_bessel_In_scaled :: Int -> Double -> Double 299foreign import ccall "bessel.h gsl_sf_bessel_In_scaled" gsl_sf_bessel_In_scaled :: CInt -> Double -> Double
299 300
300-- | wrapper for int gsl_sf_bessel_In_scaled_array(int nmin,int nmax,double x,double* result_array); 301-- | wrapper for int gsl_sf_bessel_In_scaled_array(int nmin,int nmax,double x,double* result_array);
301-- 302--
302-- <http://www.google.com/search?q=gsl_sf_bessel_In_scaled_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 303-- <http://www.google.com/search?q=gsl_sf_bessel_In_scaled_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
303bessel_In_scaled_array :: Int -> Int -> Double -> Ptr Double -> Int 304bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
304bessel_In_scaled_array = gsl_sf_bessel_In_scaled_array 305bessel_In_scaled_array = gsl_sf_bessel_In_scaled_array
305foreign import ccall "bessel.h gsl_sf_bessel_In_scaled_array" gsl_sf_bessel_In_scaled_array :: Int -> Int -> Double -> Ptr Double -> Int 306foreign import ccall "bessel.h gsl_sf_bessel_In_scaled_array" gsl_sf_bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
306 307
307-- | wrapper for int gsl_sf_bessel_K0_e(double x,gsl_sf_result* result); 308-- | wrapper for int gsl_sf_bessel_K0_e(double x,gsl_sf_result* result);
308-- 309--
309-- <http://www.google.com/search?q=gsl_sf_bessel_K0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 310-- <http://www.google.com/search?q=gsl_sf_bessel_K0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
310bessel_K0_e :: Double -> (Double,Double) 311bessel_K0_e :: Double -> (Double,Double)
311bessel_K0_e x = createSFR "bessel_K0_e" $ gsl_sf_bessel_K0_e x 312bessel_K0_e x = createSFR "bessel_K0_e" $ gsl_sf_bessel_K0_e x
312foreign import ccall "bessel.h gsl_sf_bessel_K0_e" gsl_sf_bessel_K0_e :: Double -> Ptr Double -> IO(Int) 313foreign import ccall "bessel.h gsl_sf_bessel_K0_e" gsl_sf_bessel_K0_e :: Double -> Ptr () -> IO CInt
313 314
314-- | wrapper for double gsl_sf_bessel_K0(double x); 315-- | wrapper for double gsl_sf_bessel_K0(double x);
315-- 316--
@@ -323,7 +324,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_K0" gsl_sf_bessel_K0 :: Double -> D
323-- <http://www.google.com/search?q=gsl_sf_bessel_K1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 324-- <http://www.google.com/search?q=gsl_sf_bessel_K1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
324bessel_K1_e :: Double -> (Double,Double) 325bessel_K1_e :: Double -> (Double,Double)
325bessel_K1_e x = createSFR "bessel_K1_e" $ gsl_sf_bessel_K1_e x 326bessel_K1_e x = createSFR "bessel_K1_e" $ gsl_sf_bessel_K1_e x
326foreign import ccall "bessel.h gsl_sf_bessel_K1_e" gsl_sf_bessel_K1_e :: Double -> Ptr Double -> IO(Int) 327foreign import ccall "bessel.h gsl_sf_bessel_K1_e" gsl_sf_bessel_K1_e :: Double -> Ptr () -> IO CInt
327 328
328-- | wrapper for double gsl_sf_bessel_K1(double x); 329-- | wrapper for double gsl_sf_bessel_K1(double x);
329-- 330--
@@ -335,30 +336,30 @@ foreign import ccall "bessel.h gsl_sf_bessel_K1" gsl_sf_bessel_K1 :: Double -> D
335-- | wrapper for int gsl_sf_bessel_Kn_e(int n,double x,gsl_sf_result* result); 336-- | wrapper for int gsl_sf_bessel_Kn_e(int n,double x,gsl_sf_result* result);
336-- 337--
337-- <http://www.google.com/search?q=gsl_sf_bessel_Kn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 338-- <http://www.google.com/search?q=gsl_sf_bessel_Kn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
338bessel_Kn_e :: Int -> Double -> (Double,Double) 339bessel_Kn_e :: CInt -> Double -> (Double,Double)
339bessel_Kn_e n x = createSFR "bessel_Kn_e" $ gsl_sf_bessel_Kn_e n x 340bessel_Kn_e n x = createSFR "bessel_Kn_e" $ gsl_sf_bessel_Kn_e n x
340foreign import ccall "bessel.h gsl_sf_bessel_Kn_e" gsl_sf_bessel_Kn_e :: Int -> Double -> Ptr Double -> IO(Int) 341foreign import ccall "bessel.h gsl_sf_bessel_Kn_e" gsl_sf_bessel_Kn_e :: CInt -> Double -> Ptr () -> IO CInt
341 342
342-- | wrapper for double gsl_sf_bessel_Kn(int n,double x); 343-- | wrapper for double gsl_sf_bessel_Kn(int n,double x);
343-- 344--
344-- <http://www.google.com/search?q=gsl_sf_bessel_Kn&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 345-- <http://www.google.com/search?q=gsl_sf_bessel_Kn&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
345bessel_Kn :: Int -> Double -> Double 346bessel_Kn :: CInt -> Double -> Double
346bessel_Kn = gsl_sf_bessel_Kn 347bessel_Kn = gsl_sf_bessel_Kn
347foreign import ccall "bessel.h gsl_sf_bessel_Kn" gsl_sf_bessel_Kn :: Int -> Double -> Double 348foreign import ccall "bessel.h gsl_sf_bessel_Kn" gsl_sf_bessel_Kn :: CInt -> Double -> Double
348 349
349-- | wrapper for int gsl_sf_bessel_Kn_array(int nmin,int nmax,double x,double* result_array); 350-- | wrapper for int gsl_sf_bessel_Kn_array(int nmin,int nmax,double x,double* result_array);
350-- 351--
351-- <http://www.google.com/search?q=gsl_sf_bessel_Kn_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 352-- <http://www.google.com/search?q=gsl_sf_bessel_Kn_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
352bessel_Kn_array :: Int -> Int -> Double -> Ptr Double -> Int 353bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
353bessel_Kn_array = gsl_sf_bessel_Kn_array 354bessel_Kn_array = gsl_sf_bessel_Kn_array
354foreign import ccall "bessel.h gsl_sf_bessel_Kn_array" gsl_sf_bessel_Kn_array :: Int -> Int -> Double -> Ptr Double -> Int 355foreign import ccall "bessel.h gsl_sf_bessel_Kn_array" gsl_sf_bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
355 356
356-- | wrapper for int gsl_sf_bessel_K0_scaled_e(double x,gsl_sf_result* result); 357-- | wrapper for int gsl_sf_bessel_K0_scaled_e(double x,gsl_sf_result* result);
357-- 358--
358-- <http://www.google.com/search?q=gsl_sf_bessel_K0_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 359-- <http://www.google.com/search?q=gsl_sf_bessel_K0_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
359bessel_K0_scaled_e :: Double -> (Double,Double) 360bessel_K0_scaled_e :: Double -> (Double,Double)
360bessel_K0_scaled_e x = createSFR "bessel_K0_scaled_e" $ gsl_sf_bessel_K0_scaled_e x 361bessel_K0_scaled_e x = createSFR "bessel_K0_scaled_e" $ gsl_sf_bessel_K0_scaled_e x
361foreign import ccall "bessel.h gsl_sf_bessel_K0_scaled_e" gsl_sf_bessel_K0_scaled_e :: Double -> Ptr Double -> IO(Int) 362foreign import ccall "bessel.h gsl_sf_bessel_K0_scaled_e" gsl_sf_bessel_K0_scaled_e :: Double -> Ptr () -> IO CInt
362 363
363-- | wrapper for double gsl_sf_bessel_K0_scaled(double x); 364-- | wrapper for double gsl_sf_bessel_K0_scaled(double x);
364-- 365--
@@ -372,7 +373,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_K0_scaled" gsl_sf_bessel_K0_scaled
372-- <http://www.google.com/search?q=gsl_sf_bessel_K1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 373-- <http://www.google.com/search?q=gsl_sf_bessel_K1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
373bessel_K1_scaled_e :: Double -> (Double,Double) 374bessel_K1_scaled_e :: Double -> (Double,Double)
374bessel_K1_scaled_e x = createSFR "bessel_K1_scaled_e" $ gsl_sf_bessel_K1_scaled_e x 375bessel_K1_scaled_e x = createSFR "bessel_K1_scaled_e" $ gsl_sf_bessel_K1_scaled_e x
375foreign import ccall "bessel.h gsl_sf_bessel_K1_scaled_e" gsl_sf_bessel_K1_scaled_e :: Double -> Ptr Double -> IO(Int) 376foreign import ccall "bessel.h gsl_sf_bessel_K1_scaled_e" gsl_sf_bessel_K1_scaled_e :: Double -> Ptr () -> IO CInt
376 377
377-- | wrapper for double gsl_sf_bessel_K1_scaled(double x); 378-- | wrapper for double gsl_sf_bessel_K1_scaled(double x);
378-- 379--
@@ -384,30 +385,30 @@ foreign import ccall "bessel.h gsl_sf_bessel_K1_scaled" gsl_sf_bessel_K1_scaled
384-- | wrapper for int gsl_sf_bessel_Kn_scaled_e(int n,double x,gsl_sf_result* result); 385-- | wrapper for int gsl_sf_bessel_Kn_scaled_e(int n,double x,gsl_sf_result* result);
385-- 386--
386-- <http://www.google.com/search?q=gsl_sf_bessel_Kn_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 387-- <http://www.google.com/search?q=gsl_sf_bessel_Kn_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
387bessel_Kn_scaled_e :: Int -> Double -> (Double,Double) 388bessel_Kn_scaled_e :: CInt -> Double -> (Double,Double)
388bessel_Kn_scaled_e n x = createSFR "bessel_Kn_scaled_e" $ gsl_sf_bessel_Kn_scaled_e n x 389bessel_Kn_scaled_e n x = createSFR "bessel_Kn_scaled_e" $ gsl_sf_bessel_Kn_scaled_e n x
389foreign import ccall "bessel.h gsl_sf_bessel_Kn_scaled_e" gsl_sf_bessel_Kn_scaled_e :: Int -> Double -> Ptr Double -> IO(Int) 390foreign import ccall "bessel.h gsl_sf_bessel_Kn_scaled_e" gsl_sf_bessel_Kn_scaled_e :: CInt -> Double -> Ptr () -> IO CInt
390 391
391-- | wrapper for double gsl_sf_bessel_Kn_scaled(int n,double x); 392-- | wrapper for double gsl_sf_bessel_Kn_scaled(int n,double x);
392-- 393--
393-- <http://www.google.com/search?q=gsl_sf_bessel_Kn_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 394-- <http://www.google.com/search?q=gsl_sf_bessel_Kn_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
394bessel_Kn_scaled :: Int -> Double -> Double 395bessel_Kn_scaled :: CInt -> Double -> Double
395bessel_Kn_scaled = gsl_sf_bessel_Kn_scaled 396bessel_Kn_scaled = gsl_sf_bessel_Kn_scaled
396foreign import ccall "bessel.h gsl_sf_bessel_Kn_scaled" gsl_sf_bessel_Kn_scaled :: Int -> Double -> Double 397foreign import ccall "bessel.h gsl_sf_bessel_Kn_scaled" gsl_sf_bessel_Kn_scaled :: CInt -> Double -> Double
397 398
398-- | wrapper for int gsl_sf_bessel_Kn_scaled_array(int nmin,int nmax,double x,double* result_array); 399-- | wrapper for int gsl_sf_bessel_Kn_scaled_array(int nmin,int nmax,double x,double* result_array);
399-- 400--
400-- <http://www.google.com/search?q=gsl_sf_bessel_Kn_scaled_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 401-- <http://www.google.com/search?q=gsl_sf_bessel_Kn_scaled_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
401bessel_Kn_scaled_array :: Int -> Int -> Double -> Ptr Double -> Int 402bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
402bessel_Kn_scaled_array = gsl_sf_bessel_Kn_scaled_array 403bessel_Kn_scaled_array = gsl_sf_bessel_Kn_scaled_array
403foreign import ccall "bessel.h gsl_sf_bessel_Kn_scaled_array" gsl_sf_bessel_Kn_scaled_array :: Int -> Int -> Double -> Ptr Double -> Int 404foreign import ccall "bessel.h gsl_sf_bessel_Kn_scaled_array" gsl_sf_bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
404 405
405-- | wrapper for int gsl_sf_bessel_j0_e(double x,gsl_sf_result* result); 406-- | wrapper for int gsl_sf_bessel_j0_e(double x,gsl_sf_result* result);
406-- 407--
407-- <http://www.google.com/search?q=gsl_sf_bessel_j0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 408-- <http://www.google.com/search?q=gsl_sf_bessel_j0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
408bessel_j0_e :: Double -> (Double,Double) 409bessel_j0_e :: Double -> (Double,Double)
409bessel_j0_e x = createSFR "bessel_j0_e" $ gsl_sf_bessel_j0_e x 410bessel_j0_e x = createSFR "bessel_j0_e" $ gsl_sf_bessel_j0_e x
410foreign import ccall "bessel.h gsl_sf_bessel_j0_e" gsl_sf_bessel_j0_e :: Double -> Ptr Double -> IO(Int) 411foreign import ccall "bessel.h gsl_sf_bessel_j0_e" gsl_sf_bessel_j0_e :: Double -> Ptr () -> IO CInt
411 412
412-- | wrapper for double gsl_sf_bessel_j0(double x); 413-- | wrapper for double gsl_sf_bessel_j0(double x);
413-- 414--
@@ -421,7 +422,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_j0" gsl_sf_bessel_j0 :: Double -> D
421-- <http://www.google.com/search?q=gsl_sf_bessel_j1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 422-- <http://www.google.com/search?q=gsl_sf_bessel_j1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
422bessel_j1_e :: Double -> (Double,Double) 423bessel_j1_e :: Double -> (Double,Double)
423bessel_j1_e x = createSFR "bessel_j1_e" $ gsl_sf_bessel_j1_e x 424bessel_j1_e x = createSFR "bessel_j1_e" $ gsl_sf_bessel_j1_e x
424foreign import ccall "bessel.h gsl_sf_bessel_j1_e" gsl_sf_bessel_j1_e :: Double -> Ptr Double -> IO(Int) 425foreign import ccall "bessel.h gsl_sf_bessel_j1_e" gsl_sf_bessel_j1_e :: Double -> Ptr () -> IO CInt
425 426
426-- | wrapper for double gsl_sf_bessel_j1(double x); 427-- | wrapper for double gsl_sf_bessel_j1(double x);
427-- 428--
@@ -435,7 +436,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_j1" gsl_sf_bessel_j1 :: Double -> D
435-- <http://www.google.com/search?q=gsl_sf_bessel_j2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 436-- <http://www.google.com/search?q=gsl_sf_bessel_j2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
436bessel_j2_e :: Double -> (Double,Double) 437bessel_j2_e :: Double -> (Double,Double)
437bessel_j2_e x = createSFR "bessel_j2_e" $ gsl_sf_bessel_j2_e x 438bessel_j2_e x = createSFR "bessel_j2_e" $ gsl_sf_bessel_j2_e x
438foreign import ccall "bessel.h gsl_sf_bessel_j2_e" gsl_sf_bessel_j2_e :: Double -> Ptr Double -> IO(Int) 439foreign import ccall "bessel.h gsl_sf_bessel_j2_e" gsl_sf_bessel_j2_e :: Double -> Ptr () -> IO CInt
439 440
440-- | wrapper for double gsl_sf_bessel_j2(double x); 441-- | wrapper for double gsl_sf_bessel_j2(double x);
441-- 442--
@@ -447,37 +448,37 @@ foreign import ccall "bessel.h gsl_sf_bessel_j2" gsl_sf_bessel_j2 :: Double -> D
447-- | wrapper for int gsl_sf_bessel_jl_e(int l,double x,gsl_sf_result* result); 448-- | wrapper for int gsl_sf_bessel_jl_e(int l,double x,gsl_sf_result* result);
448-- 449--
449-- <http://www.google.com/search?q=gsl_sf_bessel_jl_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 450-- <http://www.google.com/search?q=gsl_sf_bessel_jl_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
450bessel_jl_e :: Int -> Double -> (Double,Double) 451bessel_jl_e :: CInt -> Double -> (Double,Double)
451bessel_jl_e l x = createSFR "bessel_jl_e" $ gsl_sf_bessel_jl_e l x 452bessel_jl_e l x = createSFR "bessel_jl_e" $ gsl_sf_bessel_jl_e l x
452foreign import ccall "bessel.h gsl_sf_bessel_jl_e" gsl_sf_bessel_jl_e :: Int -> Double -> Ptr Double -> IO(Int) 453foreign import ccall "bessel.h gsl_sf_bessel_jl_e" gsl_sf_bessel_jl_e :: CInt -> Double -> Ptr () -> IO CInt
453 454
454-- | wrapper for double gsl_sf_bessel_jl(int l,double x); 455-- | wrapper for double gsl_sf_bessel_jl(int l,double x);
455-- 456--
456-- <http://www.google.com/search?q=gsl_sf_bessel_jl&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 457-- <http://www.google.com/search?q=gsl_sf_bessel_jl&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
457bessel_jl :: Int -> Double -> Double 458bessel_jl :: CInt -> Double -> Double
458bessel_jl = gsl_sf_bessel_jl 459bessel_jl = gsl_sf_bessel_jl
459foreign import ccall "bessel.h gsl_sf_bessel_jl" gsl_sf_bessel_jl :: Int -> Double -> Double 460foreign import ccall "bessel.h gsl_sf_bessel_jl" gsl_sf_bessel_jl :: CInt -> Double -> Double
460 461
461-- | wrapper for int gsl_sf_bessel_jl_array(int lmax,double x,double* result_array); 462-- | wrapper for int gsl_sf_bessel_jl_array(int lmax,double x,double* result_array);
462-- 463--
463-- <http://www.google.com/search?q=gsl_sf_bessel_jl_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 464-- <http://www.google.com/search?q=gsl_sf_bessel_jl_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
464bessel_jl_array :: Int -> Double -> Ptr Double -> Int 465bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt
465bessel_jl_array = gsl_sf_bessel_jl_array 466bessel_jl_array = gsl_sf_bessel_jl_array
466foreign import ccall "bessel.h gsl_sf_bessel_jl_array" gsl_sf_bessel_jl_array :: Int -> Double -> Ptr Double -> Int 467foreign import ccall "bessel.h gsl_sf_bessel_jl_array" gsl_sf_bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt
467 468
468-- | wrapper for int gsl_sf_bessel_jl_steed_array(int lmax,double x,double* jl_x_array); 469-- | wrapper for int gsl_sf_bessel_jl_steed_array(int lmax,double x,double* jl_x_array);
469-- 470--
470-- <http://www.google.com/search?q=gsl_sf_bessel_jl_steed_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 471-- <http://www.google.com/search?q=gsl_sf_bessel_jl_steed_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
471bessel_jl_steed_array :: Int -> Double -> Ptr Double -> Int 472bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt
472bessel_jl_steed_array = gsl_sf_bessel_jl_steed_array 473bessel_jl_steed_array = gsl_sf_bessel_jl_steed_array
473foreign import ccall "bessel.h gsl_sf_bessel_jl_steed_array" gsl_sf_bessel_jl_steed_array :: Int -> Double -> Ptr Double -> Int 474foreign import ccall "bessel.h gsl_sf_bessel_jl_steed_array" gsl_sf_bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt
474 475
475-- | wrapper for int gsl_sf_bessel_y0_e(double x,gsl_sf_result* result); 476-- | wrapper for int gsl_sf_bessel_y0_e(double x,gsl_sf_result* result);
476-- 477--
477-- <http://www.google.com/search?q=gsl_sf_bessel_y0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 478-- <http://www.google.com/search?q=gsl_sf_bessel_y0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
478bessel_y0_e :: Double -> (Double,Double) 479bessel_y0_e :: Double -> (Double,Double)
479bessel_y0_e x = createSFR "bessel_y0_e" $ gsl_sf_bessel_y0_e x 480bessel_y0_e x = createSFR "bessel_y0_e" $ gsl_sf_bessel_y0_e x
480foreign import ccall "bessel.h gsl_sf_bessel_y0_e" gsl_sf_bessel_y0_e :: Double -> Ptr Double -> IO(Int) 481foreign import ccall "bessel.h gsl_sf_bessel_y0_e" gsl_sf_bessel_y0_e :: Double -> Ptr () -> IO CInt
481 482
482-- | wrapper for double gsl_sf_bessel_y0(double x); 483-- | wrapper for double gsl_sf_bessel_y0(double x);
483-- 484--
@@ -491,7 +492,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_y0" gsl_sf_bessel_y0 :: Double -> D
491-- <http://www.google.com/search?q=gsl_sf_bessel_y1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 492-- <http://www.google.com/search?q=gsl_sf_bessel_y1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
492bessel_y1_e :: Double -> (Double,Double) 493bessel_y1_e :: Double -> (Double,Double)
493bessel_y1_e x = createSFR "bessel_y1_e" $ gsl_sf_bessel_y1_e x 494bessel_y1_e x = createSFR "bessel_y1_e" $ gsl_sf_bessel_y1_e x
494foreign import ccall "bessel.h gsl_sf_bessel_y1_e" gsl_sf_bessel_y1_e :: Double -> Ptr Double -> IO(Int) 495foreign import ccall "bessel.h gsl_sf_bessel_y1_e" gsl_sf_bessel_y1_e :: Double -> Ptr () -> IO CInt
495 496
496-- | wrapper for double gsl_sf_bessel_y1(double x); 497-- | wrapper for double gsl_sf_bessel_y1(double x);
497-- 498--
@@ -505,7 +506,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_y1" gsl_sf_bessel_y1 :: Double -> D
505-- <http://www.google.com/search?q=gsl_sf_bessel_y2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 506-- <http://www.google.com/search?q=gsl_sf_bessel_y2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
506bessel_y2_e :: Double -> (Double,Double) 507bessel_y2_e :: Double -> (Double,Double)
507bessel_y2_e x = createSFR "bessel_y2_e" $ gsl_sf_bessel_y2_e x 508bessel_y2_e x = createSFR "bessel_y2_e" $ gsl_sf_bessel_y2_e x
508foreign import ccall "bessel.h gsl_sf_bessel_y2_e" gsl_sf_bessel_y2_e :: Double -> Ptr Double -> IO(Int) 509foreign import ccall "bessel.h gsl_sf_bessel_y2_e" gsl_sf_bessel_y2_e :: Double -> Ptr () -> IO CInt
509 510
510-- | wrapper for double gsl_sf_bessel_y2(double x); 511-- | wrapper for double gsl_sf_bessel_y2(double x);
511-- 512--
@@ -517,30 +518,30 @@ foreign import ccall "bessel.h gsl_sf_bessel_y2" gsl_sf_bessel_y2 :: Double -> D
517-- | wrapper for int gsl_sf_bessel_yl_e(int l,double x,gsl_sf_result* result); 518-- | wrapper for int gsl_sf_bessel_yl_e(int l,double x,gsl_sf_result* result);
518-- 519--
519-- <http://www.google.com/search?q=gsl_sf_bessel_yl_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 520-- <http://www.google.com/search?q=gsl_sf_bessel_yl_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
520bessel_yl_e :: Int -> Double -> (Double,Double) 521bessel_yl_e :: CInt -> Double -> (Double,Double)
521bessel_yl_e l x = createSFR "bessel_yl_e" $ gsl_sf_bessel_yl_e l x 522bessel_yl_e l x = createSFR "bessel_yl_e" $ gsl_sf_bessel_yl_e l x
522foreign import ccall "bessel.h gsl_sf_bessel_yl_e" gsl_sf_bessel_yl_e :: Int -> Double -> Ptr Double -> IO(Int) 523foreign import ccall "bessel.h gsl_sf_bessel_yl_e" gsl_sf_bessel_yl_e :: CInt -> Double -> Ptr () -> IO CInt
523 524
524-- | wrapper for double gsl_sf_bessel_yl(int l,double x); 525-- | wrapper for double gsl_sf_bessel_yl(int l,double x);
525-- 526--
526-- <http://www.google.com/search?q=gsl_sf_bessel_yl&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 527-- <http://www.google.com/search?q=gsl_sf_bessel_yl&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
527bessel_yl :: Int -> Double -> Double 528bessel_yl :: CInt -> Double -> Double
528bessel_yl = gsl_sf_bessel_yl 529bessel_yl = gsl_sf_bessel_yl
529foreign import ccall "bessel.h gsl_sf_bessel_yl" gsl_sf_bessel_yl :: Int -> Double -> Double 530foreign import ccall "bessel.h gsl_sf_bessel_yl" gsl_sf_bessel_yl :: CInt -> Double -> Double
530 531
531-- | wrapper for int gsl_sf_bessel_yl_array(int lmax,double x,double* result_array); 532-- | wrapper for int gsl_sf_bessel_yl_array(int lmax,double x,double* result_array);
532-- 533--
533-- <http://www.google.com/search?q=gsl_sf_bessel_yl_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 534-- <http://www.google.com/search?q=gsl_sf_bessel_yl_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
534bessel_yl_array :: Int -> Double -> Ptr Double -> Int 535bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt
535bessel_yl_array = gsl_sf_bessel_yl_array 536bessel_yl_array = gsl_sf_bessel_yl_array
536foreign import ccall "bessel.h gsl_sf_bessel_yl_array" gsl_sf_bessel_yl_array :: Int -> Double -> Ptr Double -> Int 537foreign import ccall "bessel.h gsl_sf_bessel_yl_array" gsl_sf_bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt
537 538
538-- | wrapper for int gsl_sf_bessel_i0_scaled_e(double x,gsl_sf_result* result); 539-- | wrapper for int gsl_sf_bessel_i0_scaled_e(double x,gsl_sf_result* result);
539-- 540--
540-- <http://www.google.com/search?q=gsl_sf_bessel_i0_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 541-- <http://www.google.com/search?q=gsl_sf_bessel_i0_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
541bessel_i0_scaled_e :: Double -> (Double,Double) 542bessel_i0_scaled_e :: Double -> (Double,Double)
542bessel_i0_scaled_e x = createSFR "bessel_i0_scaled_e" $ gsl_sf_bessel_i0_scaled_e x 543bessel_i0_scaled_e x = createSFR "bessel_i0_scaled_e" $ gsl_sf_bessel_i0_scaled_e x
543foreign import ccall "bessel.h gsl_sf_bessel_i0_scaled_e" gsl_sf_bessel_i0_scaled_e :: Double -> Ptr Double -> IO(Int) 544foreign import ccall "bessel.h gsl_sf_bessel_i0_scaled_e" gsl_sf_bessel_i0_scaled_e :: Double -> Ptr () -> IO CInt
544 545
545-- | wrapper for double gsl_sf_bessel_i0_scaled(double x); 546-- | wrapper for double gsl_sf_bessel_i0_scaled(double x);
546-- 547--
@@ -554,7 +555,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_i0_scaled" gsl_sf_bessel_i0_scaled
554-- <http://www.google.com/search?q=gsl_sf_bessel_i1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 555-- <http://www.google.com/search?q=gsl_sf_bessel_i1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
555bessel_i1_scaled_e :: Double -> (Double,Double) 556bessel_i1_scaled_e :: Double -> (Double,Double)
556bessel_i1_scaled_e x = createSFR "bessel_i1_scaled_e" $ gsl_sf_bessel_i1_scaled_e x 557bessel_i1_scaled_e x = createSFR "bessel_i1_scaled_e" $ gsl_sf_bessel_i1_scaled_e x
557foreign import ccall "bessel.h gsl_sf_bessel_i1_scaled_e" gsl_sf_bessel_i1_scaled_e :: Double -> Ptr Double -> IO(Int) 558foreign import ccall "bessel.h gsl_sf_bessel_i1_scaled_e" gsl_sf_bessel_i1_scaled_e :: Double -> Ptr () -> IO CInt
558 559
559-- | wrapper for double gsl_sf_bessel_i1_scaled(double x); 560-- | wrapper for double gsl_sf_bessel_i1_scaled(double x);
560-- 561--
@@ -568,7 +569,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_i1_scaled" gsl_sf_bessel_i1_scaled
568-- <http://www.google.com/search?q=gsl_sf_bessel_i2_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 569-- <http://www.google.com/search?q=gsl_sf_bessel_i2_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
569bessel_i2_scaled_e :: Double -> (Double,Double) 570bessel_i2_scaled_e :: Double -> (Double,Double)
570bessel_i2_scaled_e x = createSFR "bessel_i2_scaled_e" $ gsl_sf_bessel_i2_scaled_e x 571bessel_i2_scaled_e x = createSFR "bessel_i2_scaled_e" $ gsl_sf_bessel_i2_scaled_e x
571foreign import ccall "bessel.h gsl_sf_bessel_i2_scaled_e" gsl_sf_bessel_i2_scaled_e :: Double -> Ptr Double -> IO(Int) 572foreign import ccall "bessel.h gsl_sf_bessel_i2_scaled_e" gsl_sf_bessel_i2_scaled_e :: Double -> Ptr () -> IO CInt
572 573
573-- | wrapper for double gsl_sf_bessel_i2_scaled(double x); 574-- | wrapper for double gsl_sf_bessel_i2_scaled(double x);
574-- 575--
@@ -580,30 +581,30 @@ foreign import ccall "bessel.h gsl_sf_bessel_i2_scaled" gsl_sf_bessel_i2_scaled
580-- | wrapper for int gsl_sf_bessel_il_scaled_e(int l,double x,gsl_sf_result* result); 581-- | wrapper for int gsl_sf_bessel_il_scaled_e(int l,double x,gsl_sf_result* result);
581-- 582--
582-- <http://www.google.com/search?q=gsl_sf_bessel_il_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 583-- <http://www.google.com/search?q=gsl_sf_bessel_il_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
583bessel_il_scaled_e :: Int -> Double -> (Double,Double) 584bessel_il_scaled_e :: CInt -> Double -> (Double,Double)
584bessel_il_scaled_e l x = createSFR "bessel_il_scaled_e" $ gsl_sf_bessel_il_scaled_e l x 585bessel_il_scaled_e l x = createSFR "bessel_il_scaled_e" $ gsl_sf_bessel_il_scaled_e l x
585foreign import ccall "bessel.h gsl_sf_bessel_il_scaled_e" gsl_sf_bessel_il_scaled_e :: Int -> Double -> Ptr Double -> IO(Int) 586foreign import ccall "bessel.h gsl_sf_bessel_il_scaled_e" gsl_sf_bessel_il_scaled_e :: CInt -> Double -> Ptr () -> IO CInt
586 587
587-- | wrapper for double gsl_sf_bessel_il_scaled(int l,double x); 588-- | wrapper for double gsl_sf_bessel_il_scaled(int l,double x);
588-- 589--
589-- <http://www.google.com/search?q=gsl_sf_bessel_il_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 590-- <http://www.google.com/search?q=gsl_sf_bessel_il_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
590bessel_il_scaled :: Int -> Double -> Double 591bessel_il_scaled :: CInt -> Double -> Double
591bessel_il_scaled = gsl_sf_bessel_il_scaled 592bessel_il_scaled = gsl_sf_bessel_il_scaled
592foreign import ccall "bessel.h gsl_sf_bessel_il_scaled" gsl_sf_bessel_il_scaled :: Int -> Double -> Double 593foreign import ccall "bessel.h gsl_sf_bessel_il_scaled" gsl_sf_bessel_il_scaled :: CInt -> Double -> Double
593 594
594-- | wrapper for int gsl_sf_bessel_il_scaled_array(int lmax,double x,double* result_array); 595-- | wrapper for int gsl_sf_bessel_il_scaled_array(int lmax,double x,double* result_array);
595-- 596--
596-- <http://www.google.com/search?q=gsl_sf_bessel_il_scaled_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 597-- <http://www.google.com/search?q=gsl_sf_bessel_il_scaled_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
597bessel_il_scaled_array :: Int -> Double -> Ptr Double -> Int 598bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt
598bessel_il_scaled_array = gsl_sf_bessel_il_scaled_array 599bessel_il_scaled_array = gsl_sf_bessel_il_scaled_array
599foreign import ccall "bessel.h gsl_sf_bessel_il_scaled_array" gsl_sf_bessel_il_scaled_array :: Int -> Double -> Ptr Double -> Int 600foreign import ccall "bessel.h gsl_sf_bessel_il_scaled_array" gsl_sf_bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt
600 601
601-- | wrapper for int gsl_sf_bessel_k0_scaled_e(double x,gsl_sf_result* result); 602-- | wrapper for int gsl_sf_bessel_k0_scaled_e(double x,gsl_sf_result* result);
602-- 603--
603-- <http://www.google.com/search?q=gsl_sf_bessel_k0_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 604-- <http://www.google.com/search?q=gsl_sf_bessel_k0_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
604bessel_k0_scaled_e :: Double -> (Double,Double) 605bessel_k0_scaled_e :: Double -> (Double,Double)
605bessel_k0_scaled_e x = createSFR "bessel_k0_scaled_e" $ gsl_sf_bessel_k0_scaled_e x 606bessel_k0_scaled_e x = createSFR "bessel_k0_scaled_e" $ gsl_sf_bessel_k0_scaled_e x
606foreign import ccall "bessel.h gsl_sf_bessel_k0_scaled_e" gsl_sf_bessel_k0_scaled_e :: Double -> Ptr Double -> IO(Int) 607foreign import ccall "bessel.h gsl_sf_bessel_k0_scaled_e" gsl_sf_bessel_k0_scaled_e :: Double -> Ptr () -> IO CInt
607 608
608-- | wrapper for double gsl_sf_bessel_k0_scaled(double x); 609-- | wrapper for double gsl_sf_bessel_k0_scaled(double x);
609-- 610--
@@ -617,7 +618,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_k0_scaled" gsl_sf_bessel_k0_scaled
617-- <http://www.google.com/search?q=gsl_sf_bessel_k1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 618-- <http://www.google.com/search?q=gsl_sf_bessel_k1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
618bessel_k1_scaled_e :: Double -> (Double,Double) 619bessel_k1_scaled_e :: Double -> (Double,Double)
619bessel_k1_scaled_e x = createSFR "bessel_k1_scaled_e" $ gsl_sf_bessel_k1_scaled_e x 620bessel_k1_scaled_e x = createSFR "bessel_k1_scaled_e" $ gsl_sf_bessel_k1_scaled_e x
620foreign import ccall "bessel.h gsl_sf_bessel_k1_scaled_e" gsl_sf_bessel_k1_scaled_e :: Double -> Ptr Double -> IO(Int) 621foreign import ccall "bessel.h gsl_sf_bessel_k1_scaled_e" gsl_sf_bessel_k1_scaled_e :: Double -> Ptr () -> IO CInt
621 622
622-- | wrapper for double gsl_sf_bessel_k1_scaled(double x); 623-- | wrapper for double gsl_sf_bessel_k1_scaled(double x);
623-- 624--
@@ -631,7 +632,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_k1_scaled" gsl_sf_bessel_k1_scaled
631-- <http://www.google.com/search?q=gsl_sf_bessel_k2_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 632-- <http://www.google.com/search?q=gsl_sf_bessel_k2_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
632bessel_k2_scaled_e :: Double -> (Double,Double) 633bessel_k2_scaled_e :: Double -> (Double,Double)
633bessel_k2_scaled_e x = createSFR "bessel_k2_scaled_e" $ gsl_sf_bessel_k2_scaled_e x 634bessel_k2_scaled_e x = createSFR "bessel_k2_scaled_e" $ gsl_sf_bessel_k2_scaled_e x
634foreign import ccall "bessel.h gsl_sf_bessel_k2_scaled_e" gsl_sf_bessel_k2_scaled_e :: Double -> Ptr Double -> IO(Int) 635foreign import ccall "bessel.h gsl_sf_bessel_k2_scaled_e" gsl_sf_bessel_k2_scaled_e :: Double -> Ptr () -> IO CInt
635 636
636-- | wrapper for double gsl_sf_bessel_k2_scaled(double x); 637-- | wrapper for double gsl_sf_bessel_k2_scaled(double x);
637-- 638--
@@ -643,30 +644,30 @@ foreign import ccall "bessel.h gsl_sf_bessel_k2_scaled" gsl_sf_bessel_k2_scaled
643-- | wrapper for int gsl_sf_bessel_kl_scaled_e(int l,double x,gsl_sf_result* result); 644-- | wrapper for int gsl_sf_bessel_kl_scaled_e(int l,double x,gsl_sf_result* result);
644-- 645--
645-- <http://www.google.com/search?q=gsl_sf_bessel_kl_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 646-- <http://www.google.com/search?q=gsl_sf_bessel_kl_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
646bessel_kl_scaled_e :: Int -> Double -> (Double,Double) 647bessel_kl_scaled_e :: CInt -> Double -> (Double,Double)
647bessel_kl_scaled_e l x = createSFR "bessel_kl_scaled_e" $ gsl_sf_bessel_kl_scaled_e l x 648bessel_kl_scaled_e l x = createSFR "bessel_kl_scaled_e" $ gsl_sf_bessel_kl_scaled_e l x
648foreign import ccall "bessel.h gsl_sf_bessel_kl_scaled_e" gsl_sf_bessel_kl_scaled_e :: Int -> Double -> Ptr Double -> IO(Int) 649foreign import ccall "bessel.h gsl_sf_bessel_kl_scaled_e" gsl_sf_bessel_kl_scaled_e :: CInt -> Double -> Ptr () -> IO CInt
649 650
650-- | wrapper for double gsl_sf_bessel_kl_scaled(int l,double x); 651-- | wrapper for double gsl_sf_bessel_kl_scaled(int l,double x);
651-- 652--
652-- <http://www.google.com/search?q=gsl_sf_bessel_kl_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 653-- <http://www.google.com/search?q=gsl_sf_bessel_kl_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
653bessel_kl_scaled :: Int -> Double -> Double 654bessel_kl_scaled :: CInt -> Double -> Double
654bessel_kl_scaled = gsl_sf_bessel_kl_scaled 655bessel_kl_scaled = gsl_sf_bessel_kl_scaled
655foreign import ccall "bessel.h gsl_sf_bessel_kl_scaled" gsl_sf_bessel_kl_scaled :: Int -> Double -> Double 656foreign import ccall "bessel.h gsl_sf_bessel_kl_scaled" gsl_sf_bessel_kl_scaled :: CInt -> Double -> Double
656 657
657-- | wrapper for int gsl_sf_bessel_kl_scaled_array(int lmax,double x,double* result_array); 658-- | wrapper for int gsl_sf_bessel_kl_scaled_array(int lmax,double x,double* result_array);
658-- 659--
659-- <http://www.google.com/search?q=gsl_sf_bessel_kl_scaled_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 660-- <http://www.google.com/search?q=gsl_sf_bessel_kl_scaled_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
660bessel_kl_scaled_array :: Int -> Double -> Ptr Double -> Int 661bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt
661bessel_kl_scaled_array = gsl_sf_bessel_kl_scaled_array 662bessel_kl_scaled_array = gsl_sf_bessel_kl_scaled_array
662foreign import ccall "bessel.h gsl_sf_bessel_kl_scaled_array" gsl_sf_bessel_kl_scaled_array :: Int -> Double -> Ptr Double -> Int 663foreign import ccall "bessel.h gsl_sf_bessel_kl_scaled_array" gsl_sf_bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt
663 664
664-- | wrapper for int gsl_sf_bessel_Jnu_e(double nu,double x,gsl_sf_result* result); 665-- | wrapper for int gsl_sf_bessel_Jnu_e(double nu,double x,gsl_sf_result* result);
665-- 666--
666-- <http://www.google.com/search?q=gsl_sf_bessel_Jnu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 667-- <http://www.google.com/search?q=gsl_sf_bessel_Jnu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
667bessel_Jnu_e :: Double -> Double -> (Double,Double) 668bessel_Jnu_e :: Double -> Double -> (Double,Double)
668bessel_Jnu_e nu x = createSFR "bessel_Jnu_e" $ gsl_sf_bessel_Jnu_e nu x 669bessel_Jnu_e nu x = createSFR "bessel_Jnu_e" $ gsl_sf_bessel_Jnu_e nu x
669foreign import ccall "bessel.h gsl_sf_bessel_Jnu_e" gsl_sf_bessel_Jnu_e :: Double -> Double -> Ptr Double -> IO(Int) 670foreign import ccall "bessel.h gsl_sf_bessel_Jnu_e" gsl_sf_bessel_Jnu_e :: Double -> Double -> Ptr () -> IO CInt
670 671
671-- | wrapper for double gsl_sf_bessel_Jnu(double nu,double x); 672-- | wrapper for double gsl_sf_bessel_Jnu(double nu,double x);
672-- 673--
@@ -680,7 +681,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_Jnu" gsl_sf_bessel_Jnu :: Double ->
680-- <http://www.google.com/search?q=gsl_sf_bessel_Ynu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 681-- <http://www.google.com/search?q=gsl_sf_bessel_Ynu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
681bessel_Ynu_e :: Double -> Double -> (Double,Double) 682bessel_Ynu_e :: Double -> Double -> (Double,Double)
682bessel_Ynu_e nu x = createSFR "bessel_Ynu_e" $ gsl_sf_bessel_Ynu_e nu x 683bessel_Ynu_e nu x = createSFR "bessel_Ynu_e" $ gsl_sf_bessel_Ynu_e nu x
683foreign import ccall "bessel.h gsl_sf_bessel_Ynu_e" gsl_sf_bessel_Ynu_e :: Double -> Double -> Ptr Double -> IO(Int) 684foreign import ccall "bessel.h gsl_sf_bessel_Ynu_e" gsl_sf_bessel_Ynu_e :: Double -> Double -> Ptr () -> IO CInt
684 685
685-- | wrapper for double gsl_sf_bessel_Ynu(double nu,double x); 686-- | wrapper for double gsl_sf_bessel_Ynu(double nu,double x);
686-- 687--
@@ -692,16 +693,16 @@ foreign import ccall "bessel.h gsl_sf_bessel_Ynu" gsl_sf_bessel_Ynu :: Double ->
692-- | wrapper for int gsl_sf_bessel_sequence_Jnu_e(double nu,gsl_mode_t mode,size_t size,double* v); 693-- | wrapper for int gsl_sf_bessel_sequence_Jnu_e(double nu,gsl_mode_t mode,size_t size,double* v);
693-- 694--
694-- <http://www.google.com/search?q=gsl_sf_bessel_sequence_Jnu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 695-- <http://www.google.com/search?q=gsl_sf_bessel_sequence_Jnu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
695bessel_sequence_Jnu_e :: Double -> Precision -> Size_t -> Ptr Double -> Int 696bessel_sequence_Jnu_e :: Double -> Precision -> Size_t -> Ptr Double -> CInt
696bessel_sequence_Jnu_e nu mode size v = gsl_sf_bessel_sequence_Jnu_e nu (precCode mode) size v 697bessel_sequence_Jnu_e nu mode size v = gsl_sf_bessel_sequence_Jnu_e nu (precCode mode) size v
697foreign import ccall "bessel.h gsl_sf_bessel_sequence_Jnu_e" gsl_sf_bessel_sequence_Jnu_e :: Double -> Gsl_mode_t -> Size_t -> Ptr Double -> Int 698foreign 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
698 699
699-- | wrapper for int gsl_sf_bessel_Inu_scaled_e(double nu,double x,gsl_sf_result* result); 700-- | wrapper for int gsl_sf_bessel_Inu_scaled_e(double nu,double x,gsl_sf_result* result);
700-- 701--
701-- <http://www.google.com/search?q=gsl_sf_bessel_Inu_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 702-- <http://www.google.com/search?q=gsl_sf_bessel_Inu_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
702bessel_Inu_scaled_e :: Double -> Double -> (Double,Double) 703bessel_Inu_scaled_e :: Double -> Double -> (Double,Double)
703bessel_Inu_scaled_e nu x = createSFR "bessel_Inu_scaled_e" $ gsl_sf_bessel_Inu_scaled_e nu x 704bessel_Inu_scaled_e nu x = createSFR "bessel_Inu_scaled_e" $ gsl_sf_bessel_Inu_scaled_e nu x
704foreign import ccall "bessel.h gsl_sf_bessel_Inu_scaled_e" gsl_sf_bessel_Inu_scaled_e :: Double -> Double -> Ptr Double -> IO(Int) 705foreign import ccall "bessel.h gsl_sf_bessel_Inu_scaled_e" gsl_sf_bessel_Inu_scaled_e :: Double -> Double -> Ptr () -> IO CInt
705 706
706-- | wrapper for double gsl_sf_bessel_Inu_scaled(double nu,double x); 707-- | wrapper for double gsl_sf_bessel_Inu_scaled(double nu,double x);
707-- 708--
@@ -715,7 +716,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_Inu_scaled" gsl_sf_bessel_Inu_scale
715-- <http://www.google.com/search?q=gsl_sf_bessel_Inu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 716-- <http://www.google.com/search?q=gsl_sf_bessel_Inu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
716bessel_Inu_e :: Double -> Double -> (Double,Double) 717bessel_Inu_e :: Double -> Double -> (Double,Double)
717bessel_Inu_e nu x = createSFR "bessel_Inu_e" $ gsl_sf_bessel_Inu_e nu x 718bessel_Inu_e nu x = createSFR "bessel_Inu_e" $ gsl_sf_bessel_Inu_e nu x
718foreign import ccall "bessel.h gsl_sf_bessel_Inu_e" gsl_sf_bessel_Inu_e :: Double -> Double -> Ptr Double -> IO(Int) 719foreign import ccall "bessel.h gsl_sf_bessel_Inu_e" gsl_sf_bessel_Inu_e :: Double -> Double -> Ptr () -> IO CInt
719 720
720-- | wrapper for double gsl_sf_bessel_Inu(double nu,double x); 721-- | wrapper for double gsl_sf_bessel_Inu(double nu,double x);
721-- 722--
@@ -729,7 +730,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_Inu" gsl_sf_bessel_Inu :: Double ->
729-- <http://www.google.com/search?q=gsl_sf_bessel_Knu_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 730-- <http://www.google.com/search?q=gsl_sf_bessel_Knu_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
730bessel_Knu_scaled_e :: Double -> Double -> (Double,Double) 731bessel_Knu_scaled_e :: Double -> Double -> (Double,Double)
731bessel_Knu_scaled_e nu x = createSFR "bessel_Knu_scaled_e" $ gsl_sf_bessel_Knu_scaled_e nu x 732bessel_Knu_scaled_e nu x = createSFR "bessel_Knu_scaled_e" $ gsl_sf_bessel_Knu_scaled_e nu x
732foreign import ccall "bessel.h gsl_sf_bessel_Knu_scaled_e" gsl_sf_bessel_Knu_scaled_e :: Double -> Double -> Ptr Double -> IO(Int) 733foreign import ccall "bessel.h gsl_sf_bessel_Knu_scaled_e" gsl_sf_bessel_Knu_scaled_e :: Double -> Double -> Ptr () -> IO CInt
733 734
734-- | wrapper for double gsl_sf_bessel_Knu_scaled(double nu,double x); 735-- | wrapper for double gsl_sf_bessel_Knu_scaled(double nu,double x);
735-- 736--
@@ -743,7 +744,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_Knu_scaled" gsl_sf_bessel_Knu_scale
743-- <http://www.google.com/search?q=gsl_sf_bessel_Knu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 744-- <http://www.google.com/search?q=gsl_sf_bessel_Knu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
744bessel_Knu_e :: Double -> Double -> (Double,Double) 745bessel_Knu_e :: Double -> Double -> (Double,Double)
745bessel_Knu_e nu x = createSFR "bessel_Knu_e" $ gsl_sf_bessel_Knu_e nu x 746bessel_Knu_e nu x = createSFR "bessel_Knu_e" $ gsl_sf_bessel_Knu_e nu x
746foreign import ccall "bessel.h gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr Double -> IO(Int) 747foreign import ccall "bessel.h gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr () -> IO CInt
747 748
748-- | wrapper for double gsl_sf_bessel_Knu(double nu,double x); 749-- | wrapper for double gsl_sf_bessel_Knu(double nu,double x);
749-- 750--
@@ -757,7 +758,7 @@ foreign import ccall "bessel.h gsl_sf_bessel_Knu" gsl_sf_bessel_Knu :: Double ->
757-- <http://www.google.com/search?q=gsl_sf_bessel_lnKnu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 758-- <http://www.google.com/search?q=gsl_sf_bessel_lnKnu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
758bessel_lnKnu_e :: Double -> Double -> (Double,Double) 759bessel_lnKnu_e :: Double -> Double -> (Double,Double)
759bessel_lnKnu_e nu x = createSFR "bessel_lnKnu_e" $ gsl_sf_bessel_lnKnu_e nu x 760bessel_lnKnu_e nu x = createSFR "bessel_lnKnu_e" $ gsl_sf_bessel_lnKnu_e nu x
760foreign import ccall "bessel.h gsl_sf_bessel_lnKnu_e" gsl_sf_bessel_lnKnu_e :: Double -> Double -> Ptr Double -> IO(Int) 761foreign import ccall "bessel.h gsl_sf_bessel_lnKnu_e" gsl_sf_bessel_lnKnu_e :: Double -> Double -> Ptr () -> IO CInt
761 762
762-- | wrapper for double gsl_sf_bessel_lnKnu(double nu,double x); 763-- | wrapper for double gsl_sf_bessel_lnKnu(double nu,double x);
763-- 764--
@@ -769,41 +770,41 @@ foreign import ccall "bessel.h gsl_sf_bessel_lnKnu" gsl_sf_bessel_lnKnu :: Doubl
769-- | wrapper for int gsl_sf_bessel_zero_J0_e(int s,gsl_sf_result* result); 770-- | wrapper for int gsl_sf_bessel_zero_J0_e(int s,gsl_sf_result* result);
770-- 771--
771-- <http://www.google.com/search?q=gsl_sf_bessel_zero_J0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 772-- <http://www.google.com/search?q=gsl_sf_bessel_zero_J0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
772bessel_zero_J0_e :: Int -> (Double,Double) 773bessel_zero_J0_e :: CInt -> (Double,Double)
773bessel_zero_J0_e s = createSFR "bessel_zero_J0_e" $ gsl_sf_bessel_zero_J0_e s 774bessel_zero_J0_e s = createSFR "bessel_zero_J0_e" $ gsl_sf_bessel_zero_J0_e s
774foreign import ccall "bessel.h gsl_sf_bessel_zero_J0_e" gsl_sf_bessel_zero_J0_e :: Int -> Ptr Double -> IO(Int) 775foreign import ccall "bessel.h gsl_sf_bessel_zero_J0_e" gsl_sf_bessel_zero_J0_e :: CInt -> Ptr () -> IO CInt
775 776
776-- | wrapper for double gsl_sf_bessel_zero_J0(int s); 777-- | wrapper for double gsl_sf_bessel_zero_J0(int s);
777-- 778--
778-- <http://www.google.com/search?q=gsl_sf_bessel_zero_J0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 779-- <http://www.google.com/search?q=gsl_sf_bessel_zero_J0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
779bessel_zero_J0 :: Int -> Double 780bessel_zero_J0 :: CInt -> Double
780bessel_zero_J0 = gsl_sf_bessel_zero_J0 781bessel_zero_J0 = gsl_sf_bessel_zero_J0
781foreign import ccall "bessel.h gsl_sf_bessel_zero_J0" gsl_sf_bessel_zero_J0 :: Int -> Double 782foreign import ccall "bessel.h gsl_sf_bessel_zero_J0" gsl_sf_bessel_zero_J0 :: CInt -> Double
782 783
783-- | wrapper for int gsl_sf_bessel_zero_J1_e(int s,gsl_sf_result* result); 784-- | wrapper for int gsl_sf_bessel_zero_J1_e(int s,gsl_sf_result* result);
784-- 785--
785-- <http://www.google.com/search?q=gsl_sf_bessel_zero_J1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 786-- <http://www.google.com/search?q=gsl_sf_bessel_zero_J1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
786bessel_zero_J1_e :: Int -> (Double,Double) 787bessel_zero_J1_e :: CInt -> (Double,Double)
787bessel_zero_J1_e s = createSFR "bessel_zero_J1_e" $ gsl_sf_bessel_zero_J1_e s 788bessel_zero_J1_e s = createSFR "bessel_zero_J1_e" $ gsl_sf_bessel_zero_J1_e s
788foreign import ccall "bessel.h gsl_sf_bessel_zero_J1_e" gsl_sf_bessel_zero_J1_e :: Int -> Ptr Double -> IO(Int) 789foreign import ccall "bessel.h gsl_sf_bessel_zero_J1_e" gsl_sf_bessel_zero_J1_e :: CInt -> Ptr () -> IO CInt
789 790
790-- | wrapper for double gsl_sf_bessel_zero_J1(int s); 791-- | wrapper for double gsl_sf_bessel_zero_J1(int s);
791-- 792--
792-- <http://www.google.com/search?q=gsl_sf_bessel_zero_J1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 793-- <http://www.google.com/search?q=gsl_sf_bessel_zero_J1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
793bessel_zero_J1 :: Int -> Double 794bessel_zero_J1 :: CInt -> Double
794bessel_zero_J1 = gsl_sf_bessel_zero_J1 795bessel_zero_J1 = gsl_sf_bessel_zero_J1
795foreign import ccall "bessel.h gsl_sf_bessel_zero_J1" gsl_sf_bessel_zero_J1 :: Int -> Double 796foreign import ccall "bessel.h gsl_sf_bessel_zero_J1" gsl_sf_bessel_zero_J1 :: CInt -> Double
796 797
797-- | wrapper for int gsl_sf_bessel_zero_Jnu_e(double nu,int s,gsl_sf_result* result); 798-- | wrapper for int gsl_sf_bessel_zero_Jnu_e(double nu,int s,gsl_sf_result* result);
798-- 799--
799-- <http://www.google.com/search?q=gsl_sf_bessel_zero_Jnu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 800-- <http://www.google.com/search?q=gsl_sf_bessel_zero_Jnu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
800bessel_zero_Jnu_e :: Double -> Int -> (Double,Double) 801bessel_zero_Jnu_e :: Double -> CInt -> (Double,Double)
801bessel_zero_Jnu_e nu s = createSFR "bessel_zero_Jnu_e" $ gsl_sf_bessel_zero_Jnu_e nu s 802bessel_zero_Jnu_e nu s = createSFR "bessel_zero_Jnu_e" $ gsl_sf_bessel_zero_Jnu_e nu s
802foreign import ccall "bessel.h gsl_sf_bessel_zero_Jnu_e" gsl_sf_bessel_zero_Jnu_e :: Double -> Int -> Ptr Double -> IO(Int) 803foreign import ccall "bessel.h gsl_sf_bessel_zero_Jnu_e" gsl_sf_bessel_zero_Jnu_e :: Double -> CInt -> Ptr () -> IO CInt
803 804
804-- | wrapper for double gsl_sf_bessel_zero_Jnu(double nu,int s); 805-- | wrapper for double gsl_sf_bessel_zero_Jnu(double nu,int s);
805-- 806--
806-- <http://www.google.com/search?q=gsl_sf_bessel_zero_Jnu&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 807-- <http://www.google.com/search?q=gsl_sf_bessel_zero_Jnu&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
807bessel_zero_Jnu :: Double -> Int -> Double 808bessel_zero_Jnu :: Double -> CInt -> Double
808bessel_zero_Jnu = gsl_sf_bessel_zero_Jnu 809bessel_zero_Jnu = gsl_sf_bessel_zero_Jnu
809foreign import ccall "bessel.h gsl_sf_bessel_zero_Jnu" gsl_sf_bessel_zero_Jnu :: Double -> Int -> Double 810foreign import ccall "bessel.h 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 3052187..9f509cc 100644
--- a/lib/Numeric/GSL/Special/Clausen.hs
+++ b/lib/Numeric/GSL/Special/Clausen.hs
@@ -20,6 +20,7 @@ module Numeric.GSL.Special.Clausen(
20) where 20) where
21 21
22import Foreign(Ptr) 22import Foreign(Ptr)
23import Foreign.C.Types(CInt)
23import Numeric.GSL.Special.Internal 24import Numeric.GSL.Special.Internal
24 25
25-- | wrapper for int gsl_sf_clausen_e(double x,gsl_sf_result* result); 26-- | wrapper for int gsl_sf_clausen_e(double x,gsl_sf_result* result);
@@ -27,7 +28,7 @@ import Numeric.GSL.Special.Internal
27-- <http://www.google.com/search?q=gsl_sf_clausen_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 28-- <http://www.google.com/search?q=gsl_sf_clausen_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
28clausen_e :: Double -> (Double,Double) 29clausen_e :: Double -> (Double,Double)
29clausen_e x = createSFR "clausen_e" $ gsl_sf_clausen_e x 30clausen_e x = createSFR "clausen_e" $ gsl_sf_clausen_e x
30foreign import ccall "clausen.h gsl_sf_clausen_e" gsl_sf_clausen_e :: Double -> Ptr Double -> IO(Int) 31foreign import ccall "clausen.h gsl_sf_clausen_e" gsl_sf_clausen_e :: Double -> Ptr () -> IO CInt
31 32
32-- | wrapper for double gsl_sf_clausen(double x); 33-- | wrapper for double gsl_sf_clausen(double x);
33-- 34--
diff --git a/lib/Numeric/GSL/Special/Coulomb.hs b/lib/Numeric/GSL/Special/Coulomb.hs
index 06848cb..57cfa23 100644
--- a/lib/Numeric/GSL/Special/Coulomb.hs
+++ b/lib/Numeric/GSL/Special/Coulomb.hs
@@ -23,6 +23,7 @@ module Numeric.GSL.Special.Coulomb(
23) where 23) where
24 24
25import Foreign(Ptr) 25import Foreign(Ptr)
26import Foreign.C.Types(CInt)
26import Numeric.GSL.Special.Internal 27import Numeric.GSL.Special.Internal
27 28
28-- | wrapper for int gsl_sf_hydrogenicR_1_e(double Z,double r,gsl_sf_result* result); 29-- | wrapper for int gsl_sf_hydrogenicR_1_e(double Z,double r,gsl_sf_result* result);
@@ -30,7 +31,7 @@ import Numeric.GSL.Special.Internal
30-- <http://www.google.com/search?q=gsl_sf_hydrogenicR_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 31-- <http://www.google.com/search?q=gsl_sf_hydrogenicR_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
31hydrogenicR_1_e :: Double -> Double -> (Double,Double) 32hydrogenicR_1_e :: Double -> Double -> (Double,Double)
32hydrogenicR_1_e zZ r = createSFR "hydrogenicR_1_e" $ gsl_sf_hydrogenicR_1_e zZ r 33hydrogenicR_1_e zZ r = createSFR "hydrogenicR_1_e" $ gsl_sf_hydrogenicR_1_e zZ r
33foreign import ccall "coulomb.h gsl_sf_hydrogenicR_1_e" gsl_sf_hydrogenicR_1_e :: Double -> Double -> Ptr Double -> IO(Int) 34foreign import ccall "coulomb.h gsl_sf_hydrogenicR_1_e" gsl_sf_hydrogenicR_1_e :: Double -> Double -> Ptr () -> IO CInt
34 35
35-- | wrapper for double gsl_sf_hydrogenicR_1(double Z,double r); 36-- | wrapper for double gsl_sf_hydrogenicR_1(double Z,double r);
36-- 37--
@@ -42,62 +43,62 @@ foreign import ccall "coulomb.h gsl_sf_hydrogenicR_1" gsl_sf_hydrogenicR_1 :: Do
42-- | wrapper for int gsl_sf_hydrogenicR_e(int n,int l,double Z,double r,gsl_sf_result* result); 43-- | wrapper for int gsl_sf_hydrogenicR_e(int n,int l,double Z,double r,gsl_sf_result* result);
43-- 44--
44-- <http://www.google.com/search?q=gsl_sf_hydrogenicR_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 45-- <http://www.google.com/search?q=gsl_sf_hydrogenicR_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
45hydrogenicR_e :: Int -> Int -> Double -> Double -> (Double,Double) 46hydrogenicR_e :: CInt -> CInt -> Double -> Double -> (Double,Double)
46hydrogenicR_e n l zZ r = createSFR "hydrogenicR_e" $ gsl_sf_hydrogenicR_e n l zZ r 47hydrogenicR_e n l zZ r = createSFR "hydrogenicR_e" $ gsl_sf_hydrogenicR_e n l zZ r
47foreign import ccall "coulomb.h gsl_sf_hydrogenicR_e" gsl_sf_hydrogenicR_e :: Int -> Int -> Double -> Double -> Ptr Double -> IO(Int) 48foreign import ccall "coulomb.h gsl_sf_hydrogenicR_e" gsl_sf_hydrogenicR_e :: CInt -> CInt -> Double -> Double -> Ptr () -> IO CInt
48 49
49-- | wrapper for double gsl_sf_hydrogenicR(int n,int l,double Z,double r); 50-- | wrapper for double gsl_sf_hydrogenicR(int n,int l,double Z,double r);
50-- 51--
51-- <http://www.google.com/search?q=gsl_sf_hydrogenicR&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 52-- <http://www.google.com/search?q=gsl_sf_hydrogenicR&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
52hydrogenicR :: Int -> Int -> Double -> Double -> Double 53hydrogenicR :: CInt -> CInt -> Double -> Double -> Double
53hydrogenicR = gsl_sf_hydrogenicR 54hydrogenicR = gsl_sf_hydrogenicR
54foreign import ccall "coulomb.h gsl_sf_hydrogenicR" gsl_sf_hydrogenicR :: Int -> Int -> Double -> Double -> Double 55foreign import ccall "coulomb.h gsl_sf_hydrogenicR" gsl_sf_hydrogenicR :: CInt -> CInt -> Double -> Double -> Double
55 56
56-- | 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); 57-- | 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);
57-- 58--
58-- <http://www.google.com/search?q=gsl_sf_coulomb_wave_FG_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 59-- <http://www.google.com/search?q=gsl_sf_coulomb_wave_FG_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
59coulomb_wave_FG_e :: Double -> Double -> Double -> Int -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Int 60coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt
60coulomb_wave_FG_e = gsl_sf_coulomb_wave_FG_e 61coulomb_wave_FG_e = gsl_sf_coulomb_wave_FG_e
61foreign import ccall "coulomb.h gsl_sf_coulomb_wave_FG_e" gsl_sf_coulomb_wave_FG_e :: Double -> Double -> Double -> Int -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Int 62foreign 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
62 63
63-- | wrapper for int gsl_sf_coulomb_wave_F_array(double lam_min,int kmax,double eta,double x,double* fc_array,double* F_exponent); 64-- | wrapper for int gsl_sf_coulomb_wave_F_array(double lam_min,int kmax,double eta,double x,double* fc_array,double* F_exponent);
64-- 65--
65-- <http://www.google.com/search?q=gsl_sf_coulomb_wave_F_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 66-- <http://www.google.com/search?q=gsl_sf_coulomb_wave_F_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
66coulomb_wave_F_array :: Double -> Int -> Double -> Double -> Ptr Double -> Ptr Double -> Int 67coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt
67coulomb_wave_F_array = gsl_sf_coulomb_wave_F_array 68coulomb_wave_F_array = gsl_sf_coulomb_wave_F_array
68foreign import ccall "coulomb.h gsl_sf_coulomb_wave_F_array" gsl_sf_coulomb_wave_F_array :: Double -> Int -> Double -> Double -> Ptr Double -> Ptr Double -> Int 69foreign 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
69 70
70-- | 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); 71-- | 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);
71-- 72--
72-- <http://www.google.com/search?q=gsl_sf_coulomb_wave_FG_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 73-- <http://www.google.com/search?q=gsl_sf_coulomb_wave_FG_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
73coulomb_wave_FG_array :: Double -> Int -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Int 74coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt
74coulomb_wave_FG_array = gsl_sf_coulomb_wave_FG_array 75coulomb_wave_FG_array = gsl_sf_coulomb_wave_FG_array
75foreign import ccall "coulomb.h gsl_sf_coulomb_wave_FG_array" gsl_sf_coulomb_wave_FG_array :: Double -> Int -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Int 76foreign 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
76 77
77-- | 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); 78-- | 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);
78-- 79--
79-- <http://www.google.com/search?q=gsl_sf_coulomb_wave_FGp_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 80-- <http://www.google.com/search?q=gsl_sf_coulomb_wave_FGp_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
80coulomb_wave_FGp_array :: Double -> Int -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Int 81coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt
81coulomb_wave_FGp_array = gsl_sf_coulomb_wave_FGp_array 82coulomb_wave_FGp_array = gsl_sf_coulomb_wave_FGp_array
82foreign import ccall "coulomb.h gsl_sf_coulomb_wave_FGp_array" gsl_sf_coulomb_wave_FGp_array :: Double -> Int -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Int 83foreign 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
83 84
84-- | wrapper for int gsl_sf_coulomb_wave_sphF_array(double lam_min,int kmax,double eta,double x,double* fc_array,double* F_exponent); 85-- | wrapper for int gsl_sf_coulomb_wave_sphF_array(double lam_min,int kmax,double eta,double x,double* fc_array,double* F_exponent);
85-- 86--
86-- <http://www.google.com/search?q=gsl_sf_coulomb_wave_sphF_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 87-- <http://www.google.com/search?q=gsl_sf_coulomb_wave_sphF_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
87coulomb_wave_sphF_array :: Double -> Int -> Double -> Double -> Ptr Double -> Ptr Double -> Int 88coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt
88coulomb_wave_sphF_array = gsl_sf_coulomb_wave_sphF_array 89coulomb_wave_sphF_array = gsl_sf_coulomb_wave_sphF_array
89foreign import ccall "coulomb.h gsl_sf_coulomb_wave_sphF_array" gsl_sf_coulomb_wave_sphF_array :: Double -> Int -> Double -> Double -> Ptr Double -> Ptr Double -> Int 90foreign 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
90 91
91-- | wrapper for int gsl_sf_coulomb_CL_e(double L,double eta,gsl_sf_result* result); 92-- | wrapper for int gsl_sf_coulomb_CL_e(double L,double eta,gsl_sf_result* result);
92-- 93--
93-- <http://www.google.com/search?q=gsl_sf_coulomb_CL_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 94-- <http://www.google.com/search?q=gsl_sf_coulomb_CL_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
94coulomb_CL_e :: Double -> Double -> (Double,Double) 95coulomb_CL_e :: Double -> Double -> (Double,Double)
95coulomb_CL_e lL eta = createSFR "coulomb_CL_e" $ gsl_sf_coulomb_CL_e lL eta 96coulomb_CL_e lL eta = createSFR "coulomb_CL_e" $ gsl_sf_coulomb_CL_e lL eta
96foreign import ccall "coulomb.h gsl_sf_coulomb_CL_e" gsl_sf_coulomb_CL_e :: Double -> Double -> Ptr Double -> IO(Int) 97foreign import ccall "coulomb.h gsl_sf_coulomb_CL_e" gsl_sf_coulomb_CL_e :: Double -> Double -> Ptr () -> IO CInt
97 98
98-- | wrapper for int gsl_sf_coulomb_CL_array(double Lmin,int kmax,double eta,double* cl); 99-- | wrapper for int gsl_sf_coulomb_CL_array(double Lmin,int kmax,double eta,double* cl);
99-- 100--
100-- <http://www.google.com/search?q=gsl_sf_coulomb_CL_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 101-- <http://www.google.com/search?q=gsl_sf_coulomb_CL_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
101coulomb_CL_array :: Double -> Int -> Double -> Ptr Double -> Int 102coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt
102coulomb_CL_array = gsl_sf_coulomb_CL_array 103coulomb_CL_array = gsl_sf_coulomb_CL_array
103foreign import ccall "coulomb.h gsl_sf_coulomb_CL_array" gsl_sf_coulomb_CL_array :: Double -> Int -> Double -> Ptr Double -> Int 104foreign import ccall "coulomb.h 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 9578b1b..91a5dc6 100644
--- a/lib/Numeric/GSL/Special/Coupling.hs
+++ b/lib/Numeric/GSL/Special/Coupling.hs
@@ -9,7 +9,7 @@ Portability : uses ffi
9 9
10Wrappers for selected functions described at: 10Wrappers for selected functions described at:
11 11
12<http://www.gnu.org/software/gsl/manual/html_node/Coupling-Coefficients.html> 12<http://www.google.com/search?q=gsl_sf_coupling.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13 13
14-} 14-}
15------------------------------------------------------------ 15------------------------------------------------------------
@@ -23,59 +23,78 @@ module Numeric.GSL.Special.Coupling(
23, coupling_RacahW 23, coupling_RacahW
24, coupling_9j_e 24, coupling_9j_e
25, coupling_9j 25, coupling_9j
26-- , coupling_6j_INCORRECT_e
27-- , coupling_6j_INCORRECT
28) where 26) where
29 27
30import Foreign(Ptr) 28import Foreign(Ptr)
29import Foreign.C.Types(CInt)
31import Numeric.GSL.Special.Internal 30import Numeric.GSL.Special.Internal
32 31
33-- | wrapper for int gsl_sf_coupling_3j_e(int two_ja,int two_jb,int two_jc,int two_ma,int two_mb,int two_mc,gsl_sf_result* result); 32-- | wrapper for int gsl_sf_coupling_3j_e(int two_ja,int two_jb,int two_jc,int two_ma,int two_mb,int two_mc,gsl_sf_result* result);
34coupling_3j_e :: Int -> Int -> Int -> Int -> Int -> Int -> (Double,Double) 33--
34-- <http://www.google.com/search?q=gsl_sf_coupling_3j_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
35coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double)
35coupling_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 36coupling_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
36foreign import ccall "coupling.h gsl_sf_coupling_3j_e" gsl_sf_coupling_3j_e :: Int -> Int -> Int -> Int -> Int -> Int -> Ptr Double -> IO(Int) 37foreign import ccall "coupling.h gsl_sf_coupling_3j_e" gsl_sf_coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt
37 38
38-- | 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); 39-- | 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);
39coupling_3j :: Int -> Int -> Int -> Int -> Int -> Int -> Double 40--
41-- <http://www.google.com/search?q=gsl_sf_coupling_3j&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
42coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
40coupling_3j = gsl_sf_coupling_3j 43coupling_3j = gsl_sf_coupling_3j
41foreign import ccall "coupling.h gsl_sf_coupling_3j" gsl_sf_coupling_3j :: Int -> Int -> Int -> Int -> Int -> Int -> Double 44foreign import ccall "coupling.h gsl_sf_coupling_3j" gsl_sf_coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
42 45
43-- | 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); 46-- | 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);
44coupling_6j_e :: Int -> Int -> Int -> Int -> Int -> Int -> (Double,Double) 47--
48-- <http://www.google.com/search?q=gsl_sf_coupling_6j_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
49coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double)
45coupling_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 50coupling_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
46foreign import ccall "coupling.h gsl_sf_coupling_6j_e" gsl_sf_coupling_6j_e :: Int -> Int -> Int -> Int -> Int -> Int -> Ptr Double -> IO(Int) 51foreign import ccall "coupling.h gsl_sf_coupling_6j_e" gsl_sf_coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt
47 52
48-- | 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); 53-- | 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);
49coupling_6j :: Int -> Int -> Int -> Int -> Int -> Int -> Double 54--
55-- <http://www.google.com/search?q=gsl_sf_coupling_6j&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
56coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
50coupling_6j = gsl_sf_coupling_6j 57coupling_6j = gsl_sf_coupling_6j
51foreign import ccall "coupling.h gsl_sf_coupling_6j" gsl_sf_coupling_6j :: Int -> Int -> Int -> Int -> Int -> Int -> Double 58foreign import ccall "coupling.h gsl_sf_coupling_6j" gsl_sf_coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
52 59
53-- | 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); 60-- | 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);
54coupling_RacahW_e :: Int -> Int -> Int -> Int -> Int -> Int -> (Double,Double) 61--
62-- <http://www.google.com/search?q=gsl_sf_coupling_RacahW_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
63coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double)
55coupling_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 64coupling_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
56foreign import ccall "coupling.h gsl_sf_coupling_RacahW_e" gsl_sf_coupling_RacahW_e :: Int -> Int -> Int -> Int -> Int -> Int -> Ptr Double -> IO(Int) 65foreign import ccall "coupling.h gsl_sf_coupling_RacahW_e" gsl_sf_coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt
57 66
58-- | 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); 67-- | 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);
59coupling_RacahW :: Int -> Int -> Int -> Int -> Int -> Int -> Double 68--
69-- <http://www.google.com/search?q=gsl_sf_coupling_RacahW&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
70coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
60coupling_RacahW = gsl_sf_coupling_RacahW 71coupling_RacahW = gsl_sf_coupling_RacahW
61foreign import ccall "coupling.h gsl_sf_coupling_RacahW" gsl_sf_coupling_RacahW :: Int -> Int -> Int -> Int -> Int -> Int -> Double 72foreign import ccall "coupling.h gsl_sf_coupling_RacahW" gsl_sf_coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
62 73
63-- | 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); 74-- | 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);
64coupling_9j_e :: Int -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> (Double,Double) 75--
76-- <http://www.google.com/search?q=gsl_sf_coupling_9j_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
77coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double)
65coupling_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 78coupling_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
66foreign import ccall "coupling.h gsl_sf_coupling_9j_e" gsl_sf_coupling_9j_e :: Int -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> Ptr Double -> IO(Int) 79foreign 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
67 80
68-- | 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); 81-- | 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);
69coupling_9j :: Int -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> Double 82--
83-- <http://www.google.com/search?q=gsl_sf_coupling_9j&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
84coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
70coupling_9j = gsl_sf_coupling_9j 85coupling_9j = gsl_sf_coupling_9j
71foreign import ccall "coupling.h gsl_sf_coupling_9j" gsl_sf_coupling_9j :: Int -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> Double 86foreign import ccall "coupling.h gsl_sf_coupling_9j" gsl_sf_coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
72 87
73-- | 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); 88-- | 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);
74coupling_6j_INCORRECT_e :: Int -> Int -> Int -> Int -> Int -> Int -> (Double,Double) 89--
90-- <http://www.google.com/search?q=gsl_sf_coupling_6j_INCORRECT_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
91coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double)
75coupling_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 92coupling_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
76foreign import ccall "coupling.h gsl_sf_coupling_6j_INCORRECT_e" gsl_sf_coupling_6j_INCORRECT_e :: Int -> Int -> Int -> Int -> Int -> Int -> Ptr Double -> IO(Int) 93foreign 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
77 94
78-- | 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); 95-- | 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);
79coupling_6j_INCORRECT :: Int -> Int -> Int -> Int -> Int -> Int -> Double 96--
97-- <http://www.google.com/search?q=gsl_sf_coupling_6j_INCORRECT&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
98coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
80coupling_6j_INCORRECT = gsl_sf_coupling_6j_INCORRECT 99coupling_6j_INCORRECT = gsl_sf_coupling_6j_INCORRECT
81foreign import ccall "coupling.h gsl_sf_coupling_6j_INCORRECT" gsl_sf_coupling_6j_INCORRECT :: Int -> Int -> Int -> Int -> Int -> Int -> Double 100foreign import ccall "coupling.h 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 1d77a2b..3a47570 100644
--- a/lib/Numeric/GSL/Special/Dawson.hs
+++ b/lib/Numeric/GSL/Special/Dawson.hs
@@ -20,6 +20,7 @@ module Numeric.GSL.Special.Dawson(
20) where 20) where
21 21
22import Foreign(Ptr) 22import Foreign(Ptr)
23import Foreign.C.Types(CInt)
23import Numeric.GSL.Special.Internal 24import Numeric.GSL.Special.Internal
24 25
25-- | wrapper for int gsl_sf_dawson_e(double x,gsl_sf_result* result); 26-- | wrapper for int gsl_sf_dawson_e(double x,gsl_sf_result* result);
@@ -27,7 +28,7 @@ import Numeric.GSL.Special.Internal
27-- <http://www.google.com/search?q=gsl_sf_dawson_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 28-- <http://www.google.com/search?q=gsl_sf_dawson_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
28dawson_e :: Double -> (Double,Double) 29dawson_e :: Double -> (Double,Double)
29dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x 30dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x
30foreign import ccall "dawson.h gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr Double -> IO(Int) 31foreign import ccall "dawson.h gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt
31 32
32-- | wrapper for double gsl_sf_dawson(double x); 33-- | wrapper for double gsl_sf_dawson(double x);
33-- 34--
diff --git a/lib/Numeric/GSL/Special/Debye.hs b/lib/Numeric/GSL/Special/Debye.hs
index b8e9aca..c059cf1 100644
--- a/lib/Numeric/GSL/Special/Debye.hs
+++ b/lib/Numeric/GSL/Special/Debye.hs
@@ -23,9 +23,14 @@ module Numeric.GSL.Special.Debye(
23, debye_3 23, debye_3
24, debye_4_e 24, debye_4_e
25, debye_4 25, debye_4
26, debye_5_e
27, debye_5
28, debye_6_e
29, debye_6
26) where 30) where
27 31
28import Foreign(Ptr) 32import Foreign(Ptr)
33import Foreign.C.Types(CInt)
29import Numeric.GSL.Special.Internal 34import Numeric.GSL.Special.Internal
30 35
31-- | wrapper for int gsl_sf_debye_1_e(double x,gsl_sf_result* result); 36-- | wrapper for int gsl_sf_debye_1_e(double x,gsl_sf_result* result);
@@ -33,7 +38,7 @@ import Numeric.GSL.Special.Internal
33-- <http://www.google.com/search?q=gsl_sf_debye_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 38-- <http://www.google.com/search?q=gsl_sf_debye_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
34debye_1_e :: Double -> (Double,Double) 39debye_1_e :: Double -> (Double,Double)
35debye_1_e x = createSFR "debye_1_e" $ gsl_sf_debye_1_e x 40debye_1_e x = createSFR "debye_1_e" $ gsl_sf_debye_1_e x
36foreign import ccall "debye.h gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr Double -> IO(Int) 41foreign import ccall "debye.h gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr () -> IO CInt
37 42
38-- | wrapper for double gsl_sf_debye_1(double x); 43-- | wrapper for double gsl_sf_debye_1(double x);
39-- 44--
@@ -47,7 +52,7 @@ foreign import ccall "debye.h gsl_sf_debye_1" gsl_sf_debye_1 :: Double -> Double
47-- <http://www.google.com/search?q=gsl_sf_debye_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 52-- <http://www.google.com/search?q=gsl_sf_debye_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
48debye_2_e :: Double -> (Double,Double) 53debye_2_e :: Double -> (Double,Double)
49debye_2_e x = createSFR "debye_2_e" $ gsl_sf_debye_2_e x 54debye_2_e x = createSFR "debye_2_e" $ gsl_sf_debye_2_e x
50foreign import ccall "debye.h gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr Double -> IO(Int) 55foreign import ccall "debye.h gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr () -> IO CInt
51 56
52-- | wrapper for double gsl_sf_debye_2(double x); 57-- | wrapper for double gsl_sf_debye_2(double x);
53-- 58--
@@ -61,7 +66,7 @@ foreign import ccall "debye.h gsl_sf_debye_2" gsl_sf_debye_2 :: Double -> Double
61-- <http://www.google.com/search?q=gsl_sf_debye_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 66-- <http://www.google.com/search?q=gsl_sf_debye_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
62debye_3_e :: Double -> (Double,Double) 67debye_3_e :: Double -> (Double,Double)
63debye_3_e x = createSFR "debye_3_e" $ gsl_sf_debye_3_e x 68debye_3_e x = createSFR "debye_3_e" $ gsl_sf_debye_3_e x
64foreign import ccall "debye.h gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr Double -> IO(Int) 69foreign import ccall "debye.h gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr () -> IO CInt
65 70
66-- | wrapper for double gsl_sf_debye_3(double x); 71-- | wrapper for double gsl_sf_debye_3(double x);
67-- 72--
@@ -75,7 +80,7 @@ foreign import ccall "debye.h gsl_sf_debye_3" gsl_sf_debye_3 :: Double -> Double
75-- <http://www.google.com/search?q=gsl_sf_debye_4_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 80-- <http://www.google.com/search?q=gsl_sf_debye_4_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
76debye_4_e :: Double -> (Double,Double) 81debye_4_e :: Double -> (Double,Double)
77debye_4_e x = createSFR "debye_4_e" $ gsl_sf_debye_4_e x 82debye_4_e x = createSFR "debye_4_e" $ gsl_sf_debye_4_e x
78foreign import ccall "debye.h gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr Double -> IO(Int) 83foreign import ccall "debye.h gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr () -> IO CInt
79 84
80-- | wrapper for double gsl_sf_debye_4(double x); 85-- | wrapper for double gsl_sf_debye_4(double x);
81-- 86--
@@ -83,3 +88,31 @@ foreign import ccall "debye.h gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Pt
83debye_4 :: Double -> Double 88debye_4 :: Double -> Double
84debye_4 = gsl_sf_debye_4 89debye_4 = gsl_sf_debye_4
85foreign import ccall "debye.h gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double 90foreign import ccall "debye.h gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double
91
92-- | wrapper for int gsl_sf_debye_5_e(double x,gsl_sf_result* result);
93--
94-- <http://www.google.com/search?q=gsl_sf_debye_5_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
95debye_5_e :: Double -> (Double,Double)
96debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x
97foreign import ccall "debye.h gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt
98
99-- | wrapper for double gsl_sf_debye_5(double x);
100--
101-- <http://www.google.com/search?q=gsl_sf_debye_5&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
102debye_5 :: Double -> Double
103debye_5 = gsl_sf_debye_5
104foreign import ccall "debye.h gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double
105
106-- | wrapper for int gsl_sf_debye_6_e(double x,gsl_sf_result* result);
107--
108-- <http://www.google.com/search?q=gsl_sf_debye_6_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
109debye_6_e :: Double -> (Double,Double)
110debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x
111foreign import ccall "debye.h gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt
112
113-- | wrapper for double gsl_sf_debye_6(double x);
114--
115-- <http://www.google.com/search?q=gsl_sf_debye_6&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
116debye_6 :: Double -> Double
117debye_6 = gsl_sf_debye_6
118foreign import ccall "debye.h 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 e7693da..eee33ac 100644
--- a/lib/Numeric/GSL/Special/Dilog.hs
+++ b/lib/Numeric/GSL/Special/Dilog.hs
@@ -20,6 +20,7 @@ module Numeric.GSL.Special.Dilog(
20) where 20) where
21 21
22import Foreign(Ptr) 22import Foreign(Ptr)
23import Foreign.C.Types(CInt)
23import Numeric.GSL.Special.Internal 24import Numeric.GSL.Special.Internal
24 25
25-- | wrapper for int gsl_sf_dilog_e(double x,gsl_sf_result* result); 26-- | wrapper for int gsl_sf_dilog_e(double x,gsl_sf_result* result);
@@ -27,7 +28,7 @@ import Numeric.GSL.Special.Internal
27-- <http://www.google.com/search?q=gsl_sf_dilog_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 28-- <http://www.google.com/search?q=gsl_sf_dilog_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
28dilog_e :: Double -> (Double,Double) 29dilog_e :: Double -> (Double,Double)
29dilog_e x = createSFR "dilog_e" $ gsl_sf_dilog_e x 30dilog_e x = createSFR "dilog_e" $ gsl_sf_dilog_e x
30foreign import ccall "dilog.h gsl_sf_dilog_e" gsl_sf_dilog_e :: Double -> Ptr Double -> IO(Int) 31foreign import ccall "dilog.h gsl_sf_dilog_e" gsl_sf_dilog_e :: Double -> Ptr () -> IO CInt
31 32
32-- | wrapper for double gsl_sf_dilog(double x); 33-- | wrapper for double gsl_sf_dilog(double x);
33-- 34--
@@ -39,20 +40,20 @@ foreign import ccall "dilog.h gsl_sf_dilog" gsl_sf_dilog :: Double -> Double
39-- | wrapper for int gsl_sf_complex_dilog_xy_e(double x,double y,gsl_sf_result* result_re,gsl_sf_result* result_im); 40-- | wrapper for int gsl_sf_complex_dilog_xy_e(double x,double y,gsl_sf_result* result_re,gsl_sf_result* result_im);
40-- 41--
41-- <http://www.google.com/search?q=gsl_sf_complex_dilog_xy_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 42-- <http://www.google.com/search?q=gsl_sf_complex_dilog_xy_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
42complex_dilog_xy_e :: Double -> Double -> Ptr Double -> (Double,Double) 43complex_dilog_xy_e :: Double -> Double -> Ptr () -> (Double,Double)
43complex_dilog_xy_e x y result_re = createSFR "complex_dilog_xy_e" $ gsl_sf_complex_dilog_xy_e x y result_re 44complex_dilog_xy_e x y result_re = createSFR "complex_dilog_xy_e" $ gsl_sf_complex_dilog_xy_e x y result_re
44foreign import ccall "dilog.h gsl_sf_complex_dilog_xy_e" gsl_sf_complex_dilog_xy_e :: Double -> Double -> Ptr Double -> Ptr Double -> IO(Int) 45foreign import ccall "dilog.h gsl_sf_complex_dilog_xy_e" gsl_sf_complex_dilog_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
45 46
46-- | wrapper for int gsl_sf_complex_dilog_e(double r,double theta,gsl_sf_result* result_re,gsl_sf_result* result_im); 47-- | wrapper for int gsl_sf_complex_dilog_e(double r,double theta,gsl_sf_result* result_re,gsl_sf_result* result_im);
47-- 48--
48-- <http://www.google.com/search?q=gsl_sf_complex_dilog_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 49-- <http://www.google.com/search?q=gsl_sf_complex_dilog_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
49complex_dilog_e :: Double -> Double -> Ptr Double -> (Double,Double) 50complex_dilog_e :: Double -> Double -> Ptr () -> (Double,Double)
50complex_dilog_e r theta result_re = createSFR "complex_dilog_e" $ gsl_sf_complex_dilog_e r theta result_re 51complex_dilog_e r theta result_re = createSFR "complex_dilog_e" $ gsl_sf_complex_dilog_e r theta result_re
51foreign import ccall "dilog.h gsl_sf_complex_dilog_e" gsl_sf_complex_dilog_e :: Double -> Double -> Ptr Double -> Ptr Double -> IO(Int) 52foreign import ccall "dilog.h gsl_sf_complex_dilog_e" gsl_sf_complex_dilog_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
52 53
53-- | wrapper for int gsl_sf_complex_spence_xy_e(double x,double y,gsl_sf_result* real_sp,gsl_sf_result* imag_sp); 54-- | wrapper for int gsl_sf_complex_spence_xy_e(double x,double y,gsl_sf_result* real_sp,gsl_sf_result* imag_sp);
54-- 55--
55-- <http://www.google.com/search?q=gsl_sf_complex_spence_xy_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 56-- <http://www.google.com/search?q=gsl_sf_complex_spence_xy_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
56complex_spence_xy_e :: Double -> Double -> Ptr Double -> (Double,Double) 57complex_spence_xy_e :: Double -> Double -> Ptr () -> (Double,Double)
57complex_spence_xy_e x y real_sp = createSFR "complex_spence_xy_e" $ gsl_sf_complex_spence_xy_e x y real_sp 58complex_spence_xy_e x y real_sp = createSFR "complex_spence_xy_e" $ gsl_sf_complex_spence_xy_e x y real_sp
58foreign import ccall "dilog.h gsl_sf_complex_spence_xy_e" gsl_sf_complex_spence_xy_e :: Double -> Double -> Ptr Double -> Ptr Double -> IO(Int) 59foreign import ccall "dilog.h 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 0312ada..7744778 100644
--- a/lib/Numeric/GSL/Special/Elementary.hs
+++ b/lib/Numeric/GSL/Special/Elementary.hs
@@ -21,6 +21,7 @@ module Numeric.GSL.Special.Elementary(
21) where 21) where
22 22
23import Foreign(Ptr) 23import Foreign(Ptr)
24import Foreign.C.Types(CInt)
24import Numeric.GSL.Special.Internal 25import Numeric.GSL.Special.Internal
25 26
26-- | wrapper for int gsl_sf_multiply_e(double x,double y,gsl_sf_result* result); 27-- | wrapper for int gsl_sf_multiply_e(double x,double y,gsl_sf_result* result);
@@ -28,7 +29,7 @@ import Numeric.GSL.Special.Internal
28-- <http://www.google.com/search?q=gsl_sf_multiply_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 29-- <http://www.google.com/search?q=gsl_sf_multiply_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
29multiply_e :: Double -> Double -> (Double,Double) 30multiply_e :: Double -> Double -> (Double,Double)
30multiply_e x y = createSFR "multiply_e" $ gsl_sf_multiply_e x y 31multiply_e x y = createSFR "multiply_e" $ gsl_sf_multiply_e x y
31foreign import ccall "elementary.h gsl_sf_multiply_e" gsl_sf_multiply_e :: Double -> Double -> Ptr Double -> IO(Int) 32foreign import ccall "elementary.h gsl_sf_multiply_e" gsl_sf_multiply_e :: Double -> Double -> Ptr () -> IO CInt
32 33
33-- | wrapper for double gsl_sf_multiply(double x,double y); 34-- | wrapper for double gsl_sf_multiply(double x,double y);
34-- 35--
@@ -42,4 +43,4 @@ foreign import ccall "elementary.h gsl_sf_multiply" gsl_sf_multiply :: Double ->
42-- <http://www.google.com/search?q=gsl_sf_multiply_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 43-- <http://www.google.com/search?q=gsl_sf_multiply_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
43multiply_err_e :: Double -> Double -> Double -> Double -> (Double,Double) 44multiply_err_e :: Double -> Double -> Double -> Double -> (Double,Double)
44multiply_err_e x dx y dy = createSFR "multiply_err_e" $ gsl_sf_multiply_err_e x dx y dy 45multiply_err_e x dx y dy = createSFR "multiply_err_e" $ gsl_sf_multiply_err_e x dx y dy
45foreign import ccall "elementary.h gsl_sf_multiply_err_e" gsl_sf_multiply_err_e :: Double -> Double -> Double -> Double -> Ptr Double -> IO(Int) 46foreign import ccall "elementary.h 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 798531a..52ca412 100644
--- a/lib/Numeric/GSL/Special/Ellint.hs
+++ b/lib/Numeric/GSL/Special/Ellint.hs
@@ -19,6 +19,10 @@ module Numeric.GSL.Special.Ellint(
19, ellint_Kcomp 19, ellint_Kcomp
20, ellint_Ecomp_e 20, ellint_Ecomp_e
21, ellint_Ecomp 21, ellint_Ecomp
22, ellint_Pcomp_e
23, ellint_Pcomp
24, ellint_Dcomp_e
25, ellint_Dcomp
22, ellint_F_e 26, ellint_F_e
23, ellint_F 27, ellint_F
24, ellint_E_e 28, ellint_E_e
@@ -38,6 +42,7 @@ module Numeric.GSL.Special.Ellint(
38) where 42) where
39 43
40import Foreign(Ptr) 44import Foreign(Ptr)
45import Foreign.C.Types(CInt)
41import Numeric.GSL.Special.Internal 46import Numeric.GSL.Special.Internal
42 47
43-- | wrapper for int gsl_sf_ellint_Kcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result); 48-- | wrapper for int gsl_sf_ellint_Kcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result);
@@ -45,7 +50,7 @@ import Numeric.GSL.Special.Internal
45-- <http://www.google.com/search?q=gsl_sf_ellint_Kcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 50-- <http://www.google.com/search?q=gsl_sf_ellint_Kcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
46ellint_Kcomp_e :: Double -> Precision -> (Double,Double) 51ellint_Kcomp_e :: Double -> Precision -> (Double,Double)
47ellint_Kcomp_e k mode = createSFR "ellint_Kcomp_e" $ gsl_sf_ellint_Kcomp_e k (precCode mode) 52ellint_Kcomp_e k mode = createSFR "ellint_Kcomp_e" $ gsl_sf_ellint_Kcomp_e k (precCode mode)
48foreign import ccall "ellint.h gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 53foreign import ccall "ellint.h gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
49 54
50-- | wrapper for double gsl_sf_ellint_Kcomp(double k,gsl_mode_t mode); 55-- | wrapper for double gsl_sf_ellint_Kcomp(double k,gsl_mode_t mode);
51-- 56--
@@ -59,7 +64,7 @@ foreign import ccall "ellint.h gsl_sf_ellint_Kcomp" gsl_sf_ellint_Kcomp :: Doubl
59-- <http://www.google.com/search?q=gsl_sf_ellint_Ecomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 64-- <http://www.google.com/search?q=gsl_sf_ellint_Ecomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
60ellint_Ecomp_e :: Double -> Precision -> (Double,Double) 65ellint_Ecomp_e :: Double -> Precision -> (Double,Double)
61ellint_Ecomp_e k mode = createSFR "ellint_Ecomp_e" $ gsl_sf_ellint_Ecomp_e k (precCode mode) 66ellint_Ecomp_e k mode = createSFR "ellint_Ecomp_e" $ gsl_sf_ellint_Ecomp_e k (precCode mode)
62foreign import ccall "ellint.h gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 67foreign import ccall "ellint.h gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
63 68
64-- | wrapper for double gsl_sf_ellint_Ecomp(double k,gsl_mode_t mode); 69-- | wrapper for double gsl_sf_ellint_Ecomp(double k,gsl_mode_t mode);
65-- 70--
@@ -68,12 +73,40 @@ ellint_Ecomp :: Double -> Precision -> Double
68ellint_Ecomp k mode = gsl_sf_ellint_Ecomp k (precCode mode) 73ellint_Ecomp k mode = gsl_sf_ellint_Ecomp k (precCode mode)
69foreign import ccall "ellint.h gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double 74foreign import ccall "ellint.h gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double
70 75
76-- | wrapper for int gsl_sf_ellint_Pcomp_e(double k,double n,gsl_mode_t mode,gsl_sf_result* result);
77--
78-- <http://www.google.com/search?q=gsl_sf_ellint_Pcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
79ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double)
80ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n (precCode mode)
81foreign import ccall "ellint.h gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
82
83-- | wrapper for double gsl_sf_ellint_Pcomp(double k,double n,gsl_mode_t mode);
84--
85-- <http://www.google.com/search?q=gsl_sf_ellint_Pcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
86ellint_Pcomp :: Double -> Double -> Precision -> Double
87ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n (precCode mode)
88foreign import ccall "ellint.h gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double
89
90-- | wrapper for int gsl_sf_ellint_Dcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result);
91--
92-- <http://www.google.com/search?q=gsl_sf_ellint_Dcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
93ellint_Dcomp_e :: Double -> Precision -> (Double,Double)
94ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k (precCode mode)
95foreign import ccall "ellint.h gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
96
97-- | wrapper for double gsl_sf_ellint_Dcomp(double k,gsl_mode_t mode);
98--
99-- <http://www.google.com/search?q=gsl_sf_ellint_Dcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
100ellint_Dcomp :: Double -> Precision -> Double
101ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k (precCode mode)
102foreign import ccall "ellint.h gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double
103
71-- | wrapper for int gsl_sf_ellint_F_e(double phi,double k,gsl_mode_t mode,gsl_sf_result* result); 104-- | wrapper for int gsl_sf_ellint_F_e(double phi,double k,gsl_mode_t mode,gsl_sf_result* result);
72-- 105--
73-- <http://www.google.com/search?q=gsl_sf_ellint_F_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 106-- <http://www.google.com/search?q=gsl_sf_ellint_F_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
74ellint_F_e :: Double -> Double -> Precision -> (Double,Double) 107ellint_F_e :: Double -> Double -> Precision -> (Double,Double)
75ellint_F_e phi k mode = createSFR "ellint_F_e" $ gsl_sf_ellint_F_e phi k (precCode mode) 108ellint_F_e phi k mode = createSFR "ellint_F_e" $ gsl_sf_ellint_F_e phi k (precCode mode)
76foreign import ccall "ellint.h gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 109foreign import ccall "ellint.h gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
77 110
78-- | wrapper for double gsl_sf_ellint_F(double phi,double k,gsl_mode_t mode); 111-- | wrapper for double gsl_sf_ellint_F(double phi,double k,gsl_mode_t mode);
79-- 112--
@@ -87,7 +120,7 @@ foreign import ccall "ellint.h gsl_sf_ellint_F" gsl_sf_ellint_F :: Double -> Dou
87-- <http://www.google.com/search?q=gsl_sf_ellint_E_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 120-- <http://www.google.com/search?q=gsl_sf_ellint_E_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
88ellint_E_e :: Double -> Double -> Precision -> (Double,Double) 121ellint_E_e :: Double -> Double -> Precision -> (Double,Double)
89ellint_E_e phi k mode = createSFR "ellint_E_e" $ gsl_sf_ellint_E_e phi k (precCode mode) 122ellint_E_e phi k mode = createSFR "ellint_E_e" $ gsl_sf_ellint_E_e phi k (precCode mode)
90foreign import ccall "ellint.h gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 123foreign import ccall "ellint.h gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
91 124
92-- | wrapper for double gsl_sf_ellint_E(double phi,double k,gsl_mode_t mode); 125-- | wrapper for double gsl_sf_ellint_E(double phi,double k,gsl_mode_t mode);
93-- 126--
@@ -101,7 +134,7 @@ foreign import ccall "ellint.h gsl_sf_ellint_E" gsl_sf_ellint_E :: Double -> Dou
101-- <http://www.google.com/search?q=gsl_sf_ellint_P_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 134-- <http://www.google.com/search?q=gsl_sf_ellint_P_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
102ellint_P_e :: Double -> Double -> Double -> Precision -> (Double,Double) 135ellint_P_e :: Double -> Double -> Double -> Precision -> (Double,Double)
103ellint_P_e phi k n mode = createSFR "ellint_P_e" $ gsl_sf_ellint_P_e phi k n (precCode mode) 136ellint_P_e phi k n mode = createSFR "ellint_P_e" $ gsl_sf_ellint_P_e phi k n (precCode mode)
104foreign import ccall "ellint.h gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 137foreign import ccall "ellint.h gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
105 138
106-- | wrapper for double gsl_sf_ellint_P(double phi,double k,double n,gsl_mode_t mode); 139-- | wrapper for double gsl_sf_ellint_P(double phi,double k,double n,gsl_mode_t mode);
107-- 140--
@@ -115,7 +148,7 @@ foreign import ccall "ellint.h gsl_sf_ellint_P" gsl_sf_ellint_P :: Double -> Dou
115-- <http://www.google.com/search?q=gsl_sf_ellint_D_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 148-- <http://www.google.com/search?q=gsl_sf_ellint_D_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
116ellint_D_e :: Double -> Double -> Double -> Precision -> (Double,Double) 149ellint_D_e :: Double -> Double -> Double -> Precision -> (Double,Double)
117ellint_D_e phi k n mode = createSFR "ellint_D_e" $ gsl_sf_ellint_D_e phi k n (precCode mode) 150ellint_D_e phi k n mode = createSFR "ellint_D_e" $ gsl_sf_ellint_D_e phi k n (precCode mode)
118foreign import ccall "ellint.h gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 151foreign import ccall "ellint.h gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
119 152
120-- | wrapper for double gsl_sf_ellint_D(double phi,double k,double n,gsl_mode_t mode); 153-- | wrapper for double gsl_sf_ellint_D(double phi,double k,double n,gsl_mode_t mode);
121-- 154--
@@ -129,7 +162,7 @@ foreign import ccall "ellint.h gsl_sf_ellint_D" gsl_sf_ellint_D :: Double -> Dou
129-- <http://www.google.com/search?q=gsl_sf_ellint_RC_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 162-- <http://www.google.com/search?q=gsl_sf_ellint_RC_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
130ellint_RC_e :: Double -> Double -> Precision -> (Double,Double) 163ellint_RC_e :: Double -> Double -> Precision -> (Double,Double)
131ellint_RC_e x y mode = createSFR "ellint_RC_e" $ gsl_sf_ellint_RC_e x y (precCode mode) 164ellint_RC_e x y mode = createSFR "ellint_RC_e" $ gsl_sf_ellint_RC_e x y (precCode mode)
132foreign import ccall "ellint.h gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 165foreign import ccall "ellint.h gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
133 166
134-- | wrapper for double gsl_sf_ellint_RC(double x,double y,gsl_mode_t mode); 167-- | wrapper for double gsl_sf_ellint_RC(double x,double y,gsl_mode_t mode);
135-- 168--
@@ -143,7 +176,7 @@ foreign import ccall "ellint.h gsl_sf_ellint_RC" gsl_sf_ellint_RC :: Double -> D
143-- <http://www.google.com/search?q=gsl_sf_ellint_RD_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 176-- <http://www.google.com/search?q=gsl_sf_ellint_RD_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
144ellint_RD_e :: Double -> Double -> Double -> Precision -> (Double,Double) 177ellint_RD_e :: Double -> Double -> Double -> Precision -> (Double,Double)
145ellint_RD_e x y z mode = createSFR "ellint_RD_e" $ gsl_sf_ellint_RD_e x y z (precCode mode) 178ellint_RD_e x y z mode = createSFR "ellint_RD_e" $ gsl_sf_ellint_RD_e x y z (precCode mode)
146foreign import ccall "ellint.h gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 179foreign import ccall "ellint.h gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
147 180
148-- | wrapper for double gsl_sf_ellint_RD(double x,double y,double z,gsl_mode_t mode); 181-- | wrapper for double gsl_sf_ellint_RD(double x,double y,double z,gsl_mode_t mode);
149-- 182--
@@ -157,7 +190,7 @@ foreign import ccall "ellint.h gsl_sf_ellint_RD" gsl_sf_ellint_RD :: Double -> D
157-- <http://www.google.com/search?q=gsl_sf_ellint_RF_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 190-- <http://www.google.com/search?q=gsl_sf_ellint_RF_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
158ellint_RF_e :: Double -> Double -> Double -> Precision -> (Double,Double) 191ellint_RF_e :: Double -> Double -> Double -> Precision -> (Double,Double)
159ellint_RF_e x y z mode = createSFR "ellint_RF_e" $ gsl_sf_ellint_RF_e x y z (precCode mode) 192ellint_RF_e x y z mode = createSFR "ellint_RF_e" $ gsl_sf_ellint_RF_e x y z (precCode mode)
160foreign import ccall "ellint.h gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 193foreign import ccall "ellint.h gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
161 194
162-- | wrapper for double gsl_sf_ellint_RF(double x,double y,double z,gsl_mode_t mode); 195-- | wrapper for double gsl_sf_ellint_RF(double x,double y,double z,gsl_mode_t mode);
163-- 196--
@@ -171,7 +204,7 @@ foreign import ccall "ellint.h gsl_sf_ellint_RF" gsl_sf_ellint_RF :: Double -> D
171-- <http://www.google.com/search?q=gsl_sf_ellint_RJ_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 204-- <http://www.google.com/search?q=gsl_sf_ellint_RJ_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
172ellint_RJ_e :: Double -> Double -> Double -> Double -> Precision -> (Double,Double) 205ellint_RJ_e :: Double -> Double -> Double -> Double -> Precision -> (Double,Double)
173ellint_RJ_e x y z p mode = createSFR "ellint_RJ_e" $ gsl_sf_ellint_RJ_e x y z p (precCode mode) 206ellint_RJ_e x y z p mode = createSFR "ellint_RJ_e" $ gsl_sf_ellint_RJ_e x y z p (precCode mode)
174foreign import ccall "ellint.h gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 207foreign import ccall "ellint.h gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
175 208
176-- | wrapper for double gsl_sf_ellint_RJ(double x,double y,double z,double p,gsl_mode_t mode); 209-- | wrapper for double gsl_sf_ellint_RJ(double x,double y,double z,double p,gsl_mode_t mode);
177-- 210--
diff --git a/lib/Numeric/GSL/Special/Erf.hs b/lib/Numeric/GSL/Special/Erf.hs
index ec73980..347e621 100644
--- a/lib/Numeric/GSL/Special/Erf.hs
+++ b/lib/Numeric/GSL/Special/Erf.hs
@@ -30,6 +30,7 @@ module Numeric.GSL.Special.Erf(
30) where 30) where
31 31
32import Foreign(Ptr) 32import Foreign(Ptr)
33import Foreign.C.Types(CInt)
33import Numeric.GSL.Special.Internal 34import Numeric.GSL.Special.Internal
34 35
35-- | wrapper for int gsl_sf_erfc_e(double x,gsl_sf_result* result); 36-- | wrapper for int gsl_sf_erfc_e(double x,gsl_sf_result* result);
@@ -37,7 +38,7 @@ import Numeric.GSL.Special.Internal
37-- <http://www.google.com/search?q=gsl_sf_erfc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 38-- <http://www.google.com/search?q=gsl_sf_erfc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
38erfc_e :: Double -> (Double,Double) 39erfc_e :: Double -> (Double,Double)
39erfc_e x = createSFR "erfc_e" $ gsl_sf_erfc_e x 40erfc_e x = createSFR "erfc_e" $ gsl_sf_erfc_e x
40foreign import ccall "erf.h gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr Double -> IO(Int) 41foreign import ccall "erf.h gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr () -> IO CInt
41 42
42-- | wrapper for double gsl_sf_erfc(double x); 43-- | wrapper for double gsl_sf_erfc(double x);
43-- 44--
@@ -51,7 +52,7 @@ foreign import ccall "erf.h gsl_sf_erfc" gsl_sf_erfc :: Double -> Double
51-- <http://www.google.com/search?q=gsl_sf_log_erfc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 52-- <http://www.google.com/search?q=gsl_sf_log_erfc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
52log_erfc_e :: Double -> (Double,Double) 53log_erfc_e :: Double -> (Double,Double)
53log_erfc_e x = createSFR "log_erfc_e" $ gsl_sf_log_erfc_e x 54log_erfc_e x = createSFR "log_erfc_e" $ gsl_sf_log_erfc_e x
54foreign import ccall "erf.h gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr Double -> IO(Int) 55foreign import ccall "erf.h gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr () -> IO CInt
55 56
56-- | wrapper for double gsl_sf_log_erfc(double x); 57-- | wrapper for double gsl_sf_log_erfc(double x);
57-- 58--
@@ -65,7 +66,7 @@ foreign import ccall "erf.h gsl_sf_log_erfc" gsl_sf_log_erfc :: Double -> Double
65-- <http://www.google.com/search?q=gsl_sf_erf_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 66-- <http://www.google.com/search?q=gsl_sf_erf_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
66erf_e :: Double -> (Double,Double) 67erf_e :: Double -> (Double,Double)
67erf_e x = createSFR "erf_e" $ gsl_sf_erf_e x 68erf_e x = createSFR "erf_e" $ gsl_sf_erf_e x
68foreign import ccall "erf.h gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr Double -> IO(Int) 69foreign import ccall "erf.h gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr () -> IO CInt
69 70
70-- | wrapper for double gsl_sf_erf(double x); 71-- | wrapper for double gsl_sf_erf(double x);
71-- 72--
@@ -79,14 +80,14 @@ foreign import ccall "erf.h gsl_sf_erf" gsl_sf_erf :: Double -> Double
79-- <http://www.google.com/search?q=gsl_sf_erf_Z_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 80-- <http://www.google.com/search?q=gsl_sf_erf_Z_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
80erf_Z_e :: Double -> (Double,Double) 81erf_Z_e :: Double -> (Double,Double)
81erf_Z_e x = createSFR "erf_Z_e" $ gsl_sf_erf_Z_e x 82erf_Z_e x = createSFR "erf_Z_e" $ gsl_sf_erf_Z_e x
82foreign import ccall "erf.h gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr Double -> IO(Int) 83foreign import ccall "erf.h gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr () -> IO CInt
83 84
84-- | wrapper for int gsl_sf_erf_Q_e(double x,gsl_sf_result* result); 85-- | wrapper for int gsl_sf_erf_Q_e(double x,gsl_sf_result* result);
85-- 86--
86-- <http://www.google.com/search?q=gsl_sf_erf_Q_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 87-- <http://www.google.com/search?q=gsl_sf_erf_Q_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
87erf_Q_e :: Double -> (Double,Double) 88erf_Q_e :: Double -> (Double,Double)
88erf_Q_e x = createSFR "erf_Q_e" $ gsl_sf_erf_Q_e x 89erf_Q_e x = createSFR "erf_Q_e" $ gsl_sf_erf_Q_e x
89foreign import ccall "erf.h gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr Double -> IO(Int) 90foreign import ccall "erf.h gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr () -> IO CInt
90 91
91-- | wrapper for double gsl_sf_erf_Z(double x); 92-- | wrapper for double gsl_sf_erf_Z(double x);
92-- 93--
@@ -107,7 +108,7 @@ foreign import ccall "erf.h gsl_sf_erf_Q" gsl_sf_erf_Q :: Double -> Double
107-- <http://www.google.com/search?q=gsl_sf_hazard_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 108-- <http://www.google.com/search?q=gsl_sf_hazard_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
108hazard_e :: Double -> (Double,Double) 109hazard_e :: Double -> (Double,Double)
109hazard_e x = createSFR "hazard_e" $ gsl_sf_hazard_e x 110hazard_e x = createSFR "hazard_e" $ gsl_sf_hazard_e x
110foreign import ccall "erf.h gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr Double -> IO(Int) 111foreign import ccall "erf.h gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr () -> IO CInt
111 112
112-- | wrapper for double gsl_sf_hazard(double x); 113-- | wrapper for double gsl_sf_hazard(double x);
113-- 114--
diff --git a/lib/Numeric/GSL/Special/Exp.hs b/lib/Numeric/GSL/Special/Exp.hs
index 2787df4..52ec6df 100644
--- a/lib/Numeric/GSL/Special/Exp.hs
+++ b/lib/Numeric/GSL/Special/Exp.hs
@@ -9,7 +9,7 @@ Portability : uses ffi
9 9
10Wrappers for selected functions described at: 10Wrappers for selected functions described at:
11 11
12<http://www.gnu.org/software/gsl/manual/html_node/Exponential-Functions.html> 12<http://www.google.com/search?q=gsl_sf_exp.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13 13
14-} 14-}
15------------------------------------------------------------ 15------------------------------------------------------------
@@ -36,94 +36,131 @@ module Numeric.GSL.Special.Exp(
36) where 36) where
37 37
38import Foreign(Ptr) 38import Foreign(Ptr)
39import Foreign.C.Types(CInt)
39import Numeric.GSL.Special.Internal 40import Numeric.GSL.Special.Internal
40 41
41-- | wrapper for int gsl_sf_exp_e(double x,gsl_sf_result* result); 42-- | wrapper for int gsl_sf_exp_e(double x,gsl_sf_result* result);
43--
44-- <http://www.google.com/search?q=gsl_sf_exp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
42exp_e :: Double -> (Double,Double) 45exp_e :: Double -> (Double,Double)
43exp_e x = createSFR "exp_e" $ gsl_sf_exp_e x 46exp_e x = createSFR "exp_e" $ gsl_sf_exp_e x
44foreign import ccall "exp.h gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr Double -> IO(Int) 47foreign import ccall "exp.h gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr () -> IO CInt
45 48
46-- | wrapper for double gsl_sf_exp(double x); 49-- | wrapper for double gsl_sf_exp(double x);
50--
51-- <http://www.google.com/search?q=gsl_sf_exp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
47exp :: Double -> Double 52exp :: Double -> Double
48exp = gsl_sf_exp 53exp = gsl_sf_exp
49foreign import ccall "exp.h gsl_sf_exp" gsl_sf_exp :: Double -> Double 54foreign import ccall "exp.h gsl_sf_exp" gsl_sf_exp :: Double -> Double
50 55
51-- | wrapper for int gsl_sf_exp_e10_e(double x,gsl_sf_result_e10* result); 56-- | wrapper for int gsl_sf_exp_e10_e(double x,gsl_sf_result_e10* result);
57--
58-- <http://www.google.com/search?q=gsl_sf_exp_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
52exp_e10_e :: Double -> (Double,Int,Double) 59exp_e10_e :: Double -> (Double,Int,Double)
53exp_e10_e x = createSFR_E10 "exp_e10_e" $ gsl_sf_exp_e10_e x 60exp_e10_e x = createSFR_E10 "exp_e10_e" $ gsl_sf_exp_e10_e x
54foreign import ccall "exp.h gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO(Int) 61foreign import ccall "exp.h gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO CInt
55 62
56-- | wrapper for int gsl_sf_exp_mult_e(double x,double y,gsl_sf_result* result); 63-- | wrapper for int gsl_sf_exp_mult_e(double x,double y,gsl_sf_result* result);
64--
65-- <http://www.google.com/search?q=gsl_sf_exp_mult_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
57exp_mult_e :: Double -> Double -> (Double,Double) 66exp_mult_e :: Double -> Double -> (Double,Double)
58exp_mult_e x y = createSFR "exp_mult_e" $ gsl_sf_exp_mult_e x y 67exp_mult_e x y = createSFR "exp_mult_e" $ gsl_sf_exp_mult_e x y
59foreign import ccall "exp.h gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr Double -> IO(Int) 68foreign import ccall "exp.h gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr () -> IO CInt
60 69
61-- | wrapper for double gsl_sf_exp_mult(double x,double y); 70-- | wrapper for double gsl_sf_exp_mult(double x,double y);
71--
72-- <http://www.google.com/search?q=gsl_sf_exp_mult&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
62exp_mult :: Double -> Double -> Double 73exp_mult :: Double -> Double -> Double
63exp_mult = gsl_sf_exp_mult 74exp_mult = gsl_sf_exp_mult
64foreign import ccall "exp.h gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double 75foreign import ccall "exp.h gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double
65 76
66-- | wrapper for int gsl_sf_exp_mult_e10_e(double x,double y,gsl_sf_result_e10* result); 77-- | wrapper for int gsl_sf_exp_mult_e10_e(double x,double y,gsl_sf_result_e10* result);
78--
79-- <http://www.google.com/search?q=gsl_sf_exp_mult_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
67exp_mult_e10_e :: Double -> Double -> (Double,Int,Double) 80exp_mult_e10_e :: Double -> Double -> (Double,Int,Double)
68exp_mult_e10_e x y = createSFR_E10 "exp_mult_e10_e" $ gsl_sf_exp_mult_e10_e x y 81exp_mult_e10_e x y = createSFR_E10 "exp_mult_e10_e" $ gsl_sf_exp_mult_e10_e x y
69foreign import ccall "exp.h gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO(Int) 82foreign import ccall "exp.h gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO CInt
70 83
71-- | wrapper for int gsl_sf_expm1_e(double x,gsl_sf_result* result); 84-- | wrapper for int gsl_sf_expm1_e(double x,gsl_sf_result* result);
85--
86-- <http://www.google.com/search?q=gsl_sf_expm1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
72expm1_e :: Double -> (Double,Double) 87expm1_e :: Double -> (Double,Double)
73expm1_e x = createSFR "expm1_e" $ gsl_sf_expm1_e x 88expm1_e x = createSFR "expm1_e" $ gsl_sf_expm1_e x
74foreign import ccall "exp.h gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr Double -> IO(Int) 89foreign import ccall "exp.h gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr () -> IO CInt
75 90
76-- | wrapper for double gsl_sf_expm1(double x); 91-- | wrapper for double gsl_sf_expm1(double x);
92--
93-- <http://www.google.com/search?q=gsl_sf_expm1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
77expm1 :: Double -> Double 94expm1 :: Double -> Double
78expm1 = gsl_sf_expm1 95expm1 = gsl_sf_expm1
79foreign import ccall "exp.h gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double 96foreign import ccall "exp.h gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double
80 97
81-- | wrapper for int gsl_sf_exprel_e(double x,gsl_sf_result* result); 98-- | wrapper for int gsl_sf_exprel_e(double x,gsl_sf_result* result);
99--
100-- <http://www.google.com/search?q=gsl_sf_exprel_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
82exprel_e :: Double -> (Double,Double) 101exprel_e :: Double -> (Double,Double)
83exprel_e x = createSFR "exprel_e" $ gsl_sf_exprel_e x 102exprel_e x = createSFR "exprel_e" $ gsl_sf_exprel_e x
84foreign import ccall "exp.h gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr Double -> IO(Int) 103foreign import ccall "exp.h gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr () -> IO CInt
85 104
86-- | wrapper for double gsl_sf_exprel(double x); 105-- | wrapper for double gsl_sf_exprel(double x);
106--
107-- <http://www.google.com/search?q=gsl_sf_exprel&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
87exprel :: Double -> Double 108exprel :: Double -> Double
88exprel = gsl_sf_exprel 109exprel = gsl_sf_exprel
89foreign import ccall "exp.h gsl_sf_exprel" gsl_sf_exprel :: Double -> Double 110foreign import ccall "exp.h gsl_sf_exprel" gsl_sf_exprel :: Double -> Double
90 111
91-- | wrapper for int gsl_sf_exprel_2_e(double x,gsl_sf_result* result); 112-- | wrapper for int gsl_sf_exprel_2_e(double x,gsl_sf_result* result);
113--
114-- <http://www.google.com/search?q=gsl_sf_exprel_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
92exprel_2_e :: Double -> (Double,Double) 115exprel_2_e :: Double -> (Double,Double)
93exprel_2_e x = createSFR "exprel_2_e" $ gsl_sf_exprel_2_e x 116exprel_2_e x = createSFR "exprel_2_e" $ gsl_sf_exprel_2_e x
94foreign import ccall "exp.h gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr Double -> IO(Int) 117foreign import ccall "exp.h gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr () -> IO CInt
95 118
96-- | wrapper for double gsl_sf_exprel_2(double x); 119-- | wrapper for double gsl_sf_exprel_2(double x);
120--
121-- <http://www.google.com/search?q=gsl_sf_exprel_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
97exprel_2 :: Double -> Double 122exprel_2 :: Double -> Double
98exprel_2 = gsl_sf_exprel_2 123exprel_2 = gsl_sf_exprel_2
99foreign import ccall "exp.h gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double 124foreign import ccall "exp.h gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double
100 125
101-- | wrapper for int gsl_sf_exprel_n_e(int n,double x,gsl_sf_result* result); 126-- | wrapper for int gsl_sf_exprel_n_e(int n,double x,gsl_sf_result* result);
102exprel_n_e :: Int -> Double -> (Double,Double) 127--
128-- <http://www.google.com/search?q=gsl_sf_exprel_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
129exprel_n_e :: CInt -> Double -> (Double,Double)
103exprel_n_e n x = createSFR "exprel_n_e" $ gsl_sf_exprel_n_e n x 130exprel_n_e n x = createSFR "exprel_n_e" $ gsl_sf_exprel_n_e n x
104foreign import ccall "exp.h gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: Int -> Double -> Ptr Double -> IO(Int) 131foreign import ccall "exp.h gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: CInt -> Double -> Ptr () -> IO CInt
105 132
106-- | wrapper for double gsl_sf_exprel_n(int n,double x); 133-- | wrapper for double gsl_sf_exprel_n(int n,double x);
107exprel_n :: Int -> Double -> Double 134--
135-- <http://www.google.com/search?q=gsl_sf_exprel_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
136exprel_n :: CInt -> Double -> Double
108exprel_n = gsl_sf_exprel_n 137exprel_n = gsl_sf_exprel_n
109foreign import ccall "exp.h gsl_sf_exprel_n" gsl_sf_exprel_n :: Int -> Double -> Double 138foreign import ccall "exp.h gsl_sf_exprel_n" gsl_sf_exprel_n :: CInt -> Double -> Double
110 139
111-- | wrapper for int gsl_sf_exp_err_e(double x,double dx,gsl_sf_result* result); 140-- | wrapper for int gsl_sf_exp_err_e(double x,double dx,gsl_sf_result* result);
141--
142-- <http://www.google.com/search?q=gsl_sf_exp_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
112exp_err_e :: Double -> Double -> (Double,Double) 143exp_err_e :: Double -> Double -> (Double,Double)
113exp_err_e x dx = createSFR "exp_err_e" $ gsl_sf_exp_err_e x dx 144exp_err_e x dx = createSFR "exp_err_e" $ gsl_sf_exp_err_e x dx
114foreign import ccall "exp.h gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr Double -> IO(Int) 145foreign import ccall "exp.h gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr () -> IO CInt
115 146
116-- | wrapper for int gsl_sf_exp_err_e10_e(double x,double dx,gsl_sf_result_e10* result); 147-- | wrapper for int gsl_sf_exp_err_e10_e(double x,double dx,gsl_sf_result_e10* result);
148--
149-- <http://www.google.com/search?q=gsl_sf_exp_err_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
117exp_err_e10_e :: Double -> Double -> (Double,Int,Double) 150exp_err_e10_e :: Double -> Double -> (Double,Int,Double)
118exp_err_e10_e x dx = createSFR_E10 "exp_err_e10_e" $ gsl_sf_exp_err_e10_e x dx 151exp_err_e10_e x dx = createSFR_E10 "exp_err_e10_e" $ gsl_sf_exp_err_e10_e x dx
119foreign import ccall "exp.h gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO(Int) 152foreign import ccall "exp.h gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO CInt
120 153
121-- | wrapper for int gsl_sf_exp_mult_err_e(double x,double dx,double y,double dy,gsl_sf_result* result); 154-- | wrapper for int gsl_sf_exp_mult_err_e(double x,double dx,double y,double dy,gsl_sf_result* result);
155--
156-- <http://www.google.com/search?q=gsl_sf_exp_mult_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
122exp_mult_err_e :: Double -> Double -> Double -> Double -> (Double,Double) 157exp_mult_err_e :: Double -> Double -> Double -> Double -> (Double,Double)
123exp_mult_err_e x dx y dy = createSFR "exp_mult_err_e" $ gsl_sf_exp_mult_err_e x dx y dy 158exp_mult_err_e x dx y dy = createSFR "exp_mult_err_e" $ gsl_sf_exp_mult_err_e x dx y dy
124foreign import ccall "exp.h gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr Double -> IO(Int) 159foreign import ccall "exp.h gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt
125 160
126-- | wrapper for int gsl_sf_exp_mult_err_e10_e(double x,double dx,double y,double dy,gsl_sf_result_e10* result); 161-- | wrapper for int gsl_sf_exp_mult_err_e10_e(double x,double dx,double y,double dy,gsl_sf_result_e10* result);
162--
163-- <http://www.google.com/search?q=gsl_sf_exp_mult_err_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
127exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> (Double,Int,Double) 164exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> (Double,Int,Double)
128exp_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 165exp_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
129foreign import ccall "exp.h gsl_sf_exp_mult_err_e10_e" gsl_sf_exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> Ptr () -> IO(Int) 166foreign 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
diff --git a/lib/Numeric/GSL/Special/Expint.hs b/lib/Numeric/GSL/Special/Expint.hs
index 9882d09..fd92216 100644
--- a/lib/Numeric/GSL/Special/Expint.hs
+++ b/lib/Numeric/GSL/Special/Expint.hs
@@ -42,6 +42,7 @@ module Numeric.GSL.Special.Expint(
42) where 42) where
43 43
44import Foreign(Ptr) 44import Foreign(Ptr)
45import Foreign.C.Types(CInt)
45import Numeric.GSL.Special.Internal 46import Numeric.GSL.Special.Internal
46 47
47-- | wrapper for int gsl_sf_expint_E1_e(double x,gsl_sf_result* result); 48-- | wrapper for int gsl_sf_expint_E1_e(double x,gsl_sf_result* result);
@@ -49,7 +50,7 @@ import Numeric.GSL.Special.Internal
49-- <http://www.google.com/search?q=gsl_sf_expint_E1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 50-- <http://www.google.com/search?q=gsl_sf_expint_E1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
50expint_E1_e :: Double -> (Double,Double) 51expint_E1_e :: Double -> (Double,Double)
51expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x 52expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x
52foreign import ccall "expint.h gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr Double -> IO(Int) 53foreign import ccall "expint.h gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt
53 54
54-- | wrapper for double gsl_sf_expint_E1(double x); 55-- | wrapper for double gsl_sf_expint_E1(double x);
55-- 56--
@@ -63,7 +64,7 @@ foreign import ccall "expint.h gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> D
63-- <http://www.google.com/search?q=gsl_sf_expint_E2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 64-- <http://www.google.com/search?q=gsl_sf_expint_E2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
64expint_E2_e :: Double -> (Double,Double) 65expint_E2_e :: Double -> (Double,Double)
65expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x 66expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x
66foreign import ccall "expint.h gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr Double -> IO(Int) 67foreign import ccall "expint.h gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt
67 68
68-- | wrapper for double gsl_sf_expint_E2(double x); 69-- | wrapper for double gsl_sf_expint_E2(double x);
69-- 70--
@@ -77,7 +78,7 @@ foreign import ccall "expint.h gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> D
77-- <http://www.google.com/search?q=gsl_sf_expint_E1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 78-- <http://www.google.com/search?q=gsl_sf_expint_E1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
78expint_E1_scaled_e :: Double -> (Double,Double) 79expint_E1_scaled_e :: Double -> (Double,Double)
79expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x 80expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x
80foreign import ccall "expint.h gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr Double -> IO(Int) 81foreign import ccall "expint.h gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt
81 82
82-- | wrapper for double gsl_sf_expint_E1_scaled(double x); 83-- | wrapper for double gsl_sf_expint_E1_scaled(double x);
83-- 84--
@@ -91,7 +92,7 @@ foreign import ccall "expint.h gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled
91-- <http://www.google.com/search?q=gsl_sf_expint_E2_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 92-- <http://www.google.com/search?q=gsl_sf_expint_E2_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
92expint_E2_scaled_e :: Double -> (Double,Double) 93expint_E2_scaled_e :: Double -> (Double,Double)
93expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x 94expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x
94foreign import ccall "expint.h gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr Double -> IO(Int) 95foreign import ccall "expint.h gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt
95 96
96-- | wrapper for double gsl_sf_expint_E2_scaled(double x); 97-- | wrapper for double gsl_sf_expint_E2_scaled(double x);
97-- 98--
@@ -105,7 +106,7 @@ foreign import ccall "expint.h gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled
105-- <http://www.google.com/search?q=gsl_sf_expint_Ei_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 106-- <http://www.google.com/search?q=gsl_sf_expint_Ei_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
106expint_Ei_e :: Double -> (Double,Double) 107expint_Ei_e :: Double -> (Double,Double)
107expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x 108expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x
108foreign import ccall "expint.h gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr Double -> IO(Int) 109foreign import ccall "expint.h gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt
109 110
110-- | wrapper for double gsl_sf_expint_Ei(double x); 111-- | wrapper for double gsl_sf_expint_Ei(double x);
111-- 112--
@@ -119,7 +120,7 @@ foreign import ccall "expint.h gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> D
119-- <http://www.google.com/search?q=gsl_sf_expint_Ei_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 120-- <http://www.google.com/search?q=gsl_sf_expint_Ei_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
120expint_Ei_scaled_e :: Double -> (Double,Double) 121expint_Ei_scaled_e :: Double -> (Double,Double)
121expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x 122expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x
122foreign import ccall "expint.h gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr Double -> IO(Int) 123foreign import ccall "expint.h gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt
123 124
124-- | wrapper for double gsl_sf_expint_Ei_scaled(double x); 125-- | wrapper for double gsl_sf_expint_Ei_scaled(double x);
125-- 126--
@@ -133,7 +134,7 @@ foreign import ccall "expint.h gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled
133-- <http://www.google.com/search?q=gsl_sf_Shi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 134-- <http://www.google.com/search?q=gsl_sf_Shi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
134shi_e :: Double -> (Double,Double) 135shi_e :: Double -> (Double,Double)
135shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x 136shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x
136foreign import ccall "expint.h gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr Double -> IO(Int) 137foreign import ccall "expint.h gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt
137 138
138-- | wrapper for double gsl_sf_Shi(double x); 139-- | wrapper for double gsl_sf_Shi(double x);
139-- 140--
@@ -147,7 +148,7 @@ foreign import ccall "expint.h gsl_sf_Shi" gsl_sf_Shi :: Double -> Double
147-- <http://www.google.com/search?q=gsl_sf_Chi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 148-- <http://www.google.com/search?q=gsl_sf_Chi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
148chi_e :: Double -> (Double,Double) 149chi_e :: Double -> (Double,Double)
149chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x 150chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x
150foreign import ccall "expint.h gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr Double -> IO(Int) 151foreign import ccall "expint.h gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt
151 152
152-- | wrapper for double gsl_sf_Chi(double x); 153-- | wrapper for double gsl_sf_Chi(double x);
153-- 154--
@@ -161,7 +162,7 @@ foreign import ccall "expint.h gsl_sf_Chi" gsl_sf_Chi :: Double -> Double
161-- <http://www.google.com/search?q=gsl_sf_expint_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 162-- <http://www.google.com/search?q=gsl_sf_expint_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
162expint_3_e :: Double -> (Double,Double) 163expint_3_e :: Double -> (Double,Double)
163expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x 164expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x
164foreign import ccall "expint.h gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr Double -> IO(Int) 165foreign import ccall "expint.h gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt
165 166
166-- | wrapper for double gsl_sf_expint_3(double x); 167-- | wrapper for double gsl_sf_expint_3(double x);
167-- 168--
@@ -175,7 +176,7 @@ foreign import ccall "expint.h gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Dou
175-- <http://www.google.com/search?q=gsl_sf_Si_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 176-- <http://www.google.com/search?q=gsl_sf_Si_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
176si_e :: Double -> (Double,Double) 177si_e :: Double -> (Double,Double)
177si_e x = createSFR "si_e" $ gsl_sf_Si_e x 178si_e x = createSFR "si_e" $ gsl_sf_Si_e x
178foreign import ccall "expint.h gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr Double -> IO(Int) 179foreign import ccall "expint.h gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt
179 180
180-- | wrapper for double gsl_sf_Si(double x); 181-- | wrapper for double gsl_sf_Si(double x);
181-- 182--
@@ -189,7 +190,7 @@ foreign import ccall "expint.h gsl_sf_Si" gsl_sf_Si :: Double -> Double
189-- <http://www.google.com/search?q=gsl_sf_Ci_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 190-- <http://www.google.com/search?q=gsl_sf_Ci_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
190ci_e :: Double -> (Double,Double) 191ci_e :: Double -> (Double,Double)
191ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x 192ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x
192foreign import ccall "expint.h gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr Double -> IO(Int) 193foreign import ccall "expint.h gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt
193 194
194-- | wrapper for double gsl_sf_Ci(double x); 195-- | wrapper for double gsl_sf_Ci(double x);
195-- 196--
@@ -203,7 +204,7 @@ foreign import ccall "expint.h gsl_sf_Ci" gsl_sf_Ci :: Double -> Double
203-- <http://www.google.com/search?q=gsl_sf_atanint_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 204-- <http://www.google.com/search?q=gsl_sf_atanint_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
204atanint_e :: Double -> (Double,Double) 205atanint_e :: Double -> (Double,Double)
205atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x 206atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x
206foreign import ccall "expint.h gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr Double -> IO(Int) 207foreign import ccall "expint.h gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt
207 208
208-- | wrapper for double gsl_sf_atanint(double x); 209-- | wrapper for double gsl_sf_atanint(double x);
209-- 210--
diff --git a/lib/Numeric/GSL/Special/Fermi_dirac.hs b/lib/Numeric/GSL/Special/Fermi_dirac.hs
index a189dd4..cef5304 100644
--- a/lib/Numeric/GSL/Special/Fermi_dirac.hs
+++ b/lib/Numeric/GSL/Special/Fermi_dirac.hs
@@ -36,6 +36,7 @@ module Numeric.GSL.Special.Fermi_dirac(
36) where 36) where
37 37
38import Foreign(Ptr) 38import Foreign(Ptr)
39import Foreign.C.Types(CInt)
39import Numeric.GSL.Special.Internal 40import Numeric.GSL.Special.Internal
40 41
41-- | wrapper for int gsl_sf_fermi_dirac_m1_e(double x,gsl_sf_result* result); 42-- | wrapper for int gsl_sf_fermi_dirac_m1_e(double x,gsl_sf_result* result);
@@ -43,7 +44,7 @@ import Numeric.GSL.Special.Internal
43-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_m1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 44-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_m1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
44fermi_dirac_m1_e :: Double -> (Double,Double) 45fermi_dirac_m1_e :: Double -> (Double,Double)
45fermi_dirac_m1_e x = createSFR "fermi_dirac_m1_e" $ gsl_sf_fermi_dirac_m1_e x 46fermi_dirac_m1_e x = createSFR "fermi_dirac_m1_e" $ gsl_sf_fermi_dirac_m1_e x
46foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr Double -> IO(Int) 47foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr () -> IO CInt
47 48
48-- | wrapper for double gsl_sf_fermi_dirac_m1(double x); 49-- | wrapper for double gsl_sf_fermi_dirac_m1(double x);
49-- 50--
@@ -57,7 +58,7 @@ foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1
57-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 58-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
58fermi_dirac_0_e :: Double -> (Double,Double) 59fermi_dirac_0_e :: Double -> (Double,Double)
59fermi_dirac_0_e x = createSFR "fermi_dirac_0_e" $ gsl_sf_fermi_dirac_0_e x 60fermi_dirac_0_e x = createSFR "fermi_dirac_0_e" $ gsl_sf_fermi_dirac_0_e x
60foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr Double -> IO(Int) 61foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr () -> IO CInt
61 62
62-- | wrapper for double gsl_sf_fermi_dirac_0(double x); 63-- | wrapper for double gsl_sf_fermi_dirac_0(double x);
63-- 64--
@@ -71,7 +72,7 @@ foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 :
71-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 72-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
72fermi_dirac_1_e :: Double -> (Double,Double) 73fermi_dirac_1_e :: Double -> (Double,Double)
73fermi_dirac_1_e x = createSFR "fermi_dirac_1_e" $ gsl_sf_fermi_dirac_1_e x 74fermi_dirac_1_e x = createSFR "fermi_dirac_1_e" $ gsl_sf_fermi_dirac_1_e x
74foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr Double -> IO(Int) 75foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr () -> IO CInt
75 76
76-- | wrapper for double gsl_sf_fermi_dirac_1(double x); 77-- | wrapper for double gsl_sf_fermi_dirac_1(double x);
77-- 78--
@@ -85,7 +86,7 @@ foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 :
85-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 86-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
86fermi_dirac_2_e :: Double -> (Double,Double) 87fermi_dirac_2_e :: Double -> (Double,Double)
87fermi_dirac_2_e x = createSFR "fermi_dirac_2_e" $ gsl_sf_fermi_dirac_2_e x 88fermi_dirac_2_e x = createSFR "fermi_dirac_2_e" $ gsl_sf_fermi_dirac_2_e x
88foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr Double -> IO(Int) 89foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr () -> IO CInt
89 90
90-- | wrapper for double gsl_sf_fermi_dirac_2(double x); 91-- | wrapper for double gsl_sf_fermi_dirac_2(double x);
91-- 92--
@@ -97,23 +98,23 @@ foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 :
97-- | wrapper for int gsl_sf_fermi_dirac_int_e(int j,double x,gsl_sf_result* result); 98-- | wrapper for int gsl_sf_fermi_dirac_int_e(int j,double x,gsl_sf_result* result);
98-- 99--
99-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 100-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
100fermi_dirac_int_e :: Int -> Double -> (Double,Double) 101fermi_dirac_int_e :: CInt -> Double -> (Double,Double)
101fermi_dirac_int_e j x = createSFR "fermi_dirac_int_e" $ gsl_sf_fermi_dirac_int_e j x 102fermi_dirac_int_e j x = createSFR "fermi_dirac_int_e" $ gsl_sf_fermi_dirac_int_e j x
102foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: Int -> Double -> Ptr Double -> IO(Int) 103foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: CInt -> Double -> Ptr () -> IO CInt
103 104
104-- | wrapper for double gsl_sf_fermi_dirac_int(int j,double x); 105-- | wrapper for double gsl_sf_fermi_dirac_int(int j,double x);
105-- 106--
106-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 107-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
107fermi_dirac_int :: Int -> Double -> Double 108fermi_dirac_int :: CInt -> Double -> Double
108fermi_dirac_int = gsl_sf_fermi_dirac_int 109fermi_dirac_int = gsl_sf_fermi_dirac_int
109foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: Int -> Double -> Double 110foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: CInt -> Double -> Double
110 111
111-- | wrapper for int gsl_sf_fermi_dirac_mhalf_e(double x,gsl_sf_result* result); 112-- | wrapper for int gsl_sf_fermi_dirac_mhalf_e(double x,gsl_sf_result* result);
112-- 113--
113-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_mhalf_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 114-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_mhalf_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
114fermi_dirac_mhalf_e :: Double -> (Double,Double) 115fermi_dirac_mhalf_e :: Double -> (Double,Double)
115fermi_dirac_mhalf_e x = createSFR "fermi_dirac_mhalf_e" $ gsl_sf_fermi_dirac_mhalf_e x 116fermi_dirac_mhalf_e x = createSFR "fermi_dirac_mhalf_e" $ gsl_sf_fermi_dirac_mhalf_e x
116foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr Double -> IO(Int) 117foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr () -> IO CInt
117 118
118-- | wrapper for double gsl_sf_fermi_dirac_mhalf(double x); 119-- | wrapper for double gsl_sf_fermi_dirac_mhalf(double x);
119-- 120--
@@ -127,7 +128,7 @@ foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac
127-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_half_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 128-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_half_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
128fermi_dirac_half_e :: Double -> (Double,Double) 129fermi_dirac_half_e :: Double -> (Double,Double)
129fermi_dirac_half_e x = createSFR "fermi_dirac_half_e" $ gsl_sf_fermi_dirac_half_e x 130fermi_dirac_half_e x = createSFR "fermi_dirac_half_e" $ gsl_sf_fermi_dirac_half_e x
130foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr Double -> IO(Int) 131foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr () -> IO CInt
131 132
132-- | wrapper for double gsl_sf_fermi_dirac_half(double x); 133-- | wrapper for double gsl_sf_fermi_dirac_half(double x);
133-- 134--
@@ -141,7 +142,7 @@ foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_
141-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_3half_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 142-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_3half_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
142fermi_dirac_3half_e :: Double -> (Double,Double) 143fermi_dirac_3half_e :: Double -> (Double,Double)
143fermi_dirac_3half_e x = createSFR "fermi_dirac_3half_e" $ gsl_sf_fermi_dirac_3half_e x 144fermi_dirac_3half_e x = createSFR "fermi_dirac_3half_e" $ gsl_sf_fermi_dirac_3half_e x
144foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr Double -> IO(Int) 145foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr () -> IO CInt
145 146
146-- | wrapper for double gsl_sf_fermi_dirac_3half(double x); 147-- | wrapper for double gsl_sf_fermi_dirac_3half(double x);
147-- 148--
@@ -155,7 +156,7 @@ foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac
155-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_inc_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 156-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_inc_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
156fermi_dirac_inc_0_e :: Double -> Double -> (Double,Double) 157fermi_dirac_inc_0_e :: Double -> Double -> (Double,Double)
157fermi_dirac_inc_0_e x b = createSFR "fermi_dirac_inc_0_e" $ gsl_sf_fermi_dirac_inc_0_e x b 158fermi_dirac_inc_0_e x b = createSFR "fermi_dirac_inc_0_e" $ gsl_sf_fermi_dirac_inc_0_e x b
158foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_inc_0_e" gsl_sf_fermi_dirac_inc_0_e :: Double -> Double -> Ptr Double -> IO(Int) 159foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_inc_0_e" gsl_sf_fermi_dirac_inc_0_e :: Double -> Double -> Ptr () -> IO CInt
159 160
160-- | wrapper for double gsl_sf_fermi_dirac_inc_0(double x,double b); 161-- | wrapper for double gsl_sf_fermi_dirac_inc_0(double x,double b);
161-- 162--
diff --git a/lib/Numeric/GSL/Special/Gamma.hs b/lib/Numeric/GSL/Special/Gamma.hs
index aa03892..7bba728 100644
--- a/lib/Numeric/GSL/Special/Gamma.hs
+++ b/lib/Numeric/GSL/Special/Gamma.hs
@@ -58,6 +58,7 @@ module Numeric.GSL.Special.Gamma(
58) where 58) where
59 59
60import Foreign(Ptr) 60import Foreign(Ptr)
61import Foreign.C.Types(CInt)
61import Numeric.GSL.Special.Internal 62import Numeric.GSL.Special.Internal
62 63
63-- | wrapper for int gsl_sf_lngamma_e(double x,gsl_sf_result* result); 64-- | wrapper for int gsl_sf_lngamma_e(double x,gsl_sf_result* result);
@@ -65,7 +66,7 @@ import Numeric.GSL.Special.Internal
65-- <http://www.google.com/search?q=gsl_sf_lngamma_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 66-- <http://www.google.com/search?q=gsl_sf_lngamma_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
66lngamma_e :: Double -> (Double,Double) 67lngamma_e :: Double -> (Double,Double)
67lngamma_e x = createSFR "lngamma_e" $ gsl_sf_lngamma_e x 68lngamma_e x = createSFR "lngamma_e" $ gsl_sf_lngamma_e x
68foreign import ccall "gamma.h gsl_sf_lngamma_e" gsl_sf_lngamma_e :: Double -> Ptr Double -> IO(Int) 69foreign import ccall "gamma.h gsl_sf_lngamma_e" gsl_sf_lngamma_e :: Double -> Ptr () -> IO CInt
69 70
70-- | wrapper for double gsl_sf_lngamma(double x); 71-- | wrapper for double gsl_sf_lngamma(double x);
71-- 72--
@@ -77,16 +78,16 @@ foreign import ccall "gamma.h gsl_sf_lngamma" gsl_sf_lngamma :: Double -> Double
77-- | wrapper for int gsl_sf_lngamma_sgn_e(double x,gsl_sf_result* result_lg,double* sgn); 78-- | wrapper for int gsl_sf_lngamma_sgn_e(double x,gsl_sf_result* result_lg,double* sgn);
78-- 79--
79-- <http://www.google.com/search?q=gsl_sf_lngamma_sgn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 80-- <http://www.google.com/search?q=gsl_sf_lngamma_sgn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
80lngamma_sgn_e :: Double -> Ptr Double -> Ptr Double -> Int 81lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt
81lngamma_sgn_e = gsl_sf_lngamma_sgn_e 82lngamma_sgn_e = gsl_sf_lngamma_sgn_e
82foreign import ccall "gamma.h gsl_sf_lngamma_sgn_e" gsl_sf_lngamma_sgn_e :: Double -> Ptr Double -> Ptr Double -> Int 83foreign import ccall "gamma.h gsl_sf_lngamma_sgn_e" gsl_sf_lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt
83 84
84-- | wrapper for int gsl_sf_gamma_e(double x,gsl_sf_result* result); 85-- | wrapper for int gsl_sf_gamma_e(double x,gsl_sf_result* result);
85-- 86--
86-- <http://www.google.com/search?q=gsl_sf_gamma_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 87-- <http://www.google.com/search?q=gsl_sf_gamma_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
87gamma_e :: Double -> (Double,Double) 88gamma_e :: Double -> (Double,Double)
88gamma_e x = createSFR "gamma_e" $ gsl_sf_gamma_e x 89gamma_e x = createSFR "gamma_e" $ gsl_sf_gamma_e x
89foreign import ccall "gamma.h gsl_sf_gamma_e" gsl_sf_gamma_e :: Double -> Ptr Double -> IO(Int) 90foreign import ccall "gamma.h gsl_sf_gamma_e" gsl_sf_gamma_e :: Double -> Ptr () -> IO CInt
90 91
91-- | wrapper for double gsl_sf_gamma(double x); 92-- | wrapper for double gsl_sf_gamma(double x);
92-- 93--
@@ -100,7 +101,7 @@ foreign import ccall "gamma.h gsl_sf_gamma" gsl_sf_gamma :: Double -> Double
100-- <http://www.google.com/search?q=gsl_sf_gammastar_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 101-- <http://www.google.com/search?q=gsl_sf_gammastar_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
101gammastar_e :: Double -> (Double,Double) 102gammastar_e :: Double -> (Double,Double)
102gammastar_e x = createSFR "gammastar_e" $ gsl_sf_gammastar_e x 103gammastar_e x = createSFR "gammastar_e" $ gsl_sf_gammastar_e x
103foreign import ccall "gamma.h gsl_sf_gammastar_e" gsl_sf_gammastar_e :: Double -> Ptr Double -> IO(Int) 104foreign import ccall "gamma.h gsl_sf_gammastar_e" gsl_sf_gammastar_e :: Double -> Ptr () -> IO CInt
104 105
105-- | wrapper for double gsl_sf_gammastar(double x); 106-- | wrapper for double gsl_sf_gammastar(double x);
106-- 107--
@@ -114,7 +115,7 @@ foreign import ccall "gamma.h gsl_sf_gammastar" gsl_sf_gammastar :: Double -> Do
114-- <http://www.google.com/search?q=gsl_sf_gammainv_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 115-- <http://www.google.com/search?q=gsl_sf_gammainv_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
115gammainv_e :: Double -> (Double,Double) 116gammainv_e :: Double -> (Double,Double)
116gammainv_e x = createSFR "gammainv_e" $ gsl_sf_gammainv_e x 117gammainv_e x = createSFR "gammainv_e" $ gsl_sf_gammainv_e x
117foreign import ccall "gamma.h gsl_sf_gammainv_e" gsl_sf_gammainv_e :: Double -> Ptr Double -> IO(Int) 118foreign import ccall "gamma.h gsl_sf_gammainv_e" gsl_sf_gammainv_e :: Double -> Ptr () -> IO CInt
118 119
119-- | wrapper for double gsl_sf_gammainv(double x); 120-- | wrapper for double gsl_sf_gammainv(double x);
120-- 121--
@@ -126,114 +127,114 @@ foreign import ccall "gamma.h gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Doub
126-- | wrapper for int gsl_sf_lngamma_complex_e(double zr,double zi,gsl_sf_result* lnr,gsl_sf_result* arg); 127-- | wrapper for int gsl_sf_lngamma_complex_e(double zr,double zi,gsl_sf_result* lnr,gsl_sf_result* arg);
127-- 128--
128-- <http://www.google.com/search?q=gsl_sf_lngamma_complex_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 129-- <http://www.google.com/search?q=gsl_sf_lngamma_complex_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
129lngamma_complex_e :: Double -> Double -> Ptr Double -> (Double,Double) 130lngamma_complex_e :: Double -> Double -> Ptr () -> (Double,Double)
130lngamma_complex_e zr zi lnr = createSFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi lnr 131lngamma_complex_e zr zi lnr = createSFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi lnr
131foreign import ccall "gamma.h gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr Double -> Ptr Double -> IO(Int) 132foreign import ccall "gamma.h gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
132 133
133-- | wrapper for int gsl_sf_taylorcoeff_e(int n,double x,gsl_sf_result* result); 134-- | wrapper for int gsl_sf_taylorcoeff_e(int n,double x,gsl_sf_result* result);
134-- 135--
135-- <http://www.google.com/search?q=gsl_sf_taylorcoeff_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 136-- <http://www.google.com/search?q=gsl_sf_taylorcoeff_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
136taylorcoeff_e :: Int -> Double -> (Double,Double) 137taylorcoeff_e :: CInt -> Double -> (Double,Double)
137taylorcoeff_e n x = createSFR "taylorcoeff_e" $ gsl_sf_taylorcoeff_e n x 138taylorcoeff_e n x = createSFR "taylorcoeff_e" $ gsl_sf_taylorcoeff_e n x
138foreign import ccall "gamma.h gsl_sf_taylorcoeff_e" gsl_sf_taylorcoeff_e :: Int -> Double -> Ptr Double -> IO(Int) 139foreign import ccall "gamma.h gsl_sf_taylorcoeff_e" gsl_sf_taylorcoeff_e :: CInt -> Double -> Ptr () -> IO CInt
139 140
140-- | wrapper for double gsl_sf_taylorcoeff(int n,double x); 141-- | wrapper for double gsl_sf_taylorcoeff(int n,double x);
141-- 142--
142-- <http://www.google.com/search?q=gsl_sf_taylorcoeff&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 143-- <http://www.google.com/search?q=gsl_sf_taylorcoeff&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
143taylorcoeff :: Int -> Double -> Double 144taylorcoeff :: CInt -> Double -> Double
144taylorcoeff = gsl_sf_taylorcoeff 145taylorcoeff = gsl_sf_taylorcoeff
145foreign import ccall "gamma.h gsl_sf_taylorcoeff" gsl_sf_taylorcoeff :: Int -> Double -> Double 146foreign import ccall "gamma.h gsl_sf_taylorcoeff" gsl_sf_taylorcoeff :: CInt -> Double -> Double
146 147
147-- | wrapper for int gsl_sf_fact_e(int n,gsl_sf_result* result); 148-- | wrapper for int gsl_sf_fact_e(int n,gsl_sf_result* result);
148-- 149--
149-- <http://www.google.com/search?q=gsl_sf_fact_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 150-- <http://www.google.com/search?q=gsl_sf_fact_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
150fact_e :: Int -> (Double,Double) 151fact_e :: CInt -> (Double,Double)
151fact_e n = createSFR "fact_e" $ gsl_sf_fact_e n 152fact_e n = createSFR "fact_e" $ gsl_sf_fact_e n
152foreign import ccall "gamma.h gsl_sf_fact_e" gsl_sf_fact_e :: Int -> Ptr Double -> IO(Int) 153foreign import ccall "gamma.h gsl_sf_fact_e" gsl_sf_fact_e :: CInt -> Ptr () -> IO CInt
153 154
154-- | wrapper for double gsl_sf_fact(int n); 155-- | wrapper for double gsl_sf_fact(int n);
155-- 156--
156-- <http://www.google.com/search?q=gsl_sf_fact&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 157-- <http://www.google.com/search?q=gsl_sf_fact&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
157fact :: Int -> Double 158fact :: CInt -> Double
158fact = gsl_sf_fact 159fact = gsl_sf_fact
159foreign import ccall "gamma.h gsl_sf_fact" gsl_sf_fact :: Int -> Double 160foreign import ccall "gamma.h gsl_sf_fact" gsl_sf_fact :: CInt -> Double
160 161
161-- | wrapper for int gsl_sf_doublefact_e(int n,gsl_sf_result* result); 162-- | wrapper for int gsl_sf_doublefact_e(int n,gsl_sf_result* result);
162-- 163--
163-- <http://www.google.com/search?q=gsl_sf_doublefact_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 164-- <http://www.google.com/search?q=gsl_sf_doublefact_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
164doublefact_e :: Int -> (Double,Double) 165doublefact_e :: CInt -> (Double,Double)
165doublefact_e n = createSFR "doublefact_e" $ gsl_sf_doublefact_e n 166doublefact_e n = createSFR "doublefact_e" $ gsl_sf_doublefact_e n
166foreign import ccall "gamma.h gsl_sf_doublefact_e" gsl_sf_doublefact_e :: Int -> Ptr Double -> IO(Int) 167foreign import ccall "gamma.h gsl_sf_doublefact_e" gsl_sf_doublefact_e :: CInt -> Ptr () -> IO CInt
167 168
168-- | wrapper for double gsl_sf_doublefact(int n); 169-- | wrapper for double gsl_sf_doublefact(int n);
169-- 170--
170-- <http://www.google.com/search?q=gsl_sf_doublefact&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 171-- <http://www.google.com/search?q=gsl_sf_doublefact&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
171doublefact :: Int -> Double 172doublefact :: CInt -> Double
172doublefact = gsl_sf_doublefact 173doublefact = gsl_sf_doublefact
173foreign import ccall "gamma.h gsl_sf_doublefact" gsl_sf_doublefact :: Int -> Double 174foreign import ccall "gamma.h gsl_sf_doublefact" gsl_sf_doublefact :: CInt -> Double
174 175
175-- | wrapper for int gsl_sf_lnfact_e(int n,gsl_sf_result* result); 176-- | wrapper for int gsl_sf_lnfact_e(int n,gsl_sf_result* result);
176-- 177--
177-- <http://www.google.com/search?q=gsl_sf_lnfact_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 178-- <http://www.google.com/search?q=gsl_sf_lnfact_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
178lnfact_e :: Int -> (Double,Double) 179lnfact_e :: CInt -> (Double,Double)
179lnfact_e n = createSFR "lnfact_e" $ gsl_sf_lnfact_e n 180lnfact_e n = createSFR "lnfact_e" $ gsl_sf_lnfact_e n
180foreign import ccall "gamma.h gsl_sf_lnfact_e" gsl_sf_lnfact_e :: Int -> Ptr Double -> IO(Int) 181foreign import ccall "gamma.h gsl_sf_lnfact_e" gsl_sf_lnfact_e :: CInt -> Ptr () -> IO CInt
181 182
182-- | wrapper for double gsl_sf_lnfact(int n); 183-- | wrapper for double gsl_sf_lnfact(int n);
183-- 184--
184-- <http://www.google.com/search?q=gsl_sf_lnfact&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 185-- <http://www.google.com/search?q=gsl_sf_lnfact&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
185lnfact :: Int -> Double 186lnfact :: CInt -> Double
186lnfact = gsl_sf_lnfact 187lnfact = gsl_sf_lnfact
187foreign import ccall "gamma.h gsl_sf_lnfact" gsl_sf_lnfact :: Int -> Double 188foreign import ccall "gamma.h gsl_sf_lnfact" gsl_sf_lnfact :: CInt -> Double
188 189
189-- | wrapper for int gsl_sf_lndoublefact_e(int n,gsl_sf_result* result); 190-- | wrapper for int gsl_sf_lndoublefact_e(int n,gsl_sf_result* result);
190-- 191--
191-- <http://www.google.com/search?q=gsl_sf_lndoublefact_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 192-- <http://www.google.com/search?q=gsl_sf_lndoublefact_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
192lndoublefact_e :: Int -> (Double,Double) 193lndoublefact_e :: CInt -> (Double,Double)
193lndoublefact_e n = createSFR "lndoublefact_e" $ gsl_sf_lndoublefact_e n 194lndoublefact_e n = createSFR "lndoublefact_e" $ gsl_sf_lndoublefact_e n
194foreign import ccall "gamma.h gsl_sf_lndoublefact_e" gsl_sf_lndoublefact_e :: Int -> Ptr Double -> IO(Int) 195foreign import ccall "gamma.h gsl_sf_lndoublefact_e" gsl_sf_lndoublefact_e :: CInt -> Ptr () -> IO CInt
195 196
196-- | wrapper for double gsl_sf_lndoublefact(int n); 197-- | wrapper for double gsl_sf_lndoublefact(int n);
197-- 198--
198-- <http://www.google.com/search?q=gsl_sf_lndoublefact&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 199-- <http://www.google.com/search?q=gsl_sf_lndoublefact&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
199lndoublefact :: Int -> Double 200lndoublefact :: CInt -> Double
200lndoublefact = gsl_sf_lndoublefact 201lndoublefact = gsl_sf_lndoublefact
201foreign import ccall "gamma.h gsl_sf_lndoublefact" gsl_sf_lndoublefact :: Int -> Double 202foreign import ccall "gamma.h gsl_sf_lndoublefact" gsl_sf_lndoublefact :: CInt -> Double
202 203
203-- | wrapper for int gsl_sf_lnchoose_e(int n,int m,gsl_sf_result* result); 204-- | wrapper for int gsl_sf_lnchoose_e(int n,int m,gsl_sf_result* result);
204-- 205--
205-- <http://www.google.com/search?q=gsl_sf_lnchoose_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 206-- <http://www.google.com/search?q=gsl_sf_lnchoose_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
206lnchoose_e :: Int -> Int -> (Double,Double) 207lnchoose_e :: CInt -> CInt -> (Double,Double)
207lnchoose_e n m = createSFR "lnchoose_e" $ gsl_sf_lnchoose_e n m 208lnchoose_e n m = createSFR "lnchoose_e" $ gsl_sf_lnchoose_e n m
208foreign import ccall "gamma.h gsl_sf_lnchoose_e" gsl_sf_lnchoose_e :: Int -> Int -> Ptr Double -> IO(Int) 209foreign import ccall "gamma.h gsl_sf_lnchoose_e" gsl_sf_lnchoose_e :: CInt -> CInt -> Ptr () -> IO CInt
209 210
210-- | wrapper for double gsl_sf_lnchoose(int n,int m); 211-- | wrapper for double gsl_sf_lnchoose(int n,int m);
211-- 212--
212-- <http://www.google.com/search?q=gsl_sf_lnchoose&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 213-- <http://www.google.com/search?q=gsl_sf_lnchoose&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
213lnchoose :: Int -> Int -> Double 214lnchoose :: CInt -> CInt -> Double
214lnchoose = gsl_sf_lnchoose 215lnchoose = gsl_sf_lnchoose
215foreign import ccall "gamma.h gsl_sf_lnchoose" gsl_sf_lnchoose :: Int -> Int -> Double 216foreign import ccall "gamma.h gsl_sf_lnchoose" gsl_sf_lnchoose :: CInt -> CInt -> Double
216 217
217-- | wrapper for int gsl_sf_choose_e(int n,int m,gsl_sf_result* result); 218-- | wrapper for int gsl_sf_choose_e(int n,int m,gsl_sf_result* result);
218-- 219--
219-- <http://www.google.com/search?q=gsl_sf_choose_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 220-- <http://www.google.com/search?q=gsl_sf_choose_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
220choose_e :: Int -> Int -> (Double,Double) 221choose_e :: CInt -> CInt -> (Double,Double)
221choose_e n m = createSFR "choose_e" $ gsl_sf_choose_e n m 222choose_e n m = createSFR "choose_e" $ gsl_sf_choose_e n m
222foreign import ccall "gamma.h gsl_sf_choose_e" gsl_sf_choose_e :: Int -> Int -> Ptr Double -> IO(Int) 223foreign import ccall "gamma.h gsl_sf_choose_e" gsl_sf_choose_e :: CInt -> CInt -> Ptr () -> IO CInt
223 224
224-- | wrapper for double gsl_sf_choose(int n,int m); 225-- | wrapper for double gsl_sf_choose(int n,int m);
225-- 226--
226-- <http://www.google.com/search?q=gsl_sf_choose&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 227-- <http://www.google.com/search?q=gsl_sf_choose&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
227choose :: Int -> Int -> Double 228choose :: CInt -> CInt -> Double
228choose = gsl_sf_choose 229choose = gsl_sf_choose
229foreign import ccall "gamma.h gsl_sf_choose" gsl_sf_choose :: Int -> Int -> Double 230foreign import ccall "gamma.h gsl_sf_choose" gsl_sf_choose :: CInt -> CInt -> Double
230 231
231-- | wrapper for int gsl_sf_lnpoch_e(double a,double x,gsl_sf_result* result); 232-- | wrapper for int gsl_sf_lnpoch_e(double a,double x,gsl_sf_result* result);
232-- 233--
233-- <http://www.google.com/search?q=gsl_sf_lnpoch_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 234-- <http://www.google.com/search?q=gsl_sf_lnpoch_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
234lnpoch_e :: Double -> Double -> (Double,Double) 235lnpoch_e :: Double -> Double -> (Double,Double)
235lnpoch_e a x = createSFR "lnpoch_e" $ gsl_sf_lnpoch_e a x 236lnpoch_e a x = createSFR "lnpoch_e" $ gsl_sf_lnpoch_e a x
236foreign import ccall "gamma.h gsl_sf_lnpoch_e" gsl_sf_lnpoch_e :: Double -> Double -> Ptr Double -> IO(Int) 237foreign import ccall "gamma.h gsl_sf_lnpoch_e" gsl_sf_lnpoch_e :: Double -> Double -> Ptr () -> IO CInt
237 238
238-- | wrapper for double gsl_sf_lnpoch(double a,double x); 239-- | wrapper for double gsl_sf_lnpoch(double a,double x);
239-- 240--
@@ -245,16 +246,16 @@ foreign import ccall "gamma.h gsl_sf_lnpoch" gsl_sf_lnpoch :: Double -> Double -
245-- | wrapper for int gsl_sf_lnpoch_sgn_e(double a,double x,gsl_sf_result* result,double* sgn); 246-- | wrapper for int gsl_sf_lnpoch_sgn_e(double a,double x,gsl_sf_result* result,double* sgn);
246-- 247--
247-- <http://www.google.com/search?q=gsl_sf_lnpoch_sgn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 248-- <http://www.google.com/search?q=gsl_sf_lnpoch_sgn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
248lnpoch_sgn_e :: Double -> Double -> Ptr Double -> Ptr Double -> Int 249lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt
249lnpoch_sgn_e = gsl_sf_lnpoch_sgn_e 250lnpoch_sgn_e = gsl_sf_lnpoch_sgn_e
250foreign import ccall "gamma.h gsl_sf_lnpoch_sgn_e" gsl_sf_lnpoch_sgn_e :: Double -> Double -> Ptr Double -> Ptr Double -> Int 251foreign import ccall "gamma.h gsl_sf_lnpoch_sgn_e" gsl_sf_lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt
251 252
252-- | wrapper for int gsl_sf_poch_e(double a,double x,gsl_sf_result* result); 253-- | wrapper for int gsl_sf_poch_e(double a,double x,gsl_sf_result* result);
253-- 254--
254-- <http://www.google.com/search?q=gsl_sf_poch_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 255-- <http://www.google.com/search?q=gsl_sf_poch_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
255poch_e :: Double -> Double -> (Double,Double) 256poch_e :: Double -> Double -> (Double,Double)
256poch_e a x = createSFR "poch_e" $ gsl_sf_poch_e a x 257poch_e a x = createSFR "poch_e" $ gsl_sf_poch_e a x
257foreign import ccall "gamma.h gsl_sf_poch_e" gsl_sf_poch_e :: Double -> Double -> Ptr Double -> IO(Int) 258foreign import ccall "gamma.h gsl_sf_poch_e" gsl_sf_poch_e :: Double -> Double -> Ptr () -> IO CInt
258 259
259-- | wrapper for double gsl_sf_poch(double a,double x); 260-- | wrapper for double gsl_sf_poch(double a,double x);
260-- 261--
@@ -268,7 +269,7 @@ foreign import ccall "gamma.h gsl_sf_poch" gsl_sf_poch :: Double -> Double -> Do
268-- <http://www.google.com/search?q=gsl_sf_pochrel_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 269-- <http://www.google.com/search?q=gsl_sf_pochrel_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
269pochrel_e :: Double -> Double -> (Double,Double) 270pochrel_e :: Double -> Double -> (Double,Double)
270pochrel_e a x = createSFR "pochrel_e" $ gsl_sf_pochrel_e a x 271pochrel_e a x = createSFR "pochrel_e" $ gsl_sf_pochrel_e a x
271foreign import ccall "gamma.h gsl_sf_pochrel_e" gsl_sf_pochrel_e :: Double -> Double -> Ptr Double -> IO(Int) 272foreign import ccall "gamma.h gsl_sf_pochrel_e" gsl_sf_pochrel_e :: Double -> Double -> Ptr () -> IO CInt
272 273
273-- | wrapper for double gsl_sf_pochrel(double a,double x); 274-- | wrapper for double gsl_sf_pochrel(double a,double x);
274-- 275--
@@ -282,7 +283,7 @@ foreign import ccall "gamma.h gsl_sf_pochrel" gsl_sf_pochrel :: Double -> Double
282-- <http://www.google.com/search?q=gsl_sf_gamma_inc_Q_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 283-- <http://www.google.com/search?q=gsl_sf_gamma_inc_Q_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
283gamma_inc_Q_e :: Double -> Double -> (Double,Double) 284gamma_inc_Q_e :: Double -> Double -> (Double,Double)
284gamma_inc_Q_e a x = createSFR "gamma_inc_Q_e" $ gsl_sf_gamma_inc_Q_e a x 285gamma_inc_Q_e a x = createSFR "gamma_inc_Q_e" $ gsl_sf_gamma_inc_Q_e a x
285foreign import ccall "gamma.h gsl_sf_gamma_inc_Q_e" gsl_sf_gamma_inc_Q_e :: Double -> Double -> Ptr Double -> IO(Int) 286foreign import ccall "gamma.h gsl_sf_gamma_inc_Q_e" gsl_sf_gamma_inc_Q_e :: Double -> Double -> Ptr () -> IO CInt
286 287
287-- | wrapper for double gsl_sf_gamma_inc_Q(double a,double x); 288-- | wrapper for double gsl_sf_gamma_inc_Q(double a,double x);
288-- 289--
@@ -296,7 +297,7 @@ foreign import ccall "gamma.h gsl_sf_gamma_inc_Q" gsl_sf_gamma_inc_Q :: Double -
296-- <http://www.google.com/search?q=gsl_sf_gamma_inc_P_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 297-- <http://www.google.com/search?q=gsl_sf_gamma_inc_P_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
297gamma_inc_P_e :: Double -> Double -> (Double,Double) 298gamma_inc_P_e :: Double -> Double -> (Double,Double)
298gamma_inc_P_e a x = createSFR "gamma_inc_P_e" $ gsl_sf_gamma_inc_P_e a x 299gamma_inc_P_e a x = createSFR "gamma_inc_P_e" $ gsl_sf_gamma_inc_P_e a x
299foreign import ccall "gamma.h gsl_sf_gamma_inc_P_e" gsl_sf_gamma_inc_P_e :: Double -> Double -> Ptr Double -> IO(Int) 300foreign import ccall "gamma.h gsl_sf_gamma_inc_P_e" gsl_sf_gamma_inc_P_e :: Double -> Double -> Ptr () -> IO CInt
300 301
301-- | wrapper for double gsl_sf_gamma_inc_P(double a,double x); 302-- | wrapper for double gsl_sf_gamma_inc_P(double a,double x);
302-- 303--
@@ -310,7 +311,7 @@ foreign import ccall "gamma.h gsl_sf_gamma_inc_P" gsl_sf_gamma_inc_P :: Double -
310-- <http://www.google.com/search?q=gsl_sf_gamma_inc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 311-- <http://www.google.com/search?q=gsl_sf_gamma_inc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
311gamma_inc_e :: Double -> Double -> (Double,Double) 312gamma_inc_e :: Double -> Double -> (Double,Double)
312gamma_inc_e a x = createSFR "gamma_inc_e" $ gsl_sf_gamma_inc_e a x 313gamma_inc_e a x = createSFR "gamma_inc_e" $ gsl_sf_gamma_inc_e a x
313foreign import ccall "gamma.h gsl_sf_gamma_inc_e" gsl_sf_gamma_inc_e :: Double -> Double -> Ptr Double -> IO(Int) 314foreign import ccall "gamma.h gsl_sf_gamma_inc_e" gsl_sf_gamma_inc_e :: Double -> Double -> Ptr () -> IO CInt
314 315
315-- | wrapper for double gsl_sf_gamma_inc(double a,double x); 316-- | wrapper for double gsl_sf_gamma_inc(double a,double x);
316-- 317--
@@ -324,7 +325,7 @@ foreign import ccall "gamma.h gsl_sf_gamma_inc" gsl_sf_gamma_inc :: Double -> Do
324-- <http://www.google.com/search?q=gsl_sf_lnbeta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 325-- <http://www.google.com/search?q=gsl_sf_lnbeta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
325lnbeta_e :: Double -> Double -> (Double,Double) 326lnbeta_e :: Double -> Double -> (Double,Double)
326lnbeta_e a b = createSFR "lnbeta_e" $ gsl_sf_lnbeta_e a b 327lnbeta_e a b = createSFR "lnbeta_e" $ gsl_sf_lnbeta_e a b
327foreign import ccall "gamma.h gsl_sf_lnbeta_e" gsl_sf_lnbeta_e :: Double -> Double -> Ptr Double -> IO(Int) 328foreign import ccall "gamma.h gsl_sf_lnbeta_e" gsl_sf_lnbeta_e :: Double -> Double -> Ptr () -> IO CInt
328 329
329-- | wrapper for double gsl_sf_lnbeta(double a,double b); 330-- | wrapper for double gsl_sf_lnbeta(double a,double b);
330-- 331--
@@ -333,12 +334,19 @@ lnbeta :: Double -> Double -> Double
333lnbeta = gsl_sf_lnbeta 334lnbeta = gsl_sf_lnbeta
334foreign import ccall "gamma.h gsl_sf_lnbeta" gsl_sf_lnbeta :: Double -> Double -> Double 335foreign import ccall "gamma.h gsl_sf_lnbeta" gsl_sf_lnbeta :: Double -> Double -> Double
335 336
337-- | wrapper for int gsl_sf_lnbeta_sgn_e(double x,double y,gsl_sf_result* result,double* sgn);
338--
339-- <http://www.google.com/search?q=gsl_sf_lnbeta_sgn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
340lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt
341lnbeta_sgn_e = gsl_sf_lnbeta_sgn_e
342foreign import ccall "gamma.h gsl_sf_lnbeta_sgn_e" gsl_sf_lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt
343
336-- | wrapper for int gsl_sf_beta_e(double a,double b,gsl_sf_result* result); 344-- | wrapper for int gsl_sf_beta_e(double a,double b,gsl_sf_result* result);
337-- 345--
338-- <http://www.google.com/search?q=gsl_sf_beta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 346-- <http://www.google.com/search?q=gsl_sf_beta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
339beta_e :: Double -> Double -> (Double,Double) 347beta_e :: Double -> Double -> (Double,Double)
340beta_e a b = createSFR "beta_e" $ gsl_sf_beta_e a b 348beta_e a b = createSFR "beta_e" $ gsl_sf_beta_e a b
341foreign import ccall "gamma.h gsl_sf_beta_e" gsl_sf_beta_e :: Double -> Double -> Ptr Double -> IO(Int) 349foreign import ccall "gamma.h gsl_sf_beta_e" gsl_sf_beta_e :: Double -> Double -> Ptr () -> IO CInt
342 350
343-- | wrapper for double gsl_sf_beta(double a,double b); 351-- | wrapper for double gsl_sf_beta(double a,double b);
344-- 352--
@@ -352,7 +360,7 @@ foreign import ccall "gamma.h gsl_sf_beta" gsl_sf_beta :: Double -> Double -> Do
352-- <http://www.google.com/search?q=gsl_sf_beta_inc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 360-- <http://www.google.com/search?q=gsl_sf_beta_inc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
353beta_inc_e :: Double -> Double -> Double -> (Double,Double) 361beta_inc_e :: Double -> Double -> Double -> (Double,Double)
354beta_inc_e a b x = createSFR "beta_inc_e" $ gsl_sf_beta_inc_e a b x 362beta_inc_e a b x = createSFR "beta_inc_e" $ gsl_sf_beta_inc_e a b x
355foreign import ccall "gamma.h gsl_sf_beta_inc_e" gsl_sf_beta_inc_e :: Double -> Double -> Double -> Ptr Double -> IO(Int) 363foreign import ccall "gamma.h gsl_sf_beta_inc_e" gsl_sf_beta_inc_e :: Double -> Double -> Double -> Ptr () -> IO CInt
356 364
357-- | wrapper for double gsl_sf_beta_inc(double a,double b,double x); 365-- | wrapper for double gsl_sf_beta_inc(double a,double b,double x);
358-- 366--
diff --git a/lib/Numeric/GSL/Special/Gegenbauer.hs b/lib/Numeric/GSL/Special/Gegenbauer.hs
index 40cc1e9..9e8ebcd 100644
--- a/lib/Numeric/GSL/Special/Gegenbauer.hs
+++ b/lib/Numeric/GSL/Special/Gegenbauer.hs
@@ -26,6 +26,7 @@ module Numeric.GSL.Special.Gegenbauer(
26) where 26) where
27 27
28import Foreign(Ptr) 28import Foreign(Ptr)
29import Foreign.C.Types(CInt)
29import Numeric.GSL.Special.Internal 30import Numeric.GSL.Special.Internal
30 31
31-- | wrapper for int gsl_sf_gegenpoly_1_e(double lambda,double x,gsl_sf_result* result); 32-- | wrapper for int gsl_sf_gegenpoly_1_e(double lambda,double x,gsl_sf_result* result);
@@ -33,21 +34,21 @@ import Numeric.GSL.Special.Internal
33-- <http://www.google.com/search?q=gsl_sf_gegenpoly_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 34-- <http://www.google.com/search?q=gsl_sf_gegenpoly_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
34gegenpoly_1_e :: Double -> Double -> (Double,Double) 35gegenpoly_1_e :: Double -> Double -> (Double,Double)
35gegenpoly_1_e lambda x = createSFR "gegenpoly_1_e" $ gsl_sf_gegenpoly_1_e lambda x 36gegenpoly_1_e lambda x = createSFR "gegenpoly_1_e" $ gsl_sf_gegenpoly_1_e lambda x
36foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_1_e" gsl_sf_gegenpoly_1_e :: Double -> Double -> Ptr Double -> IO(Int) 37foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_1_e" gsl_sf_gegenpoly_1_e :: Double -> Double -> Ptr () -> IO CInt
37 38
38-- | wrapper for int gsl_sf_gegenpoly_2_e(double lambda,double x,gsl_sf_result* result); 39-- | wrapper for int gsl_sf_gegenpoly_2_e(double lambda,double x,gsl_sf_result* result);
39-- 40--
40-- <http://www.google.com/search?q=gsl_sf_gegenpoly_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 41-- <http://www.google.com/search?q=gsl_sf_gegenpoly_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
41gegenpoly_2_e :: Double -> Double -> (Double,Double) 42gegenpoly_2_e :: Double -> Double -> (Double,Double)
42gegenpoly_2_e lambda x = createSFR "gegenpoly_2_e" $ gsl_sf_gegenpoly_2_e lambda x 43gegenpoly_2_e lambda x = createSFR "gegenpoly_2_e" $ gsl_sf_gegenpoly_2_e lambda x
43foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_2_e" gsl_sf_gegenpoly_2_e :: Double -> Double -> Ptr Double -> IO(Int) 44foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_2_e" gsl_sf_gegenpoly_2_e :: Double -> Double -> Ptr () -> IO CInt
44 45
45-- | wrapper for int gsl_sf_gegenpoly_3_e(double lambda,double x,gsl_sf_result* result); 46-- | wrapper for int gsl_sf_gegenpoly_3_e(double lambda,double x,gsl_sf_result* result);
46-- 47--
47-- <http://www.google.com/search?q=gsl_sf_gegenpoly_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 48-- <http://www.google.com/search?q=gsl_sf_gegenpoly_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
48gegenpoly_3_e :: Double -> Double -> (Double,Double) 49gegenpoly_3_e :: Double -> Double -> (Double,Double)
49gegenpoly_3_e lambda x = createSFR "gegenpoly_3_e" $ gsl_sf_gegenpoly_3_e lambda x 50gegenpoly_3_e lambda x = createSFR "gegenpoly_3_e" $ gsl_sf_gegenpoly_3_e lambda x
50foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_3_e" gsl_sf_gegenpoly_3_e :: Double -> Double -> Ptr Double -> IO(Int) 51foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_3_e" gsl_sf_gegenpoly_3_e :: Double -> Double -> Ptr () -> IO CInt
51 52
52-- | wrapper for double gsl_sf_gegenpoly_1(double lambda,double x); 53-- | wrapper for double gsl_sf_gegenpoly_1(double lambda,double x);
53-- 54--
@@ -73,20 +74,20 @@ foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_3" gsl_sf_gegenpoly_3 :: Dou
73-- | wrapper for int gsl_sf_gegenpoly_n_e(int n,double lambda,double x,gsl_sf_result* result); 74-- | wrapper for int gsl_sf_gegenpoly_n_e(int n,double lambda,double x,gsl_sf_result* result);
74-- 75--
75-- <http://www.google.com/search?q=gsl_sf_gegenpoly_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 76-- <http://www.google.com/search?q=gsl_sf_gegenpoly_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
76gegenpoly_n_e :: Int -> Double -> Double -> (Double,Double) 77gegenpoly_n_e :: CInt -> Double -> Double -> (Double,Double)
77gegenpoly_n_e n lambda x = createSFR "gegenpoly_n_e" $ gsl_sf_gegenpoly_n_e n lambda x 78gegenpoly_n_e n lambda x = createSFR "gegenpoly_n_e" $ gsl_sf_gegenpoly_n_e n lambda x
78foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_n_e" gsl_sf_gegenpoly_n_e :: Int -> Double -> Double -> Ptr Double -> IO(Int) 79foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_n_e" gsl_sf_gegenpoly_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt
79 80
80-- | wrapper for double gsl_sf_gegenpoly_n(int n,double lambda,double x); 81-- | wrapper for double gsl_sf_gegenpoly_n(int n,double lambda,double x);
81-- 82--
82-- <http://www.google.com/search?q=gsl_sf_gegenpoly_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 83-- <http://www.google.com/search?q=gsl_sf_gegenpoly_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
83gegenpoly_n :: Int -> Double -> Double -> Double 84gegenpoly_n :: CInt -> Double -> Double -> Double
84gegenpoly_n = gsl_sf_gegenpoly_n 85gegenpoly_n = gsl_sf_gegenpoly_n
85foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_n" gsl_sf_gegenpoly_n :: Int -> Double -> Double -> Double 86foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_n" gsl_sf_gegenpoly_n :: CInt -> Double -> Double -> Double
86 87
87-- | wrapper for int gsl_sf_gegenpoly_array(int nmax,double lambda,double x,double* result_array); 88-- | wrapper for int gsl_sf_gegenpoly_array(int nmax,double lambda,double x,double* result_array);
88-- 89--
89-- <http://www.google.com/search?q=gsl_sf_gegenpoly_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 90-- <http://www.google.com/search?q=gsl_sf_gegenpoly_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
90gegenpoly_array :: Int -> Double -> Double -> Ptr Double -> Int 91gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt
91gegenpoly_array = gsl_sf_gegenpoly_array 92gegenpoly_array = gsl_sf_gegenpoly_array
92foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_array" gsl_sf_gegenpoly_array :: Int -> Double -> Double -> Ptr Double -> Int 93foreign import ccall "gegenbauer.h 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 28bf984..45f5c3e 100644
--- a/lib/Numeric/GSL/Special/Hyperg.hs
+++ b/lib/Numeric/GSL/Special/Hyperg.hs
@@ -40,6 +40,7 @@ module Numeric.GSL.Special.Hyperg(
40) where 40) where
41 41
42import Foreign(Ptr) 42import Foreign(Ptr)
43import Foreign.C.Types(CInt)
43import Numeric.GSL.Special.Internal 44import Numeric.GSL.Special.Internal
44 45
45-- | wrapper for int gsl_sf_hyperg_0F1_e(double c,double x,gsl_sf_result* result); 46-- | wrapper for int gsl_sf_hyperg_0F1_e(double c,double x,gsl_sf_result* result);
@@ -47,7 +48,7 @@ import Numeric.GSL.Special.Internal
47-- <http://www.google.com/search?q=gsl_sf_hyperg_0F1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 48-- <http://www.google.com/search?q=gsl_sf_hyperg_0F1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
48hyperg_0F1_e :: Double -> Double -> (Double,Double) 49hyperg_0F1_e :: Double -> Double -> (Double,Double)
49hyperg_0F1_e c x = createSFR "hyperg_0F1_e" $ gsl_sf_hyperg_0F1_e c x 50hyperg_0F1_e c x = createSFR "hyperg_0F1_e" $ gsl_sf_hyperg_0F1_e c x
50foreign import ccall "hyperg.h gsl_sf_hyperg_0F1_e" gsl_sf_hyperg_0F1_e :: Double -> Double -> Ptr Double -> IO(Int) 51foreign import ccall "hyperg.h gsl_sf_hyperg_0F1_e" gsl_sf_hyperg_0F1_e :: Double -> Double -> Ptr () -> IO CInt
51 52
52-- | wrapper for double gsl_sf_hyperg_0F1(double c,double x); 53-- | wrapper for double gsl_sf_hyperg_0F1(double c,double x);
53-- 54--
@@ -59,23 +60,23 @@ foreign import ccall "hyperg.h gsl_sf_hyperg_0F1" gsl_sf_hyperg_0F1 :: Double ->
59-- | wrapper for int gsl_sf_hyperg_1F1_int_e(int m,int n,double x,gsl_sf_result* result); 60-- | wrapper for int gsl_sf_hyperg_1F1_int_e(int m,int n,double x,gsl_sf_result* result);
60-- 61--
61-- <http://www.google.com/search?q=gsl_sf_hyperg_1F1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 62-- <http://www.google.com/search?q=gsl_sf_hyperg_1F1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
62hyperg_1F1_int_e :: Int -> Int -> Double -> (Double,Double) 63hyperg_1F1_int_e :: CInt -> CInt -> Double -> (Double,Double)
63hyperg_1F1_int_e m n x = createSFR "hyperg_1F1_int_e" $ gsl_sf_hyperg_1F1_int_e m n x 64hyperg_1F1_int_e m n x = createSFR "hyperg_1F1_int_e" $ gsl_sf_hyperg_1F1_int_e m n x
64foreign import ccall "hyperg.h gsl_sf_hyperg_1F1_int_e" gsl_sf_hyperg_1F1_int_e :: Int -> Int -> Double -> Ptr Double -> IO(Int) 65foreign import ccall "hyperg.h gsl_sf_hyperg_1F1_int_e" gsl_sf_hyperg_1F1_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt
65 66
66-- | wrapper for double gsl_sf_hyperg_1F1_int(int m,int n,double x); 67-- | wrapper for double gsl_sf_hyperg_1F1_int(int m,int n,double x);
67-- 68--
68-- <http://www.google.com/search?q=gsl_sf_hyperg_1F1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 69-- <http://www.google.com/search?q=gsl_sf_hyperg_1F1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
69hyperg_1F1_int :: Int -> Int -> Double -> Double 70hyperg_1F1_int :: CInt -> CInt -> Double -> Double
70hyperg_1F1_int = gsl_sf_hyperg_1F1_int 71hyperg_1F1_int = gsl_sf_hyperg_1F1_int
71foreign import ccall "hyperg.h gsl_sf_hyperg_1F1_int" gsl_sf_hyperg_1F1_int :: Int -> Int -> Double -> Double 72foreign import ccall "hyperg.h gsl_sf_hyperg_1F1_int" gsl_sf_hyperg_1F1_int :: CInt -> CInt -> Double -> Double
72 73
73-- | wrapper for int gsl_sf_hyperg_1F1_e(double a,double b,double x,gsl_sf_result* result); 74-- | wrapper for int gsl_sf_hyperg_1F1_e(double a,double b,double x,gsl_sf_result* result);
74-- 75--
75-- <http://www.google.com/search?q=gsl_sf_hyperg_1F1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 76-- <http://www.google.com/search?q=gsl_sf_hyperg_1F1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
76hyperg_1F1_e :: Double -> Double -> Double -> (Double,Double) 77hyperg_1F1_e :: Double -> Double -> Double -> (Double,Double)
77hyperg_1F1_e a b x = createSFR "hyperg_1F1_e" $ gsl_sf_hyperg_1F1_e a b x 78hyperg_1F1_e a b x = createSFR "hyperg_1F1_e" $ gsl_sf_hyperg_1F1_e a b x
78foreign import ccall "hyperg.h gsl_sf_hyperg_1F1_e" gsl_sf_hyperg_1F1_e :: Double -> Double -> Double -> Ptr Double -> IO(Int) 79foreign import ccall "hyperg.h gsl_sf_hyperg_1F1_e" gsl_sf_hyperg_1F1_e :: Double -> Double -> Double -> Ptr () -> IO CInt
79 80
80-- | wrapper for double gsl_sf_hyperg_1F1(double a,double b,double x); 81-- | wrapper for double gsl_sf_hyperg_1F1(double a,double b,double x);
81-- 82--
@@ -87,30 +88,30 @@ foreign import ccall "hyperg.h gsl_sf_hyperg_1F1" gsl_sf_hyperg_1F1 :: Double ->
87-- | wrapper for int gsl_sf_hyperg_U_int_e(int m,int n,double x,gsl_sf_result* result); 88-- | wrapper for int gsl_sf_hyperg_U_int_e(int m,int n,double x,gsl_sf_result* result);
88-- 89--
89-- <http://www.google.com/search?q=gsl_sf_hyperg_U_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 90-- <http://www.google.com/search?q=gsl_sf_hyperg_U_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
90hyperg_U_int_e :: Int -> Int -> Double -> (Double,Double) 91hyperg_U_int_e :: CInt -> CInt -> Double -> (Double,Double)
91hyperg_U_int_e m n x = createSFR "hyperg_U_int_e" $ gsl_sf_hyperg_U_int_e m n x 92hyperg_U_int_e m n x = createSFR "hyperg_U_int_e" $ gsl_sf_hyperg_U_int_e m n x
92foreign import ccall "hyperg.h gsl_sf_hyperg_U_int_e" gsl_sf_hyperg_U_int_e :: Int -> Int -> Double -> Ptr Double -> IO(Int) 93foreign import ccall "hyperg.h gsl_sf_hyperg_U_int_e" gsl_sf_hyperg_U_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt
93 94
94-- | wrapper for double gsl_sf_hyperg_U_int(int m,int n,double x); 95-- | wrapper for double gsl_sf_hyperg_U_int(int m,int n,double x);
95-- 96--
96-- <http://www.google.com/search?q=gsl_sf_hyperg_U_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 97-- <http://www.google.com/search?q=gsl_sf_hyperg_U_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
97hyperg_U_int :: Int -> Int -> Double -> Double 98hyperg_U_int :: CInt -> CInt -> Double -> Double
98hyperg_U_int = gsl_sf_hyperg_U_int 99hyperg_U_int = gsl_sf_hyperg_U_int
99foreign import ccall "hyperg.h gsl_sf_hyperg_U_int" gsl_sf_hyperg_U_int :: Int -> Int -> Double -> Double 100foreign import ccall "hyperg.h gsl_sf_hyperg_U_int" gsl_sf_hyperg_U_int :: CInt -> CInt -> Double -> Double
100 101
101-- | wrapper for int gsl_sf_hyperg_U_int_e10_e(int m,int n,double x,gsl_sf_result_e10* result); 102-- | wrapper for int gsl_sf_hyperg_U_int_e10_e(int m,int n,double x,gsl_sf_result_e10* result);
102-- 103--
103-- <http://www.google.com/search?q=gsl_sf_hyperg_U_int_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 104-- <http://www.google.com/search?q=gsl_sf_hyperg_U_int_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
104hyperg_U_int_e10_e :: Int -> Int -> Double -> (Double,Int,Double) 105hyperg_U_int_e10_e :: CInt -> CInt -> Double -> (Double,Int,Double)
105hyperg_U_int_e10_e m n x = createSFR_E10 "hyperg_U_int_e10_e" $ gsl_sf_hyperg_U_int_e10_e m n x 106hyperg_U_int_e10_e m n x = createSFR_E10 "hyperg_U_int_e10_e" $ gsl_sf_hyperg_U_int_e10_e m n x
106foreign import ccall "hyperg.h gsl_sf_hyperg_U_int_e10_e" gsl_sf_hyperg_U_int_e10_e :: Int -> Int -> Double -> Ptr () -> IO(Int) 107foreign import ccall "hyperg.h gsl_sf_hyperg_U_int_e10_e" gsl_sf_hyperg_U_int_e10_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt
107 108
108-- | wrapper for int gsl_sf_hyperg_U_e(double a,double b,double x,gsl_sf_result* result); 109-- | wrapper for int gsl_sf_hyperg_U_e(double a,double b,double x,gsl_sf_result* result);
109-- 110--
110-- <http://www.google.com/search?q=gsl_sf_hyperg_U_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 111-- <http://www.google.com/search?q=gsl_sf_hyperg_U_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
111hyperg_U_e :: Double -> Double -> Double -> (Double,Double) 112hyperg_U_e :: Double -> Double -> Double -> (Double,Double)
112hyperg_U_e a b x = createSFR "hyperg_U_e" $ gsl_sf_hyperg_U_e a b x 113hyperg_U_e a b x = createSFR "hyperg_U_e" $ gsl_sf_hyperg_U_e a b x
113foreign import ccall "hyperg.h gsl_sf_hyperg_U_e" gsl_sf_hyperg_U_e :: Double -> Double -> Double -> Ptr Double -> IO(Int) 114foreign import ccall "hyperg.h gsl_sf_hyperg_U_e" gsl_sf_hyperg_U_e :: Double -> Double -> Double -> Ptr () -> IO CInt
114 115
115-- | wrapper for double gsl_sf_hyperg_U(double a,double b,double x); 116-- | wrapper for double gsl_sf_hyperg_U(double a,double b,double x);
116-- 117--
@@ -124,14 +125,14 @@ foreign import ccall "hyperg.h gsl_sf_hyperg_U" gsl_sf_hyperg_U :: Double -> Dou
124-- <http://www.google.com/search?q=gsl_sf_hyperg_U_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 125-- <http://www.google.com/search?q=gsl_sf_hyperg_U_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
125hyperg_U_e10_e :: Double -> Double -> Double -> (Double,Int,Double) 126hyperg_U_e10_e :: Double -> Double -> Double -> (Double,Int,Double)
126hyperg_U_e10_e a b x = createSFR_E10 "hyperg_U_e10_e" $ gsl_sf_hyperg_U_e10_e a b x 127hyperg_U_e10_e a b x = createSFR_E10 "hyperg_U_e10_e" $ gsl_sf_hyperg_U_e10_e a b x
127foreign import ccall "hyperg.h gsl_sf_hyperg_U_e10_e" gsl_sf_hyperg_U_e10_e :: Double -> Double -> Double -> Ptr () -> IO(Int) 128foreign import ccall "hyperg.h gsl_sf_hyperg_U_e10_e" gsl_sf_hyperg_U_e10_e :: Double -> Double -> Double -> Ptr () -> IO CInt
128 129
129-- | wrapper for int gsl_sf_hyperg_2F1_e(double a,double b,double c,double x,gsl_sf_result* result); 130-- | wrapper for int gsl_sf_hyperg_2F1_e(double a,double b,double c,double x,gsl_sf_result* result);
130-- 131--
131-- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 132-- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
132hyperg_2F1_e :: Double -> Double -> Double -> Double -> (Double,Double) 133hyperg_2F1_e :: Double -> Double -> Double -> Double -> (Double,Double)
133hyperg_2F1_e a b c x = createSFR "hyperg_2F1_e" $ gsl_sf_hyperg_2F1_e a b c x 134hyperg_2F1_e a b c x = createSFR "hyperg_2F1_e" $ gsl_sf_hyperg_2F1_e a b c x
134foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_e" gsl_sf_hyperg_2F1_e :: Double -> Double -> Double -> Double -> Ptr Double -> IO(Int) 135foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_e" gsl_sf_hyperg_2F1_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt
135 136
136-- | wrapper for double gsl_sf_hyperg_2F1(double a,double b,double c,double x); 137-- | wrapper for double gsl_sf_hyperg_2F1(double a,double b,double c,double x);
137-- 138--
@@ -145,7 +146,7 @@ foreign import ccall "hyperg.h gsl_sf_hyperg_2F1" gsl_sf_hyperg_2F1 :: Double ->
145-- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_conj_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 146-- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_conj_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
146hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> (Double,Double) 147hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> (Double,Double)
147hyperg_2F1_conj_e aR aI c x = createSFR "hyperg_2F1_conj_e" $ gsl_sf_hyperg_2F1_conj_e aR aI c x 148hyperg_2F1_conj_e aR aI c x = createSFR "hyperg_2F1_conj_e" $ gsl_sf_hyperg_2F1_conj_e aR aI c x
148foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_conj_e" gsl_sf_hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> Ptr Double -> IO(Int) 149foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_conj_e" gsl_sf_hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt
149 150
150-- | wrapper for double gsl_sf_hyperg_2F1_conj(double aR,double aI,double c,double x); 151-- | wrapper for double gsl_sf_hyperg_2F1_conj(double aR,double aI,double c,double x);
151-- 152--
@@ -159,7 +160,7 @@ foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_conj" gsl_sf_hyperg_2F1_conj ::
159-- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_renorm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 160-- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_renorm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
160hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) 161hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double)
161hyperg_2F1_renorm_e a b c x = createSFR "hyperg_2F1_renorm_e" $ gsl_sf_hyperg_2F1_renorm_e a b c x 162hyperg_2F1_renorm_e a b c x = createSFR "hyperg_2F1_renorm_e" $ gsl_sf_hyperg_2F1_renorm_e a b c x
162foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_renorm_e" gsl_sf_hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> Ptr Double -> IO(Int) 163foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_renorm_e" gsl_sf_hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt
163 164
164-- | wrapper for double gsl_sf_hyperg_2F1_renorm(double a,double b,double c,double x); 165-- | wrapper for double gsl_sf_hyperg_2F1_renorm(double a,double b,double c,double x);
165-- 166--
@@ -173,7 +174,7 @@ foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_renorm" gsl_sf_hyperg_2F1_renor
173-- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_conj_renorm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 174-- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_conj_renorm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
174hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) 175hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double)
175hyperg_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 176hyperg_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
176foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_conj_renorm_e" gsl_sf_hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> Ptr Double -> IO(Int) 177foreign 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
177 178
178-- | wrapper for double gsl_sf_hyperg_2F1_conj_renorm(double aR,double aI,double c,double x); 179-- | wrapper for double gsl_sf_hyperg_2F1_conj_renorm(double aR,double aI,double c,double x);
179-- 180--
@@ -187,7 +188,7 @@ foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_conj_renorm" gsl_sf_hyperg_2F1_
187-- <http://www.google.com/search?q=gsl_sf_hyperg_2F0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 188-- <http://www.google.com/search?q=gsl_sf_hyperg_2F0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
188hyperg_2F0_e :: Double -> Double -> Double -> (Double,Double) 189hyperg_2F0_e :: Double -> Double -> Double -> (Double,Double)
189hyperg_2F0_e a b x = createSFR "hyperg_2F0_e" $ gsl_sf_hyperg_2F0_e a b x 190hyperg_2F0_e a b x = createSFR "hyperg_2F0_e" $ gsl_sf_hyperg_2F0_e a b x
190foreign import ccall "hyperg.h gsl_sf_hyperg_2F0_e" gsl_sf_hyperg_2F0_e :: Double -> Double -> Double -> Ptr Double -> IO(Int) 191foreign import ccall "hyperg.h gsl_sf_hyperg_2F0_e" gsl_sf_hyperg_2F0_e :: Double -> Double -> Double -> Ptr () -> IO CInt
191 192
192-- | wrapper for double gsl_sf_hyperg_2F0(double a,double b,double x); 193-- | wrapper for double gsl_sf_hyperg_2F0(double a,double b,double x);
193-- 194--
diff --git a/lib/Numeric/GSL/Special/Internal.hsc b/lib/Numeric/GSL/Special/Internal.hsc
index 03a431c..e0744d7 100644
--- a/lib/Numeric/GSL/Special/Internal.hsc
+++ b/lib/Numeric/GSL/Special/Internal.hsc
@@ -30,7 +30,7 @@ where
30 30
31import Foreign 31import Foreign
32import Data.Packed.Internal(check,(//)) 32import Data.Packed.Internal(check,(//))
33import Foreign.C.Types(CSize) 33import Foreign.C.Types(CSize,CInt)
34 34
35 35
36data Precision = PrecDouble | PrecSingle | PrecApprox 36data Precision = PrecDouble | PrecSingle | PrecApprox
@@ -61,7 +61,7 @@ instance Storable Gsl_sf_result where
61 (#poke gsl_sf_result, err) ptr err 61 (#poke gsl_sf_result, err) ptr err
62 62
63 63
64data Gsl_sf_result_e10 = SFE Double Double Int 64data Gsl_sf_result_e10 = SFE Double Double CInt
65 deriving (Show) 65 deriving (Show)
66 66
67instance Storable Gsl_sf_result_e10 where 67instance Storable Gsl_sf_result_e10 where
@@ -80,7 +80,7 @@ instance Storable Gsl_sf_result_e10 where
80 80
81---------------------------------------------------------------- 81----------------------------------------------------------------
82-- | access to a sf_result 82-- | access to a sf_result
83createSFR :: String -> (Ptr a -> IO Int) -> (Double, Double) 83createSFR :: String -> (Ptr a -> IO CInt) -> (Double, Double)
84createSFR s f = unsafePerformIO $ do 84createSFR s f = unsafePerformIO $ do
85 p <- malloc :: IO (Ptr Gsl_sf_result) 85 p <- malloc :: IO (Ptr Gsl_sf_result)
86 f (castPtr p) // check s 86 f (castPtr p) // check s
@@ -93,10 +93,10 @@ createSFR s f = unsafePerformIO $ do
93-- the sf_result_e10 contains two doubles and the exponent 93-- the sf_result_e10 contains two doubles and the exponent
94 94
95-- | access to sf_result_e10 95-- | access to sf_result_e10
96createSFR_E10 :: String -> (Ptr a -> IO Int) -> (Double, Int, Double) 96createSFR_E10 :: String -> (Ptr a -> IO CInt) -> (Double, Int, Double)
97createSFR_E10 s f = unsafePerformIO $ do 97createSFR_E10 s f = unsafePerformIO $ do
98 p <- malloc :: IO (Ptr Gsl_sf_result_e10) 98 p <- malloc :: IO (Ptr Gsl_sf_result_e10)
99 f (castPtr p) // check s 99 f (castPtr p) // check s
100 SFE val err expo <- peek p 100 SFE val err expo <- peek p
101 free p 101 free p
102 return (val,expo,err) 102 return (val, fromIntegral expo,err)
diff --git a/lib/Numeric/GSL/Special/Laguerre.hs b/lib/Numeric/GSL/Special/Laguerre.hs
index 320e451..81e7c47 100644
--- a/lib/Numeric/GSL/Special/Laguerre.hs
+++ b/lib/Numeric/GSL/Special/Laguerre.hs
@@ -26,6 +26,7 @@ module Numeric.GSL.Special.Laguerre(
26) where 26) where
27 27
28import Foreign(Ptr) 28import Foreign(Ptr)
29import Foreign.C.Types(CInt)
29import Numeric.GSL.Special.Internal 30import Numeric.GSL.Special.Internal
30 31
31-- | wrapper for int gsl_sf_laguerre_1_e(double a,double x,gsl_sf_result* result); 32-- | wrapper for int gsl_sf_laguerre_1_e(double a,double x,gsl_sf_result* result);
@@ -33,21 +34,21 @@ import Numeric.GSL.Special.Internal
33-- <http://www.google.com/search?q=gsl_sf_laguerre_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 34-- <http://www.google.com/search?q=gsl_sf_laguerre_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
34laguerre_1_e :: Double -> Double -> (Double,Double) 35laguerre_1_e :: Double -> Double -> (Double,Double)
35laguerre_1_e a x = createSFR "laguerre_1_e" $ gsl_sf_laguerre_1_e a x 36laguerre_1_e a x = createSFR "laguerre_1_e" $ gsl_sf_laguerre_1_e a x
36foreign import ccall "laguerre.h gsl_sf_laguerre_1_e" gsl_sf_laguerre_1_e :: Double -> Double -> Ptr Double -> IO(Int) 37foreign import ccall "laguerre.h gsl_sf_laguerre_1_e" gsl_sf_laguerre_1_e :: Double -> Double -> Ptr () -> IO CInt
37 38
38-- | wrapper for int gsl_sf_laguerre_2_e(double a,double x,gsl_sf_result* result); 39-- | wrapper for int gsl_sf_laguerre_2_e(double a,double x,gsl_sf_result* result);
39-- 40--
40-- <http://www.google.com/search?q=gsl_sf_laguerre_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 41-- <http://www.google.com/search?q=gsl_sf_laguerre_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
41laguerre_2_e :: Double -> Double -> (Double,Double) 42laguerre_2_e :: Double -> Double -> (Double,Double)
42laguerre_2_e a x = createSFR "laguerre_2_e" $ gsl_sf_laguerre_2_e a x 43laguerre_2_e a x = createSFR "laguerre_2_e" $ gsl_sf_laguerre_2_e a x
43foreign import ccall "laguerre.h gsl_sf_laguerre_2_e" gsl_sf_laguerre_2_e :: Double -> Double -> Ptr Double -> IO(Int) 44foreign import ccall "laguerre.h gsl_sf_laguerre_2_e" gsl_sf_laguerre_2_e :: Double -> Double -> Ptr () -> IO CInt
44 45
45-- | wrapper for int gsl_sf_laguerre_3_e(double a,double x,gsl_sf_result* result); 46-- | wrapper for int gsl_sf_laguerre_3_e(double a,double x,gsl_sf_result* result);
46-- 47--
47-- <http://www.google.com/search?q=gsl_sf_laguerre_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 48-- <http://www.google.com/search?q=gsl_sf_laguerre_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
48laguerre_3_e :: Double -> Double -> (Double,Double) 49laguerre_3_e :: Double -> Double -> (Double,Double)
49laguerre_3_e a x = createSFR "laguerre_3_e" $ gsl_sf_laguerre_3_e a x 50laguerre_3_e a x = createSFR "laguerre_3_e" $ gsl_sf_laguerre_3_e a x
50foreign import ccall "laguerre.h gsl_sf_laguerre_3_e" gsl_sf_laguerre_3_e :: Double -> Double -> Ptr Double -> IO(Int) 51foreign import ccall "laguerre.h gsl_sf_laguerre_3_e" gsl_sf_laguerre_3_e :: Double -> Double -> Ptr () -> IO CInt
51 52
52-- | wrapper for double gsl_sf_laguerre_1(double a,double x); 53-- | wrapper for double gsl_sf_laguerre_1(double a,double x);
53-- 54--
@@ -73,13 +74,13 @@ foreign import ccall "laguerre.h gsl_sf_laguerre_3" gsl_sf_laguerre_3 :: Double
73-- | wrapper for int gsl_sf_laguerre_n_e(int n,double a,double x,gsl_sf_result* result); 74-- | wrapper for int gsl_sf_laguerre_n_e(int n,double a,double x,gsl_sf_result* result);
74-- 75--
75-- <http://www.google.com/search?q=gsl_sf_laguerre_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 76-- <http://www.google.com/search?q=gsl_sf_laguerre_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
76laguerre_n_e :: Int -> Double -> Double -> (Double,Double) 77laguerre_n_e :: CInt -> Double -> Double -> (Double,Double)
77laguerre_n_e n a x = createSFR "laguerre_n_e" $ gsl_sf_laguerre_n_e n a x 78laguerre_n_e n a x = createSFR "laguerre_n_e" $ gsl_sf_laguerre_n_e n a x
78foreign import ccall "laguerre.h gsl_sf_laguerre_n_e" gsl_sf_laguerre_n_e :: Int -> Double -> Double -> Ptr Double -> IO(Int) 79foreign import ccall "laguerre.h gsl_sf_laguerre_n_e" gsl_sf_laguerre_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt
79 80
80-- | wrapper for double gsl_sf_laguerre_n(int n,double a,double x); 81-- | wrapper for double gsl_sf_laguerre_n(int n,double a,double x);
81-- 82--
82-- <http://www.google.com/search?q=gsl_sf_laguerre_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 83-- <http://www.google.com/search?q=gsl_sf_laguerre_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
83laguerre_n :: Int -> Double -> Double -> Double 84laguerre_n :: CInt -> Double -> Double -> Double
84laguerre_n = gsl_sf_laguerre_n 85laguerre_n = gsl_sf_laguerre_n
85foreign import ccall "laguerre.h gsl_sf_laguerre_n" gsl_sf_laguerre_n :: Int -> Double -> Double -> Double 86foreign import ccall "laguerre.h 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 ad5579f..18071fa 100644
--- a/lib/Numeric/GSL/Special/Lambert.hs
+++ b/lib/Numeric/GSL/Special/Lambert.hs
@@ -22,6 +22,7 @@ module Numeric.GSL.Special.Lambert(
22) where 22) where
23 23
24import Foreign(Ptr) 24import Foreign(Ptr)
25import Foreign.C.Types(CInt)
25import Numeric.GSL.Special.Internal 26import Numeric.GSL.Special.Internal
26 27
27-- | wrapper for int gsl_sf_lambert_W0_e(double x,gsl_sf_result* result); 28-- | wrapper for int gsl_sf_lambert_W0_e(double x,gsl_sf_result* result);
@@ -29,7 +30,7 @@ import Numeric.GSL.Special.Internal
29-- <http://www.google.com/search?q=gsl_sf_lambert_W0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 30-- <http://www.google.com/search?q=gsl_sf_lambert_W0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
30lambert_W0_e :: Double -> (Double,Double) 31lambert_W0_e :: Double -> (Double,Double)
31lambert_W0_e x = createSFR "lambert_W0_e" $ gsl_sf_lambert_W0_e x 32lambert_W0_e x = createSFR "lambert_W0_e" $ gsl_sf_lambert_W0_e x
32foreign import ccall "lambert.h gsl_sf_lambert_W0_e" gsl_sf_lambert_W0_e :: Double -> Ptr Double -> IO(Int) 33foreign import ccall "lambert.h gsl_sf_lambert_W0_e" gsl_sf_lambert_W0_e :: Double -> Ptr () -> IO CInt
33 34
34-- | wrapper for double gsl_sf_lambert_W0(double x); 35-- | wrapper for double gsl_sf_lambert_W0(double x);
35-- 36--
@@ -43,7 +44,7 @@ foreign import ccall "lambert.h gsl_sf_lambert_W0" gsl_sf_lambert_W0 :: Double -
43-- <http://www.google.com/search?q=gsl_sf_lambert_Wm1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 44-- <http://www.google.com/search?q=gsl_sf_lambert_Wm1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
44lambert_Wm1_e :: Double -> (Double,Double) 45lambert_Wm1_e :: Double -> (Double,Double)
45lambert_Wm1_e x = createSFR "lambert_Wm1_e" $ gsl_sf_lambert_Wm1_e x 46lambert_Wm1_e x = createSFR "lambert_Wm1_e" $ gsl_sf_lambert_Wm1_e x
46foreign import ccall "lambert.h gsl_sf_lambert_Wm1_e" gsl_sf_lambert_Wm1_e :: Double -> Ptr Double -> IO(Int) 47foreign import ccall "lambert.h gsl_sf_lambert_Wm1_e" gsl_sf_lambert_Wm1_e :: Double -> Ptr () -> IO CInt
47 48
48-- | wrapper for double gsl_sf_lambert_Wm1(double x); 49-- | wrapper for double gsl_sf_lambert_Wm1(double x);
49-- 50--
diff --git a/lib/Numeric/GSL/Special/Legendre.hs b/lib/Numeric/GSL/Special/Legendre.hs
index 0ea7557..15dfde8 100644
--- a/lib/Numeric/GSL/Special/Legendre.hs
+++ b/lib/Numeric/GSL/Special/Legendre.hs
@@ -9,270 +9,341 @@ Portability : uses ffi
9 9
10Wrappers for selected functions described at: 10Wrappers for selected functions described at:
11 11
12<http://www.gnu.org/software/gsl/manual/html_node/Legendre-Functions-and-Spherical-Harmonics.html> 12<http://www.google.com/search?q=gsl_sf_legendre.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13 13
14-} 14-}
15------------------------------------------------------------ 15------------------------------------------------------------
16 16
17module Numeric.GSL.Special.Legendre( 17module Numeric.GSL.Special.Legendre(
18 legendre_Pl_e 18 legendre_Pl
19, legendre_Pl
20, legendre_P1_e
21, legendre_P2_e
22, legendre_P3_e
23, legendre_P1 19, legendre_P1
24, legendre_P2 20, legendre_P2
25, legendre_P3 21, legendre_P3
26, legendre_Q0_e
27, legendre_Q0 22, legendre_Q0
28, legendre_Q1_e
29, legendre_Q1 23, legendre_Q1
30, legendre_Ql_e
31, legendre_Ql 24, legendre_Ql
32, legendre_Plm_e
33, legendre_Plm 25, legendre_Plm
34, legendre_sphPlm_e
35, legendre_sphPlm 26, legendre_sphPlm
36, legendre_array_size 27, legendre_array_size
37, conicalP_half_e
38, conicalP_half 28, conicalP_half
39, conicalP_mhalf_e
40, conicalP_mhalf 29, conicalP_mhalf
41, conicalP_0_e
42, conicalP_0 30, conicalP_0
43, conicalP_1_e
44, conicalP_1 31, conicalP_1
45, conicalP_sph_reg_e
46, conicalP_sph_reg 32, conicalP_sph_reg
47, conicalP_cyl_reg_e
48, conicalP_cyl_reg 33, conicalP_cyl_reg
49, legendre_H3d_0_e
50, legendre_H3d_0 34, legendre_H3d_0
51, legendre_H3d_1_e
52, legendre_H3d_1 35, legendre_H3d_1
53, legendre_H3d_e
54, legendre_H3d 36, legendre_H3d
55) where 37) where
56 38
57import Foreign(Ptr) 39import Foreign(Ptr)
40import Foreign.C.Types(CInt)
58import Numeric.GSL.Special.Internal 41import Numeric.GSL.Special.Internal
59 42
60-- | wrapper for int gsl_sf_legendre_Pl_e(int l,double x,gsl_sf_result* result); 43-- | wrapper for int gsl_sf_legendre_Pl_e(int l,double x,double* result);
61legendre_Pl_e :: Int -> Double -> (Double,Double) 44--
62legendre_Pl_e l x = createSFR "legendre_Pl_e" $ gsl_sf_legendre_Pl_e l x 45-- <http://www.google.com/search?q=gsl_sf_legendre_Pl_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
63foreign import ccall "legendre.h gsl_sf_legendre_Pl_e" gsl_sf_legendre_Pl_e :: Int -> Double -> Ptr Double -> IO(Int) 46legendre_Pl_e :: CInt -> Double -> Ptr Double -> CInt
47legendre_Pl_e = gsl_sf_legendre_Pl_e
48foreign import ccall "legendre.h gsl_sf_legendre_Pl_e" gsl_sf_legendre_Pl_e :: CInt -> Double -> Ptr Double -> CInt
64 49
65-- | wrapper for double gsl_sf_legendre_Pl(int l,double x); 50-- | wrapper for double gsl_sf_legendre_Pl(int l,double x);
66legendre_Pl :: Int -> Double -> Double 51--
52-- <http://www.google.com/search?q=gsl_sf_legendre_Pl&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
53legendre_Pl :: CInt -> Double -> Double
67legendre_Pl = gsl_sf_legendre_Pl 54legendre_Pl = gsl_sf_legendre_Pl
68foreign import ccall "legendre.h gsl_sf_legendre_Pl" gsl_sf_legendre_Pl :: Int -> Double -> Double 55foreign import ccall "legendre.h gsl_sf_legendre_Pl" gsl_sf_legendre_Pl :: CInt -> Double -> Double
69 56
70-- | wrapper for int gsl_sf_legendre_Pl_array(int lmax,double x,double* result_array); 57-- | wrapper for int gsl_sf_legendre_Pl_array(int lmax,double x,double* result_array);
71legendre_Pl_array :: Int -> Double -> Ptr Double -> Int 58--
59-- <http://www.google.com/search?q=gsl_sf_legendre_Pl_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
60legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt
72legendre_Pl_array = gsl_sf_legendre_Pl_array 61legendre_Pl_array = gsl_sf_legendre_Pl_array
73foreign import ccall "legendre.h gsl_sf_legendre_Pl_array" gsl_sf_legendre_Pl_array :: Int -> Double -> Ptr Double -> Int 62foreign import ccall "legendre.h gsl_sf_legendre_Pl_array" gsl_sf_legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt
74 63
75-- | wrapper for int gsl_sf_legendre_Pl_deriv_array(int lmax,double x,double* result_array,double* result_deriv_array); 64-- | wrapper for int gsl_sf_legendre_Pl_deriv_array(int lmax,double x,double* result_array,double* result_deriv_array);
76legendre_Pl_deriv_array :: Int -> Double -> Ptr Double -> Ptr Double -> Int 65--
66-- <http://www.google.com/search?q=gsl_sf_legendre_Pl_deriv_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
67legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt
77legendre_Pl_deriv_array = gsl_sf_legendre_Pl_deriv_array 68legendre_Pl_deriv_array = gsl_sf_legendre_Pl_deriv_array
78foreign import ccall "legendre.h gsl_sf_legendre_Pl_deriv_array" gsl_sf_legendre_Pl_deriv_array :: Int -> Double -> Ptr Double -> Ptr Double -> Int 69foreign import ccall "legendre.h gsl_sf_legendre_Pl_deriv_array" gsl_sf_legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt
79 70
80-- | wrapper for int gsl_sf_legendre_P1_e(double x,gsl_sf_result* result); 71-- | wrapper for int gsl_sf_legendre_P1_e(double x,double* result);
81legendre_P1_e :: Double -> (Double,Double) 72--
82legendre_P1_e x = createSFR "legendre_P1_e" $ gsl_sf_legendre_P1_e x 73-- <http://www.google.com/search?q=gsl_sf_legendre_P1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
83foreign import ccall "legendre.h gsl_sf_legendre_P1_e" gsl_sf_legendre_P1_e :: Double -> Ptr Double -> IO(Int) 74legendre_P1_e :: Double -> Ptr Double -> CInt
84 75legendre_P1_e = gsl_sf_legendre_P1_e
85-- | wrapper for int gsl_sf_legendre_P2_e(double x,gsl_sf_result* result); 76foreign import ccall "legendre.h gsl_sf_legendre_P1_e" gsl_sf_legendre_P1_e :: Double -> Ptr Double -> CInt
86legendre_P2_e :: Double -> (Double,Double) 77
87legendre_P2_e x = createSFR "legendre_P2_e" $ gsl_sf_legendre_P2_e x 78-- | wrapper for int gsl_sf_legendre_P2_e(double x,double* result);
88foreign import ccall "legendre.h gsl_sf_legendre_P2_e" gsl_sf_legendre_P2_e :: Double -> Ptr Double -> IO(Int) 79--
89 80-- <http://www.google.com/search?q=gsl_sf_legendre_P2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
90-- | wrapper for int gsl_sf_legendre_P3_e(double x,gsl_sf_result* result); 81legendre_P2_e :: Double -> Ptr Double -> CInt
91legendre_P3_e :: Double -> (Double,Double) 82legendre_P2_e = gsl_sf_legendre_P2_e
92legendre_P3_e x = createSFR "legendre_P3_e" $ gsl_sf_legendre_P3_e x 83foreign import ccall "legendre.h gsl_sf_legendre_P2_e" gsl_sf_legendre_P2_e :: Double -> Ptr Double -> CInt
93foreign import ccall "legendre.h gsl_sf_legendre_P3_e" gsl_sf_legendre_P3_e :: Double -> Ptr Double -> IO(Int) 84
85-- | wrapper for int gsl_sf_legendre_P3_e(double x,double* result);
86--
87-- <http://www.google.com/search?q=gsl_sf_legendre_P3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
88legendre_P3_e :: Double -> Ptr Double -> CInt
89legendre_P3_e = gsl_sf_legendre_P3_e
90foreign import ccall "legendre.h gsl_sf_legendre_P3_e" gsl_sf_legendre_P3_e :: Double -> Ptr Double -> CInt
94 91
95-- | wrapper for double gsl_sf_legendre_P1(double x); 92-- | wrapper for double gsl_sf_legendre_P1(double x);
93--
94-- <http://www.google.com/search?q=gsl_sf_legendre_P1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
96legendre_P1 :: Double -> Double 95legendre_P1 :: Double -> Double
97legendre_P1 = gsl_sf_legendre_P1 96legendre_P1 = gsl_sf_legendre_P1
98foreign import ccall "legendre.h gsl_sf_legendre_P1" gsl_sf_legendre_P1 :: Double -> Double 97foreign import ccall "legendre.h gsl_sf_legendre_P1" gsl_sf_legendre_P1 :: Double -> Double
99 98
100-- | wrapper for double gsl_sf_legendre_P2(double x); 99-- | wrapper for double gsl_sf_legendre_P2(double x);
100--
101-- <http://www.google.com/search?q=gsl_sf_legendre_P2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
101legendre_P2 :: Double -> Double 102legendre_P2 :: Double -> Double
102legendre_P2 = gsl_sf_legendre_P2 103legendre_P2 = gsl_sf_legendre_P2
103foreign import ccall "legendre.h gsl_sf_legendre_P2" gsl_sf_legendre_P2 :: Double -> Double 104foreign import ccall "legendre.h gsl_sf_legendre_P2" gsl_sf_legendre_P2 :: Double -> Double
104 105
105-- | wrapper for double gsl_sf_legendre_P3(double x); 106-- | wrapper for double gsl_sf_legendre_P3(double x);
107--
108-- <http://www.google.com/search?q=gsl_sf_legendre_P3&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
106legendre_P3 :: Double -> Double 109legendre_P3 :: Double -> Double
107legendre_P3 = gsl_sf_legendre_P3 110legendre_P3 = gsl_sf_legendre_P3
108foreign import ccall "legendre.h gsl_sf_legendre_P3" gsl_sf_legendre_P3 :: Double -> Double 111foreign import ccall "legendre.h gsl_sf_legendre_P3" gsl_sf_legendre_P3 :: Double -> Double
109 112
110-- | wrapper for int gsl_sf_legendre_Q0_e(double x,gsl_sf_result* result); 113-- | wrapper for int gsl_sf_legendre_Q0_e(double x,double* result);
111legendre_Q0_e :: Double -> (Double,Double) 114--
112legendre_Q0_e x = createSFR "legendre_Q0_e" $ gsl_sf_legendre_Q0_e x 115-- <http://www.google.com/search?q=gsl_sf_legendre_Q0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
113foreign import ccall "legendre.h gsl_sf_legendre_Q0_e" gsl_sf_legendre_Q0_e :: Double -> Ptr Double -> IO(Int) 116legendre_Q0_e :: Double -> Ptr Double -> CInt
117legendre_Q0_e = gsl_sf_legendre_Q0_e
118foreign import ccall "legendre.h gsl_sf_legendre_Q0_e" gsl_sf_legendre_Q0_e :: Double -> Ptr Double -> CInt
114 119
115-- | wrapper for double gsl_sf_legendre_Q0(double x); 120-- | wrapper for double gsl_sf_legendre_Q0(double x);
121--
122-- <http://www.google.com/search?q=gsl_sf_legendre_Q0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
116legendre_Q0 :: Double -> Double 123legendre_Q0 :: Double -> Double
117legendre_Q0 = gsl_sf_legendre_Q0 124legendre_Q0 = gsl_sf_legendre_Q0
118foreign import ccall "legendre.h gsl_sf_legendre_Q0" gsl_sf_legendre_Q0 :: Double -> Double 125foreign import ccall "legendre.h gsl_sf_legendre_Q0" gsl_sf_legendre_Q0 :: Double -> Double
119 126
120-- | wrapper for int gsl_sf_legendre_Q1_e(double x,gsl_sf_result* result); 127-- | wrapper for int gsl_sf_legendre_Q1_e(double x,double* result);
121legendre_Q1_e :: Double -> (Double,Double) 128--
122legendre_Q1_e x = createSFR "legendre_Q1_e" $ gsl_sf_legendre_Q1_e x 129-- <http://www.google.com/search?q=gsl_sf_legendre_Q1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
123foreign import ccall "legendre.h gsl_sf_legendre_Q1_e" gsl_sf_legendre_Q1_e :: Double -> Ptr Double -> IO(Int) 130legendre_Q1_e :: Double -> Ptr Double -> CInt
131legendre_Q1_e = gsl_sf_legendre_Q1_e
132foreign import ccall "legendre.h gsl_sf_legendre_Q1_e" gsl_sf_legendre_Q1_e :: Double -> Ptr Double -> CInt
124 133
125-- | wrapper for double gsl_sf_legendre_Q1(double x); 134-- | wrapper for double gsl_sf_legendre_Q1(double x);
135--
136-- <http://www.google.com/search?q=gsl_sf_legendre_Q1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
126legendre_Q1 :: Double -> Double 137legendre_Q1 :: Double -> Double
127legendre_Q1 = gsl_sf_legendre_Q1 138legendre_Q1 = gsl_sf_legendre_Q1
128foreign import ccall "legendre.h gsl_sf_legendre_Q1" gsl_sf_legendre_Q1 :: Double -> Double 139foreign import ccall "legendre.h gsl_sf_legendre_Q1" gsl_sf_legendre_Q1 :: Double -> Double
129 140
130-- | wrapper for int gsl_sf_legendre_Ql_e(int l,double x,gsl_sf_result* result); 141-- | wrapper for int gsl_sf_legendre_Ql_e(int l,double x,double* result);
131legendre_Ql_e :: Int -> Double -> (Double,Double) 142--
132legendre_Ql_e l x = createSFR "legendre_Ql_e" $ gsl_sf_legendre_Ql_e l x 143-- <http://www.google.com/search?q=gsl_sf_legendre_Ql_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
133foreign import ccall "legendre.h gsl_sf_legendre_Ql_e" gsl_sf_legendre_Ql_e :: Int -> Double -> Ptr Double -> IO(Int) 144legendre_Ql_e :: CInt -> Double -> Ptr Double -> CInt
145legendre_Ql_e = gsl_sf_legendre_Ql_e
146foreign import ccall "legendre.h gsl_sf_legendre_Ql_e" gsl_sf_legendre_Ql_e :: CInt -> Double -> Ptr Double -> CInt
134 147
135-- | wrapper for double gsl_sf_legendre_Ql(int l,double x); 148-- | wrapper for double gsl_sf_legendre_Ql(int l,double x);
136legendre_Ql :: Int -> Double -> Double 149--
150-- <http://www.google.com/search?q=gsl_sf_legendre_Ql&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
151legendre_Ql :: CInt -> Double -> Double
137legendre_Ql = gsl_sf_legendre_Ql 152legendre_Ql = gsl_sf_legendre_Ql
138foreign import ccall "legendre.h gsl_sf_legendre_Ql" gsl_sf_legendre_Ql :: Int -> Double -> Double 153foreign import ccall "legendre.h gsl_sf_legendre_Ql" gsl_sf_legendre_Ql :: CInt -> Double -> Double
139 154
140-- | wrapper for int gsl_sf_legendre_Plm_e(int l,int m,double x,gsl_sf_result* result); 155-- | wrapper for int gsl_sf_legendre_Plm_e(int l,int m,double x,double* result);
141legendre_Plm_e :: Int -> Int -> Double -> (Double,Double) 156--
142legendre_Plm_e l m x = createSFR "legendre_Plm_e" $ gsl_sf_legendre_Plm_e l m x 157-- <http://www.google.com/search?q=gsl_sf_legendre_Plm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
143foreign import ccall "legendre.h gsl_sf_legendre_Plm_e" gsl_sf_legendre_Plm_e :: Int -> Int -> Double -> Ptr Double -> IO(Int) 158legendre_Plm_e :: CInt -> CInt -> Double -> Ptr Double -> CInt
159legendre_Plm_e = gsl_sf_legendre_Plm_e
160foreign import ccall "legendre.h gsl_sf_legendre_Plm_e" gsl_sf_legendre_Plm_e :: CInt -> CInt -> Double -> Ptr Double -> CInt
144 161
145-- | wrapper for double gsl_sf_legendre_Plm(int l,int m,double x); 162-- | wrapper for double gsl_sf_legendre_Plm(int l,int m,double x);
146legendre_Plm :: Int -> Int -> Double -> Double 163--
164-- <http://www.google.com/search?q=gsl_sf_legendre_Plm&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
165legendre_Plm :: CInt -> CInt -> Double -> Double
147legendre_Plm = gsl_sf_legendre_Plm 166legendre_Plm = gsl_sf_legendre_Plm
148foreign import ccall "legendre.h gsl_sf_legendre_Plm" gsl_sf_legendre_Plm :: Int -> Int -> Double -> Double 167foreign import ccall "legendre.h gsl_sf_legendre_Plm" gsl_sf_legendre_Plm :: CInt -> CInt -> Double -> Double
149 168
150-- | wrapper for int gsl_sf_legendre_Plm_array(int lmax,int m,double x,double* result_array); 169-- | wrapper for int gsl_sf_legendre_Plm_array(int lmax,int m,double x,double* result_array);
151legendre_Plm_array :: Int -> Int -> Double -> Ptr Double -> Int 170--
171-- <http://www.google.com/search?q=gsl_sf_legendre_Plm_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
172legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
152legendre_Plm_array = gsl_sf_legendre_Plm_array 173legendre_Plm_array = gsl_sf_legendre_Plm_array
153foreign import ccall "legendre.h gsl_sf_legendre_Plm_array" gsl_sf_legendre_Plm_array :: Int -> Int -> Double -> Ptr Double -> Int 174foreign import ccall "legendre.h gsl_sf_legendre_Plm_array" gsl_sf_legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
154 175
155-- | wrapper for int gsl_sf_legendre_Plm_deriv_array(int lmax,int m,double x,double* result_array,double* result_deriv_array); 176-- | wrapper for int gsl_sf_legendre_Plm_deriv_array(int lmax,int m,double x,double* result_array,double* result_deriv_array);
156legendre_Plm_deriv_array :: Int -> Int -> Double -> Ptr Double -> Ptr Double -> Int 177--
178-- <http://www.google.com/search?q=gsl_sf_legendre_Plm_deriv_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
179legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt
157legendre_Plm_deriv_array = gsl_sf_legendre_Plm_deriv_array 180legendre_Plm_deriv_array = gsl_sf_legendre_Plm_deriv_array
158foreign import ccall "legendre.h gsl_sf_legendre_Plm_deriv_array" gsl_sf_legendre_Plm_deriv_array :: Int -> Int -> Double -> Ptr Double -> Ptr Double -> Int 181foreign import ccall "legendre.h gsl_sf_legendre_Plm_deriv_array" gsl_sf_legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt
159 182
160-- | wrapper for int gsl_sf_legendre_sphPlm_e(int l,int m,double x,gsl_sf_result* result); 183-- | wrapper for int gsl_sf_legendre_sphPlm_e(int l,int m,double x,double* result);
161legendre_sphPlm_e :: Int -> Int -> Double -> (Double,Double) 184--
162legendre_sphPlm_e l m x = createSFR "legendre_sphPlm_e" $ gsl_sf_legendre_sphPlm_e l m x 185-- <http://www.google.com/search?q=gsl_sf_legendre_sphPlm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
163foreign import ccall "legendre.h gsl_sf_legendre_sphPlm_e" gsl_sf_legendre_sphPlm_e :: Int -> Int -> Double -> Ptr Double -> IO(Int) 186legendre_sphPlm_e :: CInt -> CInt -> Double -> Ptr Double -> CInt
187legendre_sphPlm_e = gsl_sf_legendre_sphPlm_e
188foreign import ccall "legendre.h gsl_sf_legendre_sphPlm_e" gsl_sf_legendre_sphPlm_e :: CInt -> CInt -> Double -> Ptr Double -> CInt
164 189
165-- | wrapper for double gsl_sf_legendre_sphPlm(int l,int m,double x); 190-- | wrapper for double gsl_sf_legendre_sphPlm(int l,int m,double x);
166legendre_sphPlm :: Int -> Int -> Double -> Double 191--
192-- <http://www.google.com/search?q=gsl_sf_legendre_sphPlm&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
193legendre_sphPlm :: CInt -> CInt -> Double -> Double
167legendre_sphPlm = gsl_sf_legendre_sphPlm 194legendre_sphPlm = gsl_sf_legendre_sphPlm
168foreign import ccall "legendre.h gsl_sf_legendre_sphPlm" gsl_sf_legendre_sphPlm :: Int -> Int -> Double -> Double 195foreign import ccall "legendre.h gsl_sf_legendre_sphPlm" gsl_sf_legendre_sphPlm :: CInt -> CInt -> Double -> Double
169 196
170-- | wrapper for int gsl_sf_legendre_sphPlm_array(int lmax,int m,double x,double* result_array); 197-- | wrapper for int gsl_sf_legendre_sphPlm_array(int lmax,int m,double x,double* result_array);
171legendre_sphPlm_array :: Int -> Int -> Double -> Ptr Double -> Int 198--
199-- <http://www.google.com/search?q=gsl_sf_legendre_sphPlm_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
200legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
172legendre_sphPlm_array = gsl_sf_legendre_sphPlm_array 201legendre_sphPlm_array = gsl_sf_legendre_sphPlm_array
173foreign import ccall "legendre.h gsl_sf_legendre_sphPlm_array" gsl_sf_legendre_sphPlm_array :: Int -> Int -> Double -> Ptr Double -> Int 202foreign import ccall "legendre.h gsl_sf_legendre_sphPlm_array" gsl_sf_legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
174 203
175-- | wrapper for int gsl_sf_legendre_sphPlm_deriv_array(int lmax,int m,double x,double* result_array,double* result_deriv_array); 204-- | wrapper for int gsl_sf_legendre_sphPlm_deriv_array(int lmax,int m,double x,double* result_array,double* result_deriv_array);
176legendre_sphPlm_deriv_array :: Int -> Int -> Double -> Ptr Double -> Ptr Double -> Int 205--
206-- <http://www.google.com/search?q=gsl_sf_legendre_sphPlm_deriv_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
207legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt
177legendre_sphPlm_deriv_array = gsl_sf_legendre_sphPlm_deriv_array 208legendre_sphPlm_deriv_array = gsl_sf_legendre_sphPlm_deriv_array
178foreign import ccall "legendre.h gsl_sf_legendre_sphPlm_deriv_array" gsl_sf_legendre_sphPlm_deriv_array :: Int -> Int -> Double -> Ptr Double -> Ptr Double -> Int 209foreign import ccall "legendre.h gsl_sf_legendre_sphPlm_deriv_array" gsl_sf_legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt
179 210
180-- | wrapper for int gsl_sf_legendre_array_size(int lmax,int m); 211-- | wrapper for int gsl_sf_legendre_array_size(int lmax,int m);
181legendre_array_size :: Int -> Int -> Int 212--
213-- <http://www.google.com/search?q=gsl_sf_legendre_array_size&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
214legendre_array_size :: CInt -> CInt -> CInt
182legendre_array_size = gsl_sf_legendre_array_size 215legendre_array_size = gsl_sf_legendre_array_size
183foreign import ccall "legendre.h gsl_sf_legendre_array_size" gsl_sf_legendre_array_size :: Int -> Int -> Int 216foreign import ccall "legendre.h gsl_sf_legendre_array_size" gsl_sf_legendre_array_size :: CInt -> CInt -> CInt
184 217
185-- | wrapper for int gsl_sf_conicalP_half_e(double lambda,double x,gsl_sf_result* result); 218-- | wrapper for int gsl_sf_conicalP_half_e(double lambda,double x,double* result);
186conicalP_half_e :: Double -> Double -> (Double,Double) 219--
187conicalP_half_e lambda x = createSFR "conicalP_half_e" $ gsl_sf_conicalP_half_e lambda x 220-- <http://www.google.com/search?q=gsl_sf_conicalP_half_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
188foreign import ccall "legendre.h gsl_sf_conicalP_half_e" gsl_sf_conicalP_half_e :: Double -> Double -> Ptr Double -> IO(Int) 221conicalP_half_e :: Double -> Double -> Ptr Double -> CInt
222conicalP_half_e = gsl_sf_conicalP_half_e
223foreign import ccall "legendre.h gsl_sf_conicalP_half_e" gsl_sf_conicalP_half_e :: Double -> Double -> Ptr Double -> CInt
189 224
190-- | wrapper for double gsl_sf_conicalP_half(double lambda,double x); 225-- | wrapper for double gsl_sf_conicalP_half(double lambda,double x);
226--
227-- <http://www.google.com/search?q=gsl_sf_conicalP_half&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
191conicalP_half :: Double -> Double -> Double 228conicalP_half :: Double -> Double -> Double
192conicalP_half = gsl_sf_conicalP_half 229conicalP_half = gsl_sf_conicalP_half
193foreign import ccall "legendre.h gsl_sf_conicalP_half" gsl_sf_conicalP_half :: Double -> Double -> Double 230foreign import ccall "legendre.h gsl_sf_conicalP_half" gsl_sf_conicalP_half :: Double -> Double -> Double
194 231
195-- | wrapper for int gsl_sf_conicalP_mhalf_e(double lambda,double x,gsl_sf_result* result); 232-- | wrapper for int gsl_sf_conicalP_mhalf_e(double lambda,double x,double* result);
196conicalP_mhalf_e :: Double -> Double -> (Double,Double) 233--
197conicalP_mhalf_e lambda x = createSFR "conicalP_mhalf_e" $ gsl_sf_conicalP_mhalf_e lambda x 234-- <http://www.google.com/search?q=gsl_sf_conicalP_mhalf_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
198foreign import ccall "legendre.h gsl_sf_conicalP_mhalf_e" gsl_sf_conicalP_mhalf_e :: Double -> Double -> Ptr Double -> IO(Int) 235conicalP_mhalf_e :: Double -> Double -> Ptr Double -> CInt
236conicalP_mhalf_e = gsl_sf_conicalP_mhalf_e
237foreign import ccall "legendre.h gsl_sf_conicalP_mhalf_e" gsl_sf_conicalP_mhalf_e :: Double -> Double -> Ptr Double -> CInt
199 238
200-- | wrapper for double gsl_sf_conicalP_mhalf(double lambda,double x); 239-- | wrapper for double gsl_sf_conicalP_mhalf(double lambda,double x);
240--
241-- <http://www.google.com/search?q=gsl_sf_conicalP_mhalf&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
201conicalP_mhalf :: Double -> Double -> Double 242conicalP_mhalf :: Double -> Double -> Double
202conicalP_mhalf = gsl_sf_conicalP_mhalf 243conicalP_mhalf = gsl_sf_conicalP_mhalf
203foreign import ccall "legendre.h gsl_sf_conicalP_mhalf" gsl_sf_conicalP_mhalf :: Double -> Double -> Double 244foreign import ccall "legendre.h gsl_sf_conicalP_mhalf" gsl_sf_conicalP_mhalf :: Double -> Double -> Double
204 245
205-- | wrapper for int gsl_sf_conicalP_0_e(double lambda,double x,gsl_sf_result* result); 246-- | wrapper for int gsl_sf_conicalP_0_e(double lambda,double x,double* result);
206conicalP_0_e :: Double -> Double -> (Double,Double) 247--
207conicalP_0_e lambda x = createSFR "conicalP_0_e" $ gsl_sf_conicalP_0_e lambda x 248-- <http://www.google.com/search?q=gsl_sf_conicalP_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
208foreign import ccall "legendre.h gsl_sf_conicalP_0_e" gsl_sf_conicalP_0_e :: Double -> Double -> Ptr Double -> IO(Int) 249conicalP_0_e :: Double -> Double -> Ptr Double -> CInt
250conicalP_0_e = gsl_sf_conicalP_0_e
251foreign import ccall "legendre.h gsl_sf_conicalP_0_e" gsl_sf_conicalP_0_e :: Double -> Double -> Ptr Double -> CInt
209 252
210-- | wrapper for double gsl_sf_conicalP_0(double lambda,double x); 253-- | wrapper for double gsl_sf_conicalP_0(double lambda,double x);
254--
255-- <http://www.google.com/search?q=gsl_sf_conicalP_0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
211conicalP_0 :: Double -> Double -> Double 256conicalP_0 :: Double -> Double -> Double
212conicalP_0 = gsl_sf_conicalP_0 257conicalP_0 = gsl_sf_conicalP_0
213foreign import ccall "legendre.h gsl_sf_conicalP_0" gsl_sf_conicalP_0 :: Double -> Double -> Double 258foreign import ccall "legendre.h gsl_sf_conicalP_0" gsl_sf_conicalP_0 :: Double -> Double -> Double
214 259
215-- | wrapper for int gsl_sf_conicalP_1_e(double lambda,double x,gsl_sf_result* result); 260-- | wrapper for int gsl_sf_conicalP_1_e(double lambda,double x,double* result);
216conicalP_1_e :: Double -> Double -> (Double,Double) 261--
217conicalP_1_e lambda x = createSFR "conicalP_1_e" $ gsl_sf_conicalP_1_e lambda x 262-- <http://www.google.com/search?q=gsl_sf_conicalP_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
218foreign import ccall "legendre.h gsl_sf_conicalP_1_e" gsl_sf_conicalP_1_e :: Double -> Double -> Ptr Double -> IO(Int) 263conicalP_1_e :: Double -> Double -> Ptr Double -> CInt
264conicalP_1_e = gsl_sf_conicalP_1_e
265foreign import ccall "legendre.h gsl_sf_conicalP_1_e" gsl_sf_conicalP_1_e :: Double -> Double -> Ptr Double -> CInt
219 266
220-- | wrapper for double gsl_sf_conicalP_1(double lambda,double x); 267-- | wrapper for double gsl_sf_conicalP_1(double lambda,double x);
268--
269-- <http://www.google.com/search?q=gsl_sf_conicalP_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
221conicalP_1 :: Double -> Double -> Double 270conicalP_1 :: Double -> Double -> Double
222conicalP_1 = gsl_sf_conicalP_1 271conicalP_1 = gsl_sf_conicalP_1
223foreign import ccall "legendre.h gsl_sf_conicalP_1" gsl_sf_conicalP_1 :: Double -> Double -> Double 272foreign import ccall "legendre.h gsl_sf_conicalP_1" gsl_sf_conicalP_1 :: Double -> Double -> Double
224 273
225-- | wrapper for int gsl_sf_conicalP_sph_reg_e(int l,double lambda,double x,gsl_sf_result* result); 274-- | wrapper for int gsl_sf_conicalP_sph_reg_e(int l,double lambda,double x,double* result);
226conicalP_sph_reg_e :: Int -> Double -> Double -> (Double,Double) 275--
227conicalP_sph_reg_e l lambda x = createSFR "conicalP_sph_reg_e" $ gsl_sf_conicalP_sph_reg_e l lambda x 276-- <http://www.google.com/search?q=gsl_sf_conicalP_sph_reg_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
228foreign import ccall "legendre.h gsl_sf_conicalP_sph_reg_e" gsl_sf_conicalP_sph_reg_e :: Int -> Double -> Double -> Ptr Double -> IO(Int) 277conicalP_sph_reg_e :: CInt -> Double -> Double -> Ptr Double -> CInt
278conicalP_sph_reg_e = gsl_sf_conicalP_sph_reg_e
279foreign import ccall "legendre.h gsl_sf_conicalP_sph_reg_e" gsl_sf_conicalP_sph_reg_e :: CInt -> Double -> Double -> Ptr Double -> CInt
229 280
230-- | wrapper for double gsl_sf_conicalP_sph_reg(int l,double lambda,double x); 281-- | wrapper for double gsl_sf_conicalP_sph_reg(int l,double lambda,double x);
231conicalP_sph_reg :: Int -> Double -> Double -> Double 282--
283-- <http://www.google.com/search?q=gsl_sf_conicalP_sph_reg&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
284conicalP_sph_reg :: CInt -> Double -> Double -> Double
232conicalP_sph_reg = gsl_sf_conicalP_sph_reg 285conicalP_sph_reg = gsl_sf_conicalP_sph_reg
233foreign import ccall "legendre.h gsl_sf_conicalP_sph_reg" gsl_sf_conicalP_sph_reg :: Int -> Double -> Double -> Double 286foreign import ccall "legendre.h gsl_sf_conicalP_sph_reg" gsl_sf_conicalP_sph_reg :: CInt -> Double -> Double -> Double
234 287
235-- | wrapper for int gsl_sf_conicalP_cyl_reg_e(int m,double lambda,double x,gsl_sf_result* result); 288-- | wrapper for int gsl_sf_conicalP_cyl_reg_e(int m,double lambda,double x,double* result);
236conicalP_cyl_reg_e :: Int -> Double -> Double -> (Double,Double) 289--
237conicalP_cyl_reg_e m lambda x = createSFR "conicalP_cyl_reg_e" $ gsl_sf_conicalP_cyl_reg_e m lambda x 290-- <http://www.google.com/search?q=gsl_sf_conicalP_cyl_reg_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
238foreign import ccall "legendre.h gsl_sf_conicalP_cyl_reg_e" gsl_sf_conicalP_cyl_reg_e :: Int -> Double -> Double -> Ptr Double -> IO(Int) 291conicalP_cyl_reg_e :: CInt -> Double -> Double -> Ptr Double -> CInt
292conicalP_cyl_reg_e = gsl_sf_conicalP_cyl_reg_e
293foreign import ccall "legendre.h gsl_sf_conicalP_cyl_reg_e" gsl_sf_conicalP_cyl_reg_e :: CInt -> Double -> Double -> Ptr Double -> CInt
239 294
240-- | wrapper for double gsl_sf_conicalP_cyl_reg(int m,double lambda,double x); 295-- | wrapper for double gsl_sf_conicalP_cyl_reg(int m,double lambda,double x);
241conicalP_cyl_reg :: Int -> Double -> Double -> Double 296--
297-- <http://www.google.com/search?q=gsl_sf_conicalP_cyl_reg&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
298conicalP_cyl_reg :: CInt -> Double -> Double -> Double
242conicalP_cyl_reg = gsl_sf_conicalP_cyl_reg 299conicalP_cyl_reg = gsl_sf_conicalP_cyl_reg
243foreign import ccall "legendre.h gsl_sf_conicalP_cyl_reg" gsl_sf_conicalP_cyl_reg :: Int -> Double -> Double -> Double 300foreign import ccall "legendre.h gsl_sf_conicalP_cyl_reg" gsl_sf_conicalP_cyl_reg :: CInt -> Double -> Double -> Double
244 301
245-- | wrapper for int gsl_sf_legendre_H3d_0_e(double lambda,double eta,gsl_sf_result* result); 302-- | wrapper for int gsl_sf_legendre_H3d_0_e(double lambda,double eta,double* result);
246legendre_H3d_0_e :: Double -> Double -> (Double,Double) 303--
247legendre_H3d_0_e lambda eta = createSFR "legendre_H3d_0_e" $ gsl_sf_legendre_H3d_0_e lambda eta 304-- <http://www.google.com/search?q=gsl_sf_legendre_H3d_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
248foreign import ccall "legendre.h gsl_sf_legendre_H3d_0_e" gsl_sf_legendre_H3d_0_e :: Double -> Double -> Ptr Double -> IO(Int) 305legendre_H3d_0_e :: Double -> Double -> Ptr Double -> CInt
306legendre_H3d_0_e = gsl_sf_legendre_H3d_0_e
307foreign import ccall "legendre.h gsl_sf_legendre_H3d_0_e" gsl_sf_legendre_H3d_0_e :: Double -> Double -> Ptr Double -> CInt
249 308
250-- | wrapper for double gsl_sf_legendre_H3d_0(double lambda,double eta); 309-- | wrapper for double gsl_sf_legendre_H3d_0(double lambda,double eta);
310--
311-- <http://www.google.com/search?q=gsl_sf_legendre_H3d_0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
251legendre_H3d_0 :: Double -> Double -> Double 312legendre_H3d_0 :: Double -> Double -> Double
252legendre_H3d_0 = gsl_sf_legendre_H3d_0 313legendre_H3d_0 = gsl_sf_legendre_H3d_0
253foreign import ccall "legendre.h gsl_sf_legendre_H3d_0" gsl_sf_legendre_H3d_0 :: Double -> Double -> Double 314foreign import ccall "legendre.h gsl_sf_legendre_H3d_0" gsl_sf_legendre_H3d_0 :: Double -> Double -> Double
254 315
255-- | wrapper for int gsl_sf_legendre_H3d_1_e(double lambda,double eta,gsl_sf_result* result); 316-- | wrapper for int gsl_sf_legendre_H3d_1_e(double lambda,double eta,double* result);
256legendre_H3d_1_e :: Double -> Double -> (Double,Double) 317--
257legendre_H3d_1_e lambda eta = createSFR "legendre_H3d_1_e" $ gsl_sf_legendre_H3d_1_e lambda eta 318-- <http://www.google.com/search?q=gsl_sf_legendre_H3d_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
258foreign import ccall "legendre.h gsl_sf_legendre_H3d_1_e" gsl_sf_legendre_H3d_1_e :: Double -> Double -> Ptr Double -> IO(Int) 319legendre_H3d_1_e :: Double -> Double -> Ptr Double -> CInt
320legendre_H3d_1_e = gsl_sf_legendre_H3d_1_e
321foreign import ccall "legendre.h gsl_sf_legendre_H3d_1_e" gsl_sf_legendre_H3d_1_e :: Double -> Double -> Ptr Double -> CInt
259 322
260-- | wrapper for double gsl_sf_legendre_H3d_1(double lambda,double eta); 323-- | wrapper for double gsl_sf_legendre_H3d_1(double lambda,double eta);
324--
325-- <http://www.google.com/search?q=gsl_sf_legendre_H3d_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
261legendre_H3d_1 :: Double -> Double -> Double 326legendre_H3d_1 :: Double -> Double -> Double
262legendre_H3d_1 = gsl_sf_legendre_H3d_1 327legendre_H3d_1 = gsl_sf_legendre_H3d_1
263foreign import ccall "legendre.h gsl_sf_legendre_H3d_1" gsl_sf_legendre_H3d_1 :: Double -> Double -> Double 328foreign import ccall "legendre.h gsl_sf_legendre_H3d_1" gsl_sf_legendre_H3d_1 :: Double -> Double -> Double
264 329
265-- | wrapper for int gsl_sf_legendre_H3d_e(int l,double lambda,double eta,gsl_sf_result* result); 330-- | wrapper for int gsl_sf_legendre_H3d_e(int l,double lambda,double eta,double* result);
266legendre_H3d_e :: Int -> Double -> Double -> (Double,Double) 331--
267legendre_H3d_e l lambda eta = createSFR "legendre_H3d_e" $ gsl_sf_legendre_H3d_e l lambda eta 332-- <http://www.google.com/search?q=gsl_sf_legendre_H3d_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
268foreign import ccall "legendre.h gsl_sf_legendre_H3d_e" gsl_sf_legendre_H3d_e :: Int -> Double -> Double -> Ptr Double -> IO(Int) 333legendre_H3d_e :: CInt -> Double -> Double -> Ptr Double -> CInt
334legendre_H3d_e = gsl_sf_legendre_H3d_e
335foreign import ccall "legendre.h gsl_sf_legendre_H3d_e" gsl_sf_legendre_H3d_e :: CInt -> Double -> Double -> Ptr Double -> CInt
269 336
270-- | wrapper for double gsl_sf_legendre_H3d(int l,double lambda,double eta); 337-- | wrapper for double gsl_sf_legendre_H3d(int l,double lambda,double eta);
271legendre_H3d :: Int -> Double -> Double -> Double 338--
339-- <http://www.google.com/search?q=gsl_sf_legendre_H3d&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
340legendre_H3d :: CInt -> Double -> Double -> Double
272legendre_H3d = gsl_sf_legendre_H3d 341legendre_H3d = gsl_sf_legendre_H3d
273foreign import ccall "legendre.h gsl_sf_legendre_H3d" gsl_sf_legendre_H3d :: Int -> Double -> Double -> Double 342foreign import ccall "legendre.h gsl_sf_legendre_H3d" gsl_sf_legendre_H3d :: CInt -> Double -> Double -> Double
274 343
275-- | wrapper for int gsl_sf_legendre_H3d_array(int lmax,double lambda,double eta,double* result_array); 344-- | wrapper for int gsl_sf_legendre_H3d_array(int lmax,double lambda,double eta,double* result_array);
276legendre_H3d_array :: Int -> Double -> Double -> Ptr Double -> Int 345--
346-- <http://www.google.com/search?q=gsl_sf_legendre_H3d_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
347legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt
277legendre_H3d_array = gsl_sf_legendre_H3d_array 348legendre_H3d_array = gsl_sf_legendre_H3d_array
278foreign import ccall "legendre.h gsl_sf_legendre_H3d_array" gsl_sf_legendre_H3d_array :: Int -> Double -> Double -> Ptr Double -> Int 349foreign import ccall "legendre.h 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 e9c345b..fabbe76 100644
--- a/lib/Numeric/GSL/Special/Log.hs
+++ b/lib/Numeric/GSL/Special/Log.hs
@@ -9,7 +9,7 @@ Portability : uses ffi
9 9
10Wrappers for selected functions described at: 10Wrappers for selected functions described at:
11 11
12<http://www.gnu.org/software/gsl/manual/html_node/Logarithm-and-Related-Functions.html> 12<http://www.google.com/search?q=gsl_sf_log.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13 13
14-} 14-}
15------------------------------------------------------------ 15------------------------------------------------------------
@@ -26,49 +26,68 @@ module Numeric.GSL.Special.Log(
26) where 26) where
27 27
28import Foreign(Ptr) 28import Foreign(Ptr)
29import Foreign.C.Types(CInt)
29import Numeric.GSL.Special.Internal 30import Numeric.GSL.Special.Internal
30 31
31-- | wrapper for int gsl_sf_log_e(double x,gsl_sf_result* result); 32-- | wrapper for int gsl_sf_log_e(double x,gsl_sf_result* result);
33--
34-- <http://www.google.com/search?q=gsl_sf_log_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
32log_e :: Double -> (Double,Double) 35log_e :: Double -> (Double,Double)
33log_e x = createSFR "log_e" $ gsl_sf_log_e x 36log_e x = createSFR "log_e" $ gsl_sf_log_e x
34foreign import ccall "log.h gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr Double -> IO(Int) 37foreign import ccall "log.h gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt
35 38
36-- | wrapper for double gsl_sf_log(double x); 39-- | wrapper for double gsl_sf_log(double x);
40--
41-- <http://www.google.com/search?q=gsl_sf_log&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
37log :: Double -> Double 42log :: Double -> Double
38log = gsl_sf_log 43log = gsl_sf_log
39foreign import ccall "log.h gsl_sf_log" gsl_sf_log :: Double -> Double 44foreign import ccall "log.h gsl_sf_log" gsl_sf_log :: Double -> Double
40 45
41-- | wrapper for int gsl_sf_log_abs_e(double x,gsl_sf_result* result); 46-- | wrapper for int gsl_sf_log_abs_e(double x,gsl_sf_result* result);
47--
48-- <http://www.google.com/search?q=gsl_sf_log_abs_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
42log_abs_e :: Double -> (Double,Double) 49log_abs_e :: Double -> (Double,Double)
43log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x 50log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x
44foreign import ccall "log.h gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr Double -> IO(Int) 51foreign import ccall "log.h gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt
45 52
46-- | wrapper for double gsl_sf_log_abs(double x); 53-- | wrapper for double gsl_sf_log_abs(double x);
54--
55-- <http://www.google.com/search?q=gsl_sf_log_abs&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
47log_abs :: Double -> Double 56log_abs :: Double -> Double
48log_abs = gsl_sf_log_abs 57log_abs = gsl_sf_log_abs
49foreign import ccall "log.h gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double 58foreign import ccall "log.h gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double
50 59
51-- | wrapper for int gsl_sf_complex_log_e(double zr,double zi,gsl_sf_result* lnr,gsl_sf_result* theta); 60-- | wrapper for int gsl_sf_complex_log_e(double zr,double zi,gsl_sf_result* lnr,gsl_sf_result* theta);
52complex_log_e :: Double -> Double -> Ptr Double -> (Double,Double) 61--
62-- <http://www.google.com/search?q=gsl_sf_complex_log_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
63complex_log_e :: Double -> Double -> Ptr () -> (Double,Double)
53complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr 64complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr
54foreign import ccall "log.h gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr Double -> Ptr Double -> IO(Int) 65foreign import ccall "log.h gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
55 66
56-- | wrapper for int gsl_sf_log_1plusx_e(double x,gsl_sf_result* result); 67-- | wrapper for int gsl_sf_log_1plusx_e(double x,gsl_sf_result* result);
68--
69-- <http://www.google.com/search?q=gsl_sf_log_1plusx_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
57log_1plusx_e :: Double -> (Double,Double) 70log_1plusx_e :: Double -> (Double,Double)
58log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x 71log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x
59foreign import ccall "log.h gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr Double -> IO(Int) 72foreign import ccall "log.h gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt
60 73
61-- | wrapper for double gsl_sf_log_1plusx(double x); 74-- | wrapper for double gsl_sf_log_1plusx(double x);
75--
76-- <http://www.google.com/search?q=gsl_sf_log_1plusx&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
62log_1plusx :: Double -> Double 77log_1plusx :: Double -> Double
63log_1plusx = gsl_sf_log_1plusx 78log_1plusx = gsl_sf_log_1plusx
64foreign import ccall "log.h gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double 79foreign import ccall "log.h gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double
65 80
66-- | wrapper for int gsl_sf_log_1plusx_mx_e(double x,gsl_sf_result* result); 81-- | wrapper for int gsl_sf_log_1plusx_mx_e(double x,gsl_sf_result* result);
82--
83-- <http://www.google.com/search?q=gsl_sf_log_1plusx_mx_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
67log_1plusx_mx_e :: Double -> (Double,Double) 84log_1plusx_mx_e :: Double -> (Double,Double)
68log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x 85log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x
69foreign import ccall "log.h gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr Double -> IO(Int) 86foreign import ccall "log.h gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt
70 87
71-- | wrapper for double gsl_sf_log_1plusx_mx(double x); 88-- | wrapper for double gsl_sf_log_1plusx_mx(double x);
89--
90-- <http://www.google.com/search?q=gsl_sf_log_1plusx_mx&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
72log_1plusx_mx :: Double -> Double 91log_1plusx_mx :: Double -> Double
73log_1plusx_mx = gsl_sf_log_1plusx_mx 92log_1plusx_mx = gsl_sf_log_1plusx_mx
74foreign import ccall "log.h gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double 93foreign import ccall "log.h 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 384dfc4..f30dfb9 100644
--- a/lib/Numeric/GSL/Special/Pow_int.hs
+++ b/lib/Numeric/GSL/Special/Pow_int.hs
@@ -20,18 +20,19 @@ module Numeric.GSL.Special.Pow_int(
20) where 20) where
21 21
22import Foreign(Ptr) 22import Foreign(Ptr)
23import Foreign.C.Types(CInt)
23import Numeric.GSL.Special.Internal 24import Numeric.GSL.Special.Internal
24 25
25-- | wrapper for int gsl_sf_pow_int_e(double x,int n,gsl_sf_result* result); 26-- | wrapper for int gsl_sf_pow_int_e(double x,int n,gsl_sf_result* result);
26-- 27--
27-- <http://www.google.com/search?q=gsl_sf_pow_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 28-- <http://www.google.com/search?q=gsl_sf_pow_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
28pow_int_e :: Double -> Int -> (Double,Double) 29pow_int_e :: Double -> CInt -> (Double,Double)
29pow_int_e x n = createSFR "pow_int_e" $ gsl_sf_pow_int_e x n 30pow_int_e x n = createSFR "pow_int_e" $ gsl_sf_pow_int_e x n
30foreign import ccall "pow_int.h gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> Int -> Ptr Double -> IO(Int) 31foreign import ccall "pow_int.h gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt
31 32
32-- | wrapper for double gsl_sf_pow_int(double x,int n); 33-- | wrapper for double gsl_sf_pow_int(double x,int n);
33-- 34--
34-- <http://www.google.com/search?q=gsl_sf_pow_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 35-- <http://www.google.com/search?q=gsl_sf_pow_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
35pow_int :: Double -> Int -> Double 36pow_int :: Double -> CInt -> Double
36pow_int = gsl_sf_pow_int 37pow_int = gsl_sf_pow_int
37foreign import ccall "pow_int.h gsl_sf_pow_int" gsl_sf_pow_int :: Double -> Int -> Double 38foreign import ccall "pow_int.h 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 c0021e4..3ff6570 100644
--- a/lib/Numeric/GSL/Special/Psi.hs
+++ b/lib/Numeric/GSL/Special/Psi.hs
@@ -30,28 +30,29 @@ module Numeric.GSL.Special.Psi(
30) where 30) where
31 31
32import Foreign(Ptr) 32import Foreign(Ptr)
33import Foreign.C.Types(CInt)
33import Numeric.GSL.Special.Internal 34import Numeric.GSL.Special.Internal
34 35
35-- | wrapper for int gsl_sf_psi_int_e(int n,gsl_sf_result* result); 36-- | wrapper for int gsl_sf_psi_int_e(int n,gsl_sf_result* result);
36-- 37--
37-- <http://www.google.com/search?q=gsl_sf_psi_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 38-- <http://www.google.com/search?q=gsl_sf_psi_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
38psi_int_e :: Int -> (Double,Double) 39psi_int_e :: CInt -> (Double,Double)
39psi_int_e n = createSFR "psi_int_e" $ gsl_sf_psi_int_e n 40psi_int_e n = createSFR "psi_int_e" $ gsl_sf_psi_int_e n
40foreign import ccall "psi.h gsl_sf_psi_int_e" gsl_sf_psi_int_e :: Int -> Ptr Double -> IO(Int) 41foreign import ccall "psi.h gsl_sf_psi_int_e" gsl_sf_psi_int_e :: CInt -> Ptr () -> IO CInt
41 42
42-- | wrapper for double gsl_sf_psi_int(int n); 43-- | wrapper for double gsl_sf_psi_int(int n);
43-- 44--
44-- <http://www.google.com/search?q=gsl_sf_psi_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 45-- <http://www.google.com/search?q=gsl_sf_psi_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
45psi_int :: Int -> Double 46psi_int :: CInt -> Double
46psi_int = gsl_sf_psi_int 47psi_int = gsl_sf_psi_int
47foreign import ccall "psi.h gsl_sf_psi_int" gsl_sf_psi_int :: Int -> Double 48foreign import ccall "psi.h gsl_sf_psi_int" gsl_sf_psi_int :: CInt -> Double
48 49
49-- | wrapper for int gsl_sf_psi_e(double x,gsl_sf_result* result); 50-- | wrapper for int gsl_sf_psi_e(double x,gsl_sf_result* result);
50-- 51--
51-- <http://www.google.com/search?q=gsl_sf_psi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 52-- <http://www.google.com/search?q=gsl_sf_psi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
52psi_e :: Double -> (Double,Double) 53psi_e :: Double -> (Double,Double)
53psi_e x = createSFR "psi_e" $ gsl_sf_psi_e x 54psi_e x = createSFR "psi_e" $ gsl_sf_psi_e x
54foreign import ccall "psi.h gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr Double -> IO(Int) 55foreign import ccall "psi.h gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr () -> IO CInt
55 56
56-- | wrapper for double gsl_sf_psi(double x); 57-- | wrapper for double gsl_sf_psi(double x);
57-- 58--
@@ -65,7 +66,7 @@ foreign import ccall "psi.h gsl_sf_psi" gsl_sf_psi :: Double -> Double
65-- <http://www.google.com/search?q=gsl_sf_psi_1piy_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 66-- <http://www.google.com/search?q=gsl_sf_psi_1piy_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
66psi_1piy_e :: Double -> (Double,Double) 67psi_1piy_e :: Double -> (Double,Double)
67psi_1piy_e y = createSFR "psi_1piy_e" $ gsl_sf_psi_1piy_e y 68psi_1piy_e y = createSFR "psi_1piy_e" $ gsl_sf_psi_1piy_e y
68foreign import ccall "psi.h gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr Double -> IO(Int) 69foreign import ccall "psi.h gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr () -> IO CInt
69 70
70-- | wrapper for double gsl_sf_psi_1piy(double y); 71-- | wrapper for double gsl_sf_psi_1piy(double y);
71-- 72--
@@ -74,26 +75,33 @@ psi_1piy :: Double -> Double
74psi_1piy = gsl_sf_psi_1piy 75psi_1piy = gsl_sf_psi_1piy
75foreign import ccall "psi.h gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double 76foreign import ccall "psi.h gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double
76 77
78-- | wrapper for int gsl_sf_complex_psi_e(double x,double y,gsl_sf_result* result_re,gsl_sf_result* result_im);
79--
80-- <http://www.google.com/search?q=gsl_sf_complex_psi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
81complex_psi_e :: Double -> Double -> Ptr () -> (Double,Double)
82complex_psi_e x y result_re = createSFR "complex_psi_e" $ gsl_sf_complex_psi_e x y result_re
83foreign import ccall "psi.h gsl_sf_complex_psi_e" gsl_sf_complex_psi_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
84
77-- | wrapper for int gsl_sf_psi_1_int_e(int n,gsl_sf_result* result); 85-- | wrapper for int gsl_sf_psi_1_int_e(int n,gsl_sf_result* result);
78-- 86--
79-- <http://www.google.com/search?q=gsl_sf_psi_1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 87-- <http://www.google.com/search?q=gsl_sf_psi_1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
80psi_1_int_e :: Int -> (Double,Double) 88psi_1_int_e :: CInt -> (Double,Double)
81psi_1_int_e n = createSFR "psi_1_int_e" $ gsl_sf_psi_1_int_e n 89psi_1_int_e n = createSFR "psi_1_int_e" $ gsl_sf_psi_1_int_e n
82foreign import ccall "psi.h gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: Int -> Ptr Double -> IO(Int) 90foreign import ccall "psi.h gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: CInt -> Ptr () -> IO CInt
83 91
84-- | wrapper for double gsl_sf_psi_1_int(int n); 92-- | wrapper for double gsl_sf_psi_1_int(int n);
85-- 93--
86-- <http://www.google.com/search?q=gsl_sf_psi_1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 94-- <http://www.google.com/search?q=gsl_sf_psi_1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
87psi_1_int :: Int -> Double 95psi_1_int :: CInt -> Double
88psi_1_int = gsl_sf_psi_1_int 96psi_1_int = gsl_sf_psi_1_int
89foreign import ccall "psi.h gsl_sf_psi_1_int" gsl_sf_psi_1_int :: Int -> Double 97foreign import ccall "psi.h gsl_sf_psi_1_int" gsl_sf_psi_1_int :: CInt -> Double
90 98
91-- | wrapper for int gsl_sf_psi_1_e(double x,gsl_sf_result* result); 99-- | wrapper for int gsl_sf_psi_1_e(double x,gsl_sf_result* result);
92-- 100--
93-- <http://www.google.com/search?q=gsl_sf_psi_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 101-- <http://www.google.com/search?q=gsl_sf_psi_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
94psi_1_e :: Double -> (Double,Double) 102psi_1_e :: Double -> (Double,Double)
95psi_1_e x = createSFR "psi_1_e" $ gsl_sf_psi_1_e x 103psi_1_e x = createSFR "psi_1_e" $ gsl_sf_psi_1_e x
96foreign import ccall "psi.h gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr Double -> IO(Int) 104foreign import ccall "psi.h gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr () -> IO CInt
97 105
98-- | wrapper for double gsl_sf_psi_1(double x); 106-- | wrapper for double gsl_sf_psi_1(double x);
99-- 107--
@@ -105,13 +113,13 @@ foreign import ccall "psi.h gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double
105-- | wrapper for int gsl_sf_psi_n_e(int n,double x,gsl_sf_result* result); 113-- | wrapper for int gsl_sf_psi_n_e(int n,double x,gsl_sf_result* result);
106-- 114--
107-- <http://www.google.com/search?q=gsl_sf_psi_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 115-- <http://www.google.com/search?q=gsl_sf_psi_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
108psi_n_e :: Int -> Double -> (Double,Double) 116psi_n_e :: CInt -> Double -> (Double,Double)
109psi_n_e n x = createSFR "psi_n_e" $ gsl_sf_psi_n_e n x 117psi_n_e n x = createSFR "psi_n_e" $ gsl_sf_psi_n_e n x
110foreign import ccall "psi.h gsl_sf_psi_n_e" gsl_sf_psi_n_e :: Int -> Double -> Ptr Double -> IO(Int) 118foreign import ccall "psi.h gsl_sf_psi_n_e" gsl_sf_psi_n_e :: CInt -> Double -> Ptr () -> IO CInt
111 119
112-- | wrapper for double gsl_sf_psi_n(int n,double x); 120-- | wrapper for double gsl_sf_psi_n(int n,double x);
113-- 121--
114-- <http://www.google.com/search?q=gsl_sf_psi_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 122-- <http://www.google.com/search?q=gsl_sf_psi_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
115psi_n :: Int -> Double -> Double 123psi_n :: CInt -> Double -> Double
116psi_n = gsl_sf_psi_n 124psi_n = gsl_sf_psi_n
117foreign import ccall "psi.h gsl_sf_psi_n" gsl_sf_psi_n :: Int -> Double -> Double 125foreign import ccall "psi.h 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 14881fe..8adcce8 100644
--- a/lib/Numeric/GSL/Special/Synchrotron.hs
+++ b/lib/Numeric/GSL/Special/Synchrotron.hs
@@ -22,6 +22,7 @@ module Numeric.GSL.Special.Synchrotron(
22) where 22) where
23 23
24import Foreign(Ptr) 24import Foreign(Ptr)
25import Foreign.C.Types(CInt)
25import Numeric.GSL.Special.Internal 26import Numeric.GSL.Special.Internal
26 27
27-- | wrapper for int gsl_sf_synchrotron_1_e(double x,gsl_sf_result* result); 28-- | wrapper for int gsl_sf_synchrotron_1_e(double x,gsl_sf_result* result);
@@ -29,7 +30,7 @@ import Numeric.GSL.Special.Internal
29-- <http://www.google.com/search?q=gsl_sf_synchrotron_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 30-- <http://www.google.com/search?q=gsl_sf_synchrotron_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
30synchrotron_1_e :: Double -> (Double,Double) 31synchrotron_1_e :: Double -> (Double,Double)
31synchrotron_1_e x = createSFR "synchrotron_1_e" $ gsl_sf_synchrotron_1_e x 32synchrotron_1_e x = createSFR "synchrotron_1_e" $ gsl_sf_synchrotron_1_e x
32foreign import ccall "synchrotron.h gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr Double -> IO(Int) 33foreign import ccall "synchrotron.h gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr () -> IO CInt
33 34
34-- | wrapper for double gsl_sf_synchrotron_1(double x); 35-- | wrapper for double gsl_sf_synchrotron_1(double x);
35-- 36--
@@ -43,7 +44,7 @@ foreign import ccall "synchrotron.h gsl_sf_synchrotron_1" gsl_sf_synchrotron_1 :
43-- <http://www.google.com/search?q=gsl_sf_synchrotron_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 44-- <http://www.google.com/search?q=gsl_sf_synchrotron_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
44synchrotron_2_e :: Double -> (Double,Double) 45synchrotron_2_e :: Double -> (Double,Double)
45synchrotron_2_e x = createSFR "synchrotron_2_e" $ gsl_sf_synchrotron_2_e x 46synchrotron_2_e x = createSFR "synchrotron_2_e" $ gsl_sf_synchrotron_2_e x
46foreign import ccall "synchrotron.h gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr Double -> IO(Int) 47foreign import ccall "synchrotron.h gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr () -> IO CInt
47 48
48-- | wrapper for double gsl_sf_synchrotron_2(double x); 49-- | wrapper for double gsl_sf_synchrotron_2(double x);
49-- 50--
diff --git a/lib/Numeric/GSL/Special/Trig.hs b/lib/Numeric/GSL/Special/Trig.hs
index b846c1d..98c2c84 100644
--- a/lib/Numeric/GSL/Special/Trig.hs
+++ b/lib/Numeric/GSL/Special/Trig.hs
@@ -9,7 +9,7 @@ Portability : uses ffi
9 9
10Wrappers for selected functions described at: 10Wrappers for selected functions described at:
11 11
12<http://www.gnu.org/software/gsl/manual/html_node/Trigonometric-Functions.html> 12<http://www.google.com/search?q=gsl_sf_trig.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13 13
14-} 14-}
15------------------------------------------------------------ 15------------------------------------------------------------
@@ -36,129 +36,180 @@ module Numeric.GSL.Special.Trig(
36) where 36) where
37 37
38import Foreign(Ptr) 38import Foreign(Ptr)
39import Foreign.C.Types(CInt)
39import Numeric.GSL.Special.Internal 40import Numeric.GSL.Special.Internal
40 41
41-- | wrapper for int gsl_sf_sin_e(double x,gsl_sf_result* result); 42-- | wrapper for int gsl_sf_sin_e(double x,gsl_sf_result* result);
43--
44-- <http://www.google.com/search?q=gsl_sf_sin_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
42sin_e :: Double -> (Double,Double) 45sin_e :: Double -> (Double,Double)
43sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x 46sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x
44foreign import ccall "trig.h gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr Double -> IO(Int) 47foreign import ccall "trig.h gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt
45 48
46-- | wrapper for double gsl_sf_sin(double x); 49-- | wrapper for double gsl_sf_sin(double x);
50--
51-- <http://www.google.com/search?q=gsl_sf_sin&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
47sin :: Double -> Double 52sin :: Double -> Double
48sin = gsl_sf_sin 53sin = gsl_sf_sin
49foreign import ccall "trig.h gsl_sf_sin" gsl_sf_sin :: Double -> Double 54foreign import ccall "trig.h gsl_sf_sin" gsl_sf_sin :: Double -> Double
50 55
51-- | wrapper for int gsl_sf_cos_e(double x,gsl_sf_result* result); 56-- | wrapper for int gsl_sf_cos_e(double x,gsl_sf_result* result);
57--
58-- <http://www.google.com/search?q=gsl_sf_cos_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
52cos_e :: Double -> (Double,Double) 59cos_e :: Double -> (Double,Double)
53cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x 60cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x
54foreign import ccall "trig.h gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr Double -> IO(Int) 61foreign import ccall "trig.h gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt
55 62
56-- | wrapper for double gsl_sf_cos(double x); 63-- | wrapper for double gsl_sf_cos(double x);
64--
65-- <http://www.google.com/search?q=gsl_sf_cos&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
57cos :: Double -> Double 66cos :: Double -> Double
58cos = gsl_sf_cos 67cos = gsl_sf_cos
59foreign import ccall "trig.h gsl_sf_cos" gsl_sf_cos :: Double -> Double 68foreign import ccall "trig.h gsl_sf_cos" gsl_sf_cos :: Double -> Double
60 69
61-- | wrapper for int gsl_sf_hypot_e(double x,double y,gsl_sf_result* result); 70-- | wrapper for int gsl_sf_hypot_e(double x,double y,gsl_sf_result* result);
71--
72-- <http://www.google.com/search?q=gsl_sf_hypot_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
62hypot_e :: Double -> Double -> (Double,Double) 73hypot_e :: Double -> Double -> (Double,Double)
63hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y 74hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y
64foreign import ccall "trig.h gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr Double -> IO(Int) 75foreign import ccall "trig.h gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt
65 76
66-- | wrapper for double gsl_sf_hypot(double x,double y); 77-- | wrapper for double gsl_sf_hypot(double x,double y);
78--
79-- <http://www.google.com/search?q=gsl_sf_hypot&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
67hypot :: Double -> Double -> Double 80hypot :: Double -> Double -> Double
68hypot = gsl_sf_hypot 81hypot = gsl_sf_hypot
69foreign import ccall "trig.h gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double 82foreign import ccall "trig.h gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double
70 83
71-- | wrapper for int gsl_sf_complex_sin_e(double zr,double zi,gsl_sf_result* szr,gsl_sf_result* szi); 84-- | wrapper for int gsl_sf_complex_sin_e(double zr,double zi,gsl_sf_result* szr,gsl_sf_result* szi);
72complex_sin_e :: Double -> Double -> Ptr Double -> (Double,Double) 85--
86-- <http://www.google.com/search?q=gsl_sf_complex_sin_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
87complex_sin_e :: Double -> Double -> Ptr () -> (Double,Double)
73complex_sin_e zr zi szr = createSFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi szr 88complex_sin_e zr zi szr = createSFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi szr
74foreign import ccall "trig.h gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr Double -> Ptr Double -> IO(Int) 89foreign import ccall "trig.h gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
75 90
76-- | wrapper for int gsl_sf_complex_cos_e(double zr,double zi,gsl_sf_result* czr,gsl_sf_result* czi); 91-- | wrapper for int gsl_sf_complex_cos_e(double zr,double zi,gsl_sf_result* czr,gsl_sf_result* czi);
77complex_cos_e :: Double -> Double -> Ptr Double -> (Double,Double) 92--
93-- <http://www.google.com/search?q=gsl_sf_complex_cos_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
94complex_cos_e :: Double -> Double -> Ptr () -> (Double,Double)
78complex_cos_e zr zi czr = createSFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi czr 95complex_cos_e zr zi czr = createSFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi czr
79foreign import ccall "trig.h gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr Double -> Ptr Double -> IO(Int) 96foreign import ccall "trig.h gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
80 97
81-- | wrapper for int gsl_sf_complex_logsin_e(double zr,double zi,gsl_sf_result* lszr,gsl_sf_result* lszi); 98-- | wrapper for int gsl_sf_complex_logsin_e(double zr,double zi,gsl_sf_result* lszr,gsl_sf_result* lszi);
82complex_logsin_e :: Double -> Double -> Ptr Double -> (Double,Double) 99--
100-- <http://www.google.com/search?q=gsl_sf_complex_logsin_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
101complex_logsin_e :: Double -> Double -> Ptr () -> (Double,Double)
83complex_logsin_e zr zi lszr = createSFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi lszr 102complex_logsin_e zr zi lszr = createSFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi lszr
84foreign import ccall "trig.h gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr Double -> Ptr Double -> IO(Int) 103foreign import ccall "trig.h gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
85 104
86-- | wrapper for int gsl_sf_sinc_e(double x,gsl_sf_result* result); 105-- | wrapper for int gsl_sf_sinc_e(double x,gsl_sf_result* result);
106--
107-- <http://www.google.com/search?q=gsl_sf_sinc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
87sinc_e :: Double -> (Double,Double) 108sinc_e :: Double -> (Double,Double)
88sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x 109sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x
89foreign import ccall "trig.h gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr Double -> IO(Int) 110foreign import ccall "trig.h gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt
90 111
91-- | wrapper for double gsl_sf_sinc(double x); 112-- | wrapper for double gsl_sf_sinc(double x);
113--
114-- <http://www.google.com/search?q=gsl_sf_sinc&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
92sinc :: Double -> Double 115sinc :: Double -> Double
93sinc = gsl_sf_sinc 116sinc = gsl_sf_sinc
94foreign import ccall "trig.h gsl_sf_sinc" gsl_sf_sinc :: Double -> Double 117foreign import ccall "trig.h gsl_sf_sinc" gsl_sf_sinc :: Double -> Double
95 118
96-- | wrapper for int gsl_sf_lnsinh_e(double x,gsl_sf_result* result); 119-- | wrapper for int gsl_sf_lnsinh_e(double x,gsl_sf_result* result);
120--
121-- <http://www.google.com/search?q=gsl_sf_lnsinh_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
97lnsinh_e :: Double -> (Double,Double) 122lnsinh_e :: Double -> (Double,Double)
98lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x 123lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x
99foreign import ccall "trig.h gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr Double -> IO(Int) 124foreign import ccall "trig.h gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt
100 125
101-- | wrapper for double gsl_sf_lnsinh(double x); 126-- | wrapper for double gsl_sf_lnsinh(double x);
127--
128-- <http://www.google.com/search?q=gsl_sf_lnsinh&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
102lnsinh :: Double -> Double 129lnsinh :: Double -> Double
103lnsinh = gsl_sf_lnsinh 130lnsinh = gsl_sf_lnsinh
104foreign import ccall "trig.h gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double 131foreign import ccall "trig.h gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double
105 132
106-- | wrapper for int gsl_sf_lncosh_e(double x,gsl_sf_result* result); 133-- | wrapper for int gsl_sf_lncosh_e(double x,gsl_sf_result* result);
134--
135-- <http://www.google.com/search?q=gsl_sf_lncosh_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
107lncosh_e :: Double -> (Double,Double) 136lncosh_e :: Double -> (Double,Double)
108lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x 137lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x
109foreign import ccall "trig.h gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr Double -> IO(Int) 138foreign import ccall "trig.h gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt
110 139
111-- | wrapper for double gsl_sf_lncosh(double x); 140-- | wrapper for double gsl_sf_lncosh(double x);
141--
142-- <http://www.google.com/search?q=gsl_sf_lncosh&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
112lncosh :: Double -> Double 143lncosh :: Double -> Double
113lncosh = gsl_sf_lncosh 144lncosh = gsl_sf_lncosh
114foreign import ccall "trig.h gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double 145foreign import ccall "trig.h gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double
115 146
116-- | wrapper for int gsl_sf_polar_to_rect(double r,double theta,gsl_sf_result* x,gsl_sf_result* y); 147-- | wrapper for int gsl_sf_polar_to_rect(double r,double theta,gsl_sf_result* x,gsl_sf_result* y);
117polar_to_rect :: Double -> Double -> Ptr Double -> (Double,Double) 148--
149-- <http://www.google.com/search?q=gsl_sf_polar_to_rect&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
150polar_to_rect :: Double -> Double -> Ptr () -> (Double,Double)
118polar_to_rect r theta x = createSFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta x 151polar_to_rect r theta x = createSFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta x
119foreign import ccall "trig.h gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr Double -> Ptr Double -> IO(Int) 152foreign import ccall "trig.h gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
120 153
121-- | wrapper for int gsl_sf_rect_to_polar(double x,double y,gsl_sf_result* r,gsl_sf_result* theta); 154-- | wrapper for int gsl_sf_rect_to_polar(double x,double y,gsl_sf_result* r,gsl_sf_result* theta);
122rect_to_polar :: Double -> Double -> Ptr Double -> (Double,Double) 155--
156-- <http://www.google.com/search?q=gsl_sf_rect_to_polar&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
157rect_to_polar :: Double -> Double -> Ptr () -> (Double,Double)
123rect_to_polar x y r = createSFR "rect_to_polar" $ gsl_sf_rect_to_polar x y r 158rect_to_polar x y r = createSFR "rect_to_polar" $ gsl_sf_rect_to_polar x y r
124foreign import ccall "trig.h gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr Double -> Ptr Double -> IO(Int) 159foreign import ccall "trig.h gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
125 160
126-- | wrapper for int gsl_sf_sin_err_e(double x,double dx,gsl_sf_result* result); 161-- | wrapper for int gsl_sf_sin_err_e(double x,double dx,gsl_sf_result* result);
162--
163-- <http://www.google.com/search?q=gsl_sf_sin_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
127sin_err_e :: Double -> Double -> (Double,Double) 164sin_err_e :: Double -> Double -> (Double,Double)
128sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx 165sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx
129foreign import ccall "trig.h gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr Double -> IO(Int) 166foreign import ccall "trig.h gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt
130 167
131-- | wrapper for int gsl_sf_cos_err_e(double x,double dx,gsl_sf_result* result); 168-- | wrapper for int gsl_sf_cos_err_e(double x,double dx,gsl_sf_result* result);
169--
170-- <http://www.google.com/search?q=gsl_sf_cos_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
132cos_err_e :: Double -> Double -> (Double,Double) 171cos_err_e :: Double -> Double -> (Double,Double)
133cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx 172cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx
134foreign import ccall "trig.h gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr Double -> IO(Int) 173foreign import ccall "trig.h gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt
135 174
136-- | wrapper for int gsl_sf_angle_restrict_symm_e(double* theta); 175-- | wrapper for int gsl_sf_angle_restrict_symm_e(double* theta);
137angle_restrict_symm_e :: Ptr Double -> Int 176--
177-- <http://www.google.com/search?q=gsl_sf_angle_restrict_symm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
178angle_restrict_symm_e :: Ptr Double -> CInt
138angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e 179angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e
139foreign import ccall "trig.h gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> Int 180foreign import ccall "trig.h gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt
140 181
141-- | wrapper for double gsl_sf_angle_restrict_symm(double theta); 182-- | wrapper for double gsl_sf_angle_restrict_symm(double theta);
183--
184-- <http://www.google.com/search?q=gsl_sf_angle_restrict_symm&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
142angle_restrict_symm :: Double -> Double 185angle_restrict_symm :: Double -> Double
143angle_restrict_symm = gsl_sf_angle_restrict_symm 186angle_restrict_symm = gsl_sf_angle_restrict_symm
144foreign import ccall "trig.h gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double 187foreign import ccall "trig.h gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double
145 188
146-- | wrapper for int gsl_sf_angle_restrict_pos_e(double* theta); 189-- | wrapper for int gsl_sf_angle_restrict_pos_e(double* theta);
147angle_restrict_pos_e :: Ptr Double -> Int 190--
191-- <http://www.google.com/search?q=gsl_sf_angle_restrict_pos_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
192angle_restrict_pos_e :: Ptr Double -> CInt
148angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e 193angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e
149foreign import ccall "trig.h gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> Int 194foreign import ccall "trig.h gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt
150 195
151-- | wrapper for double gsl_sf_angle_restrict_pos(double theta); 196-- | wrapper for double gsl_sf_angle_restrict_pos(double theta);
197--
198-- <http://www.google.com/search?q=gsl_sf_angle_restrict_pos&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
152angle_restrict_pos :: Double -> Double 199angle_restrict_pos :: Double -> Double
153angle_restrict_pos = gsl_sf_angle_restrict_pos 200angle_restrict_pos = gsl_sf_angle_restrict_pos
154foreign import ccall "trig.h gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double 201foreign import ccall "trig.h gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double
155 202
156-- | wrapper for int gsl_sf_angle_restrict_symm_err_e(double theta,gsl_sf_result* result); 203-- | wrapper for int gsl_sf_angle_restrict_symm_err_e(double theta,gsl_sf_result* result);
204--
205-- <http://www.google.com/search?q=gsl_sf_angle_restrict_symm_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
157angle_restrict_symm_err_e :: Double -> (Double,Double) 206angle_restrict_symm_err_e :: Double -> (Double,Double)
158angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta 207angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta
159foreign import ccall "trig.h gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr Double -> IO(Int) 208foreign import ccall "trig.h gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt
160 209
161-- | wrapper for int gsl_sf_angle_restrict_pos_err_e(double theta,gsl_sf_result* result); 210-- | wrapper for int gsl_sf_angle_restrict_pos_err_e(double theta,gsl_sf_result* result);
211--
212-- <http://www.google.com/search?q=gsl_sf_angle_restrict_pos_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
162angle_restrict_pos_err_e :: Double -> (Double,Double) 213angle_restrict_pos_err_e :: Double -> (Double,Double)
163angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta 214angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta
164foreign import ccall "trig.h gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr Double -> IO(Int) 215foreign import ccall "trig.h 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 48c8ff1..4970834 100644
--- a/lib/Numeric/GSL/Special/Zeta.hs
+++ b/lib/Numeric/GSL/Special/Zeta.hs
@@ -32,28 +32,29 @@ module Numeric.GSL.Special.Zeta(
32) where 32) where
33 33
34import Foreign(Ptr) 34import Foreign(Ptr)
35import Foreign.C.Types(CInt)
35import Numeric.GSL.Special.Internal 36import Numeric.GSL.Special.Internal
36 37
37-- | wrapper for int gsl_sf_zeta_int_e(int n,gsl_sf_result* result); 38-- | wrapper for int gsl_sf_zeta_int_e(int n,gsl_sf_result* result);
38-- 39--
39-- <http://www.google.com/search?q=gsl_sf_zeta_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 40-- <http://www.google.com/search?q=gsl_sf_zeta_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
40zeta_int_e :: Int -> (Double,Double) 41zeta_int_e :: CInt -> (Double,Double)
41zeta_int_e n = createSFR "zeta_int_e" $ gsl_sf_zeta_int_e n 42zeta_int_e n = createSFR "zeta_int_e" $ gsl_sf_zeta_int_e n
42foreign import ccall "zeta.h gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: Int -> Ptr Double -> IO(Int) 43foreign import ccall "zeta.h gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: CInt -> Ptr () -> IO CInt
43 44
44-- | wrapper for double gsl_sf_zeta_int(int n); 45-- | wrapper for double gsl_sf_zeta_int(int n);
45-- 46--
46-- <http://www.google.com/search?q=gsl_sf_zeta_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 47-- <http://www.google.com/search?q=gsl_sf_zeta_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
47zeta_int :: Int -> Double 48zeta_int :: CInt -> Double
48zeta_int = gsl_sf_zeta_int 49zeta_int = gsl_sf_zeta_int
49foreign import ccall "zeta.h gsl_sf_zeta_int" gsl_sf_zeta_int :: Int -> Double 50foreign import ccall "zeta.h gsl_sf_zeta_int" gsl_sf_zeta_int :: CInt -> Double
50 51
51-- | wrapper for int gsl_sf_zeta_e(double s,gsl_sf_result* result); 52-- | wrapper for int gsl_sf_zeta_e(double s,gsl_sf_result* result);
52-- 53--
53-- <http://www.google.com/search?q=gsl_sf_zeta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 54-- <http://www.google.com/search?q=gsl_sf_zeta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
54zeta_e :: Double -> (Double,Double) 55zeta_e :: Double -> (Double,Double)
55zeta_e s = createSFR "zeta_e" $ gsl_sf_zeta_e s 56zeta_e s = createSFR "zeta_e" $ gsl_sf_zeta_e s
56foreign import ccall "zeta.h gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr Double -> IO(Int) 57foreign import ccall "zeta.h gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr () -> IO CInt
57 58
58-- | wrapper for double gsl_sf_zeta(double s); 59-- | wrapper for double gsl_sf_zeta(double s);
59-- 60--
@@ -67,7 +68,7 @@ foreign import ccall "zeta.h gsl_sf_zeta" gsl_sf_zeta :: Double -> Double
67-- <http://www.google.com/search?q=gsl_sf_zetam1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 68-- <http://www.google.com/search?q=gsl_sf_zetam1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
68zetam1_e :: Double -> (Double,Double) 69zetam1_e :: Double -> (Double,Double)
69zetam1_e s = createSFR "zetam1_e" $ gsl_sf_zetam1_e s 70zetam1_e s = createSFR "zetam1_e" $ gsl_sf_zetam1_e s
70foreign import ccall "zeta.h gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr Double -> IO(Int) 71foreign import ccall "zeta.h gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr () -> IO CInt
71 72
72-- | wrapper for double gsl_sf_zetam1(double s); 73-- | wrapper for double gsl_sf_zetam1(double s);
73-- 74--
@@ -79,23 +80,23 @@ foreign import ccall "zeta.h gsl_sf_zetam1" gsl_sf_zetam1 :: Double -> Double
79-- | wrapper for int gsl_sf_zetam1_int_e(int s,gsl_sf_result* result); 80-- | wrapper for int gsl_sf_zetam1_int_e(int s,gsl_sf_result* result);
80-- 81--
81-- <http://www.google.com/search?q=gsl_sf_zetam1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 82-- <http://www.google.com/search?q=gsl_sf_zetam1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
82zetam1_int_e :: Int -> (Double,Double) 83zetam1_int_e :: CInt -> (Double,Double)
83zetam1_int_e s = createSFR "zetam1_int_e" $ gsl_sf_zetam1_int_e s 84zetam1_int_e s = createSFR "zetam1_int_e" $ gsl_sf_zetam1_int_e s
84foreign import ccall "zeta.h gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: Int -> Ptr Double -> IO(Int) 85foreign import ccall "zeta.h gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: CInt -> Ptr () -> IO CInt
85 86
86-- | wrapper for double gsl_sf_zetam1_int(int s); 87-- | wrapper for double gsl_sf_zetam1_int(int s);
87-- 88--
88-- <http://www.google.com/search?q=gsl_sf_zetam1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 89-- <http://www.google.com/search?q=gsl_sf_zetam1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
89zetam1_int :: Int -> Double 90zetam1_int :: CInt -> Double
90zetam1_int = gsl_sf_zetam1_int 91zetam1_int = gsl_sf_zetam1_int
91foreign import ccall "zeta.h gsl_sf_zetam1_int" gsl_sf_zetam1_int :: Int -> Double 92foreign import ccall "zeta.h gsl_sf_zetam1_int" gsl_sf_zetam1_int :: CInt -> Double
92 93
93-- | wrapper for int gsl_sf_hzeta_e(double s,double q,gsl_sf_result* result); 94-- | wrapper for int gsl_sf_hzeta_e(double s,double q,gsl_sf_result* result);
94-- 95--
95-- <http://www.google.com/search?q=gsl_sf_hzeta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 96-- <http://www.google.com/search?q=gsl_sf_hzeta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
96hzeta_e :: Double -> Double -> (Double,Double) 97hzeta_e :: Double -> Double -> (Double,Double)
97hzeta_e s q = createSFR "hzeta_e" $ gsl_sf_hzeta_e s q 98hzeta_e s q = createSFR "hzeta_e" $ gsl_sf_hzeta_e s q
98foreign import ccall "zeta.h gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr Double -> IO(Int) 99foreign import ccall "zeta.h gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr () -> IO CInt
99 100
100-- | wrapper for double gsl_sf_hzeta(double s,double q); 101-- | wrapper for double gsl_sf_hzeta(double s,double q);
101-- 102--
@@ -107,23 +108,23 @@ foreign import ccall "zeta.h gsl_sf_hzeta" gsl_sf_hzeta :: Double -> Double -> D
107-- | wrapper for int gsl_sf_eta_int_e(int n,gsl_sf_result* result); 108-- | wrapper for int gsl_sf_eta_int_e(int n,gsl_sf_result* result);
108-- 109--
109-- <http://www.google.com/search?q=gsl_sf_eta_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 110-- <http://www.google.com/search?q=gsl_sf_eta_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
110eta_int_e :: Int -> (Double,Double) 111eta_int_e :: CInt -> (Double,Double)
111eta_int_e n = createSFR "eta_int_e" $ gsl_sf_eta_int_e n 112eta_int_e n = createSFR "eta_int_e" $ gsl_sf_eta_int_e n
112foreign import ccall "zeta.h gsl_sf_eta_int_e" gsl_sf_eta_int_e :: Int -> Ptr Double -> IO(Int) 113foreign import ccall "zeta.h gsl_sf_eta_int_e" gsl_sf_eta_int_e :: CInt -> Ptr () -> IO CInt
113 114
114-- | wrapper for double gsl_sf_eta_int(int n); 115-- | wrapper for double gsl_sf_eta_int(int n);
115-- 116--
116-- <http://www.google.com/search?q=gsl_sf_eta_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 117-- <http://www.google.com/search?q=gsl_sf_eta_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
117eta_int :: Int -> Double 118eta_int :: CInt -> Double
118eta_int = gsl_sf_eta_int 119eta_int = gsl_sf_eta_int
119foreign import ccall "zeta.h gsl_sf_eta_int" gsl_sf_eta_int :: Int -> Double 120foreign import ccall "zeta.h gsl_sf_eta_int" gsl_sf_eta_int :: CInt -> Double
120 121
121-- | wrapper for int gsl_sf_eta_e(double s,gsl_sf_result* result); 122-- | wrapper for int gsl_sf_eta_e(double s,gsl_sf_result* result);
122-- 123--
123-- <http://www.google.com/search?q=gsl_sf_eta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 124-- <http://www.google.com/search?q=gsl_sf_eta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
124eta_e :: Double -> (Double,Double) 125eta_e :: Double -> (Double,Double)
125eta_e s = createSFR "eta_e" $ gsl_sf_eta_e s 126eta_e s = createSFR "eta_e" $ gsl_sf_eta_e s
126foreign import ccall "zeta.h gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr Double -> IO(Int) 127foreign import ccall "zeta.h gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr () -> IO CInt
127 128
128-- | wrapper for double gsl_sf_eta(double s); 129-- | wrapper for double gsl_sf_eta(double s);
129-- 130--
diff --git a/lib/Numeric/GSL/Special/auto.hs b/lib/Numeric/GSL/Special/auto.hs
index d2baff6..732fdc9 100644
--- a/lib/Numeric/GSL/Special/auto.hs
+++ b/lib/Numeric/GSL/Special/auto.hs
@@ -60,7 +60,9 @@ main = do
60 --mapM_ (putStrLn.showFull (name ++".h")) parsed 60 --mapM_ (putStrLn.showFull (name ++".h")) parsed
61 let exports = rep (")",") where") $ rep ("(\n","(\n ") $ rep (",\n",", ") $ unlines $ ["("]++intersperse "," (map (\(Header _ n _) -> hName n) (filter safe parsed))++[")"] 61 let exports = rep (")",") where") $ rep ("(\n","(\n ") $ rep (",\n",", ") $ unlines $ ["("]++intersperse "," (map (\(Header _ n _) -> hName n) (filter safe parsed))++[")"]
62 let defs = unlines $ map (showFull (name ++".h")) parsed 62 let defs = unlines $ map (showFull (name ++".h")) parsed
63 let imports = "\nimport Foreign(Ptr)\nimport Numeric.GSL.Special.Internal\n" 63 let imports = "\nimport Foreign(Ptr)\n"
64 ++"import Foreign.C.Types(CInt)\n"
65 ++"import Numeric.GSL.Special.Internal\n"
64 let mod = modhead name ++ "module Numeric.GSL.Special."++ upperFirst name++exports++imports++defs 66 let mod = modhead name ++ "module Numeric.GSL.Special."++ upperFirst name++exports++imports++defs
65 writeFile (upperFirst name ++ ".hs") mod 67 writeFile (upperFirst name ++ ".hs") mod
66 68
@@ -178,12 +180,15 @@ showCa (t, a) = showCt t ++" "++ a
178 180
179showH hc h@(Header t n args) = "foreign import ccall \""++hc++" "++n++"\" "++n++" :: "++ (concat$intersperse" -> "$map showHa args) ++" -> " ++ t' 181showH hc h@(Header t n args) = "foreign import ccall \""++hc++" "++n++"\" "++n++" :: "++ (concat$intersperse" -> "$map showHa args) ++" -> " ++ t'
180 where t' | pure h = showHt t 182 where t' | pure h = showHt t
181 | otherwise = "IO("++showHt t++")" 183 | otherwise = "IO "++showHt t
182 184
183showHt (Normal (s:ss)) = toUpper s : ss 185ht "int" = "CInt"
184showHt (Pointer "gsl_sf_result") = "Ptr Double" 186ht (s:ss) = toUpper s : ss
187
188showHt (Normal t) = ht t
189showHt (Pointer "gsl_sf_result") = "Ptr ()"
185showHt (Pointer "gsl_sf_result_e10") = "Ptr ()" 190showHt (Pointer "gsl_sf_result_e10") = "Ptr ()"
186showHt (Pointer (s:ss)) = "Ptr "++toUpper s : ss 191showHt (Pointer t) = "Ptr "++ht t
187 192
188showHa (t,a) = showHt t 193showHa (t,a) = showHt t
189 194
diff --git a/lib/Numeric/GSL/Special/autoall.sh b/lib/Numeric/GSL/Special/autoall.sh
index cb45957..d5f07e8 100644
--- a/lib/Numeric/GSL/Special/autoall.sh
+++ b/lib/Numeric/GSL/Special/autoall.sh
@@ -32,7 +32,7 @@ runhaskell auto gegenbauer
32runhaskell auto hyperg 32runhaskell auto hyperg
33runhaskell auto laguerre 33runhaskell auto laguerre
34runhaskell auto lambert 34runhaskell auto lambert
35#runhaskell auto legendre 35#runhaskell auto legendre legendre.h
36#runhaskell auto log 36#runhaskell auto log
37runhaskell auto pow_int 37runhaskell auto pow_int
38runhaskell auto psi 38runhaskell auto psi
diff --git a/lib/Numeric/GSL/Special/debye.h b/lib/Numeric/GSL/Special/debye.h
index 2424b63..5e56fe1 100644
--- a/lib/Numeric/GSL/Special/debye.h
+++ b/lib/Numeric/GSL/Special/debye.h
@@ -6,3 +6,7 @@ int gsl_sf_debye_3_e(double x,double* result);
6double gsl_sf_debye_3(double x); 6double gsl_sf_debye_3(double x);
7int gsl_sf_debye_4_e(double x,double* result); 7int gsl_sf_debye_4_e(double x,double* result);
8double gsl_sf_debye_4(double x); 8double gsl_sf_debye_4(double x);
9int gsl_sf_debye_5_e(double x,double* result);
10double gsl_sf_debye_5(double x);
11int gsl_sf_debye_6_e(double x,double* result);
12double gsl_sf_debye_6(double x);
diff --git a/lib/Numeric/GSL/Special/ellint.h b/lib/Numeric/GSL/Special/ellint.h
index 5329c6c..bc61ef1 100644
--- a/lib/Numeric/GSL/Special/ellint.h
+++ b/lib/Numeric/GSL/Special/ellint.h
@@ -2,6 +2,10 @@ int gsl_sf_ellint_Kcomp_e(double k,int mode,double* result);
2double gsl_sf_ellint_Kcomp(double k,int mode); 2double gsl_sf_ellint_Kcomp(double k,int mode);
3int gsl_sf_ellint_Ecomp_e(double k,int mode,double* result); 3int gsl_sf_ellint_Ecomp_e(double k,int mode,double* result);
4double gsl_sf_ellint_Ecomp(double k,int mode); 4double gsl_sf_ellint_Ecomp(double k,int mode);
5int gsl_sf_ellint_Pcomp_e(double k,double n,int mode,double* result);
6double gsl_sf_ellint_Pcomp(double k,double n,int mode);
7int gsl_sf_ellint_Dcomp_e(double k,int mode,double* result);
8double gsl_sf_ellint_Dcomp(double k,int mode);
5int gsl_sf_ellint_F_e(double phi,double k,int mode,double* result); 9int gsl_sf_ellint_F_e(double phi,double k,int mode,double* result);
6double gsl_sf_ellint_F(double phi,double k,int mode); 10double gsl_sf_ellint_F(double phi,double k,int mode);
7int gsl_sf_ellint_E_e(double phi,double k,int mode,double* result); 11int gsl_sf_ellint_E_e(double phi,double k,int mode,double* result);
diff --git a/lib/Numeric/GSL/Special/gamma.h b/lib/Numeric/GSL/Special/gamma.h
index c5cc417..f449d7c 100644
--- a/lib/Numeric/GSL/Special/gamma.h
+++ b/lib/Numeric/GSL/Special/gamma.h
@@ -37,6 +37,7 @@ int gsl_sf_gamma_inc_e(double a,double x,double* result);
37double gsl_sf_gamma_inc(double a,double x); 37double gsl_sf_gamma_inc(double a,double x);
38int gsl_sf_lnbeta_e(double a,double b,double* result); 38int gsl_sf_lnbeta_e(double a,double b,double* result);
39double gsl_sf_lnbeta(double a,double b); 39double gsl_sf_lnbeta(double a,double b);
40int gsl_sf_lnbeta_sgn_e(double x,double y,double* result,double* sgn);
40int gsl_sf_beta_e(double a,double b,double* result); 41int gsl_sf_beta_e(double a,double b,double* result);
41double gsl_sf_beta(double a,double b); 42double gsl_sf_beta(double a,double b);
42int gsl_sf_beta_inc_e(double a,double b,double x,double* result); 43int gsl_sf_beta_inc_e(double a,double b,double x,double* result);
diff --git a/lib/Numeric/GSL/Special/psi.h b/lib/Numeric/GSL/Special/psi.h
index 589eb34..fa2853e 100644
--- a/lib/Numeric/GSL/Special/psi.h
+++ b/lib/Numeric/GSL/Special/psi.h
@@ -4,6 +4,7 @@ int gsl_sf_psi_e(double x,double* result);
4double gsl_sf_psi(double x); 4double gsl_sf_psi(double x);
5int gsl_sf_psi_1piy_e(double y,double* result); 5int gsl_sf_psi_1piy_e(double y,double* result);
6double gsl_sf_psi_1piy(double y); 6double gsl_sf_psi_1piy(double y);
7int gsl_sf_complex_psi_e(double x,double y,double* result_re,double* result_im);
7int gsl_sf_psi_1_int_e(int n,double* result); 8int gsl_sf_psi_1_int_e(int n,double* result);
8double gsl_sf_psi_1_int(int n); 9double gsl_sf_psi_1_int(int n);
9int gsl_sf_psi_1_e(double x,double* result); 10int gsl_sf_psi_1_e(double x,double* result);
generated by cgit v1.2.3 (git 2.39.1) at 2024-09-19 11:27:21 +0000