summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2009-06-17 12:27:17 +0000
committerAlberto Ruiz <aruiz@um.es>2009-06-17 12:27:17 +0000
commite58f1e0e94407983fa18cd535cf76427019f1519 (patch)
tree4ffffdb92fd78e2233485895fb288111af0bf386 /lib
parent45e0e90ffdedd3c1fbe3da750018c65a1535cf75 (diff)
added special transport and elljac
Diffstat (limited to 'lib')
-rw-r--r--lib/Numeric/GSL/Special.hs4
-rw-r--r--lib/Numeric/GSL/Special/Airy.hs120
-rw-r--r--lib/Numeric/GSL/Special/Bessel.hs424
-rw-r--r--lib/Numeric/GSL/Special/Clausen.hs32
-rw-r--r--lib/Numeric/GSL/Special/Coulomb.hs68
-rw-r--r--lib/Numeric/GSL/Special/Coupling.hs64
-rw-r--r--lib/Numeric/GSL/Special/Dawson.hs32
-rw-r--r--lib/Numeric/GSL/Special/Debye.hs72
-rw-r--r--lib/Numeric/GSL/Special/Dilog.hs44
-rw-r--r--lib/Numeric/GSL/Special/Elementary.hs36
-rw-r--r--lib/Numeric/GSL/Special/Ellint.hs120
-rw-r--r--lib/Numeric/GSL/Special/Elljac.hs38
-rw-r--r--lib/Numeric/GSL/Special/Erf.hs72
-rw-r--r--lib/Numeric/GSL/Special/Exp.hs100
-rw-r--r--lib/Numeric/GSL/Special/Expint.hs136
-rw-r--r--lib/Numeric/GSL/Special/Fermi_dirac.hs96
-rw-r--r--lib/Numeric/GSL/Special/Gamma.hs200
-rw-r--r--lib/Numeric/GSL/Special/Gegenbauer.hs60
-rw-r--r--lib/Numeric/GSL/Special/Hyperg.hs112
-rw-r--r--lib/Numeric/GSL/Special/Laguerre.hs56
-rw-r--r--lib/Numeric/GSL/Special/Lambert.hs40
-rw-r--r--lib/Numeric/GSL/Special/Legendre.hs200
-rw-r--r--lib/Numeric/GSL/Special/Log.hs60
-rw-r--r--lib/Numeric/GSL/Special/Pow_int.hs32
-rw-r--r--lib/Numeric/GSL/Special/Psi.hs76
-rw-r--r--lib/Numeric/GSL/Special/Synchrotron.hs40
-rw-r--r--lib/Numeric/GSL/Special/Transport.hs52
-rw-r--r--lib/Numeric/GSL/Special/Trig.hs124
-rw-r--r--lib/Numeric/GSL/Special/Zeta.hs80
-rw-r--r--lib/Numeric/GSL/Special/auto.hs34
-rw-r--r--lib/Numeric/GSL/Special/autoall.sh6
-rw-r--r--lib/Numeric/GSL/Special/gsl_sf_legendre.h319
32 files changed, 404 insertions, 2545 deletions
diff --git a/lib/Numeric/GSL/Special.hs b/lib/Numeric/GSL/Special.hs
index 3fd2ac2..a8bbaf6 100644
--- a/lib/Numeric/GSL/Special.hs
+++ b/lib/Numeric/GSL/Special.hs
@@ -25,6 +25,7 @@ module Numeric.GSL.Special (
25, module Numeric.GSL.Special.Dilog 25, module Numeric.GSL.Special.Dilog
26, module Numeric.GSL.Special.Elementary 26, module Numeric.GSL.Special.Elementary
27, module Numeric.GSL.Special.Ellint 27, module Numeric.GSL.Special.Ellint
28, module Numeric.GSL.Special.Elljac
28, module Numeric.GSL.Special.Erf 29, module Numeric.GSL.Special.Erf
29, module Numeric.GSL.Special.Exp 30, module Numeric.GSL.Special.Exp
30, module Numeric.GSL.Special.Expint 31, module Numeric.GSL.Special.Expint
@@ -39,6 +40,7 @@ module Numeric.GSL.Special (
39, module Numeric.GSL.Special.Pow_int 40, module Numeric.GSL.Special.Pow_int
40, module Numeric.GSL.Special.Psi 41, module Numeric.GSL.Special.Psi
41, module Numeric.GSL.Special.Synchrotron 42, module Numeric.GSL.Special.Synchrotron
43, module Numeric.GSL.Special.Transport
42, module Numeric.GSL.Special.Trig 44, module Numeric.GSL.Special.Trig
43, module Numeric.GSL.Special.Zeta 45, module Numeric.GSL.Special.Zeta
44) 46)
@@ -54,6 +56,7 @@ import Numeric.GSL.Special.Debye
54import Numeric.GSL.Special.Dilog 56import Numeric.GSL.Special.Dilog
55import Numeric.GSL.Special.Elementary 57import Numeric.GSL.Special.Elementary
56import Numeric.GSL.Special.Ellint 58import Numeric.GSL.Special.Ellint
59import Numeric.GSL.Special.Elljac
57import Numeric.GSL.Special.Erf 60import Numeric.GSL.Special.Erf
58import Numeric.GSL.Special.Exp 61import Numeric.GSL.Special.Exp
59import Numeric.GSL.Special.Expint 62import Numeric.GSL.Special.Expint
@@ -68,5 +71,6 @@ import Numeric.GSL.Special.Log
68import Numeric.GSL.Special.Pow_int 71import Numeric.GSL.Special.Pow_int
69import Numeric.GSL.Special.Psi 72import Numeric.GSL.Special.Psi
70import Numeric.GSL.Special.Synchrotron 73import Numeric.GSL.Special.Synchrotron
74import Numeric.GSL.Special.Transport
71import Numeric.GSL.Special.Trig 75import Numeric.GSL.Special.Trig
72import Numeric.GSL.Special.Zeta 76import Numeric.GSL.Special.Zeta
diff --git a/lib/Numeric/GSL/Special/Airy.hs b/lib/Numeric/GSL/Special/Airy.hs
index 80e98f4..0477039 100644
--- a/lib/Numeric/GSL/Special/Airy.hs
+++ b/lib/Numeric/GSL/Special/Airy.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Airy 3-- Module : Numeric.GSL.Special.Airy
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_airy.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_airy.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Airy( 15module Numeric.GSL.Special.Airy(
@@ -45,171 +43,75 @@ module Numeric.GSL.Special.Airy(
45import Foreign(Ptr) 43import Foreign(Ptr)
46import Foreign.C.Types(CInt) 44import Foreign.C.Types(CInt)
47import Numeric.GSL.Special.Internal 45import Numeric.GSL.Special.Internal
48
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>
52airy_Ai_e :: Double -> Precision -> (Double,Double) 46airy_Ai_e :: Double -> Precision -> (Double,Double)
53airy_Ai_e x mode = createSFR "airy_Ai_e" $ gsl_sf_airy_Ai_e x (precCode mode) 47airy_Ai_e x mode = createSFR "airy_Ai_e" $ gsl_sf_airy_Ai_e x (precCode mode)
54foreign import ccall "gsl_sf_airy_Ai_e" gsl_sf_airy_Ai_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt 48foreign import ccall "gsl_sf_airy_Ai_e" gsl_sf_airy_Ai_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
55
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>
59airy_Ai :: Double -> Precision -> Double 49airy_Ai :: Double -> Precision -> Double
60airy_Ai x mode = gsl_sf_airy_Ai x (precCode mode) 50airy_Ai x mode = gsl_sf_airy_Ai x (precCode mode)
61foreign import ccall "gsl_sf_airy_Ai" gsl_sf_airy_Ai :: Double -> Gsl_mode_t -> Double 51foreign import ccall "gsl_sf_airy_Ai" gsl_sf_airy_Ai :: Double -> Gsl_mode_t -> Double
62
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>
66airy_Bi_e :: Double -> Precision -> (Double,Double) 52airy_Bi_e :: Double -> Precision -> (Double,Double)
67airy_Bi_e x mode = createSFR "airy_Bi_e" $ gsl_sf_airy_Bi_e x (precCode mode) 53airy_Bi_e x mode = createSFR "airy_Bi_e" $ gsl_sf_airy_Bi_e x (precCode mode)
68foreign import ccall "gsl_sf_airy_Bi_e" gsl_sf_airy_Bi_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt 54foreign import ccall "gsl_sf_airy_Bi_e" gsl_sf_airy_Bi_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
69
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>
73airy_Bi :: Double -> Precision -> Double 55airy_Bi :: Double -> Precision -> Double
74airy_Bi x mode = gsl_sf_airy_Bi x (precCode mode) 56airy_Bi x mode = gsl_sf_airy_Bi x (precCode mode)
75foreign import ccall "gsl_sf_airy_Bi" gsl_sf_airy_Bi :: Double -> Gsl_mode_t -> Double 57foreign import ccall "gsl_sf_airy_Bi" gsl_sf_airy_Bi :: Double -> Gsl_mode_t -> Double
76
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>
80airy_Ai_scaled_e :: Double -> Precision -> (Double,Double) 58airy_Ai_scaled_e :: Double -> Precision -> (Double,Double)
81airy_Ai_scaled_e x mode = createSFR "airy_Ai_scaled_e" $ gsl_sf_airy_Ai_scaled_e x (precCode mode) 59airy_Ai_scaled_e x mode = createSFR "airy_Ai_scaled_e" $ gsl_sf_airy_Ai_scaled_e x (precCode mode)
82foreign import ccall "gsl_sf_airy_Ai_scaled_e" gsl_sf_airy_Ai_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt 60foreign import ccall "gsl_sf_airy_Ai_scaled_e" gsl_sf_airy_Ai_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
83
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>
87airy_Ai_scaled :: Double -> Precision -> Double 61airy_Ai_scaled :: Double -> Precision -> Double
88airy_Ai_scaled x mode = gsl_sf_airy_Ai_scaled x (precCode mode) 62airy_Ai_scaled x mode = gsl_sf_airy_Ai_scaled x (precCode mode)
89foreign import ccall "gsl_sf_airy_Ai_scaled" gsl_sf_airy_Ai_scaled :: Double -> Gsl_mode_t -> Double 63foreign import ccall "gsl_sf_airy_Ai_scaled" gsl_sf_airy_Ai_scaled :: Double -> Gsl_mode_t -> Double
90
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>
94airy_Bi_scaled_e :: Double -> Precision -> (Double,Double) 64airy_Bi_scaled_e :: Double -> Precision -> (Double,Double)
95airy_Bi_scaled_e x mode = createSFR "airy_Bi_scaled_e" $ gsl_sf_airy_Bi_scaled_e x (precCode mode) 65airy_Bi_scaled_e x mode = createSFR "airy_Bi_scaled_e" $ gsl_sf_airy_Bi_scaled_e x (precCode mode)
96foreign import ccall "gsl_sf_airy_Bi_scaled_e" gsl_sf_airy_Bi_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt 66foreign import ccall "gsl_sf_airy_Bi_scaled_e" gsl_sf_airy_Bi_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
97
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>
101airy_Bi_scaled :: Double -> Precision -> Double 67airy_Bi_scaled :: Double -> Precision -> Double
102airy_Bi_scaled x mode = gsl_sf_airy_Bi_scaled x (precCode mode) 68airy_Bi_scaled x mode = gsl_sf_airy_Bi_scaled x (precCode mode)
103foreign import ccall "gsl_sf_airy_Bi_scaled" gsl_sf_airy_Bi_scaled :: Double -> Gsl_mode_t -> Double 69foreign import ccall "gsl_sf_airy_Bi_scaled" gsl_sf_airy_Bi_scaled :: Double -> Gsl_mode_t -> Double
104
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>
108airy_Ai_deriv_e :: Double -> Precision -> (Double,Double) 70airy_Ai_deriv_e :: Double -> Precision -> (Double,Double)
109airy_Ai_deriv_e x mode = createSFR "airy_Ai_deriv_e" $ gsl_sf_airy_Ai_deriv_e x (precCode mode) 71airy_Ai_deriv_e x mode = createSFR "airy_Ai_deriv_e" $ gsl_sf_airy_Ai_deriv_e x (precCode mode)
110foreign import ccall "gsl_sf_airy_Ai_deriv_e" gsl_sf_airy_Ai_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt 72foreign import ccall "gsl_sf_airy_Ai_deriv_e" gsl_sf_airy_Ai_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
111
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>
115airy_Ai_deriv :: Double -> Precision -> Double 73airy_Ai_deriv :: Double -> Precision -> Double
116airy_Ai_deriv x mode = gsl_sf_airy_Ai_deriv x (precCode mode) 74airy_Ai_deriv x mode = gsl_sf_airy_Ai_deriv x (precCode mode)
117foreign import ccall "gsl_sf_airy_Ai_deriv" gsl_sf_airy_Ai_deriv :: Double -> Gsl_mode_t -> Double 75foreign import ccall "gsl_sf_airy_Ai_deriv" gsl_sf_airy_Ai_deriv :: Double -> Gsl_mode_t -> Double
118
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>
122airy_Bi_deriv_e :: Double -> Precision -> (Double,Double) 76airy_Bi_deriv_e :: Double -> Precision -> (Double,Double)
123airy_Bi_deriv_e x mode = createSFR "airy_Bi_deriv_e" $ gsl_sf_airy_Bi_deriv_e x (precCode mode) 77airy_Bi_deriv_e x mode = createSFR "airy_Bi_deriv_e" $ gsl_sf_airy_Bi_deriv_e x (precCode mode)
124foreign import ccall "gsl_sf_airy_Bi_deriv_e" gsl_sf_airy_Bi_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt 78foreign import ccall "gsl_sf_airy_Bi_deriv_e" gsl_sf_airy_Bi_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
125
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>
129airy_Bi_deriv :: Double -> Precision -> Double 79airy_Bi_deriv :: Double -> Precision -> Double
130airy_Bi_deriv x mode = gsl_sf_airy_Bi_deriv x (precCode mode) 80airy_Bi_deriv x mode = gsl_sf_airy_Bi_deriv x (precCode mode)
131foreign import ccall "gsl_sf_airy_Bi_deriv" gsl_sf_airy_Bi_deriv :: Double -> Gsl_mode_t -> Double 81foreign import ccall "gsl_sf_airy_Bi_deriv" gsl_sf_airy_Bi_deriv :: Double -> Gsl_mode_t -> Double
132
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>
136airy_Ai_deriv_scaled_e :: Double -> Precision -> (Double,Double) 82airy_Ai_deriv_scaled_e :: Double -> Precision -> (Double,Double)
137airy_Ai_deriv_scaled_e x mode = createSFR "airy_Ai_deriv_scaled_e" $ gsl_sf_airy_Ai_deriv_scaled_e x (precCode mode) 83airy_Ai_deriv_scaled_e x mode = createSFR "airy_Ai_deriv_scaled_e" $ gsl_sf_airy_Ai_deriv_scaled_e x (precCode mode)
138foreign import ccall "gsl_sf_airy_Ai_deriv_scaled_e" gsl_sf_airy_Ai_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt 84foreign import ccall "gsl_sf_airy_Ai_deriv_scaled_e" gsl_sf_airy_Ai_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
139
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>
143airy_Ai_deriv_scaled :: Double -> Precision -> Double 85airy_Ai_deriv_scaled :: Double -> Precision -> Double
144airy_Ai_deriv_scaled x mode = gsl_sf_airy_Ai_deriv_scaled x (precCode mode) 86airy_Ai_deriv_scaled x mode = gsl_sf_airy_Ai_deriv_scaled x (precCode mode)
145foreign import ccall "gsl_sf_airy_Ai_deriv_scaled" gsl_sf_airy_Ai_deriv_scaled :: Double -> Gsl_mode_t -> Double 87foreign import ccall "gsl_sf_airy_Ai_deriv_scaled" gsl_sf_airy_Ai_deriv_scaled :: Double -> Gsl_mode_t -> Double
146
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>
150airy_Bi_deriv_scaled_e :: Double -> Precision -> (Double,Double) 88airy_Bi_deriv_scaled_e :: Double -> Precision -> (Double,Double)
151airy_Bi_deriv_scaled_e x mode = createSFR "airy_Bi_deriv_scaled_e" $ gsl_sf_airy_Bi_deriv_scaled_e x (precCode mode) 89airy_Bi_deriv_scaled_e x mode = createSFR "airy_Bi_deriv_scaled_e" $ gsl_sf_airy_Bi_deriv_scaled_e x (precCode mode)
152foreign import ccall "gsl_sf_airy_Bi_deriv_scaled_e" gsl_sf_airy_Bi_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt 90foreign import ccall "gsl_sf_airy_Bi_deriv_scaled_e" gsl_sf_airy_Bi_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
153
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>
157airy_Bi_deriv_scaled :: Double -> Precision -> Double 91airy_Bi_deriv_scaled :: Double -> Precision -> Double
158airy_Bi_deriv_scaled x mode = gsl_sf_airy_Bi_deriv_scaled x (precCode mode) 92airy_Bi_deriv_scaled x mode = gsl_sf_airy_Bi_deriv_scaled x (precCode mode)
159foreign import ccall "gsl_sf_airy_Bi_deriv_scaled" gsl_sf_airy_Bi_deriv_scaled :: Double -> Gsl_mode_t -> Double 93foreign import ccall "gsl_sf_airy_Bi_deriv_scaled" gsl_sf_airy_Bi_deriv_scaled :: Double -> Gsl_mode_t -> Double
160
161-- | wrapper for int gsl_sf_airy_zero_Ai_e(int s,gsl_sf_result* result);
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) 94airy_zero_Ai_e :: CInt -> (Double,Double)
165airy_zero_Ai_e s = createSFR "airy_zero_Ai_e" $ gsl_sf_airy_zero_Ai_e s 95airy_zero_Ai_e s = createSFR "airy_zero_Ai_e" $ gsl_sf_airy_zero_Ai_e s
166foreign import ccall "gsl_sf_airy_zero_Ai_e" gsl_sf_airy_zero_Ai_e :: CInt -> Ptr () -> IO CInt 96foreign import ccall "gsl_sf_airy_zero_Ai_e" gsl_sf_airy_zero_Ai_e :: CInt -> Ptr () -> IO CInt
167
168-- | wrapper for double gsl_sf_airy_zero_Ai(int s);
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 97airy_zero_Ai :: CInt -> Double
172airy_zero_Ai = gsl_sf_airy_zero_Ai 98airy_zero_Ai = gsl_sf_airy_zero_Ai
173foreign import ccall "gsl_sf_airy_zero_Ai" gsl_sf_airy_zero_Ai :: CInt -> Double 99foreign import ccall "gsl_sf_airy_zero_Ai" gsl_sf_airy_zero_Ai :: CInt -> Double
174
175-- | wrapper for int gsl_sf_airy_zero_Bi_e(int s,gsl_sf_result* result);
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) 100airy_zero_Bi_e :: CInt -> (Double,Double)
179airy_zero_Bi_e s = createSFR "airy_zero_Bi_e" $ gsl_sf_airy_zero_Bi_e s 101airy_zero_Bi_e s = createSFR "airy_zero_Bi_e" $ gsl_sf_airy_zero_Bi_e s
180foreign import ccall "gsl_sf_airy_zero_Bi_e" gsl_sf_airy_zero_Bi_e :: CInt -> Ptr () -> IO CInt 102foreign import ccall "gsl_sf_airy_zero_Bi_e" gsl_sf_airy_zero_Bi_e :: CInt -> Ptr () -> IO CInt
181
182-- | wrapper for double gsl_sf_airy_zero_Bi(int s);
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 103airy_zero_Bi :: CInt -> Double
186airy_zero_Bi = gsl_sf_airy_zero_Bi 104airy_zero_Bi = gsl_sf_airy_zero_Bi
187foreign import ccall "gsl_sf_airy_zero_Bi" gsl_sf_airy_zero_Bi :: CInt -> Double 105foreign import ccall "gsl_sf_airy_zero_Bi" gsl_sf_airy_zero_Bi :: CInt -> Double
188
189-- | wrapper for int gsl_sf_airy_zero_Ai_deriv_e(int s,gsl_sf_result* result);
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) 106airy_zero_Ai_deriv_e :: CInt -> (Double,Double)
193airy_zero_Ai_deriv_e s = createSFR "airy_zero_Ai_deriv_e" $ gsl_sf_airy_zero_Ai_deriv_e s 107airy_zero_Ai_deriv_e s = createSFR "airy_zero_Ai_deriv_e" $ gsl_sf_airy_zero_Ai_deriv_e s
194foreign import ccall "gsl_sf_airy_zero_Ai_deriv_e" gsl_sf_airy_zero_Ai_deriv_e :: CInt -> Ptr () -> IO CInt 108foreign import ccall "gsl_sf_airy_zero_Ai_deriv_e" gsl_sf_airy_zero_Ai_deriv_e :: CInt -> Ptr () -> IO CInt
195
196-- | wrapper for double gsl_sf_airy_zero_Ai_deriv(int s);
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 109airy_zero_Ai_deriv :: CInt -> Double
200airy_zero_Ai_deriv = gsl_sf_airy_zero_Ai_deriv 110airy_zero_Ai_deriv = gsl_sf_airy_zero_Ai_deriv
201foreign import ccall "gsl_sf_airy_zero_Ai_deriv" gsl_sf_airy_zero_Ai_deriv :: CInt -> Double 111foreign import ccall "gsl_sf_airy_zero_Ai_deriv" gsl_sf_airy_zero_Ai_deriv :: CInt -> Double
202
203-- | wrapper for int gsl_sf_airy_zero_Bi_deriv_e(int s,gsl_sf_result* result);
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) 112airy_zero_Bi_deriv_e :: CInt -> (Double,Double)
207airy_zero_Bi_deriv_e s = createSFR "airy_zero_Bi_deriv_e" $ gsl_sf_airy_zero_Bi_deriv_e s 113airy_zero_Bi_deriv_e s = createSFR "airy_zero_Bi_deriv_e" $ gsl_sf_airy_zero_Bi_deriv_e s
208foreign import ccall "gsl_sf_airy_zero_Bi_deriv_e" gsl_sf_airy_zero_Bi_deriv_e :: CInt -> Ptr () -> IO CInt 114foreign import ccall "gsl_sf_airy_zero_Bi_deriv_e" gsl_sf_airy_zero_Bi_deriv_e :: CInt -> Ptr () -> IO CInt
209
210-- | wrapper for double gsl_sf_airy_zero_Bi_deriv(int s);
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 115airy_zero_Bi_deriv :: CInt -> Double
214airy_zero_Bi_deriv = gsl_sf_airy_zero_Bi_deriv 116airy_zero_Bi_deriv = gsl_sf_airy_zero_Bi_deriv
215foreign import ccall "gsl_sf_airy_zero_Bi_deriv" gsl_sf_airy_zero_Bi_deriv :: CInt -> Double 117foreign import ccall "gsl_sf_airy_zero_Bi_deriv" gsl_sf_airy_zero_Bi_deriv :: CInt -> Double
diff --git a/lib/Numeric/GSL/Special/Bessel.hs b/lib/Numeric/GSL/Special/Bessel.hs
index d5df69b..bd31402 100644
--- a/lib/Numeric/GSL/Special/Bessel.hs
+++ b/lib/Numeric/GSL/Special/Bessel.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Bessel 3-- Module : Numeric.GSL.Special.Bessel
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_bessel.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_bessel.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Bessel( 15module Numeric.GSL.Special.Bessel(
@@ -108,703 +106,303 @@ module Numeric.GSL.Special.Bessel(
108import Foreign(Ptr) 106import Foreign(Ptr)
109import Foreign.C.Types(CInt) 107import Foreign.C.Types(CInt)
110import Numeric.GSL.Special.Internal 108import Numeric.GSL.Special.Internal
111
112-- | wrapper for int gsl_sf_bessel_J0_e(double x,gsl_sf_result* result);
113--
114-- <http://www.google.com/search?q=gsl_sf_bessel_J0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
115bessel_J0_e :: Double -> (Double,Double) 109bessel_J0_e :: Double -> (Double,Double)
116bessel_J0_e x = createSFR "bessel_J0_e" $ gsl_sf_bessel_J0_e x 110bessel_J0_e x = createSFR "bessel_J0_e" $ gsl_sf_bessel_J0_e x
117foreign import ccall "gsl_sf_bessel_J0_e" gsl_sf_bessel_J0_e :: Double -> Ptr () -> IO CInt 111foreign import ccall "gsl_sf_bessel_J0_e" gsl_sf_bessel_J0_e :: Double -> Ptr () -> IO CInt
118
119-- | wrapper for double gsl_sf_bessel_J0(double x);
120--
121-- <http://www.google.com/search?q=gsl_sf_bessel_J0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
122bessel_J0 :: Double -> Double 112bessel_J0 :: Double -> Double
123bessel_J0 = gsl_sf_bessel_J0 113bessel_J0 = gsl_sf_bessel_J0
124foreign import ccall "gsl_sf_bessel_J0" gsl_sf_bessel_J0 :: Double -> Double 114foreign import ccall "gsl_sf_bessel_J0" gsl_sf_bessel_J0 :: Double -> Double
125
126-- | wrapper for int gsl_sf_bessel_J1_e(double x,gsl_sf_result* result);
127--
128-- <http://www.google.com/search?q=gsl_sf_bessel_J1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
129bessel_J1_e :: Double -> (Double,Double) 115bessel_J1_e :: Double -> (Double,Double)
130bessel_J1_e x = createSFR "bessel_J1_e" $ gsl_sf_bessel_J1_e x 116bessel_J1_e x = createSFR "bessel_J1_e" $ gsl_sf_bessel_J1_e x
131foreign import ccall "gsl_sf_bessel_J1_e" gsl_sf_bessel_J1_e :: Double -> Ptr () -> IO CInt 117foreign import ccall "gsl_sf_bessel_J1_e" gsl_sf_bessel_J1_e :: Double -> Ptr () -> IO CInt
132
133-- | wrapper for double gsl_sf_bessel_J1(double x);
134--
135-- <http://www.google.com/search?q=gsl_sf_bessel_J1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
136bessel_J1 :: Double -> Double 118bessel_J1 :: Double -> Double
137bessel_J1 = gsl_sf_bessel_J1 119bessel_J1 = gsl_sf_bessel_J1
138foreign import ccall "gsl_sf_bessel_J1" gsl_sf_bessel_J1 :: Double -> Double 120foreign import ccall "gsl_sf_bessel_J1" gsl_sf_bessel_J1 :: Double -> Double
139
140-- | wrapper for int gsl_sf_bessel_Jn_e(int n,double x,gsl_sf_result* result);
141--
142-- <http://www.google.com/search?q=gsl_sf_bessel_Jn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
143bessel_Jn_e :: CInt -> Double -> (Double,Double) 121bessel_Jn_e :: CInt -> Double -> (Double,Double)
144bessel_Jn_e n x = createSFR "bessel_Jn_e" $ gsl_sf_bessel_Jn_e n x 122bessel_Jn_e n x = createSFR "bessel_Jn_e" $ gsl_sf_bessel_Jn_e n x
145foreign import ccall "gsl_sf_bessel_Jn_e" gsl_sf_bessel_Jn_e :: CInt -> Double -> Ptr () -> IO CInt 123foreign import ccall "gsl_sf_bessel_Jn_e" gsl_sf_bessel_Jn_e :: CInt -> Double -> Ptr () -> IO CInt
146
147-- | wrapper for double gsl_sf_bessel_Jn(int n,double x);
148--
149-- <http://www.google.com/search?q=gsl_sf_bessel_Jn&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
150bessel_Jn :: CInt -> Double -> Double 124bessel_Jn :: CInt -> Double -> Double
151bessel_Jn = gsl_sf_bessel_Jn 125bessel_Jn = gsl_sf_bessel_Jn
152foreign import ccall "gsl_sf_bessel_Jn" gsl_sf_bessel_Jn :: CInt -> Double -> Double 126foreign import ccall "gsl_sf_bessel_Jn" gsl_sf_bessel_Jn :: CInt -> Double -> Double
153
154-- | wrapper for int gsl_sf_bessel_Jn_array(int nmin,int nmax,double x,double* result_array);
155--
156-- <http://www.google.com/search?q=gsl_sf_bessel_Jn_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
157bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt 127bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
158bessel_Jn_array = gsl_sf_bessel_Jn_array 128bessel_Jn_array = gsl_sf_bessel_Jn_array
159foreign import ccall "gsl_sf_bessel_Jn_array" gsl_sf_bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt 129foreign import ccall "gsl_sf_bessel_Jn_array" gsl_sf_bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
160
161-- | wrapper for int gsl_sf_bessel_Y0_e(double x,gsl_sf_result* result);
162--
163-- <http://www.google.com/search?q=gsl_sf_bessel_Y0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
164bessel_Y0_e :: Double -> (Double,Double) 130bessel_Y0_e :: Double -> (Double,Double)
165bessel_Y0_e x = createSFR "bessel_Y0_e" $ gsl_sf_bessel_Y0_e x 131bessel_Y0_e x = createSFR "bessel_Y0_e" $ gsl_sf_bessel_Y0_e x
166foreign import ccall "gsl_sf_bessel_Y0_e" gsl_sf_bessel_Y0_e :: Double -> Ptr () -> IO CInt 132foreign import ccall "gsl_sf_bessel_Y0_e" gsl_sf_bessel_Y0_e :: Double -> Ptr () -> IO CInt
167
168-- | wrapper for double gsl_sf_bessel_Y0(double x);
169--
170-- <http://www.google.com/search?q=gsl_sf_bessel_Y0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
171bessel_Y0 :: Double -> Double 133bessel_Y0 :: Double -> Double
172bessel_Y0 = gsl_sf_bessel_Y0 134bessel_Y0 = gsl_sf_bessel_Y0
173foreign import ccall "gsl_sf_bessel_Y0" gsl_sf_bessel_Y0 :: Double -> Double 135foreign import ccall "gsl_sf_bessel_Y0" gsl_sf_bessel_Y0 :: Double -> Double
174
175-- | wrapper for int gsl_sf_bessel_Y1_e(double x,gsl_sf_result* result);
176--
177-- <http://www.google.com/search?q=gsl_sf_bessel_Y1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
178bessel_Y1_e :: Double -> (Double,Double) 136bessel_Y1_e :: Double -> (Double,Double)
179bessel_Y1_e x = createSFR "bessel_Y1_e" $ gsl_sf_bessel_Y1_e x 137bessel_Y1_e x = createSFR "bessel_Y1_e" $ gsl_sf_bessel_Y1_e x
180foreign import ccall "gsl_sf_bessel_Y1_e" gsl_sf_bessel_Y1_e :: Double -> Ptr () -> IO CInt 138foreign import ccall "gsl_sf_bessel_Y1_e" gsl_sf_bessel_Y1_e :: Double -> Ptr () -> IO CInt
181
182-- | wrapper for double gsl_sf_bessel_Y1(double x);
183--
184-- <http://www.google.com/search?q=gsl_sf_bessel_Y1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
185bessel_Y1 :: Double -> Double 139bessel_Y1 :: Double -> Double
186bessel_Y1 = gsl_sf_bessel_Y1 140bessel_Y1 = gsl_sf_bessel_Y1
187foreign import ccall "gsl_sf_bessel_Y1" gsl_sf_bessel_Y1 :: Double -> Double 141foreign import ccall "gsl_sf_bessel_Y1" gsl_sf_bessel_Y1 :: Double -> Double
188
189-- | wrapper for int gsl_sf_bessel_Yn_e(int n,double x,gsl_sf_result* result);
190--
191-- <http://www.google.com/search?q=gsl_sf_bessel_Yn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
192bessel_Yn_e :: CInt -> Double -> (Double,Double) 142bessel_Yn_e :: CInt -> Double -> (Double,Double)
193bessel_Yn_e n x = createSFR "bessel_Yn_e" $ gsl_sf_bessel_Yn_e n x 143bessel_Yn_e n x = createSFR "bessel_Yn_e" $ gsl_sf_bessel_Yn_e n x
194foreign import ccall "gsl_sf_bessel_Yn_e" gsl_sf_bessel_Yn_e :: CInt -> Double -> Ptr () -> IO CInt 144foreign import ccall "gsl_sf_bessel_Yn_e" gsl_sf_bessel_Yn_e :: CInt -> Double -> Ptr () -> IO CInt
195
196-- | wrapper for double gsl_sf_bessel_Yn(int n,double x);
197--
198-- <http://www.google.com/search?q=gsl_sf_bessel_Yn&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
199bessel_Yn :: CInt -> Double -> Double 145bessel_Yn :: CInt -> Double -> Double
200bessel_Yn = gsl_sf_bessel_Yn 146bessel_Yn = gsl_sf_bessel_Yn
201foreign import ccall "gsl_sf_bessel_Yn" gsl_sf_bessel_Yn :: CInt -> Double -> Double 147foreign import ccall "gsl_sf_bessel_Yn" gsl_sf_bessel_Yn :: CInt -> Double -> Double
202
203-- | wrapper for int gsl_sf_bessel_Yn_array(int nmin,int nmax,double x,double* result_array);
204--
205-- <http://www.google.com/search?q=gsl_sf_bessel_Yn_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
206bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt 148bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
207bessel_Yn_array = gsl_sf_bessel_Yn_array 149bessel_Yn_array = gsl_sf_bessel_Yn_array
208foreign import ccall "gsl_sf_bessel_Yn_array" gsl_sf_bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt 150foreign import ccall "gsl_sf_bessel_Yn_array" gsl_sf_bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
209
210-- | wrapper for int gsl_sf_bessel_I0_e(double x,gsl_sf_result* result);
211--
212-- <http://www.google.com/search?q=gsl_sf_bessel_I0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
213bessel_I0_e :: Double -> (Double,Double) 151bessel_I0_e :: Double -> (Double,Double)
214bessel_I0_e x = createSFR "bessel_I0_e" $ gsl_sf_bessel_I0_e x 152bessel_I0_e x = createSFR "bessel_I0_e" $ gsl_sf_bessel_I0_e x
215foreign import ccall "gsl_sf_bessel_I0_e" gsl_sf_bessel_I0_e :: Double -> Ptr () -> IO CInt 153foreign import ccall "gsl_sf_bessel_I0_e" gsl_sf_bessel_I0_e :: Double -> Ptr () -> IO CInt
216
217-- | wrapper for double gsl_sf_bessel_I0(double x);
218--
219-- <http://www.google.com/search?q=gsl_sf_bessel_I0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
220bessel_I0 :: Double -> Double 154bessel_I0 :: Double -> Double
221bessel_I0 = gsl_sf_bessel_I0 155bessel_I0 = gsl_sf_bessel_I0
222foreign import ccall "gsl_sf_bessel_I0" gsl_sf_bessel_I0 :: Double -> Double 156foreign import ccall "gsl_sf_bessel_I0" gsl_sf_bessel_I0 :: Double -> Double
223
224-- | wrapper for int gsl_sf_bessel_I1_e(double x,gsl_sf_result* result);
225--
226-- <http://www.google.com/search?q=gsl_sf_bessel_I1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
227bessel_I1_e :: Double -> (Double,Double) 157bessel_I1_e :: Double -> (Double,Double)
228bessel_I1_e x = createSFR "bessel_I1_e" $ gsl_sf_bessel_I1_e x 158bessel_I1_e x = createSFR "bessel_I1_e" $ gsl_sf_bessel_I1_e x
229foreign import ccall "gsl_sf_bessel_I1_e" gsl_sf_bessel_I1_e :: Double -> Ptr () -> IO CInt 159foreign import ccall "gsl_sf_bessel_I1_e" gsl_sf_bessel_I1_e :: Double -> Ptr () -> IO CInt
230
231-- | wrapper for double gsl_sf_bessel_I1(double x);
232--
233-- <http://www.google.com/search?q=gsl_sf_bessel_I1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
234bessel_I1 :: Double -> Double 160bessel_I1 :: Double -> Double
235bessel_I1 = gsl_sf_bessel_I1 161bessel_I1 = gsl_sf_bessel_I1
236foreign import ccall "gsl_sf_bessel_I1" gsl_sf_bessel_I1 :: Double -> Double 162foreign import ccall "gsl_sf_bessel_I1" gsl_sf_bessel_I1 :: Double -> Double
237
238-- | wrapper for int gsl_sf_bessel_In_e(int n,double x,gsl_sf_result* result);
239--
240-- <http://www.google.com/search?q=gsl_sf_bessel_In_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
241bessel_In_e :: CInt -> Double -> (Double,Double) 163bessel_In_e :: CInt -> Double -> (Double,Double)
242bessel_In_e n x = createSFR "bessel_In_e" $ gsl_sf_bessel_In_e n x 164bessel_In_e n x = createSFR "bessel_In_e" $ gsl_sf_bessel_In_e n x
243foreign import ccall "gsl_sf_bessel_In_e" gsl_sf_bessel_In_e :: CInt -> Double -> Ptr () -> IO CInt 165foreign import ccall "gsl_sf_bessel_In_e" gsl_sf_bessel_In_e :: CInt -> Double -> Ptr () -> IO CInt
244
245-- | wrapper for double gsl_sf_bessel_In(int n,double x);
246--
247-- <http://www.google.com/search?q=gsl_sf_bessel_In&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
248bessel_In :: CInt -> Double -> Double 166bessel_In :: CInt -> Double -> Double
249bessel_In = gsl_sf_bessel_In 167bessel_In = gsl_sf_bessel_In
250foreign import ccall "gsl_sf_bessel_In" gsl_sf_bessel_In :: CInt -> Double -> Double 168foreign import ccall "gsl_sf_bessel_In" gsl_sf_bessel_In :: CInt -> Double -> Double
251
252-- | wrapper for int gsl_sf_bessel_In_array(int nmin,int nmax,double x,double* result_array);
253--
254-- <http://www.google.com/search?q=gsl_sf_bessel_In_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
255bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt 169bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
256bessel_In_array = gsl_sf_bessel_In_array 170bessel_In_array = gsl_sf_bessel_In_array
257foreign import ccall "gsl_sf_bessel_In_array" gsl_sf_bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt 171foreign import ccall "gsl_sf_bessel_In_array" gsl_sf_bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
258
259-- | wrapper for int gsl_sf_bessel_I0_scaled_e(double x,gsl_sf_result* result);
260--
261-- <http://www.google.com/search?q=gsl_sf_bessel_I0_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
262bessel_I0_scaled_e :: Double -> (Double,Double) 172bessel_I0_scaled_e :: Double -> (Double,Double)
263bessel_I0_scaled_e x = createSFR "bessel_I0_scaled_e" $ gsl_sf_bessel_I0_scaled_e x 173bessel_I0_scaled_e x = createSFR "bessel_I0_scaled_e" $ gsl_sf_bessel_I0_scaled_e x
264foreign import ccall "gsl_sf_bessel_I0_scaled_e" gsl_sf_bessel_I0_scaled_e :: Double -> Ptr () -> IO CInt 174foreign import ccall "gsl_sf_bessel_I0_scaled_e" gsl_sf_bessel_I0_scaled_e :: Double -> Ptr () -> IO CInt
265
266-- | wrapper for double gsl_sf_bessel_I0_scaled(double x);
267--
268-- <http://www.google.com/search?q=gsl_sf_bessel_I0_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
269bessel_I0_scaled :: Double -> Double 175bessel_I0_scaled :: Double -> Double
270bessel_I0_scaled = gsl_sf_bessel_I0_scaled 176bessel_I0_scaled = gsl_sf_bessel_I0_scaled
271foreign import ccall "gsl_sf_bessel_I0_scaled" gsl_sf_bessel_I0_scaled :: Double -> Double 177foreign import ccall "gsl_sf_bessel_I0_scaled" gsl_sf_bessel_I0_scaled :: Double -> Double
272
273-- | wrapper for int gsl_sf_bessel_I1_scaled_e(double x,gsl_sf_result* result);
274--
275-- <http://www.google.com/search?q=gsl_sf_bessel_I1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
276bessel_I1_scaled_e :: Double -> (Double,Double) 178bessel_I1_scaled_e :: Double -> (Double,Double)
277bessel_I1_scaled_e x = createSFR "bessel_I1_scaled_e" $ gsl_sf_bessel_I1_scaled_e x 179bessel_I1_scaled_e x = createSFR "bessel_I1_scaled_e" $ gsl_sf_bessel_I1_scaled_e x
278foreign import ccall "gsl_sf_bessel_I1_scaled_e" gsl_sf_bessel_I1_scaled_e :: Double -> Ptr () -> IO CInt 180foreign import ccall "gsl_sf_bessel_I1_scaled_e" gsl_sf_bessel_I1_scaled_e :: Double -> Ptr () -> IO CInt
279
280-- | wrapper for double gsl_sf_bessel_I1_scaled(double x);
281--
282-- <http://www.google.com/search?q=gsl_sf_bessel_I1_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
283bessel_I1_scaled :: Double -> Double 181bessel_I1_scaled :: Double -> Double
284bessel_I1_scaled = gsl_sf_bessel_I1_scaled 182bessel_I1_scaled = gsl_sf_bessel_I1_scaled
285foreign import ccall "gsl_sf_bessel_I1_scaled" gsl_sf_bessel_I1_scaled :: Double -> Double 183foreign import ccall "gsl_sf_bessel_I1_scaled" gsl_sf_bessel_I1_scaled :: Double -> Double
286
287-- | wrapper for int gsl_sf_bessel_In_scaled_e(int n,double x,gsl_sf_result* result);
288--
289-- <http://www.google.com/search?q=gsl_sf_bessel_In_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
290bessel_In_scaled_e :: CInt -> Double -> (Double,Double) 184bessel_In_scaled_e :: CInt -> Double -> (Double,Double)
291bessel_In_scaled_e n x = createSFR "bessel_In_scaled_e" $ gsl_sf_bessel_In_scaled_e n x 185bessel_In_scaled_e n x = createSFR "bessel_In_scaled_e" $ gsl_sf_bessel_In_scaled_e n x
292foreign import ccall "gsl_sf_bessel_In_scaled_e" gsl_sf_bessel_In_scaled_e :: CInt -> Double -> Ptr () -> IO CInt 186foreign import ccall "gsl_sf_bessel_In_scaled_e" gsl_sf_bessel_In_scaled_e :: CInt -> Double -> Ptr () -> IO CInt
293
294-- | wrapper for double gsl_sf_bessel_In_scaled(int n,double x);
295--
296-- <http://www.google.com/search?q=gsl_sf_bessel_In_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
297bessel_In_scaled :: CInt -> Double -> Double 187bessel_In_scaled :: CInt -> Double -> Double
298bessel_In_scaled = gsl_sf_bessel_In_scaled 188bessel_In_scaled = gsl_sf_bessel_In_scaled
299foreign import ccall "gsl_sf_bessel_In_scaled" gsl_sf_bessel_In_scaled :: CInt -> Double -> Double 189foreign import ccall "gsl_sf_bessel_In_scaled" gsl_sf_bessel_In_scaled :: CInt -> Double -> Double
300
301-- | wrapper for int gsl_sf_bessel_In_scaled_array(int nmin,int nmax,double x,double* result_array);
302--
303-- <http://www.google.com/search?q=gsl_sf_bessel_In_scaled_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
304bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt 190bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
305bessel_In_scaled_array = gsl_sf_bessel_In_scaled_array 191bessel_In_scaled_array = gsl_sf_bessel_In_scaled_array
306foreign import ccall "gsl_sf_bessel_In_scaled_array" gsl_sf_bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt 192foreign import ccall "gsl_sf_bessel_In_scaled_array" gsl_sf_bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
307
308-- | wrapper for int gsl_sf_bessel_K0_e(double x,gsl_sf_result* result);
309--
310-- <http://www.google.com/search?q=gsl_sf_bessel_K0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
311bessel_K0_e :: Double -> (Double,Double) 193bessel_K0_e :: Double -> (Double,Double)
312bessel_K0_e x = createSFR "bessel_K0_e" $ gsl_sf_bessel_K0_e x 194bessel_K0_e x = createSFR "bessel_K0_e" $ gsl_sf_bessel_K0_e x
313foreign import ccall "gsl_sf_bessel_K0_e" gsl_sf_bessel_K0_e :: Double -> Ptr () -> IO CInt 195foreign import ccall "gsl_sf_bessel_K0_e" gsl_sf_bessel_K0_e :: Double -> Ptr () -> IO CInt
314
315-- | wrapper for double gsl_sf_bessel_K0(double x);
316--
317-- <http://www.google.com/search?q=gsl_sf_bessel_K0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
318bessel_K0 :: Double -> Double 196bessel_K0 :: Double -> Double
319bessel_K0 = gsl_sf_bessel_K0 197bessel_K0 = gsl_sf_bessel_K0
320foreign import ccall "gsl_sf_bessel_K0" gsl_sf_bessel_K0 :: Double -> Double 198foreign import ccall "gsl_sf_bessel_K0" gsl_sf_bessel_K0 :: Double -> Double
321
322-- | wrapper for int gsl_sf_bessel_K1_e(double x,gsl_sf_result* result);
323--
324-- <http://www.google.com/search?q=gsl_sf_bessel_K1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
325bessel_K1_e :: Double -> (Double,Double) 199bessel_K1_e :: Double -> (Double,Double)
326bessel_K1_e x = createSFR "bessel_K1_e" $ gsl_sf_bessel_K1_e x 200bessel_K1_e x = createSFR "bessel_K1_e" $ gsl_sf_bessel_K1_e x
327foreign import ccall "gsl_sf_bessel_K1_e" gsl_sf_bessel_K1_e :: Double -> Ptr () -> IO CInt 201foreign import ccall "gsl_sf_bessel_K1_e" gsl_sf_bessel_K1_e :: Double -> Ptr () -> IO CInt
328
329-- | wrapper for double gsl_sf_bessel_K1(double x);
330--
331-- <http://www.google.com/search?q=gsl_sf_bessel_K1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
332bessel_K1 :: Double -> Double 202bessel_K1 :: Double -> Double
333bessel_K1 = gsl_sf_bessel_K1 203bessel_K1 = gsl_sf_bessel_K1
334foreign import ccall "gsl_sf_bessel_K1" gsl_sf_bessel_K1 :: Double -> Double 204foreign import ccall "gsl_sf_bessel_K1" gsl_sf_bessel_K1 :: Double -> Double
335
336-- | wrapper for int gsl_sf_bessel_Kn_e(int n,double x,gsl_sf_result* result);
337--
338-- <http://www.google.com/search?q=gsl_sf_bessel_Kn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
339bessel_Kn_e :: CInt -> Double -> (Double,Double) 205bessel_Kn_e :: CInt -> Double -> (Double,Double)
340bessel_Kn_e n x = createSFR "bessel_Kn_e" $ gsl_sf_bessel_Kn_e n x 206bessel_Kn_e n x = createSFR "bessel_Kn_e" $ gsl_sf_bessel_Kn_e n x
341foreign import ccall "gsl_sf_bessel_Kn_e" gsl_sf_bessel_Kn_e :: CInt -> Double -> Ptr () -> IO CInt 207foreign import ccall "gsl_sf_bessel_Kn_e" gsl_sf_bessel_Kn_e :: CInt -> Double -> Ptr () -> IO CInt
342
343-- | wrapper for double gsl_sf_bessel_Kn(int n,double x);
344--
345-- <http://www.google.com/search?q=gsl_sf_bessel_Kn&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
346bessel_Kn :: CInt -> Double -> Double 208bessel_Kn :: CInt -> Double -> Double
347bessel_Kn = gsl_sf_bessel_Kn 209bessel_Kn = gsl_sf_bessel_Kn
348foreign import ccall "gsl_sf_bessel_Kn" gsl_sf_bessel_Kn :: CInt -> Double -> Double 210foreign import ccall "gsl_sf_bessel_Kn" gsl_sf_bessel_Kn :: CInt -> Double -> Double
349
350-- | wrapper for int gsl_sf_bessel_Kn_array(int nmin,int nmax,double x,double* result_array);
351--
352-- <http://www.google.com/search?q=gsl_sf_bessel_Kn_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
353bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt 211bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
354bessel_Kn_array = gsl_sf_bessel_Kn_array 212bessel_Kn_array = gsl_sf_bessel_Kn_array
355foreign import ccall "gsl_sf_bessel_Kn_array" gsl_sf_bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt 213foreign import ccall "gsl_sf_bessel_Kn_array" gsl_sf_bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
356
357-- | wrapper for int gsl_sf_bessel_K0_scaled_e(double x,gsl_sf_result* result);
358--
359-- <http://www.google.com/search?q=gsl_sf_bessel_K0_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
360bessel_K0_scaled_e :: Double -> (Double,Double) 214bessel_K0_scaled_e :: Double -> (Double,Double)
361bessel_K0_scaled_e x = createSFR "bessel_K0_scaled_e" $ gsl_sf_bessel_K0_scaled_e x 215bessel_K0_scaled_e x = createSFR "bessel_K0_scaled_e" $ gsl_sf_bessel_K0_scaled_e x
362foreign import ccall "gsl_sf_bessel_K0_scaled_e" gsl_sf_bessel_K0_scaled_e :: Double -> Ptr () -> IO CInt 216foreign import ccall "gsl_sf_bessel_K0_scaled_e" gsl_sf_bessel_K0_scaled_e :: Double -> Ptr () -> IO CInt
363
364-- | wrapper for double gsl_sf_bessel_K0_scaled(double x);
365--
366-- <http://www.google.com/search?q=gsl_sf_bessel_K0_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
367bessel_K0_scaled :: Double -> Double 217bessel_K0_scaled :: Double -> Double
368bessel_K0_scaled = gsl_sf_bessel_K0_scaled 218bessel_K0_scaled = gsl_sf_bessel_K0_scaled
369foreign import ccall "gsl_sf_bessel_K0_scaled" gsl_sf_bessel_K0_scaled :: Double -> Double 219foreign import ccall "gsl_sf_bessel_K0_scaled" gsl_sf_bessel_K0_scaled :: Double -> Double
370
371-- | wrapper for int gsl_sf_bessel_K1_scaled_e(double x,gsl_sf_result* result);
372--
373-- <http://www.google.com/search?q=gsl_sf_bessel_K1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
374bessel_K1_scaled_e :: Double -> (Double,Double) 220bessel_K1_scaled_e :: Double -> (Double,Double)
375bessel_K1_scaled_e x = createSFR "bessel_K1_scaled_e" $ gsl_sf_bessel_K1_scaled_e x 221bessel_K1_scaled_e x = createSFR "bessel_K1_scaled_e" $ gsl_sf_bessel_K1_scaled_e x
376foreign import ccall "gsl_sf_bessel_K1_scaled_e" gsl_sf_bessel_K1_scaled_e :: Double -> Ptr () -> IO CInt 222foreign import ccall "gsl_sf_bessel_K1_scaled_e" gsl_sf_bessel_K1_scaled_e :: Double -> Ptr () -> IO CInt
377
378-- | wrapper for double gsl_sf_bessel_K1_scaled(double x);
379--
380-- <http://www.google.com/search?q=gsl_sf_bessel_K1_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
381bessel_K1_scaled :: Double -> Double 223bessel_K1_scaled :: Double -> Double
382bessel_K1_scaled = gsl_sf_bessel_K1_scaled 224bessel_K1_scaled = gsl_sf_bessel_K1_scaled
383foreign import ccall "gsl_sf_bessel_K1_scaled" gsl_sf_bessel_K1_scaled :: Double -> Double 225foreign import ccall "gsl_sf_bessel_K1_scaled" gsl_sf_bessel_K1_scaled :: Double -> Double
384
385-- | wrapper for int gsl_sf_bessel_Kn_scaled_e(int n,double x,gsl_sf_result* result);
386--
387-- <http://www.google.com/search?q=gsl_sf_bessel_Kn_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
388bessel_Kn_scaled_e :: CInt -> Double -> (Double,Double) 226bessel_Kn_scaled_e :: CInt -> Double -> (Double,Double)
389bessel_Kn_scaled_e n x = createSFR "bessel_Kn_scaled_e" $ gsl_sf_bessel_Kn_scaled_e n x 227bessel_Kn_scaled_e n x = createSFR "bessel_Kn_scaled_e" $ gsl_sf_bessel_Kn_scaled_e n x
390foreign import ccall "gsl_sf_bessel_Kn_scaled_e" gsl_sf_bessel_Kn_scaled_e :: CInt -> Double -> Ptr () -> IO CInt 228foreign import ccall "gsl_sf_bessel_Kn_scaled_e" gsl_sf_bessel_Kn_scaled_e :: CInt -> Double -> Ptr () -> IO CInt
391
392-- | wrapper for double gsl_sf_bessel_Kn_scaled(int n,double x);
393--
394-- <http://www.google.com/search?q=gsl_sf_bessel_Kn_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
395bessel_Kn_scaled :: CInt -> Double -> Double 229bessel_Kn_scaled :: CInt -> Double -> Double
396bessel_Kn_scaled = gsl_sf_bessel_Kn_scaled 230bessel_Kn_scaled = gsl_sf_bessel_Kn_scaled
397foreign import ccall "gsl_sf_bessel_Kn_scaled" gsl_sf_bessel_Kn_scaled :: CInt -> Double -> Double 231foreign import ccall "gsl_sf_bessel_Kn_scaled" gsl_sf_bessel_Kn_scaled :: CInt -> Double -> Double
398
399-- | wrapper for int gsl_sf_bessel_Kn_scaled_array(int nmin,int nmax,double x,double* result_array);
400--
401-- <http://www.google.com/search?q=gsl_sf_bessel_Kn_scaled_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
402bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt 232bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
403bessel_Kn_scaled_array = gsl_sf_bessel_Kn_scaled_array 233bessel_Kn_scaled_array = gsl_sf_bessel_Kn_scaled_array
404foreign import ccall "gsl_sf_bessel_Kn_scaled_array" gsl_sf_bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt 234foreign import ccall "gsl_sf_bessel_Kn_scaled_array" gsl_sf_bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
405
406-- | wrapper for int gsl_sf_bessel_j0_e(double x,gsl_sf_result* result);
407--
408-- <http://www.google.com/search?q=gsl_sf_bessel_j0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
409bessel_j0_e :: Double -> (Double,Double) 235bessel_j0_e :: Double -> (Double,Double)
410bessel_j0_e x = createSFR "bessel_j0_e" $ gsl_sf_bessel_j0_e x 236bessel_j0_e x = createSFR "bessel_j0_e" $ gsl_sf_bessel_j0_e x
411foreign import ccall "gsl_sf_bessel_j0_e" gsl_sf_bessel_j0_e :: Double -> Ptr () -> IO CInt 237foreign import ccall "gsl_sf_bessel_j0_e" gsl_sf_bessel_j0_e :: Double -> Ptr () -> IO CInt
412
413-- | wrapper for double gsl_sf_bessel_j0(double x);
414--
415-- <http://www.google.com/search?q=gsl_sf_bessel_j0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
416bessel_j0 :: Double -> Double 238bessel_j0 :: Double -> Double
417bessel_j0 = gsl_sf_bessel_j0 239bessel_j0 = gsl_sf_bessel_j0
418foreign import ccall "gsl_sf_bessel_j0" gsl_sf_bessel_j0 :: Double -> Double 240foreign import ccall "gsl_sf_bessel_j0" gsl_sf_bessel_j0 :: Double -> Double
419
420-- | wrapper for int gsl_sf_bessel_j1_e(double x,gsl_sf_result* result);
421--
422-- <http://www.google.com/search?q=gsl_sf_bessel_j1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
423bessel_j1_e :: Double -> (Double,Double) 241bessel_j1_e :: Double -> (Double,Double)
424bessel_j1_e x = createSFR "bessel_j1_e" $ gsl_sf_bessel_j1_e x 242bessel_j1_e x = createSFR "bessel_j1_e" $ gsl_sf_bessel_j1_e x
425foreign import ccall "gsl_sf_bessel_j1_e" gsl_sf_bessel_j1_e :: Double -> Ptr () -> IO CInt 243foreign import ccall "gsl_sf_bessel_j1_e" gsl_sf_bessel_j1_e :: Double -> Ptr () -> IO CInt
426
427-- | wrapper for double gsl_sf_bessel_j1(double x);
428--
429-- <http://www.google.com/search?q=gsl_sf_bessel_j1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
430bessel_j1 :: Double -> Double 244bessel_j1 :: Double -> Double
431bessel_j1 = gsl_sf_bessel_j1 245bessel_j1 = gsl_sf_bessel_j1
432foreign import ccall "gsl_sf_bessel_j1" gsl_sf_bessel_j1 :: Double -> Double 246foreign import ccall "gsl_sf_bessel_j1" gsl_sf_bessel_j1 :: Double -> Double
433
434-- | wrapper for int gsl_sf_bessel_j2_e(double x,gsl_sf_result* result);
435--
436-- <http://www.google.com/search?q=gsl_sf_bessel_j2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
437bessel_j2_e :: Double -> (Double,Double) 247bessel_j2_e :: Double -> (Double,Double)
438bessel_j2_e x = createSFR "bessel_j2_e" $ gsl_sf_bessel_j2_e x 248bessel_j2_e x = createSFR "bessel_j2_e" $ gsl_sf_bessel_j2_e x
439foreign import ccall "gsl_sf_bessel_j2_e" gsl_sf_bessel_j2_e :: Double -> Ptr () -> IO CInt 249foreign import ccall "gsl_sf_bessel_j2_e" gsl_sf_bessel_j2_e :: Double -> Ptr () -> IO CInt
440
441-- | wrapper for double gsl_sf_bessel_j2(double x);
442--
443-- <http://www.google.com/search?q=gsl_sf_bessel_j2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
444bessel_j2 :: Double -> Double 250bessel_j2 :: Double -> Double
445bessel_j2 = gsl_sf_bessel_j2 251bessel_j2 = gsl_sf_bessel_j2
446foreign import ccall "gsl_sf_bessel_j2" gsl_sf_bessel_j2 :: Double -> Double 252foreign import ccall "gsl_sf_bessel_j2" gsl_sf_bessel_j2 :: Double -> Double
447
448-- | wrapper for int gsl_sf_bessel_jl_e(int l,double x,gsl_sf_result* result);
449--
450-- <http://www.google.com/search?q=gsl_sf_bessel_jl_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
451bessel_jl_e :: CInt -> Double -> (Double,Double) 253bessel_jl_e :: CInt -> Double -> (Double,Double)
452bessel_jl_e l x = createSFR "bessel_jl_e" $ gsl_sf_bessel_jl_e l x 254bessel_jl_e l x = createSFR "bessel_jl_e" $ gsl_sf_bessel_jl_e l x
453foreign import ccall "gsl_sf_bessel_jl_e" gsl_sf_bessel_jl_e :: CInt -> Double -> Ptr () -> IO CInt 255foreign import ccall "gsl_sf_bessel_jl_e" gsl_sf_bessel_jl_e :: CInt -> Double -> Ptr () -> IO CInt
454
455-- | wrapper for double gsl_sf_bessel_jl(int l,double x);
456--
457-- <http://www.google.com/search?q=gsl_sf_bessel_jl&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
458bessel_jl :: CInt -> Double -> Double 256bessel_jl :: CInt -> Double -> Double
459bessel_jl = gsl_sf_bessel_jl 257bessel_jl = gsl_sf_bessel_jl
460foreign import ccall "gsl_sf_bessel_jl" gsl_sf_bessel_jl :: CInt -> Double -> Double 258foreign import ccall "gsl_sf_bessel_jl" gsl_sf_bessel_jl :: CInt -> Double -> Double
461
462-- | wrapper for int gsl_sf_bessel_jl_array(int lmax,double x,double* result_array);
463--
464-- <http://www.google.com/search?q=gsl_sf_bessel_jl_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
465bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt 259bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt
466bessel_jl_array = gsl_sf_bessel_jl_array 260bessel_jl_array = gsl_sf_bessel_jl_array
467foreign import ccall "gsl_sf_bessel_jl_array" gsl_sf_bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt 261foreign import ccall "gsl_sf_bessel_jl_array" gsl_sf_bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt
468
469-- | wrapper for int gsl_sf_bessel_jl_steed_array(int lmax,double x,double* jl_x_array);
470--
471-- <http://www.google.com/search?q=gsl_sf_bessel_jl_steed_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
472bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt 262bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt
473bessel_jl_steed_array = gsl_sf_bessel_jl_steed_array 263bessel_jl_steed_array = gsl_sf_bessel_jl_steed_array
474foreign import ccall "gsl_sf_bessel_jl_steed_array" gsl_sf_bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt 264foreign import ccall "gsl_sf_bessel_jl_steed_array" gsl_sf_bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt
475
476-- | wrapper for int gsl_sf_bessel_y0_e(double x,gsl_sf_result* result);
477--
478-- <http://www.google.com/search?q=gsl_sf_bessel_y0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
479bessel_y0_e :: Double -> (Double,Double) 265bessel_y0_e :: Double -> (Double,Double)
480bessel_y0_e x = createSFR "bessel_y0_e" $ gsl_sf_bessel_y0_e x 266bessel_y0_e x = createSFR "bessel_y0_e" $ gsl_sf_bessel_y0_e x
481foreign import ccall "gsl_sf_bessel_y0_e" gsl_sf_bessel_y0_e :: Double -> Ptr () -> IO CInt 267foreign import ccall "gsl_sf_bessel_y0_e" gsl_sf_bessel_y0_e :: Double -> Ptr () -> IO CInt
482
483-- | wrapper for double gsl_sf_bessel_y0(double x);
484--
485-- <http://www.google.com/search?q=gsl_sf_bessel_y0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
486bessel_y0 :: Double -> Double 268bessel_y0 :: Double -> Double
487bessel_y0 = gsl_sf_bessel_y0 269bessel_y0 = gsl_sf_bessel_y0
488foreign import ccall "gsl_sf_bessel_y0" gsl_sf_bessel_y0 :: Double -> Double 270foreign import ccall "gsl_sf_bessel_y0" gsl_sf_bessel_y0 :: Double -> Double
489
490-- | wrapper for int gsl_sf_bessel_y1_e(double x,gsl_sf_result* result);
491--
492-- <http://www.google.com/search?q=gsl_sf_bessel_y1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
493bessel_y1_e :: Double -> (Double,Double) 271bessel_y1_e :: Double -> (Double,Double)
494bessel_y1_e x = createSFR "bessel_y1_e" $ gsl_sf_bessel_y1_e x 272bessel_y1_e x = createSFR "bessel_y1_e" $ gsl_sf_bessel_y1_e x
495foreign import ccall "gsl_sf_bessel_y1_e" gsl_sf_bessel_y1_e :: Double -> Ptr () -> IO CInt 273foreign import ccall "gsl_sf_bessel_y1_e" gsl_sf_bessel_y1_e :: Double -> Ptr () -> IO CInt
496
497-- | wrapper for double gsl_sf_bessel_y1(double x);
498--
499-- <http://www.google.com/search?q=gsl_sf_bessel_y1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
500bessel_y1 :: Double -> Double 274bessel_y1 :: Double -> Double
501bessel_y1 = gsl_sf_bessel_y1 275bessel_y1 = gsl_sf_bessel_y1
502foreign import ccall "gsl_sf_bessel_y1" gsl_sf_bessel_y1 :: Double -> Double 276foreign import ccall "gsl_sf_bessel_y1" gsl_sf_bessel_y1 :: Double -> Double
503
504-- | wrapper for int gsl_sf_bessel_y2_e(double x,gsl_sf_result* result);
505--
506-- <http://www.google.com/search?q=gsl_sf_bessel_y2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
507bessel_y2_e :: Double -> (Double,Double) 277bessel_y2_e :: Double -> (Double,Double)
508bessel_y2_e x = createSFR "bessel_y2_e" $ gsl_sf_bessel_y2_e x 278bessel_y2_e x = createSFR "bessel_y2_e" $ gsl_sf_bessel_y2_e x
509foreign import ccall "gsl_sf_bessel_y2_e" gsl_sf_bessel_y2_e :: Double -> Ptr () -> IO CInt 279foreign import ccall "gsl_sf_bessel_y2_e" gsl_sf_bessel_y2_e :: Double -> Ptr () -> IO CInt
510
511-- | wrapper for double gsl_sf_bessel_y2(double x);
512--
513-- <http://www.google.com/search?q=gsl_sf_bessel_y2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
514bessel_y2 :: Double -> Double 280bessel_y2 :: Double -> Double
515bessel_y2 = gsl_sf_bessel_y2 281bessel_y2 = gsl_sf_bessel_y2
516foreign import ccall "gsl_sf_bessel_y2" gsl_sf_bessel_y2 :: Double -> Double 282foreign import ccall "gsl_sf_bessel_y2" gsl_sf_bessel_y2 :: Double -> Double
517
518-- | wrapper for int gsl_sf_bessel_yl_e(int l,double x,gsl_sf_result* result);
519--
520-- <http://www.google.com/search?q=gsl_sf_bessel_yl_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
521bessel_yl_e :: CInt -> Double -> (Double,Double) 283bessel_yl_e :: CInt -> Double -> (Double,Double)
522bessel_yl_e l x = createSFR "bessel_yl_e" $ gsl_sf_bessel_yl_e l x 284bessel_yl_e l x = createSFR "bessel_yl_e" $ gsl_sf_bessel_yl_e l x
523foreign import ccall "gsl_sf_bessel_yl_e" gsl_sf_bessel_yl_e :: CInt -> Double -> Ptr () -> IO CInt 285foreign import ccall "gsl_sf_bessel_yl_e" gsl_sf_bessel_yl_e :: CInt -> Double -> Ptr () -> IO CInt
524
525-- | wrapper for double gsl_sf_bessel_yl(int l,double x);
526--
527-- <http://www.google.com/search?q=gsl_sf_bessel_yl&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
528bessel_yl :: CInt -> Double -> Double 286bessel_yl :: CInt -> Double -> Double
529bessel_yl = gsl_sf_bessel_yl 287bessel_yl = gsl_sf_bessel_yl
530foreign import ccall "gsl_sf_bessel_yl" gsl_sf_bessel_yl :: CInt -> Double -> Double 288foreign import ccall "gsl_sf_bessel_yl" gsl_sf_bessel_yl :: CInt -> Double -> Double
531
532-- | wrapper for int gsl_sf_bessel_yl_array(int lmax,double x,double* result_array);
533--
534-- <http://www.google.com/search?q=gsl_sf_bessel_yl_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
535bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt 289bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt
536bessel_yl_array = gsl_sf_bessel_yl_array 290bessel_yl_array = gsl_sf_bessel_yl_array
537foreign import ccall "gsl_sf_bessel_yl_array" gsl_sf_bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt 291foreign import ccall "gsl_sf_bessel_yl_array" gsl_sf_bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt
538
539-- | wrapper for int gsl_sf_bessel_i0_scaled_e(double x,gsl_sf_result* result);
540--
541-- <http://www.google.com/search?q=gsl_sf_bessel_i0_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
542bessel_i0_scaled_e :: Double -> (Double,Double) 292bessel_i0_scaled_e :: Double -> (Double,Double)
543bessel_i0_scaled_e x = createSFR "bessel_i0_scaled_e" $ gsl_sf_bessel_i0_scaled_e x 293bessel_i0_scaled_e x = createSFR "bessel_i0_scaled_e" $ gsl_sf_bessel_i0_scaled_e x
544foreign import ccall "gsl_sf_bessel_i0_scaled_e" gsl_sf_bessel_i0_scaled_e :: Double -> Ptr () -> IO CInt 294foreign import ccall "gsl_sf_bessel_i0_scaled_e" gsl_sf_bessel_i0_scaled_e :: Double -> Ptr () -> IO CInt
545
546-- | wrapper for double gsl_sf_bessel_i0_scaled(double x);
547--
548-- <http://www.google.com/search?q=gsl_sf_bessel_i0_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
549bessel_i0_scaled :: Double -> Double 295bessel_i0_scaled :: Double -> Double
550bessel_i0_scaled = gsl_sf_bessel_i0_scaled 296bessel_i0_scaled = gsl_sf_bessel_i0_scaled
551foreign import ccall "gsl_sf_bessel_i0_scaled" gsl_sf_bessel_i0_scaled :: Double -> Double 297foreign import ccall "gsl_sf_bessel_i0_scaled" gsl_sf_bessel_i0_scaled :: Double -> Double
552
553-- | wrapper for int gsl_sf_bessel_i1_scaled_e(double x,gsl_sf_result* result);
554--
555-- <http://www.google.com/search?q=gsl_sf_bessel_i1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
556bessel_i1_scaled_e :: Double -> (Double,Double) 298bessel_i1_scaled_e :: Double -> (Double,Double)
557bessel_i1_scaled_e x = createSFR "bessel_i1_scaled_e" $ gsl_sf_bessel_i1_scaled_e x 299bessel_i1_scaled_e x = createSFR "bessel_i1_scaled_e" $ gsl_sf_bessel_i1_scaled_e x
558foreign import ccall "gsl_sf_bessel_i1_scaled_e" gsl_sf_bessel_i1_scaled_e :: Double -> Ptr () -> IO CInt 300foreign import ccall "gsl_sf_bessel_i1_scaled_e" gsl_sf_bessel_i1_scaled_e :: Double -> Ptr () -> IO CInt
559
560-- | wrapper for double gsl_sf_bessel_i1_scaled(double x);
561--
562-- <http://www.google.com/search?q=gsl_sf_bessel_i1_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
563bessel_i1_scaled :: Double -> Double 301bessel_i1_scaled :: Double -> Double
564bessel_i1_scaled = gsl_sf_bessel_i1_scaled 302bessel_i1_scaled = gsl_sf_bessel_i1_scaled
565foreign import ccall "gsl_sf_bessel_i1_scaled" gsl_sf_bessel_i1_scaled :: Double -> Double 303foreign import ccall "gsl_sf_bessel_i1_scaled" gsl_sf_bessel_i1_scaled :: Double -> Double
566
567-- | wrapper for int gsl_sf_bessel_i2_scaled_e(double x,gsl_sf_result* result);
568--
569-- <http://www.google.com/search?q=gsl_sf_bessel_i2_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
570bessel_i2_scaled_e :: Double -> (Double,Double) 304bessel_i2_scaled_e :: Double -> (Double,Double)
571bessel_i2_scaled_e x = createSFR "bessel_i2_scaled_e" $ gsl_sf_bessel_i2_scaled_e x 305bessel_i2_scaled_e x = createSFR "bessel_i2_scaled_e" $ gsl_sf_bessel_i2_scaled_e x
572foreign import ccall "gsl_sf_bessel_i2_scaled_e" gsl_sf_bessel_i2_scaled_e :: Double -> Ptr () -> IO CInt 306foreign import ccall "gsl_sf_bessel_i2_scaled_e" gsl_sf_bessel_i2_scaled_e :: Double -> Ptr () -> IO CInt
573
574-- | wrapper for double gsl_sf_bessel_i2_scaled(double x);
575--
576-- <http://www.google.com/search?q=gsl_sf_bessel_i2_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
577bessel_i2_scaled :: Double -> Double 307bessel_i2_scaled :: Double -> Double
578bessel_i2_scaled = gsl_sf_bessel_i2_scaled 308bessel_i2_scaled = gsl_sf_bessel_i2_scaled
579foreign import ccall "gsl_sf_bessel_i2_scaled" gsl_sf_bessel_i2_scaled :: Double -> Double 309foreign import ccall "gsl_sf_bessel_i2_scaled" gsl_sf_bessel_i2_scaled :: Double -> Double
580
581-- | wrapper for int gsl_sf_bessel_il_scaled_e(int l,double x,gsl_sf_result* result);
582--
583-- <http://www.google.com/search?q=gsl_sf_bessel_il_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
584bessel_il_scaled_e :: CInt -> Double -> (Double,Double) 310bessel_il_scaled_e :: CInt -> Double -> (Double,Double)
585bessel_il_scaled_e l x = createSFR "bessel_il_scaled_e" $ gsl_sf_bessel_il_scaled_e l x 311bessel_il_scaled_e l x = createSFR "bessel_il_scaled_e" $ gsl_sf_bessel_il_scaled_e l x
586foreign import ccall "gsl_sf_bessel_il_scaled_e" gsl_sf_bessel_il_scaled_e :: CInt -> Double -> Ptr () -> IO CInt 312foreign import ccall "gsl_sf_bessel_il_scaled_e" gsl_sf_bessel_il_scaled_e :: CInt -> Double -> Ptr () -> IO CInt
587
588-- | wrapper for double gsl_sf_bessel_il_scaled(int l,double x);
589--
590-- <http://www.google.com/search?q=gsl_sf_bessel_il_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
591bessel_il_scaled :: CInt -> Double -> Double 313bessel_il_scaled :: CInt -> Double -> Double
592bessel_il_scaled = gsl_sf_bessel_il_scaled 314bessel_il_scaled = gsl_sf_bessel_il_scaled
593foreign import ccall "gsl_sf_bessel_il_scaled" gsl_sf_bessel_il_scaled :: CInt -> Double -> Double 315foreign import ccall "gsl_sf_bessel_il_scaled" gsl_sf_bessel_il_scaled :: CInt -> Double -> Double
594
595-- | wrapper for int gsl_sf_bessel_il_scaled_array(int lmax,double x,double* result_array);
596--
597-- <http://www.google.com/search?q=gsl_sf_bessel_il_scaled_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
598bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt 316bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt
599bessel_il_scaled_array = gsl_sf_bessel_il_scaled_array 317bessel_il_scaled_array = gsl_sf_bessel_il_scaled_array
600foreign import ccall "gsl_sf_bessel_il_scaled_array" gsl_sf_bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt 318foreign import ccall "gsl_sf_bessel_il_scaled_array" gsl_sf_bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt
601
602-- | wrapper for int gsl_sf_bessel_k0_scaled_e(double x,gsl_sf_result* result);
603--
604-- <http://www.google.com/search?q=gsl_sf_bessel_k0_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
605bessel_k0_scaled_e :: Double -> (Double,Double) 319bessel_k0_scaled_e :: Double -> (Double,Double)
606bessel_k0_scaled_e x = createSFR "bessel_k0_scaled_e" $ gsl_sf_bessel_k0_scaled_e x 320bessel_k0_scaled_e x = createSFR "bessel_k0_scaled_e" $ gsl_sf_bessel_k0_scaled_e x
607foreign import ccall "gsl_sf_bessel_k0_scaled_e" gsl_sf_bessel_k0_scaled_e :: Double -> Ptr () -> IO CInt 321foreign import ccall "gsl_sf_bessel_k0_scaled_e" gsl_sf_bessel_k0_scaled_e :: Double -> Ptr () -> IO CInt
608
609-- | wrapper for double gsl_sf_bessel_k0_scaled(double x);
610--
611-- <http://www.google.com/search?q=gsl_sf_bessel_k0_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
612bessel_k0_scaled :: Double -> Double 322bessel_k0_scaled :: Double -> Double
613bessel_k0_scaled = gsl_sf_bessel_k0_scaled 323bessel_k0_scaled = gsl_sf_bessel_k0_scaled
614foreign import ccall "gsl_sf_bessel_k0_scaled" gsl_sf_bessel_k0_scaled :: Double -> Double 324foreign import ccall "gsl_sf_bessel_k0_scaled" gsl_sf_bessel_k0_scaled :: Double -> Double
615
616-- | wrapper for int gsl_sf_bessel_k1_scaled_e(double x,gsl_sf_result* result);
617--
618-- <http://www.google.com/search?q=gsl_sf_bessel_k1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
619bessel_k1_scaled_e :: Double -> (Double,Double) 325bessel_k1_scaled_e :: Double -> (Double,Double)
620bessel_k1_scaled_e x = createSFR "bessel_k1_scaled_e" $ gsl_sf_bessel_k1_scaled_e x 326bessel_k1_scaled_e x = createSFR "bessel_k1_scaled_e" $ gsl_sf_bessel_k1_scaled_e x
621foreign import ccall "gsl_sf_bessel_k1_scaled_e" gsl_sf_bessel_k1_scaled_e :: Double -> Ptr () -> IO CInt 327foreign import ccall "gsl_sf_bessel_k1_scaled_e" gsl_sf_bessel_k1_scaled_e :: Double -> Ptr () -> IO CInt
622
623-- | wrapper for double gsl_sf_bessel_k1_scaled(double x);
624--
625-- <http://www.google.com/search?q=gsl_sf_bessel_k1_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
626bessel_k1_scaled :: Double -> Double 328bessel_k1_scaled :: Double -> Double
627bessel_k1_scaled = gsl_sf_bessel_k1_scaled 329bessel_k1_scaled = gsl_sf_bessel_k1_scaled
628foreign import ccall "gsl_sf_bessel_k1_scaled" gsl_sf_bessel_k1_scaled :: Double -> Double 330foreign import ccall "gsl_sf_bessel_k1_scaled" gsl_sf_bessel_k1_scaled :: Double -> Double
629
630-- | wrapper for int gsl_sf_bessel_k2_scaled_e(double x,gsl_sf_result* result);
631--
632-- <http://www.google.com/search?q=gsl_sf_bessel_k2_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
633bessel_k2_scaled_e :: Double -> (Double,Double) 331bessel_k2_scaled_e :: Double -> (Double,Double)
634bessel_k2_scaled_e x = createSFR "bessel_k2_scaled_e" $ gsl_sf_bessel_k2_scaled_e x 332bessel_k2_scaled_e x = createSFR "bessel_k2_scaled_e" $ gsl_sf_bessel_k2_scaled_e x
635foreign import ccall "gsl_sf_bessel_k2_scaled_e" gsl_sf_bessel_k2_scaled_e :: Double -> Ptr () -> IO CInt 333foreign import ccall "gsl_sf_bessel_k2_scaled_e" gsl_sf_bessel_k2_scaled_e :: Double -> Ptr () -> IO CInt
636
637-- | wrapper for double gsl_sf_bessel_k2_scaled(double x);
638--
639-- <http://www.google.com/search?q=gsl_sf_bessel_k2_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
640bessel_k2_scaled :: Double -> Double 334bessel_k2_scaled :: Double -> Double
641bessel_k2_scaled = gsl_sf_bessel_k2_scaled 335bessel_k2_scaled = gsl_sf_bessel_k2_scaled
642foreign import ccall "gsl_sf_bessel_k2_scaled" gsl_sf_bessel_k2_scaled :: Double -> Double 336foreign import ccall "gsl_sf_bessel_k2_scaled" gsl_sf_bessel_k2_scaled :: Double -> Double
643
644-- | wrapper for int gsl_sf_bessel_kl_scaled_e(int l,double x,gsl_sf_result* result);
645--
646-- <http://www.google.com/search?q=gsl_sf_bessel_kl_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
647bessel_kl_scaled_e :: CInt -> Double -> (Double,Double) 337bessel_kl_scaled_e :: CInt -> Double -> (Double,Double)
648bessel_kl_scaled_e l x = createSFR "bessel_kl_scaled_e" $ gsl_sf_bessel_kl_scaled_e l x 338bessel_kl_scaled_e l x = createSFR "bessel_kl_scaled_e" $ gsl_sf_bessel_kl_scaled_e l x
649foreign import ccall "gsl_sf_bessel_kl_scaled_e" gsl_sf_bessel_kl_scaled_e :: CInt -> Double -> Ptr () -> IO CInt 339foreign import ccall "gsl_sf_bessel_kl_scaled_e" gsl_sf_bessel_kl_scaled_e :: CInt -> Double -> Ptr () -> IO CInt
650
651-- | wrapper for double gsl_sf_bessel_kl_scaled(int l,double x);
652--
653-- <http://www.google.com/search?q=gsl_sf_bessel_kl_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
654bessel_kl_scaled :: CInt -> Double -> Double 340bessel_kl_scaled :: CInt -> Double -> Double
655bessel_kl_scaled = gsl_sf_bessel_kl_scaled 341bessel_kl_scaled = gsl_sf_bessel_kl_scaled
656foreign import ccall "gsl_sf_bessel_kl_scaled" gsl_sf_bessel_kl_scaled :: CInt -> Double -> Double 342foreign import ccall "gsl_sf_bessel_kl_scaled" gsl_sf_bessel_kl_scaled :: CInt -> Double -> Double
657
658-- | wrapper for int gsl_sf_bessel_kl_scaled_array(int lmax,double x,double* result_array);
659--
660-- <http://www.google.com/search?q=gsl_sf_bessel_kl_scaled_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
661bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt 343bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt
662bessel_kl_scaled_array = gsl_sf_bessel_kl_scaled_array 344bessel_kl_scaled_array = gsl_sf_bessel_kl_scaled_array
663foreign import ccall "gsl_sf_bessel_kl_scaled_array" gsl_sf_bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt 345foreign import ccall "gsl_sf_bessel_kl_scaled_array" gsl_sf_bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt
664
665-- | wrapper for int gsl_sf_bessel_Jnu_e(double nu,double x,gsl_sf_result* result);
666--
667-- <http://www.google.com/search?q=gsl_sf_bessel_Jnu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
668bessel_Jnu_e :: Double -> Double -> (Double,Double) 346bessel_Jnu_e :: Double -> Double -> (Double,Double)
669bessel_Jnu_e nu x = createSFR "bessel_Jnu_e" $ gsl_sf_bessel_Jnu_e nu x 347bessel_Jnu_e nu x = createSFR "bessel_Jnu_e" $ gsl_sf_bessel_Jnu_e nu x
670foreign import ccall "gsl_sf_bessel_Jnu_e" gsl_sf_bessel_Jnu_e :: Double -> Double -> Ptr () -> IO CInt 348foreign import ccall "gsl_sf_bessel_Jnu_e" gsl_sf_bessel_Jnu_e :: Double -> Double -> Ptr () -> IO CInt
671
672-- | wrapper for double gsl_sf_bessel_Jnu(double nu,double x);
673--
674-- <http://www.google.com/search?q=gsl_sf_bessel_Jnu&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
675bessel_Jnu :: Double -> Double -> Double 349bessel_Jnu :: Double -> Double -> Double
676bessel_Jnu = gsl_sf_bessel_Jnu 350bessel_Jnu = gsl_sf_bessel_Jnu
677foreign import ccall "gsl_sf_bessel_Jnu" gsl_sf_bessel_Jnu :: Double -> Double -> Double 351foreign import ccall "gsl_sf_bessel_Jnu" gsl_sf_bessel_Jnu :: Double -> Double -> Double
678
679-- | wrapper for int gsl_sf_bessel_Ynu_e(double nu,double x,gsl_sf_result* result);
680--
681-- <http://www.google.com/search?q=gsl_sf_bessel_Ynu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
682bessel_Ynu_e :: Double -> Double -> (Double,Double) 352bessel_Ynu_e :: Double -> Double -> (Double,Double)
683bessel_Ynu_e nu x = createSFR "bessel_Ynu_e" $ gsl_sf_bessel_Ynu_e nu x 353bessel_Ynu_e nu x = createSFR "bessel_Ynu_e" $ gsl_sf_bessel_Ynu_e nu x
684foreign import ccall "gsl_sf_bessel_Ynu_e" gsl_sf_bessel_Ynu_e :: Double -> Double -> Ptr () -> IO CInt 354foreign import ccall "gsl_sf_bessel_Ynu_e" gsl_sf_bessel_Ynu_e :: Double -> Double -> Ptr () -> IO CInt
685
686-- | wrapper for double gsl_sf_bessel_Ynu(double nu,double x);
687--
688-- <http://www.google.com/search?q=gsl_sf_bessel_Ynu&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
689bessel_Ynu :: Double -> Double -> Double 355bessel_Ynu :: Double -> Double -> Double
690bessel_Ynu = gsl_sf_bessel_Ynu 356bessel_Ynu = gsl_sf_bessel_Ynu
691foreign import ccall "gsl_sf_bessel_Ynu" gsl_sf_bessel_Ynu :: Double -> Double -> Double 357foreign import ccall "gsl_sf_bessel_Ynu" gsl_sf_bessel_Ynu :: Double -> Double -> Double
692
693-- | wrapper for int gsl_sf_bessel_sequence_Jnu_e(double nu,gsl_mode_t mode,size_t size,double* v);
694--
695-- <http://www.google.com/search?q=gsl_sf_bessel_sequence_Jnu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
696bessel_sequence_Jnu_e :: Double -> Precision -> Size_t -> Ptr Double -> CInt 358bessel_sequence_Jnu_e :: Double -> Precision -> Size_t -> Ptr Double -> CInt
697bessel_sequence_Jnu_e nu mode size v = gsl_sf_bessel_sequence_Jnu_e nu (precCode mode) size v 359bessel_sequence_Jnu_e nu mode size v = gsl_sf_bessel_sequence_Jnu_e nu (precCode mode) size v
698foreign import ccall "gsl_sf_bessel_sequence_Jnu_e" gsl_sf_bessel_sequence_Jnu_e :: Double -> Gsl_mode_t -> Size_t -> Ptr Double -> CInt 360foreign import ccall "gsl_sf_bessel_sequence_Jnu_e" gsl_sf_bessel_sequence_Jnu_e :: Double -> Gsl_mode_t -> Size_t -> Ptr Double -> CInt
699
700-- | wrapper for int gsl_sf_bessel_Inu_scaled_e(double nu,double x,gsl_sf_result* result);
701--
702-- <http://www.google.com/search?q=gsl_sf_bessel_Inu_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
703bessel_Inu_scaled_e :: Double -> Double -> (Double,Double) 361bessel_Inu_scaled_e :: Double -> Double -> (Double,Double)
704bessel_Inu_scaled_e nu x = createSFR "bessel_Inu_scaled_e" $ gsl_sf_bessel_Inu_scaled_e nu x 362bessel_Inu_scaled_e nu x = createSFR "bessel_Inu_scaled_e" $ gsl_sf_bessel_Inu_scaled_e nu x
705foreign import ccall "gsl_sf_bessel_Inu_scaled_e" gsl_sf_bessel_Inu_scaled_e :: Double -> Double -> Ptr () -> IO CInt 363foreign import ccall "gsl_sf_bessel_Inu_scaled_e" gsl_sf_bessel_Inu_scaled_e :: Double -> Double -> Ptr () -> IO CInt
706
707-- | wrapper for double gsl_sf_bessel_Inu_scaled(double nu,double x);
708--
709-- <http://www.google.com/search?q=gsl_sf_bessel_Inu_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
710bessel_Inu_scaled :: Double -> Double -> Double 364bessel_Inu_scaled :: Double -> Double -> Double
711bessel_Inu_scaled = gsl_sf_bessel_Inu_scaled 365bessel_Inu_scaled = gsl_sf_bessel_Inu_scaled
712foreign import ccall "gsl_sf_bessel_Inu_scaled" gsl_sf_bessel_Inu_scaled :: Double -> Double -> Double 366foreign import ccall "gsl_sf_bessel_Inu_scaled" gsl_sf_bessel_Inu_scaled :: Double -> Double -> Double
713
714-- | wrapper for int gsl_sf_bessel_Inu_e(double nu,double x,gsl_sf_result* result);
715--
716-- <http://www.google.com/search?q=gsl_sf_bessel_Inu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
717bessel_Inu_e :: Double -> Double -> (Double,Double) 367bessel_Inu_e :: Double -> Double -> (Double,Double)
718bessel_Inu_e nu x = createSFR "bessel_Inu_e" $ gsl_sf_bessel_Inu_e nu x 368bessel_Inu_e nu x = createSFR "bessel_Inu_e" $ gsl_sf_bessel_Inu_e nu x
719foreign import ccall "gsl_sf_bessel_Inu_e" gsl_sf_bessel_Inu_e :: Double -> Double -> Ptr () -> IO CInt 369foreign import ccall "gsl_sf_bessel_Inu_e" gsl_sf_bessel_Inu_e :: Double -> Double -> Ptr () -> IO CInt
720
721-- | wrapper for double gsl_sf_bessel_Inu(double nu,double x);
722--
723-- <http://www.google.com/search?q=gsl_sf_bessel_Inu&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
724bessel_Inu :: Double -> Double -> Double 370bessel_Inu :: Double -> Double -> Double
725bessel_Inu = gsl_sf_bessel_Inu 371bessel_Inu = gsl_sf_bessel_Inu
726foreign import ccall "gsl_sf_bessel_Inu" gsl_sf_bessel_Inu :: Double -> Double -> Double 372foreign import ccall "gsl_sf_bessel_Inu" gsl_sf_bessel_Inu :: Double -> Double -> Double
727
728-- | wrapper for int gsl_sf_bessel_Knu_scaled_e(double nu,double x,gsl_sf_result* result);
729--
730-- <http://www.google.com/search?q=gsl_sf_bessel_Knu_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
731bessel_Knu_scaled_e :: Double -> Double -> (Double,Double) 373bessel_Knu_scaled_e :: Double -> Double -> (Double,Double)
732bessel_Knu_scaled_e nu x = createSFR "bessel_Knu_scaled_e" $ gsl_sf_bessel_Knu_scaled_e nu x 374bessel_Knu_scaled_e nu x = createSFR "bessel_Knu_scaled_e" $ gsl_sf_bessel_Knu_scaled_e nu x
733foreign import ccall "gsl_sf_bessel_Knu_scaled_e" gsl_sf_bessel_Knu_scaled_e :: Double -> Double -> Ptr () -> IO CInt 375foreign import ccall "gsl_sf_bessel_Knu_scaled_e" gsl_sf_bessel_Knu_scaled_e :: Double -> Double -> Ptr () -> IO CInt
734
735-- | wrapper for double gsl_sf_bessel_Knu_scaled(double nu,double x);
736--
737-- <http://www.google.com/search?q=gsl_sf_bessel_Knu_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
738bessel_Knu_scaled :: Double -> Double -> Double 376bessel_Knu_scaled :: Double -> Double -> Double
739bessel_Knu_scaled = gsl_sf_bessel_Knu_scaled 377bessel_Knu_scaled = gsl_sf_bessel_Knu_scaled
740foreign import ccall "gsl_sf_bessel_Knu_scaled" gsl_sf_bessel_Knu_scaled :: Double -> Double -> Double 378foreign import ccall "gsl_sf_bessel_Knu_scaled" gsl_sf_bessel_Knu_scaled :: Double -> Double -> Double
741
742-- | wrapper for int gsl_sf_bessel_Knu_e(double nu,double x,gsl_sf_result* result);
743--
744-- <http://www.google.com/search?q=gsl_sf_bessel_Knu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
745bessel_Knu_e :: Double -> Double -> (Double,Double) 379bessel_Knu_e :: Double -> Double -> (Double,Double)
746bessel_Knu_e nu x = createSFR "bessel_Knu_e" $ gsl_sf_bessel_Knu_e nu x 380bessel_Knu_e nu x = createSFR "bessel_Knu_e" $ gsl_sf_bessel_Knu_e nu x
747foreign import ccall "gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr () -> IO CInt 381foreign import ccall "gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr () -> IO CInt
748
749-- | wrapper for double gsl_sf_bessel_Knu(double nu,double x);
750--
751-- <http://www.google.com/search?q=gsl_sf_bessel_Knu&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
752bessel_Knu :: Double -> Double -> Double 382bessel_Knu :: Double -> Double -> Double
753bessel_Knu = gsl_sf_bessel_Knu 383bessel_Knu = gsl_sf_bessel_Knu
754foreign import ccall "gsl_sf_bessel_Knu" gsl_sf_bessel_Knu :: Double -> Double -> Double 384foreign import ccall "gsl_sf_bessel_Knu" gsl_sf_bessel_Knu :: Double -> Double -> Double
755
756-- | wrapper for int gsl_sf_bessel_lnKnu_e(double nu,double x,gsl_sf_result* result);
757--
758-- <http://www.google.com/search?q=gsl_sf_bessel_lnKnu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
759bessel_lnKnu_e :: Double -> Double -> (Double,Double) 385bessel_lnKnu_e :: Double -> Double -> (Double,Double)
760bessel_lnKnu_e nu x = createSFR "bessel_lnKnu_e" $ gsl_sf_bessel_lnKnu_e nu x 386bessel_lnKnu_e nu x = createSFR "bessel_lnKnu_e" $ gsl_sf_bessel_lnKnu_e nu x
761foreign import ccall "gsl_sf_bessel_lnKnu_e" gsl_sf_bessel_lnKnu_e :: Double -> Double -> Ptr () -> IO CInt 387foreign import ccall "gsl_sf_bessel_lnKnu_e" gsl_sf_bessel_lnKnu_e :: Double -> Double -> Ptr () -> IO CInt
762
763-- | wrapper for double gsl_sf_bessel_lnKnu(double nu,double x);
764--
765-- <http://www.google.com/search?q=gsl_sf_bessel_lnKnu&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
766bessel_lnKnu :: Double -> Double -> Double 388bessel_lnKnu :: Double -> Double -> Double
767bessel_lnKnu = gsl_sf_bessel_lnKnu 389bessel_lnKnu = gsl_sf_bessel_lnKnu
768foreign import ccall "gsl_sf_bessel_lnKnu" gsl_sf_bessel_lnKnu :: Double -> Double -> Double 390foreign import ccall "gsl_sf_bessel_lnKnu" gsl_sf_bessel_lnKnu :: Double -> Double -> Double
769
770-- | wrapper for int gsl_sf_bessel_zero_J0_e(int s,gsl_sf_result* result);
771--
772-- <http://www.google.com/search?q=gsl_sf_bessel_zero_J0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
773bessel_zero_J0_e :: CInt -> (Double,Double) 391bessel_zero_J0_e :: CInt -> (Double,Double)
774bessel_zero_J0_e s = createSFR "bessel_zero_J0_e" $ gsl_sf_bessel_zero_J0_e s 392bessel_zero_J0_e s = createSFR "bessel_zero_J0_e" $ gsl_sf_bessel_zero_J0_e s
775foreign import ccall "gsl_sf_bessel_zero_J0_e" gsl_sf_bessel_zero_J0_e :: CInt -> Ptr () -> IO CInt 393foreign import ccall "gsl_sf_bessel_zero_J0_e" gsl_sf_bessel_zero_J0_e :: CInt -> Ptr () -> IO CInt
776
777-- | wrapper for double gsl_sf_bessel_zero_J0(int s);
778--
779-- <http://www.google.com/search?q=gsl_sf_bessel_zero_J0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
780bessel_zero_J0 :: CInt -> Double 394bessel_zero_J0 :: CInt -> Double
781bessel_zero_J0 = gsl_sf_bessel_zero_J0 395bessel_zero_J0 = gsl_sf_bessel_zero_J0
782foreign import ccall "gsl_sf_bessel_zero_J0" gsl_sf_bessel_zero_J0 :: CInt -> Double 396foreign import ccall "gsl_sf_bessel_zero_J0" gsl_sf_bessel_zero_J0 :: CInt -> Double
783
784-- | wrapper for int gsl_sf_bessel_zero_J1_e(int s,gsl_sf_result* result);
785--
786-- <http://www.google.com/search?q=gsl_sf_bessel_zero_J1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
787bessel_zero_J1_e :: CInt -> (Double,Double) 397bessel_zero_J1_e :: CInt -> (Double,Double)
788bessel_zero_J1_e s = createSFR "bessel_zero_J1_e" $ gsl_sf_bessel_zero_J1_e s 398bessel_zero_J1_e s = createSFR "bessel_zero_J1_e" $ gsl_sf_bessel_zero_J1_e s
789foreign import ccall "gsl_sf_bessel_zero_J1_e" gsl_sf_bessel_zero_J1_e :: CInt -> Ptr () -> IO CInt 399foreign import ccall "gsl_sf_bessel_zero_J1_e" gsl_sf_bessel_zero_J1_e :: CInt -> Ptr () -> IO CInt
790
791-- | wrapper for double gsl_sf_bessel_zero_J1(int s);
792--
793-- <http://www.google.com/search?q=gsl_sf_bessel_zero_J1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
794bessel_zero_J1 :: CInt -> Double 400bessel_zero_J1 :: CInt -> Double
795bessel_zero_J1 = gsl_sf_bessel_zero_J1 401bessel_zero_J1 = gsl_sf_bessel_zero_J1
796foreign import ccall "gsl_sf_bessel_zero_J1" gsl_sf_bessel_zero_J1 :: CInt -> Double 402foreign import ccall "gsl_sf_bessel_zero_J1" gsl_sf_bessel_zero_J1 :: CInt -> Double
797
798-- | wrapper for int gsl_sf_bessel_zero_Jnu_e(double nu,int s,gsl_sf_result* result);
799--
800-- <http://www.google.com/search?q=gsl_sf_bessel_zero_Jnu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
801bessel_zero_Jnu_e :: Double -> CInt -> (Double,Double) 403bessel_zero_Jnu_e :: Double -> CInt -> (Double,Double)
802bessel_zero_Jnu_e nu s = createSFR "bessel_zero_Jnu_e" $ gsl_sf_bessel_zero_Jnu_e nu s 404bessel_zero_Jnu_e nu s = createSFR "bessel_zero_Jnu_e" $ gsl_sf_bessel_zero_Jnu_e nu s
803foreign import ccall "gsl_sf_bessel_zero_Jnu_e" gsl_sf_bessel_zero_Jnu_e :: Double -> CInt -> Ptr () -> IO CInt 405foreign import ccall "gsl_sf_bessel_zero_Jnu_e" gsl_sf_bessel_zero_Jnu_e :: Double -> CInt -> Ptr () -> IO CInt
804
805-- | wrapper for double gsl_sf_bessel_zero_Jnu(double nu,int s);
806--
807-- <http://www.google.com/search?q=gsl_sf_bessel_zero_Jnu&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
808bessel_zero_Jnu :: Double -> CInt -> Double 406bessel_zero_Jnu :: Double -> CInt -> Double
809bessel_zero_Jnu = gsl_sf_bessel_zero_Jnu 407bessel_zero_Jnu = gsl_sf_bessel_zero_Jnu
810foreign import ccall "gsl_sf_bessel_zero_Jnu" gsl_sf_bessel_zero_Jnu :: Double -> CInt -> Double 408foreign import ccall "gsl_sf_bessel_zero_Jnu" gsl_sf_bessel_zero_Jnu :: Double -> CInt -> Double
diff --git a/lib/Numeric/GSL/Special/Clausen.hs b/lib/Numeric/GSL/Special/Clausen.hs
index 4ebf0e2..0c0b70c 100644
--- a/lib/Numeric/GSL/Special/Clausen.hs
+++ b/lib/Numeric/GSL/Special/Clausen.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Clausen 3-- Module : Numeric.GSL.Special.Clausen
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_clausen.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_clausen.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Clausen( 15module Numeric.GSL.Special.Clausen(
@@ -22,17 +20,9 @@ module Numeric.GSL.Special.Clausen(
22import Foreign(Ptr) 20import Foreign(Ptr)
23import Foreign.C.Types(CInt) 21import Foreign.C.Types(CInt)
24import Numeric.GSL.Special.Internal 22import Numeric.GSL.Special.Internal
25
26-- | wrapper for int gsl_sf_clausen_e(double x,gsl_sf_result* result);
27--
28-- <http://www.google.com/search?q=gsl_sf_clausen_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
29clausen_e :: Double -> (Double,Double) 23clausen_e :: Double -> (Double,Double)
30clausen_e x = createSFR "clausen_e" $ gsl_sf_clausen_e x 24clausen_e x = createSFR "clausen_e" $ gsl_sf_clausen_e x
31foreign import ccall "gsl_sf_clausen_e" gsl_sf_clausen_e :: Double -> Ptr () -> IO CInt 25foreign import ccall "gsl_sf_clausen_e" gsl_sf_clausen_e :: Double -> Ptr () -> IO CInt
32
33-- | wrapper for double gsl_sf_clausen(double x);
34--
35-- <http://www.google.com/search?q=gsl_sf_clausen&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
36clausen :: Double -> Double 26clausen :: Double -> Double
37clausen = gsl_sf_clausen 27clausen = gsl_sf_clausen
38foreign import ccall "gsl_sf_clausen" gsl_sf_clausen :: Double -> Double 28foreign import ccall "gsl_sf_clausen" gsl_sf_clausen :: Double -> Double
diff --git a/lib/Numeric/GSL/Special/Coulomb.hs b/lib/Numeric/GSL/Special/Coulomb.hs
index 2b89f03..7d30cd5 100644
--- a/lib/Numeric/GSL/Special/Coulomb.hs
+++ b/lib/Numeric/GSL/Special/Coulomb.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Coulomb 3-- Module : Numeric.GSL.Special.Coulomb
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_coulomb.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_coulomb.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Coulomb( 15module Numeric.GSL.Special.Coulomb(
@@ -25,80 +23,36 @@ module Numeric.GSL.Special.Coulomb(
25import Foreign(Ptr) 23import Foreign(Ptr)
26import Foreign.C.Types(CInt) 24import Foreign.C.Types(CInt)
27import Numeric.GSL.Special.Internal 25import Numeric.GSL.Special.Internal
28
29-- | wrapper for int gsl_sf_hydrogenicR_1_e(double Z,double r,gsl_sf_result* result);
30--
31-- <http://www.google.com/search?q=gsl_sf_hydrogenicR_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
32hydrogenicR_1_e :: Double -> Double -> (Double,Double) 26hydrogenicR_1_e :: Double -> Double -> (Double,Double)
33hydrogenicR_1_e zZ r = createSFR "hydrogenicR_1_e" $ gsl_sf_hydrogenicR_1_e zZ r 27hydrogenicR_1_e zZ r = createSFR "hydrogenicR_1_e" $ gsl_sf_hydrogenicR_1_e zZ r
34foreign import ccall "gsl_sf_hydrogenicR_1_e" gsl_sf_hydrogenicR_1_e :: Double -> Double -> Ptr () -> IO CInt 28foreign import ccall "gsl_sf_hydrogenicR_1_e" gsl_sf_hydrogenicR_1_e :: Double -> Double -> Ptr () -> IO CInt
35
36-- | wrapper for double gsl_sf_hydrogenicR_1(double Z,double r);
37--
38-- <http://www.google.com/search?q=gsl_sf_hydrogenicR_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
39hydrogenicR_1 :: Double -> Double -> Double 29hydrogenicR_1 :: Double -> Double -> Double
40hydrogenicR_1 = gsl_sf_hydrogenicR_1 30hydrogenicR_1 = gsl_sf_hydrogenicR_1
41foreign import ccall "gsl_sf_hydrogenicR_1" gsl_sf_hydrogenicR_1 :: Double -> Double -> Double 31foreign import ccall "gsl_sf_hydrogenicR_1" gsl_sf_hydrogenicR_1 :: Double -> Double -> Double
42
43-- | wrapper for int gsl_sf_hydrogenicR_e(int n,int l,double Z,double r,gsl_sf_result* result);
44--
45-- <http://www.google.com/search?q=gsl_sf_hydrogenicR_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
46hydrogenicR_e :: CInt -> CInt -> Double -> Double -> (Double,Double) 32hydrogenicR_e :: CInt -> CInt -> Double -> Double -> (Double,Double)
47hydrogenicR_e n l zZ r = createSFR "hydrogenicR_e" $ gsl_sf_hydrogenicR_e n l zZ r 33hydrogenicR_e n l zZ r = createSFR "hydrogenicR_e" $ gsl_sf_hydrogenicR_e n l zZ r
48foreign import ccall "gsl_sf_hydrogenicR_e" gsl_sf_hydrogenicR_e :: CInt -> CInt -> Double -> Double -> Ptr () -> IO CInt 34foreign import ccall "gsl_sf_hydrogenicR_e" gsl_sf_hydrogenicR_e :: CInt -> CInt -> Double -> Double -> Ptr () -> IO CInt
49
50-- | wrapper for double gsl_sf_hydrogenicR(int n,int l,double Z,double r);
51--
52-- <http://www.google.com/search?q=gsl_sf_hydrogenicR&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
53hydrogenicR :: CInt -> CInt -> Double -> Double -> Double 35hydrogenicR :: CInt -> CInt -> Double -> Double -> Double
54hydrogenicR = gsl_sf_hydrogenicR 36hydrogenicR = gsl_sf_hydrogenicR
55foreign import ccall "gsl_sf_hydrogenicR" gsl_sf_hydrogenicR :: CInt -> CInt -> Double -> Double -> Double 37foreign import ccall "gsl_sf_hydrogenicR" gsl_sf_hydrogenicR :: CInt -> CInt -> Double -> Double -> Double
56
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);
58--
59-- <http://www.google.com/search?q=gsl_sf_coulomb_wave_FG_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
60coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt 38coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt
61coulomb_wave_FG_e = gsl_sf_coulomb_wave_FG_e 39coulomb_wave_FG_e = gsl_sf_coulomb_wave_FG_e
62foreign import ccall "gsl_sf_coulomb_wave_FG_e" gsl_sf_coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt 40foreign import ccall "gsl_sf_coulomb_wave_FG_e" gsl_sf_coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt
63
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);
65--
66-- <http://www.google.com/search?q=gsl_sf_coulomb_wave_F_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
67coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt 41coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt
68coulomb_wave_F_array = gsl_sf_coulomb_wave_F_array 42coulomb_wave_F_array = gsl_sf_coulomb_wave_F_array
69foreign import ccall "gsl_sf_coulomb_wave_F_array" gsl_sf_coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt 43foreign import ccall "gsl_sf_coulomb_wave_F_array" gsl_sf_coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt
70
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);
72--
73-- <http://www.google.com/search?q=gsl_sf_coulomb_wave_FG_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
74coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt 44coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt
75coulomb_wave_FG_array = gsl_sf_coulomb_wave_FG_array 45coulomb_wave_FG_array = gsl_sf_coulomb_wave_FG_array
76foreign import ccall "gsl_sf_coulomb_wave_FG_array" gsl_sf_coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt 46foreign import ccall "gsl_sf_coulomb_wave_FG_array" gsl_sf_coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt
77
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);
79--
80-- <http://www.google.com/search?q=gsl_sf_coulomb_wave_FGp_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
81coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt 47coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt
82coulomb_wave_FGp_array = gsl_sf_coulomb_wave_FGp_array 48coulomb_wave_FGp_array = gsl_sf_coulomb_wave_FGp_array
83foreign import ccall "gsl_sf_coulomb_wave_FGp_array" gsl_sf_coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt 49foreign import ccall "gsl_sf_coulomb_wave_FGp_array" gsl_sf_coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt
84
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);
86--
87-- <http://www.google.com/search?q=gsl_sf_coulomb_wave_sphF_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
88coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt 50coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt
89coulomb_wave_sphF_array = gsl_sf_coulomb_wave_sphF_array 51coulomb_wave_sphF_array = gsl_sf_coulomb_wave_sphF_array
90foreign import ccall "gsl_sf_coulomb_wave_sphF_array" gsl_sf_coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt 52foreign import ccall "gsl_sf_coulomb_wave_sphF_array" gsl_sf_coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt
91
92-- | wrapper for int gsl_sf_coulomb_CL_e(double L,double eta,gsl_sf_result* result);
93--
94-- <http://www.google.com/search?q=gsl_sf_coulomb_CL_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
95coulomb_CL_e :: Double -> Double -> (Double,Double) 53coulomb_CL_e :: Double -> Double -> (Double,Double)
96coulomb_CL_e lL eta = createSFR "coulomb_CL_e" $ gsl_sf_coulomb_CL_e lL eta 54coulomb_CL_e lL eta = createSFR "coulomb_CL_e" $ gsl_sf_coulomb_CL_e lL eta
97foreign import ccall "gsl_sf_coulomb_CL_e" gsl_sf_coulomb_CL_e :: Double -> Double -> Ptr () -> IO CInt 55foreign import ccall "gsl_sf_coulomb_CL_e" gsl_sf_coulomb_CL_e :: Double -> Double -> Ptr () -> IO CInt
98
99-- | wrapper for int gsl_sf_coulomb_CL_array(double Lmin,int kmax,double eta,double* cl);
100--
101-- <http://www.google.com/search?q=gsl_sf_coulomb_CL_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
102coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt 56coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt
103coulomb_CL_array = gsl_sf_coulomb_CL_array 57coulomb_CL_array = gsl_sf_coulomb_CL_array
104foreign import ccall "gsl_sf_coulomb_CL_array" gsl_sf_coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt 58foreign import ccall "gsl_sf_coulomb_CL_array" gsl_sf_coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt
diff --git a/lib/Numeric/GSL/Special/Coupling.hs b/lib/Numeric/GSL/Special/Coupling.hs
index 836a968..1fb69d9 100644
--- a/lib/Numeric/GSL/Special/Coupling.hs
+++ b/lib/Numeric/GSL/Special/Coupling.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Coupling 3-- Module : Numeric.GSL.Special.Coupling
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_coupling.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_coupling.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Coupling( 15module Numeric.GSL.Special.Coupling(
@@ -28,73 +26,33 @@ module Numeric.GSL.Special.Coupling(
28import Foreign(Ptr) 26import Foreign(Ptr)
29import Foreign.C.Types(CInt) 27import Foreign.C.Types(CInt)
30import Numeric.GSL.Special.Internal 28import Numeric.GSL.Special.Internal
31
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);
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) 29coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double)
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 30coupling_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
37foreign import ccall "gsl_sf_coupling_3j_e" gsl_sf_coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt 31foreign import ccall "gsl_sf_coupling_3j_e" gsl_sf_coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt
38
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);
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 32coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
43coupling_3j = gsl_sf_coupling_3j 33coupling_3j = gsl_sf_coupling_3j
44foreign import ccall "gsl_sf_coupling_3j" gsl_sf_coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double 34foreign import ccall "gsl_sf_coupling_3j" gsl_sf_coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
45
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);
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) 35coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double)
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 36coupling_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
51foreign import ccall "gsl_sf_coupling_6j_e" gsl_sf_coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt 37foreign import ccall "gsl_sf_coupling_6j_e" gsl_sf_coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt
52
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);
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 38coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
57coupling_6j = gsl_sf_coupling_6j 39coupling_6j = gsl_sf_coupling_6j
58foreign import ccall "gsl_sf_coupling_6j" gsl_sf_coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double 40foreign import ccall "gsl_sf_coupling_6j" gsl_sf_coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
59
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);
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) 41coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double)
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 42coupling_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
65foreign import ccall "gsl_sf_coupling_RacahW_e" gsl_sf_coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt 43foreign import ccall "gsl_sf_coupling_RacahW_e" gsl_sf_coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt
66
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);
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 44coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
71coupling_RacahW = gsl_sf_coupling_RacahW 45coupling_RacahW = gsl_sf_coupling_RacahW
72foreign import ccall "gsl_sf_coupling_RacahW" gsl_sf_coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double 46foreign import ccall "gsl_sf_coupling_RacahW" gsl_sf_coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
73
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);
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) 47coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double)
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 48coupling_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
79foreign import ccall "gsl_sf_coupling_9j_e" gsl_sf_coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt 49foreign import ccall "gsl_sf_coupling_9j_e" gsl_sf_coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt
80
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);
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 50coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
85coupling_9j = gsl_sf_coupling_9j 51coupling_9j = gsl_sf_coupling_9j
86foreign import ccall "gsl_sf_coupling_9j" gsl_sf_coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double 52foreign import ccall "gsl_sf_coupling_9j" gsl_sf_coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
87
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);
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) 53coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double)
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 54coupling_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
93foreign import ccall "gsl_sf_coupling_6j_INCORRECT_e" gsl_sf_coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt 55foreign import ccall "gsl_sf_coupling_6j_INCORRECT_e" gsl_sf_coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt
94
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);
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 56coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
99coupling_6j_INCORRECT = gsl_sf_coupling_6j_INCORRECT 57coupling_6j_INCORRECT = gsl_sf_coupling_6j_INCORRECT
100foreign import ccall "gsl_sf_coupling_6j_INCORRECT" gsl_sf_coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double 58foreign import ccall "gsl_sf_coupling_6j_INCORRECT" gsl_sf_coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double
diff --git a/lib/Numeric/GSL/Special/Dawson.hs b/lib/Numeric/GSL/Special/Dawson.hs
index 40d4d4e..37cc68e 100644
--- a/lib/Numeric/GSL/Special/Dawson.hs
+++ b/lib/Numeric/GSL/Special/Dawson.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Dawson 3-- Module : Numeric.GSL.Special.Dawson
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_dawson.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_dawson.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Dawson( 15module Numeric.GSL.Special.Dawson(
@@ -22,17 +20,9 @@ module Numeric.GSL.Special.Dawson(
22import Foreign(Ptr) 20import Foreign(Ptr)
23import Foreign.C.Types(CInt) 21import Foreign.C.Types(CInt)
24import Numeric.GSL.Special.Internal 22import Numeric.GSL.Special.Internal
25
26-- | wrapper for int gsl_sf_dawson_e(double x,gsl_sf_result* result);
27--
28-- <http://www.google.com/search?q=gsl_sf_dawson_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
29dawson_e :: Double -> (Double,Double) 23dawson_e :: Double -> (Double,Double)
30dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x 24dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x
31foreign import ccall "gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt 25foreign import ccall "gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt
32
33-- | wrapper for double gsl_sf_dawson(double x);
34--
35-- <http://www.google.com/search?q=gsl_sf_dawson&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
36dawson :: Double -> Double 26dawson :: Double -> Double
37dawson = gsl_sf_dawson 27dawson = gsl_sf_dawson
38foreign import ccall "gsl_sf_dawson" gsl_sf_dawson :: Double -> Double 28foreign import ccall "gsl_sf_dawson" gsl_sf_dawson :: Double -> Double
diff --git a/lib/Numeric/GSL/Special/Debye.hs b/lib/Numeric/GSL/Special/Debye.hs
index 7221fca..c989a82 100644
--- a/lib/Numeric/GSL/Special/Debye.hs
+++ b/lib/Numeric/GSL/Special/Debye.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Debye 3-- Module : Numeric.GSL.Special.Debye
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_debye.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_debye.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Debye( 15module Numeric.GSL.Special.Debye(
@@ -32,87 +30,39 @@ module Numeric.GSL.Special.Debye(
32import Foreign(Ptr) 30import Foreign(Ptr)
33import Foreign.C.Types(CInt) 31import Foreign.C.Types(CInt)
34import Numeric.GSL.Special.Internal 32import Numeric.GSL.Special.Internal
35
36-- | wrapper for int gsl_sf_debye_1_e(double x,gsl_sf_result* result);
37--
38-- <http://www.google.com/search?q=gsl_sf_debye_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
39debye_1_e :: Double -> (Double,Double) 33debye_1_e :: Double -> (Double,Double)
40debye_1_e x = createSFR "debye_1_e" $ gsl_sf_debye_1_e x 34debye_1_e x = createSFR "debye_1_e" $ gsl_sf_debye_1_e x
41foreign import ccall "gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr () -> IO CInt 35foreign import ccall "gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr () -> IO CInt
42
43-- | wrapper for double gsl_sf_debye_1(double x);
44--
45-- <http://www.google.com/search?q=gsl_sf_debye_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
46debye_1 :: Double -> Double 36debye_1 :: Double -> Double
47debye_1 = gsl_sf_debye_1 37debye_1 = gsl_sf_debye_1
48foreign import ccall "gsl_sf_debye_1" gsl_sf_debye_1 :: Double -> Double 38foreign import ccall "gsl_sf_debye_1" gsl_sf_debye_1 :: Double -> Double
49
50-- | wrapper for int gsl_sf_debye_2_e(double x,gsl_sf_result* result);
51--
52-- <http://www.google.com/search?q=gsl_sf_debye_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
53debye_2_e :: Double -> (Double,Double) 39debye_2_e :: Double -> (Double,Double)
54debye_2_e x = createSFR "debye_2_e" $ gsl_sf_debye_2_e x 40debye_2_e x = createSFR "debye_2_e" $ gsl_sf_debye_2_e x
55foreign import ccall "gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr () -> IO CInt 41foreign import ccall "gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr () -> IO CInt
56
57-- | wrapper for double gsl_sf_debye_2(double x);
58--
59-- <http://www.google.com/search?q=gsl_sf_debye_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
60debye_2 :: Double -> Double 42debye_2 :: Double -> Double
61debye_2 = gsl_sf_debye_2 43debye_2 = gsl_sf_debye_2
62foreign import ccall "gsl_sf_debye_2" gsl_sf_debye_2 :: Double -> Double 44foreign import ccall "gsl_sf_debye_2" gsl_sf_debye_2 :: Double -> Double
63
64-- | wrapper for int gsl_sf_debye_3_e(double x,gsl_sf_result* result);
65--
66-- <http://www.google.com/search?q=gsl_sf_debye_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
67debye_3_e :: Double -> (Double,Double) 45debye_3_e :: Double -> (Double,Double)
68debye_3_e x = createSFR "debye_3_e" $ gsl_sf_debye_3_e x 46debye_3_e x = createSFR "debye_3_e" $ gsl_sf_debye_3_e x
69foreign import ccall "gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr () -> IO CInt 47foreign import ccall "gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr () -> IO CInt
70
71-- | wrapper for double gsl_sf_debye_3(double x);
72--
73-- <http://www.google.com/search?q=gsl_sf_debye_3&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
74debye_3 :: Double -> Double 48debye_3 :: Double -> Double
75debye_3 = gsl_sf_debye_3 49debye_3 = gsl_sf_debye_3
76foreign import ccall "gsl_sf_debye_3" gsl_sf_debye_3 :: Double -> Double 50foreign import ccall "gsl_sf_debye_3" gsl_sf_debye_3 :: Double -> Double
77
78-- | wrapper for int gsl_sf_debye_4_e(double x,gsl_sf_result* result);
79--
80-- <http://www.google.com/search?q=gsl_sf_debye_4_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
81debye_4_e :: Double -> (Double,Double) 51debye_4_e :: Double -> (Double,Double)
82debye_4_e x = createSFR "debye_4_e" $ gsl_sf_debye_4_e x 52debye_4_e x = createSFR "debye_4_e" $ gsl_sf_debye_4_e x
83foreign import ccall "gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr () -> IO CInt 53foreign import ccall "gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr () -> IO CInt
84
85-- | wrapper for double gsl_sf_debye_4(double x);
86--
87-- <http://www.google.com/search?q=gsl_sf_debye_4&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
88debye_4 :: Double -> Double 54debye_4 :: Double -> Double
89debye_4 = gsl_sf_debye_4 55debye_4 = gsl_sf_debye_4
90foreign import ccall "gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double 56foreign import ccall "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) 57debye_5_e :: Double -> (Double,Double)
96debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x 58debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x
97foreign import ccall "gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt 59foreign import ccall "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 60debye_5 :: Double -> Double
103debye_5 = gsl_sf_debye_5 61debye_5 = gsl_sf_debye_5
104foreign import ccall "gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double 62foreign import ccall "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) 63debye_6_e :: Double -> (Double,Double)
110debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x 64debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x
111foreign import ccall "gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt 65foreign import ccall "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 66debye_6 :: Double -> Double
117debye_6 = gsl_sf_debye_6 67debye_6 = gsl_sf_debye_6
118foreign import ccall "gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double 68foreign import ccall "gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double
diff --git a/lib/Numeric/GSL/Special/Dilog.hs b/lib/Numeric/GSL/Special/Dilog.hs
index ac70b8b..35bbdcd 100644
--- a/lib/Numeric/GSL/Special/Dilog.hs
+++ b/lib/Numeric/GSL/Special/Dilog.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Dilog 3-- Module : Numeric.GSL.Special.Dilog
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_dilog.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_dilog.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Dilog( 15module Numeric.GSL.Special.Dilog(
@@ -22,38 +20,18 @@ module Numeric.GSL.Special.Dilog(
22import Foreign(Ptr) 20import Foreign(Ptr)
23import Foreign.C.Types(CInt) 21import Foreign.C.Types(CInt)
24import Numeric.GSL.Special.Internal 22import Numeric.GSL.Special.Internal
25
26-- | wrapper for int gsl_sf_dilog_e(double x,gsl_sf_result* result);
27--
28-- <http://www.google.com/search?q=gsl_sf_dilog_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
29dilog_e :: Double -> (Double,Double) 23dilog_e :: Double -> (Double,Double)
30dilog_e x = createSFR "dilog_e" $ gsl_sf_dilog_e x 24dilog_e x = createSFR "dilog_e" $ gsl_sf_dilog_e x
31foreign import ccall "gsl_sf_dilog_e" gsl_sf_dilog_e :: Double -> Ptr () -> IO CInt 25foreign import ccall "gsl_sf_dilog_e" gsl_sf_dilog_e :: Double -> Ptr () -> IO CInt
32
33-- | wrapper for double gsl_sf_dilog(double x);
34--
35-- <http://www.google.com/search?q=gsl_sf_dilog&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
36dilog :: Double -> Double 26dilog :: Double -> Double
37dilog = gsl_sf_dilog 27dilog = gsl_sf_dilog
38foreign import ccall "gsl_sf_dilog" gsl_sf_dilog :: Double -> Double 28foreign import ccall "gsl_sf_dilog" gsl_sf_dilog :: Double -> Double
39
40-- | wrapper for int gsl_sf_complex_dilog_xy_e(double x,double y,gsl_sf_result* result_re,gsl_sf_result* result_im);
41--
42-- <http://www.google.com/search?q=gsl_sf_complex_dilog_xy_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
43complex_dilog_xy_e :: Double -> Double -> Ptr () -> (Double,Double) 29complex_dilog_xy_e :: Double -> Double -> Ptr () -> (Double,Double)
44complex_dilog_xy_e x y result_re = createSFR "complex_dilog_xy_e" $ gsl_sf_complex_dilog_xy_e x y result_re 30complex_dilog_xy_e x y result_re = createSFR "complex_dilog_xy_e" $ gsl_sf_complex_dilog_xy_e x y result_re
45foreign import ccall "gsl_sf_complex_dilog_xy_e" gsl_sf_complex_dilog_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 31foreign import ccall "gsl_sf_complex_dilog_xy_e" gsl_sf_complex_dilog_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
46
47-- | wrapper for int gsl_sf_complex_dilog_e(double r,double theta,gsl_sf_result* result_re,gsl_sf_result* result_im);
48--
49-- <http://www.google.com/search?q=gsl_sf_complex_dilog_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
50complex_dilog_e :: Double -> Double -> Ptr () -> (Double,Double) 32complex_dilog_e :: Double -> Double -> Ptr () -> (Double,Double)
51complex_dilog_e r theta result_re = createSFR "complex_dilog_e" $ gsl_sf_complex_dilog_e r theta result_re 33complex_dilog_e r theta result_re = createSFR "complex_dilog_e" $ gsl_sf_complex_dilog_e r theta result_re
52foreign import ccall "gsl_sf_complex_dilog_e" gsl_sf_complex_dilog_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 34foreign import ccall "gsl_sf_complex_dilog_e" gsl_sf_complex_dilog_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
53
54-- | wrapper for int gsl_sf_complex_spence_xy_e(double x,double y,gsl_sf_result* real_sp,gsl_sf_result* imag_sp);
55--
56-- <http://www.google.com/search?q=gsl_sf_complex_spence_xy_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
57complex_spence_xy_e :: Double -> Double -> Ptr () -> (Double,Double) 35complex_spence_xy_e :: Double -> Double -> Ptr () -> (Double,Double)
58complex_spence_xy_e x y real_sp = createSFR "complex_spence_xy_e" $ gsl_sf_complex_spence_xy_e x y real_sp 36complex_spence_xy_e x y real_sp = createSFR "complex_spence_xy_e" $ gsl_sf_complex_spence_xy_e x y real_sp
59foreign import ccall "gsl_sf_complex_spence_xy_e" gsl_sf_complex_spence_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 37foreign import ccall "gsl_sf_complex_spence_xy_e" gsl_sf_complex_spence_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
diff --git a/lib/Numeric/GSL/Special/Elementary.hs b/lib/Numeric/GSL/Special/Elementary.hs
index b433a7a..e804c05 100644
--- a/lib/Numeric/GSL/Special/Elementary.hs
+++ b/lib/Numeric/GSL/Special/Elementary.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Elementary 3-- Module : Numeric.GSL.Special.Elementary
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_elementary.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_elementary.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Elementary( 15module Numeric.GSL.Special.Elementary(
@@ -23,24 +21,12 @@ module Numeric.GSL.Special.Elementary(
23import Foreign(Ptr) 21import Foreign(Ptr)
24import Foreign.C.Types(CInt) 22import Foreign.C.Types(CInt)
25import Numeric.GSL.Special.Internal 23import Numeric.GSL.Special.Internal
26
27-- | wrapper for int gsl_sf_multiply_e(double x,double y,gsl_sf_result* result);
28--
29-- <http://www.google.com/search?q=gsl_sf_multiply_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
30multiply_e :: Double -> Double -> (Double,Double) 24multiply_e :: Double -> Double -> (Double,Double)
31multiply_e x y = createSFR "multiply_e" $ gsl_sf_multiply_e x y 25multiply_e x y = createSFR "multiply_e" $ gsl_sf_multiply_e x y
32foreign import ccall "gsl_sf_multiply_e" gsl_sf_multiply_e :: Double -> Double -> Ptr () -> IO CInt 26foreign import ccall "gsl_sf_multiply_e" gsl_sf_multiply_e :: Double -> Double -> Ptr () -> IO CInt
33
34-- | wrapper for double gsl_sf_multiply(double x,double y);
35--
36-- <http://www.google.com/search?q=gsl_sf_multiply&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
37multiply :: Double -> Double -> Double 27multiply :: Double -> Double -> Double
38multiply = gsl_sf_multiply 28multiply = gsl_sf_multiply
39foreign import ccall "gsl_sf_multiply" gsl_sf_multiply :: Double -> Double -> Double 29foreign import ccall "gsl_sf_multiply" gsl_sf_multiply :: Double -> Double -> Double
40
41-- | wrapper for int gsl_sf_multiply_err_e(double x,double dx,double y,double dy,gsl_sf_result* result);
42--
43-- <http://www.google.com/search?q=gsl_sf_multiply_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
44multiply_err_e :: Double -> Double -> Double -> Double -> (Double,Double) 30multiply_err_e :: Double -> Double -> Double -> Double -> (Double,Double)
45multiply_err_e x dx y dy = createSFR "multiply_err_e" $ gsl_sf_multiply_err_e x dx y dy 31multiply_err_e x dx y dy = createSFR "multiply_err_e" $ gsl_sf_multiply_err_e x dx y dy
46foreign import ccall "gsl_sf_multiply_err_e" gsl_sf_multiply_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt 32foreign import ccall "gsl_sf_multiply_err_e" gsl_sf_multiply_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt
diff --git a/lib/Numeric/GSL/Special/Ellint.hs b/lib/Numeric/GSL/Special/Ellint.hs
index b4e84ad..70f6c5d 100644
--- a/lib/Numeric/GSL/Special/Ellint.hs
+++ b/lib/Numeric/GSL/Special/Ellint.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Ellint 3-- Module : Numeric.GSL.Special.Ellint
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_ellint.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_ellint.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Ellint( 15module Numeric.GSL.Special.Ellint(
@@ -44,171 +42,75 @@ module Numeric.GSL.Special.Ellint(
44import Foreign(Ptr) 42import Foreign(Ptr)
45import Foreign.C.Types(CInt) 43import Foreign.C.Types(CInt)
46import Numeric.GSL.Special.Internal 44import Numeric.GSL.Special.Internal
47
48-- | wrapper for int gsl_sf_ellint_Kcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result);
49--
50-- <http://www.google.com/search?q=gsl_sf_ellint_Kcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
51ellint_Kcomp_e :: Double -> Precision -> (Double,Double) 45ellint_Kcomp_e :: Double -> Precision -> (Double,Double)
52ellint_Kcomp_e k mode = createSFR "ellint_Kcomp_e" $ gsl_sf_ellint_Kcomp_e k (precCode mode) 46ellint_Kcomp_e k mode = createSFR "ellint_Kcomp_e" $ gsl_sf_ellint_Kcomp_e k (precCode mode)
53foreign import ccall "gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt 47foreign import ccall "gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
54
55-- | wrapper for double gsl_sf_ellint_Kcomp(double k,gsl_mode_t mode);
56--
57-- <http://www.google.com/search?q=gsl_sf_ellint_Kcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
58ellint_Kcomp :: Double -> Precision -> Double 48ellint_Kcomp :: Double -> Precision -> Double
59ellint_Kcomp k mode = gsl_sf_ellint_Kcomp k (precCode mode) 49ellint_Kcomp k mode = gsl_sf_ellint_Kcomp k (precCode mode)
60foreign import ccall "gsl_sf_ellint_Kcomp" gsl_sf_ellint_Kcomp :: Double -> Gsl_mode_t -> Double 50foreign import ccall "gsl_sf_ellint_Kcomp" gsl_sf_ellint_Kcomp :: Double -> Gsl_mode_t -> Double
61
62-- | wrapper for int gsl_sf_ellint_Ecomp_e(double k,gsl_mode_t mode,gsl_sf_result* result);
63--
64-- <http://www.google.com/search?q=gsl_sf_ellint_Ecomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
65ellint_Ecomp_e :: Double -> Precision -> (Double,Double) 51ellint_Ecomp_e :: Double -> Precision -> (Double,Double)
66ellint_Ecomp_e k mode = createSFR "ellint_Ecomp_e" $ gsl_sf_ellint_Ecomp_e k (precCode mode) 52ellint_Ecomp_e k mode = createSFR "ellint_Ecomp_e" $ gsl_sf_ellint_Ecomp_e k (precCode mode)
67foreign import ccall "gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt 53foreign import ccall "gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
68
69-- | wrapper for double gsl_sf_ellint_Ecomp(double k,gsl_mode_t mode);
70--
71-- <http://www.google.com/search?q=gsl_sf_ellint_Ecomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
72ellint_Ecomp :: Double -> Precision -> Double 54ellint_Ecomp :: Double -> Precision -> Double
73ellint_Ecomp k mode = gsl_sf_ellint_Ecomp k (precCode mode) 55ellint_Ecomp k mode = gsl_sf_ellint_Ecomp k (precCode mode)
74foreign import ccall "gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double 56foreign import ccall "gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double
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) 57ellint_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) 58ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n (precCode mode)
81foreign import ccall "gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt 59foreign import ccall "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 60ellint_Pcomp :: Double -> Double -> Precision -> Double
87ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n (precCode mode) 61ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n (precCode mode)
88foreign import ccall "gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double 62foreign import ccall "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) 63ellint_Dcomp_e :: Double -> Precision -> (Double,Double)
94ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k (precCode mode) 64ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k (precCode mode)
95foreign import ccall "gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt 65foreign import ccall "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 66ellint_Dcomp :: Double -> Precision -> Double
101ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k (precCode mode) 67ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k (precCode mode)
102foreign import ccall "gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double 68foreign import ccall "gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double
103
104-- | wrapper for int gsl_sf_ellint_F_e(double phi,double k,gsl_mode_t mode,gsl_sf_result* result);
105--
106-- <http://www.google.com/search?q=gsl_sf_ellint_F_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
107ellint_F_e :: Double -> Double -> Precision -> (Double,Double) 69ellint_F_e :: Double -> Double -> Precision -> (Double,Double)
108ellint_F_e phi k mode = createSFR "ellint_F_e" $ gsl_sf_ellint_F_e phi k (precCode mode) 70ellint_F_e phi k mode = createSFR "ellint_F_e" $ gsl_sf_ellint_F_e phi k (precCode mode)
109foreign import ccall "gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt 71foreign import ccall "gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
110
111-- | wrapper for double gsl_sf_ellint_F(double phi,double k,gsl_mode_t mode);
112--
113-- <http://www.google.com/search?q=gsl_sf_ellint_F&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
114ellint_F :: Double -> Double -> Precision -> Double 72ellint_F :: Double -> Double -> Precision -> Double
115ellint_F phi k mode = gsl_sf_ellint_F phi k (precCode mode) 73ellint_F phi k mode = gsl_sf_ellint_F phi k (precCode mode)
116foreign import ccall "gsl_sf_ellint_F" gsl_sf_ellint_F :: Double -> Double -> Gsl_mode_t -> Double 74foreign import ccall "gsl_sf_ellint_F" gsl_sf_ellint_F :: Double -> Double -> Gsl_mode_t -> Double
117
118-- | wrapper for int gsl_sf_ellint_E_e(double phi,double k,gsl_mode_t mode,gsl_sf_result* result);
119--
120-- <http://www.google.com/search?q=gsl_sf_ellint_E_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
121ellint_E_e :: Double -> Double -> Precision -> (Double,Double) 75ellint_E_e :: Double -> Double -> Precision -> (Double,Double)
122ellint_E_e phi k mode = createSFR "ellint_E_e" $ gsl_sf_ellint_E_e phi k (precCode mode) 76ellint_E_e phi k mode = createSFR "ellint_E_e" $ gsl_sf_ellint_E_e phi k (precCode mode)
123foreign import ccall "gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt 77foreign import ccall "gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
124
125-- | wrapper for double gsl_sf_ellint_E(double phi,double k,gsl_mode_t mode);
126--
127-- <http://www.google.com/search?q=gsl_sf_ellint_E&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
128ellint_E :: Double -> Double -> Precision -> Double 78ellint_E :: Double -> Double -> Precision -> Double
129ellint_E phi k mode = gsl_sf_ellint_E phi k (precCode mode) 79ellint_E phi k mode = gsl_sf_ellint_E phi k (precCode mode)
130foreign import ccall "gsl_sf_ellint_E" gsl_sf_ellint_E :: Double -> Double -> Gsl_mode_t -> Double 80foreign import ccall "gsl_sf_ellint_E" gsl_sf_ellint_E :: Double -> Double -> Gsl_mode_t -> Double
131
132-- | wrapper for int gsl_sf_ellint_P_e(double phi,double k,double n,gsl_mode_t mode,gsl_sf_result* result);
133--
134-- <http://www.google.com/search?q=gsl_sf_ellint_P_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
135ellint_P_e :: Double -> Double -> Double -> Precision -> (Double,Double) 81ellint_P_e :: Double -> Double -> Double -> Precision -> (Double,Double)
136ellint_P_e phi k n mode = createSFR "ellint_P_e" $ gsl_sf_ellint_P_e phi k n (precCode mode) 82ellint_P_e phi k n mode = createSFR "ellint_P_e" $ gsl_sf_ellint_P_e phi k n (precCode mode)
137foreign import ccall "gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt 83foreign import ccall "gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
138
139-- | wrapper for double gsl_sf_ellint_P(double phi,double k,double n,gsl_mode_t mode);
140--
141-- <http://www.google.com/search?q=gsl_sf_ellint_P&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
142ellint_P :: Double -> Double -> Double -> Precision -> Double 84ellint_P :: Double -> Double -> Double -> Precision -> Double
143ellint_P phi k n mode = gsl_sf_ellint_P phi k n (precCode mode) 85ellint_P phi k n mode = gsl_sf_ellint_P phi k n (precCode mode)
144foreign import ccall "gsl_sf_ellint_P" gsl_sf_ellint_P :: Double -> Double -> Double -> Gsl_mode_t -> Double 86foreign import ccall "gsl_sf_ellint_P" gsl_sf_ellint_P :: Double -> Double -> Double -> Gsl_mode_t -> Double
145
146-- | wrapper for int gsl_sf_ellint_D_e(double phi,double k,double n,gsl_mode_t mode,gsl_sf_result* result);
147--
148-- <http://www.google.com/search?q=gsl_sf_ellint_D_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
149ellint_D_e :: Double -> Double -> Double -> Precision -> (Double,Double) 87ellint_D_e :: Double -> Double -> Double -> Precision -> (Double,Double)
150ellint_D_e phi k n mode = createSFR "ellint_D_e" $ gsl_sf_ellint_D_e phi k n (precCode mode) 88ellint_D_e phi k n mode = createSFR "ellint_D_e" $ gsl_sf_ellint_D_e phi k n (precCode mode)
151foreign import ccall "gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt 89foreign import ccall "gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
152
153-- | wrapper for double gsl_sf_ellint_D(double phi,double k,double n,gsl_mode_t mode);
154--
155-- <http://www.google.com/search?q=gsl_sf_ellint_D&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
156ellint_D :: Double -> Double -> Double -> Precision -> Double 90ellint_D :: Double -> Double -> Double -> Precision -> Double
157ellint_D phi k n mode = gsl_sf_ellint_D phi k n (precCode mode) 91ellint_D phi k n mode = gsl_sf_ellint_D phi k n (precCode mode)
158foreign import ccall "gsl_sf_ellint_D" gsl_sf_ellint_D :: Double -> Double -> Double -> Gsl_mode_t -> Double 92foreign import ccall "gsl_sf_ellint_D" gsl_sf_ellint_D :: Double -> Double -> Double -> Gsl_mode_t -> Double
159
160-- | wrapper for int gsl_sf_ellint_RC_e(double x,double y,gsl_mode_t mode,gsl_sf_result* result);
161--
162-- <http://www.google.com/search?q=gsl_sf_ellint_RC_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
163ellint_RC_e :: Double -> Double -> Precision -> (Double,Double) 93ellint_RC_e :: Double -> Double -> Precision -> (Double,Double)
164ellint_RC_e x y mode = createSFR "ellint_RC_e" $ gsl_sf_ellint_RC_e x y (precCode mode) 94ellint_RC_e x y mode = createSFR "ellint_RC_e" $ gsl_sf_ellint_RC_e x y (precCode mode)
165foreign import ccall "gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt 95foreign import ccall "gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
166
167-- | wrapper for double gsl_sf_ellint_RC(double x,double y,gsl_mode_t mode);
168--
169-- <http://www.google.com/search?q=gsl_sf_ellint_RC&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
170ellint_RC :: Double -> Double -> Precision -> Double 96ellint_RC :: Double -> Double -> Precision -> Double
171ellint_RC x y mode = gsl_sf_ellint_RC x y (precCode mode) 97ellint_RC x y mode = gsl_sf_ellint_RC x y (precCode mode)
172foreign import ccall "gsl_sf_ellint_RC" gsl_sf_ellint_RC :: Double -> Double -> Gsl_mode_t -> Double 98foreign import ccall "gsl_sf_ellint_RC" gsl_sf_ellint_RC :: Double -> Double -> Gsl_mode_t -> Double
173
174-- | wrapper for int gsl_sf_ellint_RD_e(double x,double y,double z,gsl_mode_t mode,gsl_sf_result* result);
175--
176-- <http://www.google.com/search?q=gsl_sf_ellint_RD_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
177ellint_RD_e :: Double -> Double -> Double -> Precision -> (Double,Double) 99ellint_RD_e :: Double -> Double -> Double -> Precision -> (Double,Double)
178ellint_RD_e x y z mode = createSFR "ellint_RD_e" $ gsl_sf_ellint_RD_e x y z (precCode mode) 100ellint_RD_e x y z mode = createSFR "ellint_RD_e" $ gsl_sf_ellint_RD_e x y z (precCode mode)
179foreign import ccall "gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt 101foreign import ccall "gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
180
181-- | wrapper for double gsl_sf_ellint_RD(double x,double y,double z,gsl_mode_t mode);
182--
183-- <http://www.google.com/search?q=gsl_sf_ellint_RD&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
184ellint_RD :: Double -> Double -> Double -> Precision -> Double 102ellint_RD :: Double -> Double -> Double -> Precision -> Double
185ellint_RD x y z mode = gsl_sf_ellint_RD x y z (precCode mode) 103ellint_RD x y z mode = gsl_sf_ellint_RD x y z (precCode mode)
186foreign import ccall "gsl_sf_ellint_RD" gsl_sf_ellint_RD :: Double -> Double -> Double -> Gsl_mode_t -> Double 104foreign import ccall "gsl_sf_ellint_RD" gsl_sf_ellint_RD :: Double -> Double -> Double -> Gsl_mode_t -> Double
187
188-- | wrapper for int gsl_sf_ellint_RF_e(double x,double y,double z,gsl_mode_t mode,gsl_sf_result* result);
189--
190-- <http://www.google.com/search?q=gsl_sf_ellint_RF_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
191ellint_RF_e :: Double -> Double -> Double -> Precision -> (Double,Double) 105ellint_RF_e :: Double -> Double -> Double -> Precision -> (Double,Double)
192ellint_RF_e x y z mode = createSFR "ellint_RF_e" $ gsl_sf_ellint_RF_e x y z (precCode mode) 106ellint_RF_e x y z mode = createSFR "ellint_RF_e" $ gsl_sf_ellint_RF_e x y z (precCode mode)
193foreign import ccall "gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt 107foreign import ccall "gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
194
195-- | wrapper for double gsl_sf_ellint_RF(double x,double y,double z,gsl_mode_t mode);
196--
197-- <http://www.google.com/search?q=gsl_sf_ellint_RF&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
198ellint_RF :: Double -> Double -> Double -> Precision -> Double 108ellint_RF :: Double -> Double -> Double -> Precision -> Double
199ellint_RF x y z mode = gsl_sf_ellint_RF x y z (precCode mode) 109ellint_RF x y z mode = gsl_sf_ellint_RF x y z (precCode mode)
200foreign import ccall "gsl_sf_ellint_RF" gsl_sf_ellint_RF :: Double -> Double -> Double -> Gsl_mode_t -> Double 110foreign import ccall "gsl_sf_ellint_RF" gsl_sf_ellint_RF :: Double -> Double -> Double -> Gsl_mode_t -> Double
201
202-- | wrapper for int gsl_sf_ellint_RJ_e(double x,double y,double z,double p,gsl_mode_t mode,gsl_sf_result* result);
203--
204-- <http://www.google.com/search?q=gsl_sf_ellint_RJ_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
205ellint_RJ_e :: Double -> Double -> Double -> Double -> Precision -> (Double,Double) 111ellint_RJ_e :: Double -> Double -> Double -> Double -> Precision -> (Double,Double)
206ellint_RJ_e x y z p mode = createSFR "ellint_RJ_e" $ gsl_sf_ellint_RJ_e x y z p (precCode mode) 112ellint_RJ_e x y z p mode = createSFR "ellint_RJ_e" $ gsl_sf_ellint_RJ_e x y z p (precCode mode)
207foreign import ccall "gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt 113foreign import ccall "gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
208
209-- | wrapper for double gsl_sf_ellint_RJ(double x,double y,double z,double p,gsl_mode_t mode);
210--
211-- <http://www.google.com/search?q=gsl_sf_ellint_RJ&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
212ellint_RJ :: Double -> Double -> Double -> Double -> Precision -> Double 114ellint_RJ :: Double -> Double -> Double -> Double -> Precision -> Double
213ellint_RJ x y z p mode = gsl_sf_ellint_RJ x y z p (precCode mode) 115ellint_RJ x y z p mode = gsl_sf_ellint_RJ x y z p (precCode mode)
214foreign import ccall "gsl_sf_ellint_RJ" gsl_sf_ellint_RJ :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Double 116foreign import ccall "gsl_sf_ellint_RJ" gsl_sf_ellint_RJ :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Double
diff --git a/lib/Numeric/GSL/Special/Elljac.hs b/lib/Numeric/GSL/Special/Elljac.hs
new file mode 100644
index 0000000..5b32cfe
--- /dev/null
+++ b/lib/Numeric/GSL/Special/Elljac.hs
@@ -0,0 +1,38 @@
1------------------------------------------------------------
2-- |
3-- Module : Numeric.GSL.Special.Elljac
4-- Copyright : (c) Alberto Ruiz 2006
5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional
8-- Portability : uses ffi
9--
10-- Wrappers for selected functions described at:
11--
12-- <http://www.google.com/search?q=gsl_sf_elljac.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13------------------------------------------------------------
14
15module Numeric.GSL.Special.Elljac(
16elljac_e
17) where
18
19import Foreign
20import Foreign.C.Types(CInt)
21
22elljac_e :: Double -> Double -> (Double,Double,Double)
23elljac_e u m = unsafePerformIO $ do
24 psn <- malloc
25 pcn <- malloc
26 pdn <- malloc
27 res <- gsl_sf_elljac_e u m psn pcn pdn
28 sn <- peek psn
29 cn <- peek pcn
30 dn <- peek pdn
31 free psn
32 free pcn
33 free pdn
34 if res == 0 then return (sn,cn,dn)
35 else error $ "error code "++show res++
36 " in elljac_e "++show u++" "++show m
37
38foreign import ccall "gsl_sf_elljac_e" gsl_sf_elljac_e :: Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO CInt
diff --git a/lib/Numeric/GSL/Special/Erf.hs b/lib/Numeric/GSL/Special/Erf.hs
index 6689c1e..5dff3c4 100644
--- a/lib/Numeric/GSL/Special/Erf.hs
+++ b/lib/Numeric/GSL/Special/Erf.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Erf 3-- Module : Numeric.GSL.Special.Erf
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_erf.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_erf.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Erf( 15module Numeric.GSL.Special.Erf(
@@ -32,87 +30,39 @@ module Numeric.GSL.Special.Erf(
32import Foreign(Ptr) 30import Foreign(Ptr)
33import Foreign.C.Types(CInt) 31import Foreign.C.Types(CInt)
34import Numeric.GSL.Special.Internal 32import Numeric.GSL.Special.Internal
35
36-- | wrapper for int gsl_sf_erfc_e(double x,gsl_sf_result* result);
37--
38-- <http://www.google.com/search?q=gsl_sf_erfc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
39erfc_e :: Double -> (Double,Double) 33erfc_e :: Double -> (Double,Double)
40erfc_e x = createSFR "erfc_e" $ gsl_sf_erfc_e x 34erfc_e x = createSFR "erfc_e" $ gsl_sf_erfc_e x
41foreign import ccall "gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr () -> IO CInt 35foreign import ccall "gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr () -> IO CInt
42
43-- | wrapper for double gsl_sf_erfc(double x);
44--
45-- <http://www.google.com/search?q=gsl_sf_erfc&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
46erfc :: Double -> Double 36erfc :: Double -> Double
47erfc = gsl_sf_erfc 37erfc = gsl_sf_erfc
48foreign import ccall "gsl_sf_erfc" gsl_sf_erfc :: Double -> Double 38foreign import ccall "gsl_sf_erfc" gsl_sf_erfc :: Double -> Double
49
50-- | wrapper for int gsl_sf_log_erfc_e(double x,gsl_sf_result* result);
51--
52-- <http://www.google.com/search?q=gsl_sf_log_erfc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
53log_erfc_e :: Double -> (Double,Double) 39log_erfc_e :: Double -> (Double,Double)
54log_erfc_e x = createSFR "log_erfc_e" $ gsl_sf_log_erfc_e x 40log_erfc_e x = createSFR "log_erfc_e" $ gsl_sf_log_erfc_e x
55foreign import ccall "gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr () -> IO CInt 41foreign import ccall "gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr () -> IO CInt
56
57-- | wrapper for double gsl_sf_log_erfc(double x);
58--
59-- <http://www.google.com/search?q=gsl_sf_log_erfc&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
60log_erfc :: Double -> Double 42log_erfc :: Double -> Double
61log_erfc = gsl_sf_log_erfc 43log_erfc = gsl_sf_log_erfc
62foreign import ccall "gsl_sf_log_erfc" gsl_sf_log_erfc :: Double -> Double 44foreign import ccall "gsl_sf_log_erfc" gsl_sf_log_erfc :: Double -> Double
63
64-- | wrapper for int gsl_sf_erf_e(double x,gsl_sf_result* result);
65--
66-- <http://www.google.com/search?q=gsl_sf_erf_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
67erf_e :: Double -> (Double,Double) 45erf_e :: Double -> (Double,Double)
68erf_e x = createSFR "erf_e" $ gsl_sf_erf_e x 46erf_e x = createSFR "erf_e" $ gsl_sf_erf_e x
69foreign import ccall "gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr () -> IO CInt 47foreign import ccall "gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr () -> IO CInt
70
71-- | wrapper for double gsl_sf_erf(double x);
72--
73-- <http://www.google.com/search?q=gsl_sf_erf&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
74erf :: Double -> Double 48erf :: Double -> Double
75erf = gsl_sf_erf 49erf = gsl_sf_erf
76foreign import ccall "gsl_sf_erf" gsl_sf_erf :: Double -> Double 50foreign import ccall "gsl_sf_erf" gsl_sf_erf :: Double -> Double
77
78-- | wrapper for int gsl_sf_erf_Z_e(double x,gsl_sf_result* result);
79--
80-- <http://www.google.com/search?q=gsl_sf_erf_Z_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
81erf_Z_e :: Double -> (Double,Double) 51erf_Z_e :: Double -> (Double,Double)
82erf_Z_e x = createSFR "erf_Z_e" $ gsl_sf_erf_Z_e x 52erf_Z_e x = createSFR "erf_Z_e" $ gsl_sf_erf_Z_e x
83foreign import ccall "gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr () -> IO CInt 53foreign import ccall "gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr () -> IO CInt
84
85-- | wrapper for int gsl_sf_erf_Q_e(double x,gsl_sf_result* result);
86--
87-- <http://www.google.com/search?q=gsl_sf_erf_Q_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
88erf_Q_e :: Double -> (Double,Double) 54erf_Q_e :: Double -> (Double,Double)
89erf_Q_e x = createSFR "erf_Q_e" $ gsl_sf_erf_Q_e x 55erf_Q_e x = createSFR "erf_Q_e" $ gsl_sf_erf_Q_e x
90foreign import ccall "gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr () -> IO CInt 56foreign import ccall "gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr () -> IO CInt
91
92-- | wrapper for double gsl_sf_erf_Z(double x);
93--
94-- <http://www.google.com/search?q=gsl_sf_erf_Z&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
95erf_Z :: Double -> Double 57erf_Z :: Double -> Double
96erf_Z = gsl_sf_erf_Z 58erf_Z = gsl_sf_erf_Z
97foreign import ccall "gsl_sf_erf_Z" gsl_sf_erf_Z :: Double -> Double 59foreign import ccall "gsl_sf_erf_Z" gsl_sf_erf_Z :: Double -> Double
98
99-- | wrapper for double gsl_sf_erf_Q(double x);
100--
101-- <http://www.google.com/search?q=gsl_sf_erf_Q&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
102erf_Q :: Double -> Double 60erf_Q :: Double -> Double
103erf_Q = gsl_sf_erf_Q 61erf_Q = gsl_sf_erf_Q
104foreign import ccall "gsl_sf_erf_Q" gsl_sf_erf_Q :: Double -> Double 62foreign import ccall "gsl_sf_erf_Q" gsl_sf_erf_Q :: Double -> Double
105
106-- | wrapper for int gsl_sf_hazard_e(double x,gsl_sf_result* result);
107--
108-- <http://www.google.com/search?q=gsl_sf_hazard_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
109hazard_e :: Double -> (Double,Double) 63hazard_e :: Double -> (Double,Double)
110hazard_e x = createSFR "hazard_e" $ gsl_sf_hazard_e x 64hazard_e x = createSFR "hazard_e" $ gsl_sf_hazard_e x
111foreign import ccall "gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr () -> IO CInt 65foreign import ccall "gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr () -> IO CInt
112
113-- | wrapper for double gsl_sf_hazard(double x);
114--
115-- <http://www.google.com/search?q=gsl_sf_hazard&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
116hazard :: Double -> Double 66hazard :: Double -> Double
117hazard = gsl_sf_hazard 67hazard = gsl_sf_hazard
118foreign import ccall "gsl_sf_hazard" gsl_sf_hazard :: Double -> Double 68foreign import ccall "gsl_sf_hazard" gsl_sf_hazard :: Double -> Double
diff --git a/lib/Numeric/GSL/Special/Exp.hs b/lib/Numeric/GSL/Special/Exp.hs
index da7bff1..fa3a15e 100644
--- a/lib/Numeric/GSL/Special/Exp.hs
+++ b/lib/Numeric/GSL/Special/Exp.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Exp 3-- Module : Numeric.GSL.Special.Exp
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_exp.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_exp.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Exp( 15module Numeric.GSL.Special.Exp(
@@ -39,136 +37,60 @@ module Numeric.GSL.Special.Exp(
39import Foreign(Ptr) 37import Foreign(Ptr)
40import Foreign.C.Types(CInt) 38import Foreign.C.Types(CInt)
41import Numeric.GSL.Special.Internal 39import Numeric.GSL.Special.Internal
42
43-- | wrapper for int gsl_sf_exp_e(double x,gsl_sf_result* result);
44--
45-- <http://www.google.com/search?q=gsl_sf_exp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
46exp_e :: Double -> (Double,Double) 40exp_e :: Double -> (Double,Double)
47exp_e x = createSFR "exp_e" $ gsl_sf_exp_e x 41exp_e x = createSFR "exp_e" $ gsl_sf_exp_e x
48foreign import ccall "gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr () -> IO CInt 42foreign import ccall "gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr () -> IO CInt
49
50-- | wrapper for double gsl_sf_exp(double x);
51--
52-- <http://www.google.com/search?q=gsl_sf_exp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
53exp :: Double -> Double 43exp :: Double -> Double
54exp = gsl_sf_exp 44exp = gsl_sf_exp
55foreign import ccall "gsl_sf_exp" gsl_sf_exp :: Double -> Double 45foreign import ccall "gsl_sf_exp" gsl_sf_exp :: Double -> Double
56
57-- | wrapper for int gsl_sf_exp_e10_e(double x,gsl_sf_result_e10* result);
58--
59-- <http://www.google.com/search?q=gsl_sf_exp_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
60exp_e10_e :: Double -> (Double,Int,Double) 46exp_e10_e :: Double -> (Double,Int,Double)
61exp_e10_e x = createSFR_E10 "exp_e10_e" $ gsl_sf_exp_e10_e x 47exp_e10_e x = createSFR_E10 "exp_e10_e" $ gsl_sf_exp_e10_e x
62foreign import ccall "gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO CInt 48foreign import ccall "gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO CInt
63
64-- | wrapper for int gsl_sf_exp_mult_e(double x,double y,gsl_sf_result* result);
65--
66-- <http://www.google.com/search?q=gsl_sf_exp_mult_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
67exp_mult_e :: Double -> Double -> (Double,Double) 49exp_mult_e :: Double -> Double -> (Double,Double)
68exp_mult_e x y = createSFR "exp_mult_e" $ gsl_sf_exp_mult_e x y 50exp_mult_e x y = createSFR "exp_mult_e" $ gsl_sf_exp_mult_e x y
69foreign import ccall "gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr () -> IO CInt 51foreign import ccall "gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr () -> IO CInt
70
71-- | wrapper for double gsl_sf_exp_mult(double x,double y);
72--
73-- <http://www.google.com/search?q=gsl_sf_exp_mult&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
74exp_mult :: Double -> Double -> Double 52exp_mult :: Double -> Double -> Double
75exp_mult = gsl_sf_exp_mult 53exp_mult = gsl_sf_exp_mult
76foreign import ccall "gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double 54foreign import ccall "gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double
77
78-- | wrapper for int gsl_sf_exp_mult_e10_e(double x,double y,gsl_sf_result_e10* result);
79--
80-- <http://www.google.com/search?q=gsl_sf_exp_mult_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
81exp_mult_e10_e :: Double -> Double -> (Double,Int,Double) 55exp_mult_e10_e :: Double -> Double -> (Double,Int,Double)
82exp_mult_e10_e x y = createSFR_E10 "exp_mult_e10_e" $ gsl_sf_exp_mult_e10_e x y 56exp_mult_e10_e x y = createSFR_E10 "exp_mult_e10_e" $ gsl_sf_exp_mult_e10_e x y
83foreign import ccall "gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO CInt 57foreign import ccall "gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO CInt
84
85-- | wrapper for int gsl_sf_expm1_e(double x,gsl_sf_result* result);
86--
87-- <http://www.google.com/search?q=gsl_sf_expm1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
88expm1_e :: Double -> (Double,Double) 58expm1_e :: Double -> (Double,Double)
89expm1_e x = createSFR "expm1_e" $ gsl_sf_expm1_e x 59expm1_e x = createSFR "expm1_e" $ gsl_sf_expm1_e x
90foreign import ccall "gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr () -> IO CInt 60foreign import ccall "gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr () -> IO CInt
91
92-- | wrapper for double gsl_sf_expm1(double x);
93--
94-- <http://www.google.com/search?q=gsl_sf_expm1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
95expm1 :: Double -> Double 61expm1 :: Double -> Double
96expm1 = gsl_sf_expm1 62expm1 = gsl_sf_expm1
97foreign import ccall "gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double 63foreign import ccall "gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double
98
99-- | wrapper for int gsl_sf_exprel_e(double x,gsl_sf_result* result);
100--
101-- <http://www.google.com/search?q=gsl_sf_exprel_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
102exprel_e :: Double -> (Double,Double) 64exprel_e :: Double -> (Double,Double)
103exprel_e x = createSFR "exprel_e" $ gsl_sf_exprel_e x 65exprel_e x = createSFR "exprel_e" $ gsl_sf_exprel_e x
104foreign import ccall "gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr () -> IO CInt 66foreign import ccall "gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr () -> IO CInt
105
106-- | wrapper for double gsl_sf_exprel(double x);
107--
108-- <http://www.google.com/search?q=gsl_sf_exprel&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
109exprel :: Double -> Double 67exprel :: Double -> Double
110exprel = gsl_sf_exprel 68exprel = gsl_sf_exprel
111foreign import ccall "gsl_sf_exprel" gsl_sf_exprel :: Double -> Double 69foreign import ccall "gsl_sf_exprel" gsl_sf_exprel :: Double -> Double
112
113-- | wrapper for int gsl_sf_exprel_2_e(double x,gsl_sf_result* result);
114--
115-- <http://www.google.com/search?q=gsl_sf_exprel_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
116exprel_2_e :: Double -> (Double,Double) 70exprel_2_e :: Double -> (Double,Double)
117exprel_2_e x = createSFR "exprel_2_e" $ gsl_sf_exprel_2_e x 71exprel_2_e x = createSFR "exprel_2_e" $ gsl_sf_exprel_2_e x
118foreign import ccall "gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr () -> IO CInt 72foreign import ccall "gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr () -> IO CInt
119
120-- | wrapper for double gsl_sf_exprel_2(double x);
121--
122-- <http://www.google.com/search?q=gsl_sf_exprel_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
123exprel_2 :: Double -> Double 73exprel_2 :: Double -> Double
124exprel_2 = gsl_sf_exprel_2 74exprel_2 = gsl_sf_exprel_2
125foreign import ccall "gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double 75foreign import ccall "gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double
126
127-- | wrapper for int gsl_sf_exprel_n_e(int n,double x,gsl_sf_result* result);
128--
129-- <http://www.google.com/search?q=gsl_sf_exprel_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
130exprel_n_e :: CInt -> Double -> (Double,Double) 76exprel_n_e :: CInt -> Double -> (Double,Double)
131exprel_n_e n x = createSFR "exprel_n_e" $ gsl_sf_exprel_n_e n x 77exprel_n_e n x = createSFR "exprel_n_e" $ gsl_sf_exprel_n_e n x
132foreign import ccall "gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: CInt -> Double -> Ptr () -> IO CInt 78foreign import ccall "gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: CInt -> Double -> Ptr () -> IO CInt
133
134-- | wrapper for double gsl_sf_exprel_n(int n,double x);
135--
136-- <http://www.google.com/search?q=gsl_sf_exprel_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
137exprel_n :: CInt -> Double -> Double 79exprel_n :: CInt -> Double -> Double
138exprel_n = gsl_sf_exprel_n 80exprel_n = gsl_sf_exprel_n
139foreign import ccall "gsl_sf_exprel_n" gsl_sf_exprel_n :: CInt -> Double -> Double 81foreign import ccall "gsl_sf_exprel_n" gsl_sf_exprel_n :: CInt -> Double -> Double
140
141-- | wrapper for int gsl_sf_exprel_n_CF_e(double n,double x,gsl_sf_result* result);
142--
143-- <http://www.google.com/search?q=gsl_sf_exprel_n_CF_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
144exprel_n_CF_e :: Double -> Double -> (Double,Double) 82exprel_n_CF_e :: Double -> Double -> (Double,Double)
145exprel_n_CF_e n x = createSFR "exprel_n_CF_e" $ gsl_sf_exprel_n_CF_e n x 83exprel_n_CF_e n x = createSFR "exprel_n_CF_e" $ gsl_sf_exprel_n_CF_e n x
146foreign import ccall "gsl_sf_exprel_n_CF_e" gsl_sf_exprel_n_CF_e :: Double -> Double -> Ptr () -> IO CInt 84foreign import ccall "gsl_sf_exprel_n_CF_e" gsl_sf_exprel_n_CF_e :: Double -> Double -> Ptr () -> IO CInt
147
148-- | wrapper for int gsl_sf_exp_err_e(double x,double dx,gsl_sf_result* result);
149--
150-- <http://www.google.com/search?q=gsl_sf_exp_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
151exp_err_e :: Double -> Double -> (Double,Double) 85exp_err_e :: Double -> Double -> (Double,Double)
152exp_err_e x dx = createSFR "exp_err_e" $ gsl_sf_exp_err_e x dx 86exp_err_e x dx = createSFR "exp_err_e" $ gsl_sf_exp_err_e x dx
153foreign import ccall "gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr () -> IO CInt 87foreign import ccall "gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr () -> IO CInt
154
155-- | wrapper for int gsl_sf_exp_err_e10_e(double x,double dx,gsl_sf_result_e10* result);
156--
157-- <http://www.google.com/search?q=gsl_sf_exp_err_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
158exp_err_e10_e :: Double -> Double -> (Double,Int,Double) 88exp_err_e10_e :: Double -> Double -> (Double,Int,Double)
159exp_err_e10_e x dx = createSFR_E10 "exp_err_e10_e" $ gsl_sf_exp_err_e10_e x dx 89exp_err_e10_e x dx = createSFR_E10 "exp_err_e10_e" $ gsl_sf_exp_err_e10_e x dx
160foreign import ccall "gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO CInt 90foreign import ccall "gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO CInt
161
162-- | wrapper for int gsl_sf_exp_mult_err_e(double x,double dx,double y,double dy,gsl_sf_result* result);
163--
164-- <http://www.google.com/search?q=gsl_sf_exp_mult_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
165exp_mult_err_e :: Double -> Double -> Double -> Double -> (Double,Double) 91exp_mult_err_e :: Double -> Double -> Double -> Double -> (Double,Double)
166exp_mult_err_e x dx y dy = createSFR "exp_mult_err_e" $ gsl_sf_exp_mult_err_e x dx y dy 92exp_mult_err_e x dx y dy = createSFR "exp_mult_err_e" $ gsl_sf_exp_mult_err_e x dx y dy
167foreign import ccall "gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt 93foreign import ccall "gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt
168
169-- | wrapper for int gsl_sf_exp_mult_err_e10_e(double x,double dx,double y,double dy,gsl_sf_result_e10* result);
170--
171-- <http://www.google.com/search?q=gsl_sf_exp_mult_err_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
172exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> (Double,Int,Double) 94exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> (Double,Int,Double)
173exp_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 95exp_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
174foreign import ccall "gsl_sf_exp_mult_err_e10_e" gsl_sf_exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt 96foreign import ccall "gsl_sf_exp_mult_err_e10_e" gsl_sf_exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt
diff --git a/lib/Numeric/GSL/Special/Expint.hs b/lib/Numeric/GSL/Special/Expint.hs
index c70d28a..7b8336b 100644
--- a/lib/Numeric/GSL/Special/Expint.hs
+++ b/lib/Numeric/GSL/Special/Expint.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Expint 3-- Module : Numeric.GSL.Special.Expint
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_expint.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_expint.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Expint( 15module Numeric.GSL.Special.Expint(
@@ -48,199 +46,87 @@ module Numeric.GSL.Special.Expint(
48import Foreign(Ptr) 46import Foreign(Ptr)
49import Foreign.C.Types(CInt) 47import Foreign.C.Types(CInt)
50import Numeric.GSL.Special.Internal 48import Numeric.GSL.Special.Internal
51
52-- | wrapper for int gsl_sf_expint_E1_e(double x,gsl_sf_result* result);
53--
54-- <http://www.google.com/search?q=gsl_sf_expint_E1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
55expint_E1_e :: Double -> (Double,Double) 49expint_E1_e :: Double -> (Double,Double)
56expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x 50expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x
57foreign import ccall "gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt 51foreign import ccall "gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt
58
59-- | wrapper for double gsl_sf_expint_E1(double x);
60--
61-- <http://www.google.com/search?q=gsl_sf_expint_E1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
62expint_E1 :: Double -> Double 52expint_E1 :: Double -> Double
63expint_E1 = gsl_sf_expint_E1 53expint_E1 = gsl_sf_expint_E1
64foreign import ccall "gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double 54foreign import ccall "gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double
65
66-- | wrapper for int gsl_sf_expint_E2_e(double x,gsl_sf_result* result);
67--
68-- <http://www.google.com/search?q=gsl_sf_expint_E2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
69expint_E2_e :: Double -> (Double,Double) 55expint_E2_e :: Double -> (Double,Double)
70expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x 56expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x
71foreign import ccall "gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt 57foreign import ccall "gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt
72
73-- | wrapper for double gsl_sf_expint_E2(double x);
74--
75-- <http://www.google.com/search?q=gsl_sf_expint_E2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
76expint_E2 :: Double -> Double 58expint_E2 :: Double -> Double
77expint_E2 = gsl_sf_expint_E2 59expint_E2 = gsl_sf_expint_E2
78foreign import ccall "gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double 60foreign import ccall "gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double
79
80-- | wrapper for int gsl_sf_expint_En_e(int n,double x,gsl_sf_result* result);
81--
82-- <http://www.google.com/search?q=gsl_sf_expint_En_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
83expint_En_e :: CInt -> Double -> (Double,Double) 61expint_En_e :: CInt -> Double -> (Double,Double)
84expint_En_e n x = createSFR "expint_En_e" $ gsl_sf_expint_En_e n x 62expint_En_e n x = createSFR "expint_En_e" $ gsl_sf_expint_En_e n x
85foreign import ccall "gsl_sf_expint_En_e" gsl_sf_expint_En_e :: CInt -> Double -> Ptr () -> IO CInt 63foreign import ccall "gsl_sf_expint_En_e" gsl_sf_expint_En_e :: CInt -> Double -> Ptr () -> IO CInt
86
87-- | wrapper for double gsl_sf_expint_En(int n,double x);
88--
89-- <http://www.google.com/search?q=gsl_sf_expint_En&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
90expint_En :: CInt -> Double -> Double 64expint_En :: CInt -> Double -> Double
91expint_En = gsl_sf_expint_En 65expint_En = gsl_sf_expint_En
92foreign import ccall "gsl_sf_expint_En" gsl_sf_expint_En :: CInt -> Double -> Double 66foreign import ccall "gsl_sf_expint_En" gsl_sf_expint_En :: CInt -> Double -> Double
93
94-- | wrapper for int gsl_sf_expint_E1_scaled_e(double x,gsl_sf_result* result);
95--
96-- <http://www.google.com/search?q=gsl_sf_expint_E1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
97expint_E1_scaled_e :: Double -> (Double,Double) 67expint_E1_scaled_e :: Double -> (Double,Double)
98expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x 68expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x
99foreign import ccall "gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt 69foreign import ccall "gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt
100
101-- | wrapper for double gsl_sf_expint_E1_scaled(double x);
102--
103-- <http://www.google.com/search?q=gsl_sf_expint_E1_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
104expint_E1_scaled :: Double -> Double 70expint_E1_scaled :: Double -> Double
105expint_E1_scaled = gsl_sf_expint_E1_scaled 71expint_E1_scaled = gsl_sf_expint_E1_scaled
106foreign import ccall "gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double 72foreign import ccall "gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double
107
108-- | wrapper for int gsl_sf_expint_E2_scaled_e(double x,gsl_sf_result* result);
109--
110-- <http://www.google.com/search?q=gsl_sf_expint_E2_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
111expint_E2_scaled_e :: Double -> (Double,Double) 73expint_E2_scaled_e :: Double -> (Double,Double)
112expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x 74expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x
113foreign import ccall "gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt 75foreign import ccall "gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt
114
115-- | wrapper for double gsl_sf_expint_E2_scaled(double x);
116--
117-- <http://www.google.com/search?q=gsl_sf_expint_E2_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
118expint_E2_scaled :: Double -> Double 76expint_E2_scaled :: Double -> Double
119expint_E2_scaled = gsl_sf_expint_E2_scaled 77expint_E2_scaled = gsl_sf_expint_E2_scaled
120foreign import ccall "gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double 78foreign import ccall "gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double
121
122-- | wrapper for int gsl_sf_expint_En_scaled_e(int n,double x,gsl_sf_result* result);
123--
124-- <http://www.google.com/search?q=gsl_sf_expint_En_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
125expint_En_scaled_e :: CInt -> Double -> (Double,Double) 79expint_En_scaled_e :: CInt -> Double -> (Double,Double)
126expint_En_scaled_e n x = createSFR "expint_En_scaled_e" $ gsl_sf_expint_En_scaled_e n x 80expint_En_scaled_e n x = createSFR "expint_En_scaled_e" $ gsl_sf_expint_En_scaled_e n x
127foreign import ccall "gsl_sf_expint_En_scaled_e" gsl_sf_expint_En_scaled_e :: CInt -> Double -> Ptr () -> IO CInt 81foreign import ccall "gsl_sf_expint_En_scaled_e" gsl_sf_expint_En_scaled_e :: CInt -> Double -> Ptr () -> IO CInt
128
129-- | wrapper for double gsl_sf_expint_En_scaled(int n,double x);
130--
131-- <http://www.google.com/search?q=gsl_sf_expint_En_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
132expint_En_scaled :: CInt -> Double -> Double 82expint_En_scaled :: CInt -> Double -> Double
133expint_En_scaled = gsl_sf_expint_En_scaled 83expint_En_scaled = gsl_sf_expint_En_scaled
134foreign import ccall "gsl_sf_expint_En_scaled" gsl_sf_expint_En_scaled :: CInt -> Double -> Double 84foreign import ccall "gsl_sf_expint_En_scaled" gsl_sf_expint_En_scaled :: CInt -> Double -> Double
135
136-- | wrapper for int gsl_sf_expint_Ei_e(double x,gsl_sf_result* result);
137--
138-- <http://www.google.com/search?q=gsl_sf_expint_Ei_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
139expint_Ei_e :: Double -> (Double,Double) 85expint_Ei_e :: Double -> (Double,Double)
140expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x 86expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x
141foreign import ccall "gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt 87foreign import ccall "gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt
142
143-- | wrapper for double gsl_sf_expint_Ei(double x);
144--
145-- <http://www.google.com/search?q=gsl_sf_expint_Ei&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
146expint_Ei :: Double -> Double 88expint_Ei :: Double -> Double
147expint_Ei = gsl_sf_expint_Ei 89expint_Ei = gsl_sf_expint_Ei
148foreign import ccall "gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double 90foreign import ccall "gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double
149
150-- | wrapper for int gsl_sf_expint_Ei_scaled_e(double x,gsl_sf_result* result);
151--
152-- <http://www.google.com/search?q=gsl_sf_expint_Ei_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
153expint_Ei_scaled_e :: Double -> (Double,Double) 91expint_Ei_scaled_e :: Double -> (Double,Double)
154expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x 92expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x
155foreign import ccall "gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt 93foreign import ccall "gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt
156
157-- | wrapper for double gsl_sf_expint_Ei_scaled(double x);
158--
159-- <http://www.google.com/search?q=gsl_sf_expint_Ei_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
160expint_Ei_scaled :: Double -> Double 94expint_Ei_scaled :: Double -> Double
161expint_Ei_scaled = gsl_sf_expint_Ei_scaled 95expint_Ei_scaled = gsl_sf_expint_Ei_scaled
162foreign import ccall "gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double 96foreign import ccall "gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double
163
164-- | wrapper for int gsl_sf_Shi_e(double x,gsl_sf_result* result);
165--
166-- <http://www.google.com/search?q=gsl_sf_Shi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
167shi_e :: Double -> (Double,Double) 97shi_e :: Double -> (Double,Double)
168shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x 98shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x
169foreign import ccall "gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt 99foreign import ccall "gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt
170
171-- | wrapper for double gsl_sf_Shi(double x);
172--
173-- <http://www.google.com/search?q=gsl_sf_Shi&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
174shi :: Double -> Double 100shi :: Double -> Double
175shi = gsl_sf_Shi 101shi = gsl_sf_Shi
176foreign import ccall "gsl_sf_Shi" gsl_sf_Shi :: Double -> Double 102foreign import ccall "gsl_sf_Shi" gsl_sf_Shi :: Double -> Double
177
178-- | wrapper for int gsl_sf_Chi_e(double x,gsl_sf_result* result);
179--
180-- <http://www.google.com/search?q=gsl_sf_Chi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
181chi_e :: Double -> (Double,Double) 103chi_e :: Double -> (Double,Double)
182chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x 104chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x
183foreign import ccall "gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt 105foreign import ccall "gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt
184
185-- | wrapper for double gsl_sf_Chi(double x);
186--
187-- <http://www.google.com/search?q=gsl_sf_Chi&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
188chi :: Double -> Double 106chi :: Double -> Double
189chi = gsl_sf_Chi 107chi = gsl_sf_Chi
190foreign import ccall "gsl_sf_Chi" gsl_sf_Chi :: Double -> Double 108foreign import ccall "gsl_sf_Chi" gsl_sf_Chi :: Double -> Double
191
192-- | wrapper for int gsl_sf_expint_3_e(double x,gsl_sf_result* result);
193--
194-- <http://www.google.com/search?q=gsl_sf_expint_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
195expint_3_e :: Double -> (Double,Double) 109expint_3_e :: Double -> (Double,Double)
196expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x 110expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x
197foreign import ccall "gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt 111foreign import ccall "gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt
198
199-- | wrapper for double gsl_sf_expint_3(double x);
200--
201-- <http://www.google.com/search?q=gsl_sf_expint_3&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
202expint_3 :: Double -> Double 112expint_3 :: Double -> Double
203expint_3 = gsl_sf_expint_3 113expint_3 = gsl_sf_expint_3
204foreign import ccall "gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double 114foreign import ccall "gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double
205
206-- | wrapper for int gsl_sf_Si_e(double x,gsl_sf_result* result);
207--
208-- <http://www.google.com/search?q=gsl_sf_Si_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
209si_e :: Double -> (Double,Double) 115si_e :: Double -> (Double,Double)
210si_e x = createSFR "si_e" $ gsl_sf_Si_e x 116si_e x = createSFR "si_e" $ gsl_sf_Si_e x
211foreign import ccall "gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt 117foreign import ccall "gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt
212
213-- | wrapper for double gsl_sf_Si(double x);
214--
215-- <http://www.google.com/search?q=gsl_sf_Si&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
216si :: Double -> Double 118si :: Double -> Double
217si = gsl_sf_Si 119si = gsl_sf_Si
218foreign import ccall "gsl_sf_Si" gsl_sf_Si :: Double -> Double 120foreign import ccall "gsl_sf_Si" gsl_sf_Si :: Double -> Double
219
220-- | wrapper for int gsl_sf_Ci_e(double x,gsl_sf_result* result);
221--
222-- <http://www.google.com/search?q=gsl_sf_Ci_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
223ci_e :: Double -> (Double,Double) 121ci_e :: Double -> (Double,Double)
224ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x 122ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x
225foreign import ccall "gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt 123foreign import ccall "gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt
226
227-- | wrapper for double gsl_sf_Ci(double x);
228--
229-- <http://www.google.com/search?q=gsl_sf_Ci&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
230ci :: Double -> Double 124ci :: Double -> Double
231ci = gsl_sf_Ci 125ci = gsl_sf_Ci
232foreign import ccall "gsl_sf_Ci" gsl_sf_Ci :: Double -> Double 126foreign import ccall "gsl_sf_Ci" gsl_sf_Ci :: Double -> Double
233
234-- | wrapper for int gsl_sf_atanint_e(double x,gsl_sf_result* result);
235--
236-- <http://www.google.com/search?q=gsl_sf_atanint_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
237atanint_e :: Double -> (Double,Double) 127atanint_e :: Double -> (Double,Double)
238atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x 128atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x
239foreign import ccall "gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt 129foreign import ccall "gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt
240
241-- | wrapper for double gsl_sf_atanint(double x);
242--
243-- <http://www.google.com/search?q=gsl_sf_atanint&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
244atanint :: Double -> Double 130atanint :: Double -> Double
245atanint = gsl_sf_atanint 131atanint = gsl_sf_atanint
246foreign import ccall "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double 132foreign import ccall "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double
diff --git a/lib/Numeric/GSL/Special/Fermi_dirac.hs b/lib/Numeric/GSL/Special/Fermi_dirac.hs
index d59fce1..3547e52 100644
--- a/lib/Numeric/GSL/Special/Fermi_dirac.hs
+++ b/lib/Numeric/GSL/Special/Fermi_dirac.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Fermi_dirac 3-- Module : Numeric.GSL.Special.Fermi_dirac
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_fermi_dirac.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_fermi_dirac.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Fermi_dirac( 15module Numeric.GSL.Special.Fermi_dirac(
@@ -38,129 +36,57 @@ module Numeric.GSL.Special.Fermi_dirac(
38import Foreign(Ptr) 36import Foreign(Ptr)
39import Foreign.C.Types(CInt) 37import Foreign.C.Types(CInt)
40import Numeric.GSL.Special.Internal 38import Numeric.GSL.Special.Internal
41
42-- | wrapper for int gsl_sf_fermi_dirac_m1_e(double x,gsl_sf_result* result);
43--
44-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_m1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
45fermi_dirac_m1_e :: Double -> (Double,Double) 39fermi_dirac_m1_e :: Double -> (Double,Double)
46fermi_dirac_m1_e x = createSFR "fermi_dirac_m1_e" $ gsl_sf_fermi_dirac_m1_e x 40fermi_dirac_m1_e x = createSFR "fermi_dirac_m1_e" $ gsl_sf_fermi_dirac_m1_e x
47foreign import ccall "gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr () -> IO CInt 41foreign import ccall "gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr () -> IO CInt
48
49-- | wrapper for double gsl_sf_fermi_dirac_m1(double x);
50--
51-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_m1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
52fermi_dirac_m1 :: Double -> Double 42fermi_dirac_m1 :: Double -> Double
53fermi_dirac_m1 = gsl_sf_fermi_dirac_m1 43fermi_dirac_m1 = gsl_sf_fermi_dirac_m1
54foreign import ccall "gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1 :: Double -> Double 44foreign import ccall "gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1 :: Double -> Double
55
56-- | wrapper for int gsl_sf_fermi_dirac_0_e(double x,gsl_sf_result* result);
57--
58-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
59fermi_dirac_0_e :: Double -> (Double,Double) 45fermi_dirac_0_e :: Double -> (Double,Double)
60fermi_dirac_0_e x = createSFR "fermi_dirac_0_e" $ gsl_sf_fermi_dirac_0_e x 46fermi_dirac_0_e x = createSFR "fermi_dirac_0_e" $ gsl_sf_fermi_dirac_0_e x
61foreign import ccall "gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr () -> IO CInt 47foreign import ccall "gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr () -> IO CInt
62
63-- | wrapper for double gsl_sf_fermi_dirac_0(double x);
64--
65-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
66fermi_dirac_0 :: Double -> Double 48fermi_dirac_0 :: Double -> Double
67fermi_dirac_0 = gsl_sf_fermi_dirac_0 49fermi_dirac_0 = gsl_sf_fermi_dirac_0
68foreign import ccall "gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 :: Double -> Double 50foreign import ccall "gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 :: Double -> Double
69
70-- | wrapper for int gsl_sf_fermi_dirac_1_e(double x,gsl_sf_result* result);
71--
72-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
73fermi_dirac_1_e :: Double -> (Double,Double) 51fermi_dirac_1_e :: Double -> (Double,Double)
74fermi_dirac_1_e x = createSFR "fermi_dirac_1_e" $ gsl_sf_fermi_dirac_1_e x 52fermi_dirac_1_e x = createSFR "fermi_dirac_1_e" $ gsl_sf_fermi_dirac_1_e x
75foreign import ccall "gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr () -> IO CInt 53foreign import ccall "gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr () -> IO CInt
76
77-- | wrapper for double gsl_sf_fermi_dirac_1(double x);
78--
79-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
80fermi_dirac_1 :: Double -> Double 54fermi_dirac_1 :: Double -> Double
81fermi_dirac_1 = gsl_sf_fermi_dirac_1 55fermi_dirac_1 = gsl_sf_fermi_dirac_1
82foreign import ccall "gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 :: Double -> Double 56foreign import ccall "gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 :: Double -> Double
83
84-- | wrapper for int gsl_sf_fermi_dirac_2_e(double x,gsl_sf_result* result);
85--
86-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
87fermi_dirac_2_e :: Double -> (Double,Double) 57fermi_dirac_2_e :: Double -> (Double,Double)
88fermi_dirac_2_e x = createSFR "fermi_dirac_2_e" $ gsl_sf_fermi_dirac_2_e x 58fermi_dirac_2_e x = createSFR "fermi_dirac_2_e" $ gsl_sf_fermi_dirac_2_e x
89foreign import ccall "gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr () -> IO CInt 59foreign import ccall "gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr () -> IO CInt
90
91-- | wrapper for double gsl_sf_fermi_dirac_2(double x);
92--
93-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
94fermi_dirac_2 :: Double -> Double 60fermi_dirac_2 :: Double -> Double
95fermi_dirac_2 = gsl_sf_fermi_dirac_2 61fermi_dirac_2 = gsl_sf_fermi_dirac_2
96foreign import ccall "gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 :: Double -> Double 62foreign import ccall "gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 :: Double -> Double
97
98-- | wrapper for int gsl_sf_fermi_dirac_int_e(int j,double x,gsl_sf_result* result);
99--
100-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
101fermi_dirac_int_e :: CInt -> Double -> (Double,Double) 63fermi_dirac_int_e :: CInt -> Double -> (Double,Double)
102fermi_dirac_int_e j x = createSFR "fermi_dirac_int_e" $ gsl_sf_fermi_dirac_int_e j x 64fermi_dirac_int_e j x = createSFR "fermi_dirac_int_e" $ gsl_sf_fermi_dirac_int_e j x
103foreign import ccall "gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: CInt -> Double -> Ptr () -> IO CInt 65foreign import ccall "gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: CInt -> Double -> Ptr () -> IO CInt
104
105-- | wrapper for double gsl_sf_fermi_dirac_int(int j,double x);
106--
107-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
108fermi_dirac_int :: CInt -> Double -> Double 66fermi_dirac_int :: CInt -> Double -> Double
109fermi_dirac_int = gsl_sf_fermi_dirac_int 67fermi_dirac_int = gsl_sf_fermi_dirac_int
110foreign import ccall "gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: CInt -> Double -> Double 68foreign import ccall "gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: CInt -> Double -> Double
111
112-- | wrapper for int gsl_sf_fermi_dirac_mhalf_e(double x,gsl_sf_result* result);
113--
114-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_mhalf_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
115fermi_dirac_mhalf_e :: Double -> (Double,Double) 69fermi_dirac_mhalf_e :: Double -> (Double,Double)
116fermi_dirac_mhalf_e x = createSFR "fermi_dirac_mhalf_e" $ gsl_sf_fermi_dirac_mhalf_e x 70fermi_dirac_mhalf_e x = createSFR "fermi_dirac_mhalf_e" $ gsl_sf_fermi_dirac_mhalf_e x
117foreign import ccall "gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr () -> IO CInt 71foreign import ccall "gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr () -> IO CInt
118
119-- | wrapper for double gsl_sf_fermi_dirac_mhalf(double x);
120--
121-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_mhalf&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
122fermi_dirac_mhalf :: Double -> Double 72fermi_dirac_mhalf :: Double -> Double
123fermi_dirac_mhalf = gsl_sf_fermi_dirac_mhalf 73fermi_dirac_mhalf = gsl_sf_fermi_dirac_mhalf
124foreign import ccall "gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac_mhalf :: Double -> Double 74foreign import ccall "gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac_mhalf :: Double -> Double
125
126-- | wrapper for int gsl_sf_fermi_dirac_half_e(double x,gsl_sf_result* result);
127--
128-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_half_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
129fermi_dirac_half_e :: Double -> (Double,Double) 75fermi_dirac_half_e :: Double -> (Double,Double)
130fermi_dirac_half_e x = createSFR "fermi_dirac_half_e" $ gsl_sf_fermi_dirac_half_e x 76fermi_dirac_half_e x = createSFR "fermi_dirac_half_e" $ gsl_sf_fermi_dirac_half_e x
131foreign import ccall "gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr () -> IO CInt 77foreign import ccall "gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr () -> IO CInt
132
133-- | wrapper for double gsl_sf_fermi_dirac_half(double x);
134--
135-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_half&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
136fermi_dirac_half :: Double -> Double 78fermi_dirac_half :: Double -> Double
137fermi_dirac_half = gsl_sf_fermi_dirac_half 79fermi_dirac_half = gsl_sf_fermi_dirac_half
138foreign import ccall "gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_half :: Double -> Double 80foreign import ccall "gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_half :: Double -> Double
139
140-- | wrapper for int gsl_sf_fermi_dirac_3half_e(double x,gsl_sf_result* result);
141--
142-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_3half_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
143fermi_dirac_3half_e :: Double -> (Double,Double) 81fermi_dirac_3half_e :: Double -> (Double,Double)
144fermi_dirac_3half_e x = createSFR "fermi_dirac_3half_e" $ gsl_sf_fermi_dirac_3half_e x 82fermi_dirac_3half_e x = createSFR "fermi_dirac_3half_e" $ gsl_sf_fermi_dirac_3half_e x
145foreign import ccall "gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr () -> IO CInt 83foreign import ccall "gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr () -> IO CInt
146
147-- | wrapper for double gsl_sf_fermi_dirac_3half(double x);
148--
149-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_3half&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
150fermi_dirac_3half :: Double -> Double 84fermi_dirac_3half :: Double -> Double
151fermi_dirac_3half = gsl_sf_fermi_dirac_3half 85fermi_dirac_3half = gsl_sf_fermi_dirac_3half
152foreign import ccall "gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac_3half :: Double -> Double 86foreign import ccall "gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac_3half :: Double -> Double
153
154-- | wrapper for int gsl_sf_fermi_dirac_inc_0_e(double x,double b,gsl_sf_result* result);
155--
156-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_inc_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
157fermi_dirac_inc_0_e :: Double -> Double -> (Double,Double) 87fermi_dirac_inc_0_e :: Double -> Double -> (Double,Double)
158fermi_dirac_inc_0_e x b = createSFR "fermi_dirac_inc_0_e" $ gsl_sf_fermi_dirac_inc_0_e x b 88fermi_dirac_inc_0_e x b = createSFR "fermi_dirac_inc_0_e" $ gsl_sf_fermi_dirac_inc_0_e x b
159foreign import ccall "gsl_sf_fermi_dirac_inc_0_e" gsl_sf_fermi_dirac_inc_0_e :: Double -> Double -> Ptr () -> IO CInt 89foreign import ccall "gsl_sf_fermi_dirac_inc_0_e" gsl_sf_fermi_dirac_inc_0_e :: Double -> Double -> Ptr () -> IO CInt
160
161-- | wrapper for double gsl_sf_fermi_dirac_inc_0(double x,double b);
162--
163-- <http://www.google.com/search?q=gsl_sf_fermi_dirac_inc_0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
164fermi_dirac_inc_0 :: Double -> Double -> Double 90fermi_dirac_inc_0 :: Double -> Double -> Double
165fermi_dirac_inc_0 = gsl_sf_fermi_dirac_inc_0 91fermi_dirac_inc_0 = gsl_sf_fermi_dirac_inc_0
166foreign import ccall "gsl_sf_fermi_dirac_inc_0" gsl_sf_fermi_dirac_inc_0 :: Double -> Double -> Double 92foreign import ccall "gsl_sf_fermi_dirac_inc_0" gsl_sf_fermi_dirac_inc_0 :: Double -> Double -> Double
diff --git a/lib/Numeric/GSL/Special/Gamma.hs b/lib/Numeric/GSL/Special/Gamma.hs
index cef086e..5cc05f3 100644
--- a/lib/Numeric/GSL/Special/Gamma.hs
+++ b/lib/Numeric/GSL/Special/Gamma.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Gamma 3-- Module : Numeric.GSL.Special.Gamma
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_gamma.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_gamma.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Gamma( 15module Numeric.GSL.Special.Gamma(
@@ -60,311 +58,135 @@ module Numeric.GSL.Special.Gamma(
60import Foreign(Ptr) 58import Foreign(Ptr)
61import Foreign.C.Types(CInt) 59import Foreign.C.Types(CInt)
62import Numeric.GSL.Special.Internal 60import Numeric.GSL.Special.Internal
63
64-- | wrapper for int gsl_sf_lngamma_e(double x,gsl_sf_result* result);
65--
66-- <http://www.google.com/search?q=gsl_sf_lngamma_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
67lngamma_e :: Double -> (Double,Double) 61lngamma_e :: Double -> (Double,Double)
68lngamma_e x = createSFR "lngamma_e" $ gsl_sf_lngamma_e x 62lngamma_e x = createSFR "lngamma_e" $ gsl_sf_lngamma_e x
69foreign import ccall "gsl_sf_lngamma_e" gsl_sf_lngamma_e :: Double -> Ptr () -> IO CInt 63foreign import ccall "gsl_sf_lngamma_e" gsl_sf_lngamma_e :: Double -> Ptr () -> IO CInt
70
71-- | wrapper for double gsl_sf_lngamma(double x);
72--
73-- <http://www.google.com/search?q=gsl_sf_lngamma&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
74lngamma :: Double -> Double 64lngamma :: Double -> Double
75lngamma = gsl_sf_lngamma 65lngamma = gsl_sf_lngamma
76foreign import ccall "gsl_sf_lngamma" gsl_sf_lngamma :: Double -> Double 66foreign import ccall "gsl_sf_lngamma" gsl_sf_lngamma :: Double -> Double
77
78-- | wrapper for int gsl_sf_lngamma_sgn_e(double x,gsl_sf_result* result_lg,double* sgn);
79--
80-- <http://www.google.com/search?q=gsl_sf_lngamma_sgn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
81lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt 67lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt
82lngamma_sgn_e = gsl_sf_lngamma_sgn_e 68lngamma_sgn_e = gsl_sf_lngamma_sgn_e
83foreign import ccall "gsl_sf_lngamma_sgn_e" gsl_sf_lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt 69foreign import ccall "gsl_sf_lngamma_sgn_e" gsl_sf_lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt
84
85-- | wrapper for int gsl_sf_gamma_e(double x,gsl_sf_result* result);
86--
87-- <http://www.google.com/search?q=gsl_sf_gamma_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
88gamma_e :: Double -> (Double,Double) 70gamma_e :: Double -> (Double,Double)
89gamma_e x = createSFR "gamma_e" $ gsl_sf_gamma_e x 71gamma_e x = createSFR "gamma_e" $ gsl_sf_gamma_e x
90foreign import ccall "gsl_sf_gamma_e" gsl_sf_gamma_e :: Double -> Ptr () -> IO CInt 72foreign import ccall "gsl_sf_gamma_e" gsl_sf_gamma_e :: Double -> Ptr () -> IO CInt
91
92-- | wrapper for double gsl_sf_gamma(double x);
93--
94-- <http://www.google.com/search?q=gsl_sf_gamma&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
95gamma :: Double -> Double 73gamma :: Double -> Double
96gamma = gsl_sf_gamma 74gamma = gsl_sf_gamma
97foreign import ccall "gsl_sf_gamma" gsl_sf_gamma :: Double -> Double 75foreign import ccall "gsl_sf_gamma" gsl_sf_gamma :: Double -> Double
98
99-- | wrapper for int gsl_sf_gammastar_e(double x,gsl_sf_result* result);
100--
101-- <http://www.google.com/search?q=gsl_sf_gammastar_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
102gammastar_e :: Double -> (Double,Double) 76gammastar_e :: Double -> (Double,Double)
103gammastar_e x = createSFR "gammastar_e" $ gsl_sf_gammastar_e x 77gammastar_e x = createSFR "gammastar_e" $ gsl_sf_gammastar_e x
104foreign import ccall "gsl_sf_gammastar_e" gsl_sf_gammastar_e :: Double -> Ptr () -> IO CInt 78foreign import ccall "gsl_sf_gammastar_e" gsl_sf_gammastar_e :: Double -> Ptr () -> IO CInt
105
106-- | wrapper for double gsl_sf_gammastar(double x);
107--
108-- <http://www.google.com/search?q=gsl_sf_gammastar&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
109gammastar :: Double -> Double 79gammastar :: Double -> Double
110gammastar = gsl_sf_gammastar 80gammastar = gsl_sf_gammastar
111foreign import ccall "gsl_sf_gammastar" gsl_sf_gammastar :: Double -> Double 81foreign import ccall "gsl_sf_gammastar" gsl_sf_gammastar :: Double -> Double
112
113-- | wrapper for int gsl_sf_gammainv_e(double x,gsl_sf_result* result);
114--
115-- <http://www.google.com/search?q=gsl_sf_gammainv_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
116gammainv_e :: Double -> (Double,Double) 82gammainv_e :: Double -> (Double,Double)
117gammainv_e x = createSFR "gammainv_e" $ gsl_sf_gammainv_e x 83gammainv_e x = createSFR "gammainv_e" $ gsl_sf_gammainv_e x
118foreign import ccall "gsl_sf_gammainv_e" gsl_sf_gammainv_e :: Double -> Ptr () -> IO CInt 84foreign import ccall "gsl_sf_gammainv_e" gsl_sf_gammainv_e :: Double -> Ptr () -> IO CInt
119
120-- | wrapper for double gsl_sf_gammainv(double x);
121--
122-- <http://www.google.com/search?q=gsl_sf_gammainv&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
123gammainv :: Double -> Double 85gammainv :: Double -> Double
124gammainv = gsl_sf_gammainv 86gammainv = gsl_sf_gammainv
125foreign import ccall "gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double 87foreign import ccall "gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double
126
127-- | wrapper for int gsl_sf_lngamma_complex_e(double zr,double zi,gsl_sf_result* lnr,gsl_sf_result* arg);
128--
129-- <http://www.google.com/search?q=gsl_sf_lngamma_complex_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
130lngamma_complex_e :: Double -> Double -> Ptr () -> (Double,Double) 88lngamma_complex_e :: Double -> Double -> Ptr () -> (Double,Double)
131lngamma_complex_e zr zi lnr = createSFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi lnr 89lngamma_complex_e zr zi lnr = createSFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi lnr
132foreign import ccall "gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 90foreign import ccall "gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
133
134-- | wrapper for int gsl_sf_taylorcoeff_e(int n,double x,gsl_sf_result* result);
135--
136-- <http://www.google.com/search?q=gsl_sf_taylorcoeff_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
137taylorcoeff_e :: CInt -> Double -> (Double,Double) 91taylorcoeff_e :: CInt -> Double -> (Double,Double)
138taylorcoeff_e n x = createSFR "taylorcoeff_e" $ gsl_sf_taylorcoeff_e n x 92taylorcoeff_e n x = createSFR "taylorcoeff_e" $ gsl_sf_taylorcoeff_e n x
139foreign import ccall "gsl_sf_taylorcoeff_e" gsl_sf_taylorcoeff_e :: CInt -> Double -> Ptr () -> IO CInt 93foreign import ccall "gsl_sf_taylorcoeff_e" gsl_sf_taylorcoeff_e :: CInt -> Double -> Ptr () -> IO CInt
140
141-- | wrapper for double gsl_sf_taylorcoeff(int n,double x);
142--
143-- <http://www.google.com/search?q=gsl_sf_taylorcoeff&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
144taylorcoeff :: CInt -> Double -> Double 94taylorcoeff :: CInt -> Double -> Double
145taylorcoeff = gsl_sf_taylorcoeff 95taylorcoeff = gsl_sf_taylorcoeff
146foreign import ccall "gsl_sf_taylorcoeff" gsl_sf_taylorcoeff :: CInt -> Double -> Double 96foreign import ccall "gsl_sf_taylorcoeff" gsl_sf_taylorcoeff :: CInt -> Double -> Double
147
148-- | wrapper for int gsl_sf_fact_e(int n,gsl_sf_result* result);
149--
150-- <http://www.google.com/search?q=gsl_sf_fact_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
151fact_e :: CInt -> (Double,Double) 97fact_e :: CInt -> (Double,Double)
152fact_e n = createSFR "fact_e" $ gsl_sf_fact_e n 98fact_e n = createSFR "fact_e" $ gsl_sf_fact_e n
153foreign import ccall "gsl_sf_fact_e" gsl_sf_fact_e :: CInt -> Ptr () -> IO CInt 99foreign import ccall "gsl_sf_fact_e" gsl_sf_fact_e :: CInt -> Ptr () -> IO CInt
154
155-- | wrapper for double gsl_sf_fact(int n);
156--
157-- <http://www.google.com/search?q=gsl_sf_fact&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
158fact :: CInt -> Double 100fact :: CInt -> Double
159fact = gsl_sf_fact 101fact = gsl_sf_fact
160foreign import ccall "gsl_sf_fact" gsl_sf_fact :: CInt -> Double 102foreign import ccall "gsl_sf_fact" gsl_sf_fact :: CInt -> Double
161
162-- | wrapper for int gsl_sf_doublefact_e(int n,gsl_sf_result* result);
163--
164-- <http://www.google.com/search?q=gsl_sf_doublefact_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
165doublefact_e :: CInt -> (Double,Double) 103doublefact_e :: CInt -> (Double,Double)
166doublefact_e n = createSFR "doublefact_e" $ gsl_sf_doublefact_e n 104doublefact_e n = createSFR "doublefact_e" $ gsl_sf_doublefact_e n
167foreign import ccall "gsl_sf_doublefact_e" gsl_sf_doublefact_e :: CInt -> Ptr () -> IO CInt 105foreign import ccall "gsl_sf_doublefact_e" gsl_sf_doublefact_e :: CInt -> Ptr () -> IO CInt
168
169-- | wrapper for double gsl_sf_doublefact(int n);
170--
171-- <http://www.google.com/search?q=gsl_sf_doublefact&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
172doublefact :: CInt -> Double 106doublefact :: CInt -> Double
173doublefact = gsl_sf_doublefact 107doublefact = gsl_sf_doublefact
174foreign import ccall "gsl_sf_doublefact" gsl_sf_doublefact :: CInt -> Double 108foreign import ccall "gsl_sf_doublefact" gsl_sf_doublefact :: CInt -> Double
175
176-- | wrapper for int gsl_sf_lnfact_e(int n,gsl_sf_result* result);
177--
178-- <http://www.google.com/search?q=gsl_sf_lnfact_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
179lnfact_e :: CInt -> (Double,Double) 109lnfact_e :: CInt -> (Double,Double)
180lnfact_e n = createSFR "lnfact_e" $ gsl_sf_lnfact_e n 110lnfact_e n = createSFR "lnfact_e" $ gsl_sf_lnfact_e n
181foreign import ccall "gsl_sf_lnfact_e" gsl_sf_lnfact_e :: CInt -> Ptr () -> IO CInt 111foreign import ccall "gsl_sf_lnfact_e" gsl_sf_lnfact_e :: CInt -> Ptr () -> IO CInt
182
183-- | wrapper for double gsl_sf_lnfact(int n);
184--
185-- <http://www.google.com/search?q=gsl_sf_lnfact&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
186lnfact :: CInt -> Double 112lnfact :: CInt -> Double
187lnfact = gsl_sf_lnfact 113lnfact = gsl_sf_lnfact
188foreign import ccall "gsl_sf_lnfact" gsl_sf_lnfact :: CInt -> Double 114foreign import ccall "gsl_sf_lnfact" gsl_sf_lnfact :: CInt -> Double
189
190-- | wrapper for int gsl_sf_lndoublefact_e(int n,gsl_sf_result* result);
191--
192-- <http://www.google.com/search?q=gsl_sf_lndoublefact_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
193lndoublefact_e :: CInt -> (Double,Double) 115lndoublefact_e :: CInt -> (Double,Double)
194lndoublefact_e n = createSFR "lndoublefact_e" $ gsl_sf_lndoublefact_e n 116lndoublefact_e n = createSFR "lndoublefact_e" $ gsl_sf_lndoublefact_e n
195foreign import ccall "gsl_sf_lndoublefact_e" gsl_sf_lndoublefact_e :: CInt -> Ptr () -> IO CInt 117foreign import ccall "gsl_sf_lndoublefact_e" gsl_sf_lndoublefact_e :: CInt -> Ptr () -> IO CInt
196
197-- | wrapper for double gsl_sf_lndoublefact(int n);
198--
199-- <http://www.google.com/search?q=gsl_sf_lndoublefact&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
200lndoublefact :: CInt -> Double 118lndoublefact :: CInt -> Double
201lndoublefact = gsl_sf_lndoublefact 119lndoublefact = gsl_sf_lndoublefact
202foreign import ccall "gsl_sf_lndoublefact" gsl_sf_lndoublefact :: CInt -> Double 120foreign import ccall "gsl_sf_lndoublefact" gsl_sf_lndoublefact :: CInt -> Double
203
204-- | wrapper for int gsl_sf_lnchoose_e(int n,int m,gsl_sf_result* result);
205--
206-- <http://www.google.com/search?q=gsl_sf_lnchoose_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
207lnchoose_e :: CInt -> CInt -> (Double,Double) 121lnchoose_e :: CInt -> CInt -> (Double,Double)
208lnchoose_e n m = createSFR "lnchoose_e" $ gsl_sf_lnchoose_e n m 122lnchoose_e n m = createSFR "lnchoose_e" $ gsl_sf_lnchoose_e n m
209foreign import ccall "gsl_sf_lnchoose_e" gsl_sf_lnchoose_e :: CInt -> CInt -> Ptr () -> IO CInt 123foreign import ccall "gsl_sf_lnchoose_e" gsl_sf_lnchoose_e :: CInt -> CInt -> Ptr () -> IO CInt
210
211-- | wrapper for double gsl_sf_lnchoose(int n,int m);
212--
213-- <http://www.google.com/search?q=gsl_sf_lnchoose&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
214lnchoose :: CInt -> CInt -> Double 124lnchoose :: CInt -> CInt -> Double
215lnchoose = gsl_sf_lnchoose 125lnchoose = gsl_sf_lnchoose
216foreign import ccall "gsl_sf_lnchoose" gsl_sf_lnchoose :: CInt -> CInt -> Double 126foreign import ccall "gsl_sf_lnchoose" gsl_sf_lnchoose :: CInt -> CInt -> Double
217
218-- | wrapper for int gsl_sf_choose_e(int n,int m,gsl_sf_result* result);
219--
220-- <http://www.google.com/search?q=gsl_sf_choose_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
221choose_e :: CInt -> CInt -> (Double,Double) 127choose_e :: CInt -> CInt -> (Double,Double)
222choose_e n m = createSFR "choose_e" $ gsl_sf_choose_e n m 128choose_e n m = createSFR "choose_e" $ gsl_sf_choose_e n m
223foreign import ccall "gsl_sf_choose_e" gsl_sf_choose_e :: CInt -> CInt -> Ptr () -> IO CInt 129foreign import ccall "gsl_sf_choose_e" gsl_sf_choose_e :: CInt -> CInt -> Ptr () -> IO CInt
224
225-- | wrapper for double gsl_sf_choose(int n,int m);
226--
227-- <http://www.google.com/search?q=gsl_sf_choose&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
228choose :: CInt -> CInt -> Double 130choose :: CInt -> CInt -> Double
229choose = gsl_sf_choose 131choose = gsl_sf_choose
230foreign import ccall "gsl_sf_choose" gsl_sf_choose :: CInt -> CInt -> Double 132foreign import ccall "gsl_sf_choose" gsl_sf_choose :: CInt -> CInt -> Double
231
232-- | wrapper for int gsl_sf_lnpoch_e(double a,double x,gsl_sf_result* result);
233--
234-- <http://www.google.com/search?q=gsl_sf_lnpoch_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
235lnpoch_e :: Double -> Double -> (Double,Double) 133lnpoch_e :: Double -> Double -> (Double,Double)
236lnpoch_e a x = createSFR "lnpoch_e" $ gsl_sf_lnpoch_e a x 134lnpoch_e a x = createSFR "lnpoch_e" $ gsl_sf_lnpoch_e a x
237foreign import ccall "gsl_sf_lnpoch_e" gsl_sf_lnpoch_e :: Double -> Double -> Ptr () -> IO CInt 135foreign import ccall "gsl_sf_lnpoch_e" gsl_sf_lnpoch_e :: Double -> Double -> Ptr () -> IO CInt
238
239-- | wrapper for double gsl_sf_lnpoch(double a,double x);
240--
241-- <http://www.google.com/search?q=gsl_sf_lnpoch&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
242lnpoch :: Double -> Double -> Double 136lnpoch :: Double -> Double -> Double
243lnpoch = gsl_sf_lnpoch 137lnpoch = gsl_sf_lnpoch
244foreign import ccall "gsl_sf_lnpoch" gsl_sf_lnpoch :: Double -> Double -> Double 138foreign import ccall "gsl_sf_lnpoch" gsl_sf_lnpoch :: Double -> Double -> Double
245
246-- | wrapper for int gsl_sf_lnpoch_sgn_e(double a,double x,gsl_sf_result* result,double* sgn);
247--
248-- <http://www.google.com/search?q=gsl_sf_lnpoch_sgn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
249lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt 139lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt
250lnpoch_sgn_e = gsl_sf_lnpoch_sgn_e 140lnpoch_sgn_e = gsl_sf_lnpoch_sgn_e
251foreign import ccall "gsl_sf_lnpoch_sgn_e" gsl_sf_lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt 141foreign import ccall "gsl_sf_lnpoch_sgn_e" gsl_sf_lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt
252
253-- | wrapper for int gsl_sf_poch_e(double a,double x,gsl_sf_result* result);
254--
255-- <http://www.google.com/search?q=gsl_sf_poch_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
256poch_e :: Double -> Double -> (Double,Double) 142poch_e :: Double -> Double -> (Double,Double)
257poch_e a x = createSFR "poch_e" $ gsl_sf_poch_e a x 143poch_e a x = createSFR "poch_e" $ gsl_sf_poch_e a x
258foreign import ccall "gsl_sf_poch_e" gsl_sf_poch_e :: Double -> Double -> Ptr () -> IO CInt 144foreign import ccall "gsl_sf_poch_e" gsl_sf_poch_e :: Double -> Double -> Ptr () -> IO CInt
259
260-- | wrapper for double gsl_sf_poch(double a,double x);
261--
262-- <http://www.google.com/search?q=gsl_sf_poch&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
263poch :: Double -> Double -> Double 145poch :: Double -> Double -> Double
264poch = gsl_sf_poch 146poch = gsl_sf_poch
265foreign import ccall "gsl_sf_poch" gsl_sf_poch :: Double -> Double -> Double 147foreign import ccall "gsl_sf_poch" gsl_sf_poch :: Double -> Double -> Double
266
267-- | wrapper for int gsl_sf_pochrel_e(double a,double x,gsl_sf_result* result);
268--
269-- <http://www.google.com/search?q=gsl_sf_pochrel_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
270pochrel_e :: Double -> Double -> (Double,Double) 148pochrel_e :: Double -> Double -> (Double,Double)
271pochrel_e a x = createSFR "pochrel_e" $ gsl_sf_pochrel_e a x 149pochrel_e a x = createSFR "pochrel_e" $ gsl_sf_pochrel_e a x
272foreign import ccall "gsl_sf_pochrel_e" gsl_sf_pochrel_e :: Double -> Double -> Ptr () -> IO CInt 150foreign import ccall "gsl_sf_pochrel_e" gsl_sf_pochrel_e :: Double -> Double -> Ptr () -> IO CInt
273
274-- | wrapper for double gsl_sf_pochrel(double a,double x);
275--
276-- <http://www.google.com/search?q=gsl_sf_pochrel&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
277pochrel :: Double -> Double -> Double 151pochrel :: Double -> Double -> Double
278pochrel = gsl_sf_pochrel 152pochrel = gsl_sf_pochrel
279foreign import ccall "gsl_sf_pochrel" gsl_sf_pochrel :: Double -> Double -> Double 153foreign import ccall "gsl_sf_pochrel" gsl_sf_pochrel :: Double -> Double -> Double
280
281-- | wrapper for int gsl_sf_gamma_inc_Q_e(double a,double x,gsl_sf_result* result);
282--
283-- <http://www.google.com/search?q=gsl_sf_gamma_inc_Q_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
284gamma_inc_Q_e :: Double -> Double -> (Double,Double) 154gamma_inc_Q_e :: Double -> Double -> (Double,Double)
285gamma_inc_Q_e a x = createSFR "gamma_inc_Q_e" $ gsl_sf_gamma_inc_Q_e a x 155gamma_inc_Q_e a x = createSFR "gamma_inc_Q_e" $ gsl_sf_gamma_inc_Q_e a x
286foreign import ccall "gsl_sf_gamma_inc_Q_e" gsl_sf_gamma_inc_Q_e :: Double -> Double -> Ptr () -> IO CInt 156foreign import ccall "gsl_sf_gamma_inc_Q_e" gsl_sf_gamma_inc_Q_e :: Double -> Double -> Ptr () -> IO CInt
287
288-- | wrapper for double gsl_sf_gamma_inc_Q(double a,double x);
289--
290-- <http://www.google.com/search?q=gsl_sf_gamma_inc_Q&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
291gamma_inc_Q :: Double -> Double -> Double 157gamma_inc_Q :: Double -> Double -> Double
292gamma_inc_Q = gsl_sf_gamma_inc_Q 158gamma_inc_Q = gsl_sf_gamma_inc_Q
293foreign import ccall "gsl_sf_gamma_inc_Q" gsl_sf_gamma_inc_Q :: Double -> Double -> Double 159foreign import ccall "gsl_sf_gamma_inc_Q" gsl_sf_gamma_inc_Q :: Double -> Double -> Double
294
295-- | wrapper for int gsl_sf_gamma_inc_P_e(double a,double x,gsl_sf_result* result);
296--
297-- <http://www.google.com/search?q=gsl_sf_gamma_inc_P_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
298gamma_inc_P_e :: Double -> Double -> (Double,Double) 160gamma_inc_P_e :: Double -> Double -> (Double,Double)
299gamma_inc_P_e a x = createSFR "gamma_inc_P_e" $ gsl_sf_gamma_inc_P_e a x 161gamma_inc_P_e a x = createSFR "gamma_inc_P_e" $ gsl_sf_gamma_inc_P_e a x
300foreign import ccall "gsl_sf_gamma_inc_P_e" gsl_sf_gamma_inc_P_e :: Double -> Double -> Ptr () -> IO CInt 162foreign import ccall "gsl_sf_gamma_inc_P_e" gsl_sf_gamma_inc_P_e :: Double -> Double -> Ptr () -> IO CInt
301
302-- | wrapper for double gsl_sf_gamma_inc_P(double a,double x);
303--
304-- <http://www.google.com/search?q=gsl_sf_gamma_inc_P&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
305gamma_inc_P :: Double -> Double -> Double 163gamma_inc_P :: Double -> Double -> Double
306gamma_inc_P = gsl_sf_gamma_inc_P 164gamma_inc_P = gsl_sf_gamma_inc_P
307foreign import ccall "gsl_sf_gamma_inc_P" gsl_sf_gamma_inc_P :: Double -> Double -> Double 165foreign import ccall "gsl_sf_gamma_inc_P" gsl_sf_gamma_inc_P :: Double -> Double -> Double
308
309-- | wrapper for int gsl_sf_gamma_inc_e(double a,double x,gsl_sf_result* result);
310--
311-- <http://www.google.com/search?q=gsl_sf_gamma_inc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
312gamma_inc_e :: Double -> Double -> (Double,Double) 166gamma_inc_e :: Double -> Double -> (Double,Double)
313gamma_inc_e a x = createSFR "gamma_inc_e" $ gsl_sf_gamma_inc_e a x 167gamma_inc_e a x = createSFR "gamma_inc_e" $ gsl_sf_gamma_inc_e a x
314foreign import ccall "gsl_sf_gamma_inc_e" gsl_sf_gamma_inc_e :: Double -> Double -> Ptr () -> IO CInt 168foreign import ccall "gsl_sf_gamma_inc_e" gsl_sf_gamma_inc_e :: Double -> Double -> Ptr () -> IO CInt
315
316-- | wrapper for double gsl_sf_gamma_inc(double a,double x);
317--
318-- <http://www.google.com/search?q=gsl_sf_gamma_inc&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
319gamma_inc :: Double -> Double -> Double 169gamma_inc :: Double -> Double -> Double
320gamma_inc = gsl_sf_gamma_inc 170gamma_inc = gsl_sf_gamma_inc
321foreign import ccall "gsl_sf_gamma_inc" gsl_sf_gamma_inc :: Double -> Double -> Double 171foreign import ccall "gsl_sf_gamma_inc" gsl_sf_gamma_inc :: Double -> Double -> Double
322
323-- | wrapper for int gsl_sf_lnbeta_e(double a,double b,gsl_sf_result* result);
324--
325-- <http://www.google.com/search?q=gsl_sf_lnbeta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
326lnbeta_e :: Double -> Double -> (Double,Double) 172lnbeta_e :: Double -> Double -> (Double,Double)
327lnbeta_e a b = createSFR "lnbeta_e" $ gsl_sf_lnbeta_e a b 173lnbeta_e a b = createSFR "lnbeta_e" $ gsl_sf_lnbeta_e a b
328foreign import ccall "gsl_sf_lnbeta_e" gsl_sf_lnbeta_e :: Double -> Double -> Ptr () -> IO CInt 174foreign import ccall "gsl_sf_lnbeta_e" gsl_sf_lnbeta_e :: Double -> Double -> Ptr () -> IO CInt
329
330-- | wrapper for double gsl_sf_lnbeta(double a,double b);
331--
332-- <http://www.google.com/search?q=gsl_sf_lnbeta&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
333lnbeta :: Double -> Double -> Double 175lnbeta :: Double -> Double -> Double
334lnbeta = gsl_sf_lnbeta 176lnbeta = gsl_sf_lnbeta
335foreign import ccall "gsl_sf_lnbeta" gsl_sf_lnbeta :: Double -> Double -> Double 177foreign import ccall "gsl_sf_lnbeta" gsl_sf_lnbeta :: Double -> Double -> Double
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 178lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt
341lnbeta_sgn_e = gsl_sf_lnbeta_sgn_e 179lnbeta_sgn_e = gsl_sf_lnbeta_sgn_e
342foreign import ccall "gsl_sf_lnbeta_sgn_e" gsl_sf_lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt 180foreign import ccall "gsl_sf_lnbeta_sgn_e" gsl_sf_lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt
343
344-- | wrapper for int gsl_sf_beta_e(double a,double b,gsl_sf_result* result);
345--
346-- <http://www.google.com/search?q=gsl_sf_beta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
347beta_e :: Double -> Double -> (Double,Double) 181beta_e :: Double -> Double -> (Double,Double)
348beta_e a b = createSFR "beta_e" $ gsl_sf_beta_e a b 182beta_e a b = createSFR "beta_e" $ gsl_sf_beta_e a b
349foreign import ccall "gsl_sf_beta_e" gsl_sf_beta_e :: Double -> Double -> Ptr () -> IO CInt 183foreign import ccall "gsl_sf_beta_e" gsl_sf_beta_e :: Double -> Double -> Ptr () -> IO CInt
350
351-- | wrapper for double gsl_sf_beta(double a,double b);
352--
353-- <http://www.google.com/search?q=gsl_sf_beta&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
354beta :: Double -> Double -> Double 184beta :: Double -> Double -> Double
355beta = gsl_sf_beta 185beta = gsl_sf_beta
356foreign import ccall "gsl_sf_beta" gsl_sf_beta :: Double -> Double -> Double 186foreign import ccall "gsl_sf_beta" gsl_sf_beta :: Double -> Double -> Double
357
358-- | wrapper for int gsl_sf_beta_inc_e(double a,double b,double x,gsl_sf_result* result);
359--
360-- <http://www.google.com/search?q=gsl_sf_beta_inc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
361beta_inc_e :: Double -> Double -> Double -> (Double,Double) 187beta_inc_e :: Double -> Double -> Double -> (Double,Double)
362beta_inc_e a b x = createSFR "beta_inc_e" $ gsl_sf_beta_inc_e a b x 188beta_inc_e a b x = createSFR "beta_inc_e" $ gsl_sf_beta_inc_e a b x
363foreign import ccall "gsl_sf_beta_inc_e" gsl_sf_beta_inc_e :: Double -> Double -> Double -> Ptr () -> IO CInt 189foreign import ccall "gsl_sf_beta_inc_e" gsl_sf_beta_inc_e :: Double -> Double -> Double -> Ptr () -> IO CInt
364
365-- | wrapper for double gsl_sf_beta_inc(double a,double b,double x);
366--
367-- <http://www.google.com/search?q=gsl_sf_beta_inc&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
368beta_inc :: Double -> Double -> Double -> Double 190beta_inc :: Double -> Double -> Double -> Double
369beta_inc = gsl_sf_beta_inc 191beta_inc = gsl_sf_beta_inc
370foreign import ccall "gsl_sf_beta_inc" gsl_sf_beta_inc :: Double -> Double -> Double -> Double 192foreign import ccall "gsl_sf_beta_inc" gsl_sf_beta_inc :: Double -> Double -> Double -> Double
diff --git a/lib/Numeric/GSL/Special/Gegenbauer.hs b/lib/Numeric/GSL/Special/Gegenbauer.hs
index 7f15fa7..c4e433b 100644
--- a/lib/Numeric/GSL/Special/Gegenbauer.hs
+++ b/lib/Numeric/GSL/Special/Gegenbauer.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Gegenbauer 3-- Module : Numeric.GSL.Special.Gegenbauer
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_gegenbauer.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_gegenbauer.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Gegenbauer( 15module Numeric.GSL.Special.Gegenbauer(
@@ -28,66 +26,30 @@ module Numeric.GSL.Special.Gegenbauer(
28import Foreign(Ptr) 26import Foreign(Ptr)
29import Foreign.C.Types(CInt) 27import Foreign.C.Types(CInt)
30import Numeric.GSL.Special.Internal 28import Numeric.GSL.Special.Internal
31
32-- | wrapper for int gsl_sf_gegenpoly_1_e(double lambda,double x,gsl_sf_result* result);
33--
34-- <http://www.google.com/search?q=gsl_sf_gegenpoly_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
35gegenpoly_1_e :: Double -> Double -> (Double,Double) 29gegenpoly_1_e :: Double -> Double -> (Double,Double)
36gegenpoly_1_e lambda x = createSFR "gegenpoly_1_e" $ gsl_sf_gegenpoly_1_e lambda x 30gegenpoly_1_e lambda x = createSFR "gegenpoly_1_e" $ gsl_sf_gegenpoly_1_e lambda x
37foreign import ccall "gsl_sf_gegenpoly_1_e" gsl_sf_gegenpoly_1_e :: Double -> Double -> Ptr () -> IO CInt 31foreign import ccall "gsl_sf_gegenpoly_1_e" gsl_sf_gegenpoly_1_e :: Double -> Double -> Ptr () -> IO CInt
38
39-- | wrapper for int gsl_sf_gegenpoly_2_e(double lambda,double x,gsl_sf_result* result);
40--
41-- <http://www.google.com/search?q=gsl_sf_gegenpoly_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
42gegenpoly_2_e :: Double -> Double -> (Double,Double) 32gegenpoly_2_e :: Double -> Double -> (Double,Double)
43gegenpoly_2_e lambda x = createSFR "gegenpoly_2_e" $ gsl_sf_gegenpoly_2_e lambda x 33gegenpoly_2_e lambda x = createSFR "gegenpoly_2_e" $ gsl_sf_gegenpoly_2_e lambda x
44foreign import ccall "gsl_sf_gegenpoly_2_e" gsl_sf_gegenpoly_2_e :: Double -> Double -> Ptr () -> IO CInt 34foreign import ccall "gsl_sf_gegenpoly_2_e" gsl_sf_gegenpoly_2_e :: Double -> Double -> Ptr () -> IO CInt
45
46-- | wrapper for int gsl_sf_gegenpoly_3_e(double lambda,double x,gsl_sf_result* result);
47--
48-- <http://www.google.com/search?q=gsl_sf_gegenpoly_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
49gegenpoly_3_e :: Double -> Double -> (Double,Double) 35gegenpoly_3_e :: Double -> Double -> (Double,Double)
50gegenpoly_3_e lambda x = createSFR "gegenpoly_3_e" $ gsl_sf_gegenpoly_3_e lambda x 36gegenpoly_3_e lambda x = createSFR "gegenpoly_3_e" $ gsl_sf_gegenpoly_3_e lambda x
51foreign import ccall "gsl_sf_gegenpoly_3_e" gsl_sf_gegenpoly_3_e :: Double -> Double -> Ptr () -> IO CInt 37foreign import ccall "gsl_sf_gegenpoly_3_e" gsl_sf_gegenpoly_3_e :: Double -> Double -> Ptr () -> IO CInt
52
53-- | wrapper for double gsl_sf_gegenpoly_1(double lambda,double x);
54--
55-- <http://www.google.com/search?q=gsl_sf_gegenpoly_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
56gegenpoly_1 :: Double -> Double -> Double 38gegenpoly_1 :: Double -> Double -> Double
57gegenpoly_1 = gsl_sf_gegenpoly_1 39gegenpoly_1 = gsl_sf_gegenpoly_1
58foreign import ccall "gsl_sf_gegenpoly_1" gsl_sf_gegenpoly_1 :: Double -> Double -> Double 40foreign import ccall "gsl_sf_gegenpoly_1" gsl_sf_gegenpoly_1 :: Double -> Double -> Double
59
60-- | wrapper for double gsl_sf_gegenpoly_2(double lambda,double x);
61--
62-- <http://www.google.com/search?q=gsl_sf_gegenpoly_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
63gegenpoly_2 :: Double -> Double -> Double 41gegenpoly_2 :: Double -> Double -> Double
64gegenpoly_2 = gsl_sf_gegenpoly_2 42gegenpoly_2 = gsl_sf_gegenpoly_2
65foreign import ccall "gsl_sf_gegenpoly_2" gsl_sf_gegenpoly_2 :: Double -> Double -> Double 43foreign import ccall "gsl_sf_gegenpoly_2" gsl_sf_gegenpoly_2 :: Double -> Double -> Double
66
67-- | wrapper for double gsl_sf_gegenpoly_3(double lambda,double x);
68--
69-- <http://www.google.com/search?q=gsl_sf_gegenpoly_3&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
70gegenpoly_3 :: Double -> Double -> Double 44gegenpoly_3 :: Double -> Double -> Double
71gegenpoly_3 = gsl_sf_gegenpoly_3 45gegenpoly_3 = gsl_sf_gegenpoly_3
72foreign import ccall "gsl_sf_gegenpoly_3" gsl_sf_gegenpoly_3 :: Double -> Double -> Double 46foreign import ccall "gsl_sf_gegenpoly_3" gsl_sf_gegenpoly_3 :: Double -> Double -> Double
73
74-- | wrapper for int gsl_sf_gegenpoly_n_e(int n,double lambda,double x,gsl_sf_result* result);
75--
76-- <http://www.google.com/search?q=gsl_sf_gegenpoly_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
77gegenpoly_n_e :: CInt -> Double -> Double -> (Double,Double) 47gegenpoly_n_e :: CInt -> Double -> Double -> (Double,Double)
78gegenpoly_n_e n lambda x = createSFR "gegenpoly_n_e" $ gsl_sf_gegenpoly_n_e n lambda x 48gegenpoly_n_e n lambda x = createSFR "gegenpoly_n_e" $ gsl_sf_gegenpoly_n_e n lambda x
79foreign import ccall "gsl_sf_gegenpoly_n_e" gsl_sf_gegenpoly_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt 49foreign import ccall "gsl_sf_gegenpoly_n_e" gsl_sf_gegenpoly_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt
80
81-- | wrapper for double gsl_sf_gegenpoly_n(int n,double lambda,double x);
82--
83-- <http://www.google.com/search?q=gsl_sf_gegenpoly_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
84gegenpoly_n :: CInt -> Double -> Double -> Double 50gegenpoly_n :: CInt -> Double -> Double -> Double
85gegenpoly_n = gsl_sf_gegenpoly_n 51gegenpoly_n = gsl_sf_gegenpoly_n
86foreign import ccall "gsl_sf_gegenpoly_n" gsl_sf_gegenpoly_n :: CInt -> Double -> Double -> Double 52foreign import ccall "gsl_sf_gegenpoly_n" gsl_sf_gegenpoly_n :: CInt -> Double -> Double -> Double
87
88-- | wrapper for int gsl_sf_gegenpoly_array(int nmax,double lambda,double x,double* result_array);
89--
90-- <http://www.google.com/search?q=gsl_sf_gegenpoly_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
91gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt 53gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt
92gegenpoly_array = gsl_sf_gegenpoly_array 54gegenpoly_array = gsl_sf_gegenpoly_array
93foreign import ccall "gsl_sf_gegenpoly_array" gsl_sf_gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt 55foreign import ccall "gsl_sf_gegenpoly_array" gsl_sf_gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt
diff --git a/lib/Numeric/GSL/Special/Hyperg.hs b/lib/Numeric/GSL/Special/Hyperg.hs
index ed920fb..42a4b40 100644
--- a/lib/Numeric/GSL/Special/Hyperg.hs
+++ b/lib/Numeric/GSL/Special/Hyperg.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Hyperg 3-- Module : Numeric.GSL.Special.Hyperg
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_hyperg.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_hyperg.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Hyperg( 15module Numeric.GSL.Special.Hyperg(
@@ -42,157 +40,69 @@ module Numeric.GSL.Special.Hyperg(
42import Foreign(Ptr) 40import Foreign(Ptr)
43import Foreign.C.Types(CInt) 41import Foreign.C.Types(CInt)
44import Numeric.GSL.Special.Internal 42import Numeric.GSL.Special.Internal
45
46-- | wrapper for int gsl_sf_hyperg_0F1_e(double c,double x,gsl_sf_result* result);
47--
48-- <http://www.google.com/search?q=gsl_sf_hyperg_0F1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
49hyperg_0F1_e :: Double -> Double -> (Double,Double) 43hyperg_0F1_e :: Double -> Double -> (Double,Double)
50hyperg_0F1_e c x = createSFR "hyperg_0F1_e" $ gsl_sf_hyperg_0F1_e c x 44hyperg_0F1_e c x = createSFR "hyperg_0F1_e" $ gsl_sf_hyperg_0F1_e c x
51foreign import ccall "gsl_sf_hyperg_0F1_e" gsl_sf_hyperg_0F1_e :: Double -> Double -> Ptr () -> IO CInt 45foreign import ccall "gsl_sf_hyperg_0F1_e" gsl_sf_hyperg_0F1_e :: Double -> Double -> Ptr () -> IO CInt
52
53-- | wrapper for double gsl_sf_hyperg_0F1(double c,double x);
54--
55-- <http://www.google.com/search?q=gsl_sf_hyperg_0F1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
56hyperg_0F1 :: Double -> Double -> Double 46hyperg_0F1 :: Double -> Double -> Double
57hyperg_0F1 = gsl_sf_hyperg_0F1 47hyperg_0F1 = gsl_sf_hyperg_0F1
58foreign import ccall "gsl_sf_hyperg_0F1" gsl_sf_hyperg_0F1 :: Double -> Double -> Double 48foreign import ccall "gsl_sf_hyperg_0F1" gsl_sf_hyperg_0F1 :: Double -> Double -> Double
59
60-- | wrapper for int gsl_sf_hyperg_1F1_int_e(int m,int n,double x,gsl_sf_result* result);
61--
62-- <http://www.google.com/search?q=gsl_sf_hyperg_1F1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
63hyperg_1F1_int_e :: CInt -> CInt -> Double -> (Double,Double) 49hyperg_1F1_int_e :: CInt -> CInt -> Double -> (Double,Double)
64hyperg_1F1_int_e m n x = createSFR "hyperg_1F1_int_e" $ gsl_sf_hyperg_1F1_int_e m n x 50hyperg_1F1_int_e m n x = createSFR "hyperg_1F1_int_e" $ gsl_sf_hyperg_1F1_int_e m n x
65foreign import ccall "gsl_sf_hyperg_1F1_int_e" gsl_sf_hyperg_1F1_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt 51foreign import ccall "gsl_sf_hyperg_1F1_int_e" gsl_sf_hyperg_1F1_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt
66
67-- | wrapper for double gsl_sf_hyperg_1F1_int(int m,int n,double x);
68--
69-- <http://www.google.com/search?q=gsl_sf_hyperg_1F1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
70hyperg_1F1_int :: CInt -> CInt -> Double -> Double 52hyperg_1F1_int :: CInt -> CInt -> Double -> Double
71hyperg_1F1_int = gsl_sf_hyperg_1F1_int 53hyperg_1F1_int = gsl_sf_hyperg_1F1_int
72foreign import ccall "gsl_sf_hyperg_1F1_int" gsl_sf_hyperg_1F1_int :: CInt -> CInt -> Double -> Double 54foreign import ccall "gsl_sf_hyperg_1F1_int" gsl_sf_hyperg_1F1_int :: CInt -> CInt -> Double -> Double
73
74-- | wrapper for int gsl_sf_hyperg_1F1_e(double a,double b,double x,gsl_sf_result* result);
75--
76-- <http://www.google.com/search?q=gsl_sf_hyperg_1F1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
77hyperg_1F1_e :: Double -> Double -> Double -> (Double,Double) 55hyperg_1F1_e :: Double -> Double -> Double -> (Double,Double)
78hyperg_1F1_e a b x = createSFR "hyperg_1F1_e" $ gsl_sf_hyperg_1F1_e a b x 56hyperg_1F1_e a b x = createSFR "hyperg_1F1_e" $ gsl_sf_hyperg_1F1_e a b x
79foreign import ccall "gsl_sf_hyperg_1F1_e" gsl_sf_hyperg_1F1_e :: Double -> Double -> Double -> Ptr () -> IO CInt 57foreign import ccall "gsl_sf_hyperg_1F1_e" gsl_sf_hyperg_1F1_e :: Double -> Double -> Double -> Ptr () -> IO CInt
80
81-- | wrapper for double gsl_sf_hyperg_1F1(double a,double b,double x);
82--
83-- <http://www.google.com/search?q=gsl_sf_hyperg_1F1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
84hyperg_1F1 :: Double -> Double -> Double -> Double 58hyperg_1F1 :: Double -> Double -> Double -> Double
85hyperg_1F1 = gsl_sf_hyperg_1F1 59hyperg_1F1 = gsl_sf_hyperg_1F1
86foreign import ccall "gsl_sf_hyperg_1F1" gsl_sf_hyperg_1F1 :: Double -> Double -> Double -> Double 60foreign import ccall "gsl_sf_hyperg_1F1" gsl_sf_hyperg_1F1 :: Double -> Double -> Double -> Double
87
88-- | wrapper for int gsl_sf_hyperg_U_int_e(int m,int n,double x,gsl_sf_result* result);
89--
90-- <http://www.google.com/search?q=gsl_sf_hyperg_U_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
91hyperg_U_int_e :: CInt -> CInt -> Double -> (Double,Double) 61hyperg_U_int_e :: CInt -> CInt -> Double -> (Double,Double)
92hyperg_U_int_e m n x = createSFR "hyperg_U_int_e" $ gsl_sf_hyperg_U_int_e m n x 62hyperg_U_int_e m n x = createSFR "hyperg_U_int_e" $ gsl_sf_hyperg_U_int_e m n x
93foreign import ccall "gsl_sf_hyperg_U_int_e" gsl_sf_hyperg_U_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt 63foreign import ccall "gsl_sf_hyperg_U_int_e" gsl_sf_hyperg_U_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt
94
95-- | wrapper for double gsl_sf_hyperg_U_int(int m,int n,double x);
96--
97-- <http://www.google.com/search?q=gsl_sf_hyperg_U_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
98hyperg_U_int :: CInt -> CInt -> Double -> Double 64hyperg_U_int :: CInt -> CInt -> Double -> Double
99hyperg_U_int = gsl_sf_hyperg_U_int 65hyperg_U_int = gsl_sf_hyperg_U_int
100foreign import ccall "gsl_sf_hyperg_U_int" gsl_sf_hyperg_U_int :: CInt -> CInt -> Double -> Double 66foreign import ccall "gsl_sf_hyperg_U_int" gsl_sf_hyperg_U_int :: CInt -> CInt -> Double -> Double
101
102-- | wrapper for int gsl_sf_hyperg_U_int_e10_e(int m,int n,double x,gsl_sf_result_e10* result);
103--
104-- <http://www.google.com/search?q=gsl_sf_hyperg_U_int_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
105hyperg_U_int_e10_e :: CInt -> CInt -> Double -> (Double,Int,Double) 67hyperg_U_int_e10_e :: CInt -> CInt -> Double -> (Double,Int,Double)
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 68hyperg_U_int_e10_e m n x = createSFR_E10 "hyperg_U_int_e10_e" $ gsl_sf_hyperg_U_int_e10_e m n x
107foreign import ccall "gsl_sf_hyperg_U_int_e10_e" gsl_sf_hyperg_U_int_e10_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt 69foreign import ccall "gsl_sf_hyperg_U_int_e10_e" gsl_sf_hyperg_U_int_e10_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt
108
109-- | wrapper for int gsl_sf_hyperg_U_e(double a,double b,double x,gsl_sf_result* result);
110--
111-- <http://www.google.com/search?q=gsl_sf_hyperg_U_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
112hyperg_U_e :: Double -> Double -> Double -> (Double,Double) 70hyperg_U_e :: Double -> Double -> Double -> (Double,Double)
113hyperg_U_e a b x = createSFR "hyperg_U_e" $ gsl_sf_hyperg_U_e a b x 71hyperg_U_e a b x = createSFR "hyperg_U_e" $ gsl_sf_hyperg_U_e a b x
114foreign import ccall "gsl_sf_hyperg_U_e" gsl_sf_hyperg_U_e :: Double -> Double -> Double -> Ptr () -> IO CInt 72foreign import ccall "gsl_sf_hyperg_U_e" gsl_sf_hyperg_U_e :: Double -> Double -> Double -> Ptr () -> IO CInt
115
116-- | wrapper for double gsl_sf_hyperg_U(double a,double b,double x);
117--
118-- <http://www.google.com/search?q=gsl_sf_hyperg_U&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
119hyperg_U :: Double -> Double -> Double -> Double 73hyperg_U :: Double -> Double -> Double -> Double
120hyperg_U = gsl_sf_hyperg_U 74hyperg_U = gsl_sf_hyperg_U
121foreign import ccall "gsl_sf_hyperg_U" gsl_sf_hyperg_U :: Double -> Double -> Double -> Double 75foreign import ccall "gsl_sf_hyperg_U" gsl_sf_hyperg_U :: Double -> Double -> Double -> Double
122
123-- | wrapper for int gsl_sf_hyperg_U_e10_e(double a,double b,double x,gsl_sf_result_e10* result);
124--
125-- <http://www.google.com/search?q=gsl_sf_hyperg_U_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
126hyperg_U_e10_e :: Double -> Double -> Double -> (Double,Int,Double) 76hyperg_U_e10_e :: Double -> Double -> Double -> (Double,Int,Double)
127hyperg_U_e10_e a b x = createSFR_E10 "hyperg_U_e10_e" $ gsl_sf_hyperg_U_e10_e a b x 77hyperg_U_e10_e a b x = createSFR_E10 "hyperg_U_e10_e" $ gsl_sf_hyperg_U_e10_e a b x
128foreign import ccall "gsl_sf_hyperg_U_e10_e" gsl_sf_hyperg_U_e10_e :: Double -> Double -> Double -> Ptr () -> IO CInt 78foreign import ccall "gsl_sf_hyperg_U_e10_e" gsl_sf_hyperg_U_e10_e :: Double -> Double -> Double -> Ptr () -> IO CInt
129
130-- | wrapper for int gsl_sf_hyperg_2F1_e(double a,double b,double c,double x,gsl_sf_result* result);
131--
132-- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
133hyperg_2F1_e :: Double -> Double -> Double -> Double -> (Double,Double) 79hyperg_2F1_e :: Double -> Double -> Double -> Double -> (Double,Double)
134hyperg_2F1_e a b c x = createSFR "hyperg_2F1_e" $ gsl_sf_hyperg_2F1_e a b c x 80hyperg_2F1_e a b c x = createSFR "hyperg_2F1_e" $ gsl_sf_hyperg_2F1_e a b c x
135foreign import ccall "gsl_sf_hyperg_2F1_e" gsl_sf_hyperg_2F1_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt 81foreign import ccall "gsl_sf_hyperg_2F1_e" gsl_sf_hyperg_2F1_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt
136
137-- | wrapper for double gsl_sf_hyperg_2F1(double a,double b,double c,double x);
138--
139-- <http://www.google.com/search?q=gsl_sf_hyperg_2F1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
140hyperg_2F1 :: Double -> Double -> Double -> Double -> Double 82hyperg_2F1 :: Double -> Double -> Double -> Double -> Double
141hyperg_2F1 = gsl_sf_hyperg_2F1 83hyperg_2F1 = gsl_sf_hyperg_2F1
142foreign import ccall "gsl_sf_hyperg_2F1" gsl_sf_hyperg_2F1 :: Double -> Double -> Double -> Double -> Double 84foreign import ccall "gsl_sf_hyperg_2F1" gsl_sf_hyperg_2F1 :: Double -> Double -> Double -> Double -> Double
143
144-- | wrapper for int gsl_sf_hyperg_2F1_conj_e(double aR,double aI,double c,double x,gsl_sf_result* result);
145--
146-- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_conj_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
147hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> (Double,Double) 85hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> (Double,Double)
148hyperg_2F1_conj_e aR aI c x = createSFR "hyperg_2F1_conj_e" $ gsl_sf_hyperg_2F1_conj_e aR aI c x 86hyperg_2F1_conj_e aR aI c x = createSFR "hyperg_2F1_conj_e" $ gsl_sf_hyperg_2F1_conj_e aR aI c x
149foreign import ccall "gsl_sf_hyperg_2F1_conj_e" gsl_sf_hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt 87foreign import ccall "gsl_sf_hyperg_2F1_conj_e" gsl_sf_hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt
150
151-- | wrapper for double gsl_sf_hyperg_2F1_conj(double aR,double aI,double c,double x);
152--
153-- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_conj&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
154hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double 88hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double
155hyperg_2F1_conj = gsl_sf_hyperg_2F1_conj 89hyperg_2F1_conj = gsl_sf_hyperg_2F1_conj
156foreign import ccall "gsl_sf_hyperg_2F1_conj" gsl_sf_hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double 90foreign import ccall "gsl_sf_hyperg_2F1_conj" gsl_sf_hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double
157
158-- | wrapper for int gsl_sf_hyperg_2F1_renorm_e(double a,double b,double c,double x,gsl_sf_result* result);
159--
160-- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_renorm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
161hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) 91hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double)
162hyperg_2F1_renorm_e a b c x = createSFR "hyperg_2F1_renorm_e" $ gsl_sf_hyperg_2F1_renorm_e a b c x 92hyperg_2F1_renorm_e a b c x = createSFR "hyperg_2F1_renorm_e" $ gsl_sf_hyperg_2F1_renorm_e a b c x
163foreign import ccall "gsl_sf_hyperg_2F1_renorm_e" gsl_sf_hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt 93foreign import ccall "gsl_sf_hyperg_2F1_renorm_e" gsl_sf_hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt
164
165-- | wrapper for double gsl_sf_hyperg_2F1_renorm(double a,double b,double c,double x);
166--
167-- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_renorm&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
168hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double 94hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double
169hyperg_2F1_renorm = gsl_sf_hyperg_2F1_renorm 95hyperg_2F1_renorm = gsl_sf_hyperg_2F1_renorm
170foreign import ccall "gsl_sf_hyperg_2F1_renorm" gsl_sf_hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double 96foreign import ccall "gsl_sf_hyperg_2F1_renorm" gsl_sf_hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double
171
172-- | wrapper for int gsl_sf_hyperg_2F1_conj_renorm_e(double aR,double aI,double c,double x,gsl_sf_result* result);
173--
174-- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_conj_renorm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
175hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) 97hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double)
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 98hyperg_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
177foreign import ccall "gsl_sf_hyperg_2F1_conj_renorm_e" gsl_sf_hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt 99foreign import ccall "gsl_sf_hyperg_2F1_conj_renorm_e" gsl_sf_hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt
178
179-- | wrapper for double gsl_sf_hyperg_2F1_conj_renorm(double aR,double aI,double c,double x);
180--
181-- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_conj_renorm&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
182hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double 100hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double
183hyperg_2F1_conj_renorm = gsl_sf_hyperg_2F1_conj_renorm 101hyperg_2F1_conj_renorm = gsl_sf_hyperg_2F1_conj_renorm
184foreign import ccall "gsl_sf_hyperg_2F1_conj_renorm" gsl_sf_hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double 102foreign import ccall "gsl_sf_hyperg_2F1_conj_renorm" gsl_sf_hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double
185
186-- | wrapper for int gsl_sf_hyperg_2F0_e(double a,double b,double x,gsl_sf_result* result);
187--
188-- <http://www.google.com/search?q=gsl_sf_hyperg_2F0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
189hyperg_2F0_e :: Double -> Double -> Double -> (Double,Double) 103hyperg_2F0_e :: Double -> Double -> Double -> (Double,Double)
190hyperg_2F0_e a b x = createSFR "hyperg_2F0_e" $ gsl_sf_hyperg_2F0_e a b x 104hyperg_2F0_e a b x = createSFR "hyperg_2F0_e" $ gsl_sf_hyperg_2F0_e a b x
191foreign import ccall "gsl_sf_hyperg_2F0_e" gsl_sf_hyperg_2F0_e :: Double -> Double -> Double -> Ptr () -> IO CInt 105foreign import ccall "gsl_sf_hyperg_2F0_e" gsl_sf_hyperg_2F0_e :: Double -> Double -> Double -> Ptr () -> IO CInt
192
193-- | wrapper for double gsl_sf_hyperg_2F0(double a,double b,double x);
194--
195-- <http://www.google.com/search?q=gsl_sf_hyperg_2F0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
196hyperg_2F0 :: Double -> Double -> Double -> Double 106hyperg_2F0 :: Double -> Double -> Double -> Double
197hyperg_2F0 = gsl_sf_hyperg_2F0 107hyperg_2F0 = gsl_sf_hyperg_2F0
198foreign import ccall "gsl_sf_hyperg_2F0" gsl_sf_hyperg_2F0 :: Double -> Double -> Double -> Double 108foreign import ccall "gsl_sf_hyperg_2F0" gsl_sf_hyperg_2F0 :: Double -> Double -> Double -> Double
diff --git a/lib/Numeric/GSL/Special/Laguerre.hs b/lib/Numeric/GSL/Special/Laguerre.hs
index 71d2e49..3e4c486 100644
--- a/lib/Numeric/GSL/Special/Laguerre.hs
+++ b/lib/Numeric/GSL/Special/Laguerre.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Laguerre 3-- Module : Numeric.GSL.Special.Laguerre
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_laguerre.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_laguerre.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Laguerre( 15module Numeric.GSL.Special.Laguerre(
@@ -28,59 +26,27 @@ module Numeric.GSL.Special.Laguerre(
28import Foreign(Ptr) 26import Foreign(Ptr)
29import Foreign.C.Types(CInt) 27import Foreign.C.Types(CInt)
30import Numeric.GSL.Special.Internal 28import Numeric.GSL.Special.Internal
31
32-- | wrapper for int gsl_sf_laguerre_1_e(double a,double x,gsl_sf_result* result);
33--
34-- <http://www.google.com/search?q=gsl_sf_laguerre_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
35laguerre_1_e :: Double -> Double -> (Double,Double) 29laguerre_1_e :: Double -> Double -> (Double,Double)
36laguerre_1_e a x = createSFR "laguerre_1_e" $ gsl_sf_laguerre_1_e a x 30laguerre_1_e a x = createSFR "laguerre_1_e" $ gsl_sf_laguerre_1_e a x
37foreign import ccall "gsl_sf_laguerre_1_e" gsl_sf_laguerre_1_e :: Double -> Double -> Ptr () -> IO CInt 31foreign import ccall "gsl_sf_laguerre_1_e" gsl_sf_laguerre_1_e :: Double -> Double -> Ptr () -> IO CInt
38
39-- | wrapper for int gsl_sf_laguerre_2_e(double a,double x,gsl_sf_result* result);
40--
41-- <http://www.google.com/search?q=gsl_sf_laguerre_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
42laguerre_2_e :: Double -> Double -> (Double,Double) 32laguerre_2_e :: Double -> Double -> (Double,Double)
43laguerre_2_e a x = createSFR "laguerre_2_e" $ gsl_sf_laguerre_2_e a x 33laguerre_2_e a x = createSFR "laguerre_2_e" $ gsl_sf_laguerre_2_e a x
44foreign import ccall "gsl_sf_laguerre_2_e" gsl_sf_laguerre_2_e :: Double -> Double -> Ptr () -> IO CInt 34foreign import ccall "gsl_sf_laguerre_2_e" gsl_sf_laguerre_2_e :: Double -> Double -> Ptr () -> IO CInt
45
46-- | wrapper for int gsl_sf_laguerre_3_e(double a,double x,gsl_sf_result* result);
47--
48-- <http://www.google.com/search?q=gsl_sf_laguerre_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
49laguerre_3_e :: Double -> Double -> (Double,Double) 35laguerre_3_e :: Double -> Double -> (Double,Double)
50laguerre_3_e a x = createSFR "laguerre_3_e" $ gsl_sf_laguerre_3_e a x 36laguerre_3_e a x = createSFR "laguerre_3_e" $ gsl_sf_laguerre_3_e a x
51foreign import ccall "gsl_sf_laguerre_3_e" gsl_sf_laguerre_3_e :: Double -> Double -> Ptr () -> IO CInt 37foreign import ccall "gsl_sf_laguerre_3_e" gsl_sf_laguerre_3_e :: Double -> Double -> Ptr () -> IO CInt
52
53-- | wrapper for double gsl_sf_laguerre_1(double a,double x);
54--
55-- <http://www.google.com/search?q=gsl_sf_laguerre_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
56laguerre_1 :: Double -> Double -> Double 38laguerre_1 :: Double -> Double -> Double
57laguerre_1 = gsl_sf_laguerre_1 39laguerre_1 = gsl_sf_laguerre_1
58foreign import ccall "gsl_sf_laguerre_1" gsl_sf_laguerre_1 :: Double -> Double -> Double 40foreign import ccall "gsl_sf_laguerre_1" gsl_sf_laguerre_1 :: Double -> Double -> Double
59
60-- | wrapper for double gsl_sf_laguerre_2(double a,double x);
61--
62-- <http://www.google.com/search?q=gsl_sf_laguerre_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
63laguerre_2 :: Double -> Double -> Double 41laguerre_2 :: Double -> Double -> Double
64laguerre_2 = gsl_sf_laguerre_2 42laguerre_2 = gsl_sf_laguerre_2
65foreign import ccall "gsl_sf_laguerre_2" gsl_sf_laguerre_2 :: Double -> Double -> Double 43foreign import ccall "gsl_sf_laguerre_2" gsl_sf_laguerre_2 :: Double -> Double -> Double
66
67-- | wrapper for double gsl_sf_laguerre_3(double a,double x);
68--
69-- <http://www.google.com/search?q=gsl_sf_laguerre_3&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
70laguerre_3 :: Double -> Double -> Double 44laguerre_3 :: Double -> Double -> Double
71laguerre_3 = gsl_sf_laguerre_3 45laguerre_3 = gsl_sf_laguerre_3
72foreign import ccall "gsl_sf_laguerre_3" gsl_sf_laguerre_3 :: Double -> Double -> Double 46foreign import ccall "gsl_sf_laguerre_3" gsl_sf_laguerre_3 :: Double -> Double -> Double
73
74-- | wrapper for int gsl_sf_laguerre_n_e(int n,double a,double x,gsl_sf_result* result);
75--
76-- <http://www.google.com/search?q=gsl_sf_laguerre_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
77laguerre_n_e :: CInt -> Double -> Double -> (Double,Double) 47laguerre_n_e :: CInt -> Double -> Double -> (Double,Double)
78laguerre_n_e n a x = createSFR "laguerre_n_e" $ gsl_sf_laguerre_n_e n a x 48laguerre_n_e n a x = createSFR "laguerre_n_e" $ gsl_sf_laguerre_n_e n a x
79foreign import ccall "gsl_sf_laguerre_n_e" gsl_sf_laguerre_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt 49foreign import ccall "gsl_sf_laguerre_n_e" gsl_sf_laguerre_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt
80
81-- | wrapper for double gsl_sf_laguerre_n(int n,double a,double x);
82--
83-- <http://www.google.com/search?q=gsl_sf_laguerre_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
84laguerre_n :: CInt -> Double -> Double -> Double 50laguerre_n :: CInt -> Double -> Double -> Double
85laguerre_n = gsl_sf_laguerre_n 51laguerre_n = gsl_sf_laguerre_n
86foreign import ccall "gsl_sf_laguerre_n" gsl_sf_laguerre_n :: CInt -> Double -> Double -> Double 52foreign import ccall "gsl_sf_laguerre_n" gsl_sf_laguerre_n :: CInt -> Double -> Double -> Double
diff --git a/lib/Numeric/GSL/Special/Lambert.hs b/lib/Numeric/GSL/Special/Lambert.hs
index 3ea0596..7bc820c 100644
--- a/lib/Numeric/GSL/Special/Lambert.hs
+++ b/lib/Numeric/GSL/Special/Lambert.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Lambert 3-- Module : Numeric.GSL.Special.Lambert
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_lambert.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_lambert.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Lambert( 15module Numeric.GSL.Special.Lambert(
@@ -24,31 +22,15 @@ module Numeric.GSL.Special.Lambert(
24import Foreign(Ptr) 22import Foreign(Ptr)
25import Foreign.C.Types(CInt) 23import Foreign.C.Types(CInt)
26import Numeric.GSL.Special.Internal 24import Numeric.GSL.Special.Internal
27
28-- | wrapper for int gsl_sf_lambert_W0_e(double x,gsl_sf_result* result);
29--
30-- <http://www.google.com/search?q=gsl_sf_lambert_W0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
31lambert_W0_e :: Double -> (Double,Double) 25lambert_W0_e :: Double -> (Double,Double)
32lambert_W0_e x = createSFR "lambert_W0_e" $ gsl_sf_lambert_W0_e x 26lambert_W0_e x = createSFR "lambert_W0_e" $ gsl_sf_lambert_W0_e x
33foreign import ccall "gsl_sf_lambert_W0_e" gsl_sf_lambert_W0_e :: Double -> Ptr () -> IO CInt 27foreign import ccall "gsl_sf_lambert_W0_e" gsl_sf_lambert_W0_e :: Double -> Ptr () -> IO CInt
34
35-- | wrapper for double gsl_sf_lambert_W0(double x);
36--
37-- <http://www.google.com/search?q=gsl_sf_lambert_W0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
38lambert_W0 :: Double -> Double 28lambert_W0 :: Double -> Double
39lambert_W0 = gsl_sf_lambert_W0 29lambert_W0 = gsl_sf_lambert_W0
40foreign import ccall "gsl_sf_lambert_W0" gsl_sf_lambert_W0 :: Double -> Double 30foreign import ccall "gsl_sf_lambert_W0" gsl_sf_lambert_W0 :: Double -> Double
41
42-- | wrapper for int gsl_sf_lambert_Wm1_e(double x,gsl_sf_result* result);
43--
44-- <http://www.google.com/search?q=gsl_sf_lambert_Wm1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
45lambert_Wm1_e :: Double -> (Double,Double) 31lambert_Wm1_e :: Double -> (Double,Double)
46lambert_Wm1_e x = createSFR "lambert_Wm1_e" $ gsl_sf_lambert_Wm1_e x 32lambert_Wm1_e x = createSFR "lambert_Wm1_e" $ gsl_sf_lambert_Wm1_e x
47foreign import ccall "gsl_sf_lambert_Wm1_e" gsl_sf_lambert_Wm1_e :: Double -> Ptr () -> IO CInt 33foreign import ccall "gsl_sf_lambert_Wm1_e" gsl_sf_lambert_Wm1_e :: Double -> Ptr () -> IO CInt
48
49-- | wrapper for double gsl_sf_lambert_Wm1(double x);
50--
51-- <http://www.google.com/search?q=gsl_sf_lambert_Wm1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
52lambert_Wm1 :: Double -> Double 34lambert_Wm1 :: Double -> Double
53lambert_Wm1 = gsl_sf_lambert_Wm1 35lambert_Wm1 = gsl_sf_lambert_Wm1
54foreign import ccall "gsl_sf_lambert_Wm1" gsl_sf_lambert_Wm1 :: Double -> Double 36foreign import ccall "gsl_sf_lambert_Wm1" gsl_sf_lambert_Wm1 :: Double -> Double
diff --git a/lib/Numeric/GSL/Special/Legendre.hs b/lib/Numeric/GSL/Special/Legendre.hs
index 97b9543..c2526b9 100644
--- a/lib/Numeric/GSL/Special/Legendre.hs
+++ b/lib/Numeric/GSL/Special/Legendre.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Legendre 3-- Module : Numeric.GSL.Special.Legendre
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_legendre.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_legendre.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Legendre( 15module Numeric.GSL.Special.Legendre(
@@ -57,311 +55,135 @@ module Numeric.GSL.Special.Legendre(
57import Foreign(Ptr) 55import Foreign(Ptr)
58import Foreign.C.Types(CInt) 56import Foreign.C.Types(CInt)
59import Numeric.GSL.Special.Internal 57import Numeric.GSL.Special.Internal
60
61-- | wrapper for int gsl_sf_legendre_Pl_e(int l,double x,gsl_sf_result* result);
62--
63-- <http://www.google.com/search?q=gsl_sf_legendre_Pl_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
64legendre_Pl_e :: CInt -> Double -> (Double,Double) 58legendre_Pl_e :: CInt -> Double -> (Double,Double)
65legendre_Pl_e l x = createSFR "legendre_Pl_e" $ gsl_sf_legendre_Pl_e l x 59legendre_Pl_e l x = createSFR "legendre_Pl_e" $ gsl_sf_legendre_Pl_e l x
66foreign import ccall "gsl_sf_legendre_Pl_e" gsl_sf_legendre_Pl_e :: CInt -> Double -> Ptr () -> IO CInt 60foreign import ccall "gsl_sf_legendre_Pl_e" gsl_sf_legendre_Pl_e :: CInt -> Double -> Ptr () -> IO CInt
67
68-- | wrapper for double gsl_sf_legendre_Pl(int l,double x);
69--
70-- <http://www.google.com/search?q=gsl_sf_legendre_Pl&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
71legendre_Pl :: CInt -> Double -> Double 61legendre_Pl :: CInt -> Double -> Double
72legendre_Pl = gsl_sf_legendre_Pl 62legendre_Pl = gsl_sf_legendre_Pl
73foreign import ccall "gsl_sf_legendre_Pl" gsl_sf_legendre_Pl :: CInt -> Double -> Double 63foreign import ccall "gsl_sf_legendre_Pl" gsl_sf_legendre_Pl :: CInt -> Double -> Double
74
75-- | wrapper for int gsl_sf_legendre_Pl_array(int lmax,double x,double* result_array);
76--
77-- <http://www.google.com/search?q=gsl_sf_legendre_Pl_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
78legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt 64legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt
79legendre_Pl_array = gsl_sf_legendre_Pl_array 65legendre_Pl_array = gsl_sf_legendre_Pl_array
80foreign import ccall "gsl_sf_legendre_Pl_array" gsl_sf_legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt 66foreign import ccall "gsl_sf_legendre_Pl_array" gsl_sf_legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt
81
82-- | wrapper for int gsl_sf_legendre_Pl_deriv_array(int lmax,double x,double* result_array,double* result_deriv_array);
83--
84-- <http://www.google.com/search?q=gsl_sf_legendre_Pl_deriv_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
85legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt 67legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt
86legendre_Pl_deriv_array = gsl_sf_legendre_Pl_deriv_array 68legendre_Pl_deriv_array = gsl_sf_legendre_Pl_deriv_array
87foreign import ccall "gsl_sf_legendre_Pl_deriv_array" gsl_sf_legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt 69foreign import ccall "gsl_sf_legendre_Pl_deriv_array" gsl_sf_legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt
88
89-- | wrapper for int gsl_sf_legendre_P1_e(double x,gsl_sf_result* result);
90--
91-- <http://www.google.com/search?q=gsl_sf_legendre_P1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
92legendre_P1_e :: Double -> (Double,Double) 70legendre_P1_e :: Double -> (Double,Double)
93legendre_P1_e x = createSFR "legendre_P1_e" $ gsl_sf_legendre_P1_e x 71legendre_P1_e x = createSFR "legendre_P1_e" $ gsl_sf_legendre_P1_e x
94foreign import ccall "gsl_sf_legendre_P1_e" gsl_sf_legendre_P1_e :: Double -> Ptr () -> IO CInt 72foreign import ccall "gsl_sf_legendre_P1_e" gsl_sf_legendre_P1_e :: Double -> Ptr () -> IO CInt
95
96-- | wrapper for int gsl_sf_legendre_P2_e(double x,gsl_sf_result* result);
97--
98-- <http://www.google.com/search?q=gsl_sf_legendre_P2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
99legendre_P2_e :: Double -> (Double,Double) 73legendre_P2_e :: Double -> (Double,Double)
100legendre_P2_e x = createSFR "legendre_P2_e" $ gsl_sf_legendre_P2_e x 74legendre_P2_e x = createSFR "legendre_P2_e" $ gsl_sf_legendre_P2_e x
101foreign import ccall "gsl_sf_legendre_P2_e" gsl_sf_legendre_P2_e :: Double -> Ptr () -> IO CInt 75foreign import ccall "gsl_sf_legendre_P2_e" gsl_sf_legendre_P2_e :: Double -> Ptr () -> IO CInt
102
103-- | wrapper for int gsl_sf_legendre_P3_e(double x,gsl_sf_result* result);
104--
105-- <http://www.google.com/search?q=gsl_sf_legendre_P3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
106legendre_P3_e :: Double -> (Double,Double) 76legendre_P3_e :: Double -> (Double,Double)
107legendre_P3_e x = createSFR "legendre_P3_e" $ gsl_sf_legendre_P3_e x 77legendre_P3_e x = createSFR "legendre_P3_e" $ gsl_sf_legendre_P3_e x
108foreign import ccall "gsl_sf_legendre_P3_e" gsl_sf_legendre_P3_e :: Double -> Ptr () -> IO CInt 78foreign import ccall "gsl_sf_legendre_P3_e" gsl_sf_legendre_P3_e :: Double -> Ptr () -> IO CInt
109
110-- | wrapper for double gsl_sf_legendre_P1(double x);
111--
112-- <http://www.google.com/search?q=gsl_sf_legendre_P1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
113legendre_P1 :: Double -> Double 79legendre_P1 :: Double -> Double
114legendre_P1 = gsl_sf_legendre_P1 80legendre_P1 = gsl_sf_legendre_P1
115foreign import ccall "gsl_sf_legendre_P1" gsl_sf_legendre_P1 :: Double -> Double 81foreign import ccall "gsl_sf_legendre_P1" gsl_sf_legendre_P1 :: Double -> Double
116
117-- | wrapper for double gsl_sf_legendre_P2(double x);
118--
119-- <http://www.google.com/search?q=gsl_sf_legendre_P2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
120legendre_P2 :: Double -> Double 82legendre_P2 :: Double -> Double
121legendre_P2 = gsl_sf_legendre_P2 83legendre_P2 = gsl_sf_legendre_P2
122foreign import ccall "gsl_sf_legendre_P2" gsl_sf_legendre_P2 :: Double -> Double 84foreign import ccall "gsl_sf_legendre_P2" gsl_sf_legendre_P2 :: Double -> Double
123
124-- | wrapper for double gsl_sf_legendre_P3(double x);
125--
126-- <http://www.google.com/search?q=gsl_sf_legendre_P3&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
127legendre_P3 :: Double -> Double 85legendre_P3 :: Double -> Double
128legendre_P3 = gsl_sf_legendre_P3 86legendre_P3 = gsl_sf_legendre_P3
129foreign import ccall "gsl_sf_legendre_P3" gsl_sf_legendre_P3 :: Double -> Double 87foreign import ccall "gsl_sf_legendre_P3" gsl_sf_legendre_P3 :: Double -> Double
130
131-- | wrapper for int gsl_sf_legendre_Q0_e(double x,gsl_sf_result* result);
132--
133-- <http://www.google.com/search?q=gsl_sf_legendre_Q0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
134legendre_Q0_e :: Double -> (Double,Double) 88legendre_Q0_e :: Double -> (Double,Double)
135legendre_Q0_e x = createSFR "legendre_Q0_e" $ gsl_sf_legendre_Q0_e x 89legendre_Q0_e x = createSFR "legendre_Q0_e" $ gsl_sf_legendre_Q0_e x
136foreign import ccall "gsl_sf_legendre_Q0_e" gsl_sf_legendre_Q0_e :: Double -> Ptr () -> IO CInt 90foreign import ccall "gsl_sf_legendre_Q0_e" gsl_sf_legendre_Q0_e :: Double -> Ptr () -> IO CInt
137
138-- | wrapper for double gsl_sf_legendre_Q0(double x);
139--
140-- <http://www.google.com/search?q=gsl_sf_legendre_Q0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
141legendre_Q0 :: Double -> Double 91legendre_Q0 :: Double -> Double
142legendre_Q0 = gsl_sf_legendre_Q0 92legendre_Q0 = gsl_sf_legendre_Q0
143foreign import ccall "gsl_sf_legendre_Q0" gsl_sf_legendre_Q0 :: Double -> Double 93foreign import ccall "gsl_sf_legendre_Q0" gsl_sf_legendre_Q0 :: Double -> Double
144
145-- | wrapper for int gsl_sf_legendre_Q1_e(double x,gsl_sf_result* result);
146--
147-- <http://www.google.com/search?q=gsl_sf_legendre_Q1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
148legendre_Q1_e :: Double -> (Double,Double) 94legendre_Q1_e :: Double -> (Double,Double)
149legendre_Q1_e x = createSFR "legendre_Q1_e" $ gsl_sf_legendre_Q1_e x 95legendre_Q1_e x = createSFR "legendre_Q1_e" $ gsl_sf_legendre_Q1_e x
150foreign import ccall "gsl_sf_legendre_Q1_e" gsl_sf_legendre_Q1_e :: Double -> Ptr () -> IO CInt 96foreign import ccall "gsl_sf_legendre_Q1_e" gsl_sf_legendre_Q1_e :: Double -> Ptr () -> IO CInt
151
152-- | wrapper for double gsl_sf_legendre_Q1(double x);
153--
154-- <http://www.google.com/search?q=gsl_sf_legendre_Q1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
155legendre_Q1 :: Double -> Double 97legendre_Q1 :: Double -> Double
156legendre_Q1 = gsl_sf_legendre_Q1 98legendre_Q1 = gsl_sf_legendre_Q1
157foreign import ccall "gsl_sf_legendre_Q1" gsl_sf_legendre_Q1 :: Double -> Double 99foreign import ccall "gsl_sf_legendre_Q1" gsl_sf_legendre_Q1 :: Double -> Double
158
159-- | wrapper for int gsl_sf_legendre_Ql_e(int l,double x,gsl_sf_result* result);
160--
161-- <http://www.google.com/search?q=gsl_sf_legendre_Ql_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
162legendre_Ql_e :: CInt -> Double -> (Double,Double) 100legendre_Ql_e :: CInt -> Double -> (Double,Double)
163legendre_Ql_e l x = createSFR "legendre_Ql_e" $ gsl_sf_legendre_Ql_e l x 101legendre_Ql_e l x = createSFR "legendre_Ql_e" $ gsl_sf_legendre_Ql_e l x
164foreign import ccall "gsl_sf_legendre_Ql_e" gsl_sf_legendre_Ql_e :: CInt -> Double -> Ptr () -> IO CInt 102foreign import ccall "gsl_sf_legendre_Ql_e" gsl_sf_legendre_Ql_e :: CInt -> Double -> Ptr () -> IO CInt
165
166-- | wrapper for double gsl_sf_legendre_Ql(int l,double x);
167--
168-- <http://www.google.com/search?q=gsl_sf_legendre_Ql&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
169legendre_Ql :: CInt -> Double -> Double 103legendre_Ql :: CInt -> Double -> Double
170legendre_Ql = gsl_sf_legendre_Ql 104legendre_Ql = gsl_sf_legendre_Ql
171foreign import ccall "gsl_sf_legendre_Ql" gsl_sf_legendre_Ql :: CInt -> Double -> Double 105foreign import ccall "gsl_sf_legendre_Ql" gsl_sf_legendre_Ql :: CInt -> Double -> Double
172
173-- | wrapper for int gsl_sf_legendre_Plm_e(int l,int m,double x,gsl_sf_result* result);
174--
175-- <http://www.google.com/search?q=gsl_sf_legendre_Plm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
176legendre_Plm_e :: CInt -> CInt -> Double -> (Double,Double) 106legendre_Plm_e :: CInt -> CInt -> Double -> (Double,Double)
177legendre_Plm_e l m x = createSFR "legendre_Plm_e" $ gsl_sf_legendre_Plm_e l m x 107legendre_Plm_e l m x = createSFR "legendre_Plm_e" $ gsl_sf_legendre_Plm_e l m x
178foreign import ccall "gsl_sf_legendre_Plm_e" gsl_sf_legendre_Plm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt 108foreign import ccall "gsl_sf_legendre_Plm_e" gsl_sf_legendre_Plm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt
179
180-- | wrapper for double gsl_sf_legendre_Plm(int l,int m,double x);
181--
182-- <http://www.google.com/search?q=gsl_sf_legendre_Plm&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
183legendre_Plm :: CInt -> CInt -> Double -> Double 109legendre_Plm :: CInt -> CInt -> Double -> Double
184legendre_Plm = gsl_sf_legendre_Plm 110legendre_Plm = gsl_sf_legendre_Plm
185foreign import ccall "gsl_sf_legendre_Plm" gsl_sf_legendre_Plm :: CInt -> CInt -> Double -> Double 111foreign import ccall "gsl_sf_legendre_Plm" gsl_sf_legendre_Plm :: CInt -> CInt -> Double -> Double
186
187-- | wrapper for int gsl_sf_legendre_Plm_array(int lmax,int m,double x,double* result_array);
188--
189-- <http://www.google.com/search?q=gsl_sf_legendre_Plm_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
190legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt 112legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
191legendre_Plm_array = gsl_sf_legendre_Plm_array 113legendre_Plm_array = gsl_sf_legendre_Plm_array
192foreign import ccall "gsl_sf_legendre_Plm_array" gsl_sf_legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt 114foreign import ccall "gsl_sf_legendre_Plm_array" gsl_sf_legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
193
194-- | wrapper for int gsl_sf_legendre_Plm_deriv_array(int lmax,int m,double x,double* result_array,double* result_deriv_array);
195--
196-- <http://www.google.com/search?q=gsl_sf_legendre_Plm_deriv_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
197legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt 115legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt
198legendre_Plm_deriv_array = gsl_sf_legendre_Plm_deriv_array 116legendre_Plm_deriv_array = gsl_sf_legendre_Plm_deriv_array
199foreign import ccall "gsl_sf_legendre_Plm_deriv_array" gsl_sf_legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt 117foreign import ccall "gsl_sf_legendre_Plm_deriv_array" gsl_sf_legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt
200
201-- | wrapper for int gsl_sf_legendre_sphPlm_e(int l,int m,double x,gsl_sf_result* result);
202--
203-- <http://www.google.com/search?q=gsl_sf_legendre_sphPlm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
204legendre_sphPlm_e :: CInt -> CInt -> Double -> (Double,Double) 118legendre_sphPlm_e :: CInt -> CInt -> Double -> (Double,Double)
205legendre_sphPlm_e l m x = createSFR "legendre_sphPlm_e" $ gsl_sf_legendre_sphPlm_e l m x 119legendre_sphPlm_e l m x = createSFR "legendre_sphPlm_e" $ gsl_sf_legendre_sphPlm_e l m x
206foreign import ccall "gsl_sf_legendre_sphPlm_e" gsl_sf_legendre_sphPlm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt 120foreign import ccall "gsl_sf_legendre_sphPlm_e" gsl_sf_legendre_sphPlm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt
207
208-- | wrapper for double gsl_sf_legendre_sphPlm(int l,int m,double x);
209--
210-- <http://www.google.com/search?q=gsl_sf_legendre_sphPlm&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
211legendre_sphPlm :: CInt -> CInt -> Double -> Double 121legendre_sphPlm :: CInt -> CInt -> Double -> Double
212legendre_sphPlm = gsl_sf_legendre_sphPlm 122legendre_sphPlm = gsl_sf_legendre_sphPlm
213foreign import ccall "gsl_sf_legendre_sphPlm" gsl_sf_legendre_sphPlm :: CInt -> CInt -> Double -> Double 123foreign import ccall "gsl_sf_legendre_sphPlm" gsl_sf_legendre_sphPlm :: CInt -> CInt -> Double -> Double
214
215-- | wrapper for int gsl_sf_legendre_sphPlm_array(int lmax,int m,double x,double* result_array);
216--
217-- <http://www.google.com/search?q=gsl_sf_legendre_sphPlm_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
218legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt 124legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
219legendre_sphPlm_array = gsl_sf_legendre_sphPlm_array 125legendre_sphPlm_array = gsl_sf_legendre_sphPlm_array
220foreign import ccall "gsl_sf_legendre_sphPlm_array" gsl_sf_legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt 126foreign import ccall "gsl_sf_legendre_sphPlm_array" gsl_sf_legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt
221
222-- | wrapper for int gsl_sf_legendre_sphPlm_deriv_array(int lmax,int m,double x,double* result_array,double* result_deriv_array);
223--
224-- <http://www.google.com/search?q=gsl_sf_legendre_sphPlm_deriv_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
225legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt 127legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt
226legendre_sphPlm_deriv_array = gsl_sf_legendre_sphPlm_deriv_array 128legendre_sphPlm_deriv_array = gsl_sf_legendre_sphPlm_deriv_array
227foreign import ccall "gsl_sf_legendre_sphPlm_deriv_array" gsl_sf_legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt 129foreign import ccall "gsl_sf_legendre_sphPlm_deriv_array" gsl_sf_legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt
228
229-- | wrapper for int gsl_sf_legendre_array_size(int lmax,int m);
230--
231-- <http://www.google.com/search?q=gsl_sf_legendre_array_size&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
232legendre_array_size :: CInt -> CInt -> CInt 130legendre_array_size :: CInt -> CInt -> CInt
233legendre_array_size = gsl_sf_legendre_array_size 131legendre_array_size = gsl_sf_legendre_array_size
234foreign import ccall "gsl_sf_legendre_array_size" gsl_sf_legendre_array_size :: CInt -> CInt -> CInt 132foreign import ccall "gsl_sf_legendre_array_size" gsl_sf_legendre_array_size :: CInt -> CInt -> CInt
235
236-- | wrapper for int gsl_sf_conicalP_half_e(double lambda,double x,gsl_sf_result* result);
237--
238-- <http://www.google.com/search?q=gsl_sf_conicalP_half_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
239conicalP_half_e :: Double -> Double -> (Double,Double) 133conicalP_half_e :: Double -> Double -> (Double,Double)
240conicalP_half_e lambda x = createSFR "conicalP_half_e" $ gsl_sf_conicalP_half_e lambda x 134conicalP_half_e lambda x = createSFR "conicalP_half_e" $ gsl_sf_conicalP_half_e lambda x
241foreign import ccall "gsl_sf_conicalP_half_e" gsl_sf_conicalP_half_e :: Double -> Double -> Ptr () -> IO CInt 135foreign import ccall "gsl_sf_conicalP_half_e" gsl_sf_conicalP_half_e :: Double -> Double -> Ptr () -> IO CInt
242
243-- | wrapper for double gsl_sf_conicalP_half(double lambda,double x);
244--
245-- <http://www.google.com/search?q=gsl_sf_conicalP_half&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
246conicalP_half :: Double -> Double -> Double 136conicalP_half :: Double -> Double -> Double
247conicalP_half = gsl_sf_conicalP_half 137conicalP_half = gsl_sf_conicalP_half
248foreign import ccall "gsl_sf_conicalP_half" gsl_sf_conicalP_half :: Double -> Double -> Double 138foreign import ccall "gsl_sf_conicalP_half" gsl_sf_conicalP_half :: Double -> Double -> Double
249
250-- | wrapper for int gsl_sf_conicalP_mhalf_e(double lambda,double x,gsl_sf_result* result);
251--
252-- <http://www.google.com/search?q=gsl_sf_conicalP_mhalf_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
253conicalP_mhalf_e :: Double -> Double -> (Double,Double) 139conicalP_mhalf_e :: Double -> Double -> (Double,Double)
254conicalP_mhalf_e lambda x = createSFR "conicalP_mhalf_e" $ gsl_sf_conicalP_mhalf_e lambda x 140conicalP_mhalf_e lambda x = createSFR "conicalP_mhalf_e" $ gsl_sf_conicalP_mhalf_e lambda x
255foreign import ccall "gsl_sf_conicalP_mhalf_e" gsl_sf_conicalP_mhalf_e :: Double -> Double -> Ptr () -> IO CInt 141foreign import ccall "gsl_sf_conicalP_mhalf_e" gsl_sf_conicalP_mhalf_e :: Double -> Double -> Ptr () -> IO CInt
256
257-- | wrapper for double gsl_sf_conicalP_mhalf(double lambda,double x);
258--
259-- <http://www.google.com/search?q=gsl_sf_conicalP_mhalf&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
260conicalP_mhalf :: Double -> Double -> Double 142conicalP_mhalf :: Double -> Double -> Double
261conicalP_mhalf = gsl_sf_conicalP_mhalf 143conicalP_mhalf = gsl_sf_conicalP_mhalf
262foreign import ccall "gsl_sf_conicalP_mhalf" gsl_sf_conicalP_mhalf :: Double -> Double -> Double 144foreign import ccall "gsl_sf_conicalP_mhalf" gsl_sf_conicalP_mhalf :: Double -> Double -> Double
263
264-- | wrapper for int gsl_sf_conicalP_0_e(double lambda,double x,gsl_sf_result* result);
265--
266-- <http://www.google.com/search?q=gsl_sf_conicalP_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
267conicalP_0_e :: Double -> Double -> (Double,Double) 145conicalP_0_e :: Double -> Double -> (Double,Double)
268conicalP_0_e lambda x = createSFR "conicalP_0_e" $ gsl_sf_conicalP_0_e lambda x 146conicalP_0_e lambda x = createSFR "conicalP_0_e" $ gsl_sf_conicalP_0_e lambda x
269foreign import ccall "gsl_sf_conicalP_0_e" gsl_sf_conicalP_0_e :: Double -> Double -> Ptr () -> IO CInt 147foreign import ccall "gsl_sf_conicalP_0_e" gsl_sf_conicalP_0_e :: Double -> Double -> Ptr () -> IO CInt
270
271-- | wrapper for double gsl_sf_conicalP_0(double lambda,double x);
272--
273-- <http://www.google.com/search?q=gsl_sf_conicalP_0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
274conicalP_0 :: Double -> Double -> Double 148conicalP_0 :: Double -> Double -> Double
275conicalP_0 = gsl_sf_conicalP_0 149conicalP_0 = gsl_sf_conicalP_0
276foreign import ccall "gsl_sf_conicalP_0" gsl_sf_conicalP_0 :: Double -> Double -> Double 150foreign import ccall "gsl_sf_conicalP_0" gsl_sf_conicalP_0 :: Double -> Double -> Double
277
278-- | wrapper for int gsl_sf_conicalP_1_e(double lambda,double x,gsl_sf_result* result);
279--
280-- <http://www.google.com/search?q=gsl_sf_conicalP_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
281conicalP_1_e :: Double -> Double -> (Double,Double) 151conicalP_1_e :: Double -> Double -> (Double,Double)
282conicalP_1_e lambda x = createSFR "conicalP_1_e" $ gsl_sf_conicalP_1_e lambda x 152conicalP_1_e lambda x = createSFR "conicalP_1_e" $ gsl_sf_conicalP_1_e lambda x
283foreign import ccall "gsl_sf_conicalP_1_e" gsl_sf_conicalP_1_e :: Double -> Double -> Ptr () -> IO CInt 153foreign import ccall "gsl_sf_conicalP_1_e" gsl_sf_conicalP_1_e :: Double -> Double -> Ptr () -> IO CInt
284
285-- | wrapper for double gsl_sf_conicalP_1(double lambda,double x);
286--
287-- <http://www.google.com/search?q=gsl_sf_conicalP_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
288conicalP_1 :: Double -> Double -> Double 154conicalP_1 :: Double -> Double -> Double
289conicalP_1 = gsl_sf_conicalP_1 155conicalP_1 = gsl_sf_conicalP_1
290foreign import ccall "gsl_sf_conicalP_1" gsl_sf_conicalP_1 :: Double -> Double -> Double 156foreign import ccall "gsl_sf_conicalP_1" gsl_sf_conicalP_1 :: Double -> Double -> Double
291
292-- | wrapper for int gsl_sf_conicalP_sph_reg_e(int l,double lambda,double x,gsl_sf_result* result);
293--
294-- <http://www.google.com/search?q=gsl_sf_conicalP_sph_reg_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
295conicalP_sph_reg_e :: CInt -> Double -> Double -> (Double,Double) 157conicalP_sph_reg_e :: CInt -> Double -> Double -> (Double,Double)
296conicalP_sph_reg_e l lambda x = createSFR "conicalP_sph_reg_e" $ gsl_sf_conicalP_sph_reg_e l lambda x 158conicalP_sph_reg_e l lambda x = createSFR "conicalP_sph_reg_e" $ gsl_sf_conicalP_sph_reg_e l lambda x
297foreign import ccall "gsl_sf_conicalP_sph_reg_e" gsl_sf_conicalP_sph_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt 159foreign import ccall "gsl_sf_conicalP_sph_reg_e" gsl_sf_conicalP_sph_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt
298
299-- | wrapper for double gsl_sf_conicalP_sph_reg(int l,double lambda,double x);
300--
301-- <http://www.google.com/search?q=gsl_sf_conicalP_sph_reg&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
302conicalP_sph_reg :: CInt -> Double -> Double -> Double 160conicalP_sph_reg :: CInt -> Double -> Double -> Double
303conicalP_sph_reg = gsl_sf_conicalP_sph_reg 161conicalP_sph_reg = gsl_sf_conicalP_sph_reg
304foreign import ccall "gsl_sf_conicalP_sph_reg" gsl_sf_conicalP_sph_reg :: CInt -> Double -> Double -> Double 162foreign import ccall "gsl_sf_conicalP_sph_reg" gsl_sf_conicalP_sph_reg :: CInt -> Double -> Double -> Double
305
306-- | wrapper for int gsl_sf_conicalP_cyl_reg_e(int m,double lambda,double x,gsl_sf_result* result);
307--
308-- <http://www.google.com/search?q=gsl_sf_conicalP_cyl_reg_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
309conicalP_cyl_reg_e :: CInt -> Double -> Double -> (Double,Double) 163conicalP_cyl_reg_e :: CInt -> Double -> Double -> (Double,Double)
310conicalP_cyl_reg_e m lambda x = createSFR "conicalP_cyl_reg_e" $ gsl_sf_conicalP_cyl_reg_e m lambda x 164conicalP_cyl_reg_e m lambda x = createSFR "conicalP_cyl_reg_e" $ gsl_sf_conicalP_cyl_reg_e m lambda x
311foreign import ccall "gsl_sf_conicalP_cyl_reg_e" gsl_sf_conicalP_cyl_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt 165foreign import ccall "gsl_sf_conicalP_cyl_reg_e" gsl_sf_conicalP_cyl_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt
312
313-- | wrapper for double gsl_sf_conicalP_cyl_reg(int m,double lambda,double x);
314--
315-- <http://www.google.com/search?q=gsl_sf_conicalP_cyl_reg&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
316conicalP_cyl_reg :: CInt -> Double -> Double -> Double 166conicalP_cyl_reg :: CInt -> Double -> Double -> Double
317conicalP_cyl_reg = gsl_sf_conicalP_cyl_reg 167conicalP_cyl_reg = gsl_sf_conicalP_cyl_reg
318foreign import ccall "gsl_sf_conicalP_cyl_reg" gsl_sf_conicalP_cyl_reg :: CInt -> Double -> Double -> Double 168foreign import ccall "gsl_sf_conicalP_cyl_reg" gsl_sf_conicalP_cyl_reg :: CInt -> Double -> Double -> Double
319
320-- | wrapper for int gsl_sf_legendre_H3d_0_e(double lambda,double eta,gsl_sf_result* result);
321--
322-- <http://www.google.com/search?q=gsl_sf_legendre_H3d_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
323legendre_H3d_0_e :: Double -> Double -> (Double,Double) 169legendre_H3d_0_e :: Double -> Double -> (Double,Double)
324legendre_H3d_0_e lambda eta = createSFR "legendre_H3d_0_e" $ gsl_sf_legendre_H3d_0_e lambda eta 170legendre_H3d_0_e lambda eta = createSFR "legendre_H3d_0_e" $ gsl_sf_legendre_H3d_0_e lambda eta
325foreign import ccall "gsl_sf_legendre_H3d_0_e" gsl_sf_legendre_H3d_0_e :: Double -> Double -> Ptr () -> IO CInt 171foreign import ccall "gsl_sf_legendre_H3d_0_e" gsl_sf_legendre_H3d_0_e :: Double -> Double -> Ptr () -> IO CInt
326
327-- | wrapper for double gsl_sf_legendre_H3d_0(double lambda,double eta);
328--
329-- <http://www.google.com/search?q=gsl_sf_legendre_H3d_0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
330legendre_H3d_0 :: Double -> Double -> Double 172legendre_H3d_0 :: Double -> Double -> Double
331legendre_H3d_0 = gsl_sf_legendre_H3d_0 173legendre_H3d_0 = gsl_sf_legendre_H3d_0
332foreign import ccall "gsl_sf_legendre_H3d_0" gsl_sf_legendre_H3d_0 :: Double -> Double -> Double 174foreign import ccall "gsl_sf_legendre_H3d_0" gsl_sf_legendre_H3d_0 :: Double -> Double -> Double
333
334-- | wrapper for int gsl_sf_legendre_H3d_1_e(double lambda,double eta,gsl_sf_result* result);
335--
336-- <http://www.google.com/search?q=gsl_sf_legendre_H3d_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
337legendre_H3d_1_e :: Double -> Double -> (Double,Double) 175legendre_H3d_1_e :: Double -> Double -> (Double,Double)
338legendre_H3d_1_e lambda eta = createSFR "legendre_H3d_1_e" $ gsl_sf_legendre_H3d_1_e lambda eta 176legendre_H3d_1_e lambda eta = createSFR "legendre_H3d_1_e" $ gsl_sf_legendre_H3d_1_e lambda eta
339foreign import ccall "gsl_sf_legendre_H3d_1_e" gsl_sf_legendre_H3d_1_e :: Double -> Double -> Ptr () -> IO CInt 177foreign import ccall "gsl_sf_legendre_H3d_1_e" gsl_sf_legendre_H3d_1_e :: Double -> Double -> Ptr () -> IO CInt
340
341-- | wrapper for double gsl_sf_legendre_H3d_1(double lambda,double eta);
342--
343-- <http://www.google.com/search?q=gsl_sf_legendre_H3d_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
344legendre_H3d_1 :: Double -> Double -> Double 178legendre_H3d_1 :: Double -> Double -> Double
345legendre_H3d_1 = gsl_sf_legendre_H3d_1 179legendre_H3d_1 = gsl_sf_legendre_H3d_1
346foreign import ccall "gsl_sf_legendre_H3d_1" gsl_sf_legendre_H3d_1 :: Double -> Double -> Double 180foreign import ccall "gsl_sf_legendre_H3d_1" gsl_sf_legendre_H3d_1 :: Double -> Double -> Double
347
348-- | wrapper for int gsl_sf_legendre_H3d_e(int l,double lambda,double eta,gsl_sf_result* result);
349--
350-- <http://www.google.com/search?q=gsl_sf_legendre_H3d_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
351legendre_H3d_e :: CInt -> Double -> Double -> (Double,Double) 181legendre_H3d_e :: CInt -> Double -> Double -> (Double,Double)
352legendre_H3d_e l lambda eta = createSFR "legendre_H3d_e" $ gsl_sf_legendre_H3d_e l lambda eta 182legendre_H3d_e l lambda eta = createSFR "legendre_H3d_e" $ gsl_sf_legendre_H3d_e l lambda eta
353foreign import ccall "gsl_sf_legendre_H3d_e" gsl_sf_legendre_H3d_e :: CInt -> Double -> Double -> Ptr () -> IO CInt 183foreign import ccall "gsl_sf_legendre_H3d_e" gsl_sf_legendre_H3d_e :: CInt -> Double -> Double -> Ptr () -> IO CInt
354
355-- | wrapper for double gsl_sf_legendre_H3d(int l,double lambda,double eta);
356--
357-- <http://www.google.com/search?q=gsl_sf_legendre_H3d&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
358legendre_H3d :: CInt -> Double -> Double -> Double 184legendre_H3d :: CInt -> Double -> Double -> Double
359legendre_H3d = gsl_sf_legendre_H3d 185legendre_H3d = gsl_sf_legendre_H3d
360foreign import ccall "gsl_sf_legendre_H3d" gsl_sf_legendre_H3d :: CInt -> Double -> Double -> Double 186foreign import ccall "gsl_sf_legendre_H3d" gsl_sf_legendre_H3d :: CInt -> Double -> Double -> Double
361
362-- | wrapper for int gsl_sf_legendre_H3d_array(int lmax,double lambda,double eta,double* result_array);
363--
364-- <http://www.google.com/search?q=gsl_sf_legendre_H3d_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
365legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt 187legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt
366legendre_H3d_array = gsl_sf_legendre_H3d_array 188legendre_H3d_array = gsl_sf_legendre_H3d_array
367foreign import ccall "gsl_sf_legendre_H3d_array" gsl_sf_legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt 189foreign import ccall "gsl_sf_legendre_H3d_array" gsl_sf_legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt
diff --git a/lib/Numeric/GSL/Special/Log.hs b/lib/Numeric/GSL/Special/Log.hs
index 370c5bd..665b74b 100644
--- a/lib/Numeric/GSL/Special/Log.hs
+++ b/lib/Numeric/GSL/Special/Log.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Log 3-- Module : Numeric.GSL.Special.Log
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_log.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_log.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Log( 15module Numeric.GSL.Special.Log(
@@ -28,66 +26,30 @@ module Numeric.GSL.Special.Log(
28import Foreign(Ptr) 26import Foreign(Ptr)
29import Foreign.C.Types(CInt) 27import Foreign.C.Types(CInt)
30import Numeric.GSL.Special.Internal 28import Numeric.GSL.Special.Internal
31
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>
35log_e :: Double -> (Double,Double) 29log_e :: Double -> (Double,Double)
36log_e x = createSFR "log_e" $ gsl_sf_log_e x 30log_e x = createSFR "log_e" $ gsl_sf_log_e x
37foreign import ccall "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt 31foreign import ccall "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt
38
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>
42log :: Double -> Double 32log :: Double -> Double
43log = gsl_sf_log 33log = gsl_sf_log
44foreign import ccall "gsl_sf_log" gsl_sf_log :: Double -> Double 34foreign import ccall "gsl_sf_log" gsl_sf_log :: Double -> Double
45
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>
49log_abs_e :: Double -> (Double,Double) 35log_abs_e :: Double -> (Double,Double)
50log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x 36log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x
51foreign import ccall "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt 37foreign import ccall "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt
52
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>
56log_abs :: Double -> Double 38log_abs :: Double -> Double
57log_abs = gsl_sf_log_abs 39log_abs = gsl_sf_log_abs
58foreign import ccall "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double 40foreign import ccall "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double
59
60-- | wrapper for int gsl_sf_complex_log_e(double zr,double zi,gsl_sf_result* lnr,gsl_sf_result* theta);
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) 41complex_log_e :: Double -> Double -> Ptr () -> (Double,Double)
64complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr 42complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr
65foreign import ccall "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 43foreign import ccall "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
66
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>
70log_1plusx_e :: Double -> (Double,Double) 44log_1plusx_e :: Double -> (Double,Double)
71log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x 45log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x
72foreign import ccall "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt 46foreign import ccall "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt
73
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>
77log_1plusx :: Double -> Double 47log_1plusx :: Double -> Double
78log_1plusx = gsl_sf_log_1plusx 48log_1plusx = gsl_sf_log_1plusx
79foreign import ccall "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double 49foreign import ccall "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double
80
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>
84log_1plusx_mx_e :: Double -> (Double,Double) 50log_1plusx_mx_e :: Double -> (Double,Double)
85log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x 51log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x
86foreign import ccall "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt 52foreign import ccall "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt
87
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>
91log_1plusx_mx :: Double -> Double 53log_1plusx_mx :: Double -> Double
92log_1plusx_mx = gsl_sf_log_1plusx_mx 54log_1plusx_mx = gsl_sf_log_1plusx_mx
93foreign import ccall "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double 55foreign import ccall "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double
diff --git a/lib/Numeric/GSL/Special/Pow_int.hs b/lib/Numeric/GSL/Special/Pow_int.hs
index a1a1066..d6c77b2 100644
--- a/lib/Numeric/GSL/Special/Pow_int.hs
+++ b/lib/Numeric/GSL/Special/Pow_int.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Pow_int 3-- Module : Numeric.GSL.Special.Pow_int
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_pow_int.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_pow_int.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Pow_int( 15module Numeric.GSL.Special.Pow_int(
@@ -22,17 +20,9 @@ module Numeric.GSL.Special.Pow_int(
22import Foreign(Ptr) 20import Foreign(Ptr)
23import Foreign.C.Types(CInt) 21import Foreign.C.Types(CInt)
24import Numeric.GSL.Special.Internal 22import Numeric.GSL.Special.Internal
25
26-- | wrapper for int gsl_sf_pow_int_e(double x,int n,gsl_sf_result* result);
27--
28-- <http://www.google.com/search?q=gsl_sf_pow_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
29pow_int_e :: Double -> CInt -> (Double,Double) 23pow_int_e :: Double -> CInt -> (Double,Double)
30pow_int_e x n = createSFR "pow_int_e" $ gsl_sf_pow_int_e x n 24pow_int_e x n = createSFR "pow_int_e" $ gsl_sf_pow_int_e x n
31foreign import ccall "gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt 25foreign import ccall "gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt
32
33-- | wrapper for double gsl_sf_pow_int(double x,int n);
34--
35-- <http://www.google.com/search?q=gsl_sf_pow_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
36pow_int :: Double -> CInt -> Double 26pow_int :: Double -> CInt -> Double
37pow_int = gsl_sf_pow_int 27pow_int = gsl_sf_pow_int
38foreign import ccall "gsl_sf_pow_int" gsl_sf_pow_int :: Double -> CInt -> Double 28foreign import ccall "gsl_sf_pow_int" gsl_sf_pow_int :: Double -> CInt -> Double
diff --git a/lib/Numeric/GSL/Special/Psi.hs b/lib/Numeric/GSL/Special/Psi.hs
index 2bd2848..871365c 100644
--- a/lib/Numeric/GSL/Special/Psi.hs
+++ b/lib/Numeric/GSL/Special/Psi.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Psi 3-- Module : Numeric.GSL.Special.Psi
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_psi.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_psi.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Psi( 15module Numeric.GSL.Special.Psi(
@@ -32,94 +30,42 @@ module Numeric.GSL.Special.Psi(
32import Foreign(Ptr) 30import Foreign(Ptr)
33import Foreign.C.Types(CInt) 31import Foreign.C.Types(CInt)
34import Numeric.GSL.Special.Internal 32import Numeric.GSL.Special.Internal
35
36-- | wrapper for int gsl_sf_psi_int_e(int n,gsl_sf_result* result);
37--
38-- <http://www.google.com/search?q=gsl_sf_psi_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
39psi_int_e :: CInt -> (Double,Double) 33psi_int_e :: CInt -> (Double,Double)
40psi_int_e n = createSFR "psi_int_e" $ gsl_sf_psi_int_e n 34psi_int_e n = createSFR "psi_int_e" $ gsl_sf_psi_int_e n
41foreign import ccall "gsl_sf_psi_int_e" gsl_sf_psi_int_e :: CInt -> Ptr () -> IO CInt 35foreign import ccall "gsl_sf_psi_int_e" gsl_sf_psi_int_e :: CInt -> Ptr () -> IO CInt
42
43-- | wrapper for double gsl_sf_psi_int(int n);
44--
45-- <http://www.google.com/search?q=gsl_sf_psi_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
46psi_int :: CInt -> Double 36psi_int :: CInt -> Double
47psi_int = gsl_sf_psi_int 37psi_int = gsl_sf_psi_int
48foreign import ccall "gsl_sf_psi_int" gsl_sf_psi_int :: CInt -> Double 38foreign import ccall "gsl_sf_psi_int" gsl_sf_psi_int :: CInt -> Double
49
50-- | wrapper for int gsl_sf_psi_e(double x,gsl_sf_result* result);
51--
52-- <http://www.google.com/search?q=gsl_sf_psi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
53psi_e :: Double -> (Double,Double) 39psi_e :: Double -> (Double,Double)
54psi_e x = createSFR "psi_e" $ gsl_sf_psi_e x 40psi_e x = createSFR "psi_e" $ gsl_sf_psi_e x
55foreign import ccall "gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr () -> IO CInt 41foreign import ccall "gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr () -> IO CInt
56
57-- | wrapper for double gsl_sf_psi(double x);
58--
59-- <http://www.google.com/search?q=gsl_sf_psi&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
60psi :: Double -> Double 42psi :: Double -> Double
61psi = gsl_sf_psi 43psi = gsl_sf_psi
62foreign import ccall "gsl_sf_psi" gsl_sf_psi :: Double -> Double 44foreign import ccall "gsl_sf_psi" gsl_sf_psi :: Double -> Double
63
64-- | wrapper for int gsl_sf_psi_1piy_e(double y,gsl_sf_result* result);
65--
66-- <http://www.google.com/search?q=gsl_sf_psi_1piy_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
67psi_1piy_e :: Double -> (Double,Double) 45psi_1piy_e :: Double -> (Double,Double)
68psi_1piy_e y = createSFR "psi_1piy_e" $ gsl_sf_psi_1piy_e y 46psi_1piy_e y = createSFR "psi_1piy_e" $ gsl_sf_psi_1piy_e y
69foreign import ccall "gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr () -> IO CInt 47foreign import ccall "gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr () -> IO CInt
70
71-- | wrapper for double gsl_sf_psi_1piy(double y);
72--
73-- <http://www.google.com/search?q=gsl_sf_psi_1piy&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
74psi_1piy :: Double -> Double 48psi_1piy :: Double -> Double
75psi_1piy = gsl_sf_psi_1piy 49psi_1piy = gsl_sf_psi_1piy
76foreign import ccall "gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double 50foreign import ccall "gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double
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) 51complex_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 52complex_psi_e x y result_re = createSFR "complex_psi_e" $ gsl_sf_complex_psi_e x y result_re
83foreign import ccall "gsl_sf_complex_psi_e" gsl_sf_complex_psi_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 53foreign import ccall "gsl_sf_complex_psi_e" gsl_sf_complex_psi_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
84
85-- | wrapper for int gsl_sf_psi_1_int_e(int n,gsl_sf_result* result);
86--
87-- <http://www.google.com/search?q=gsl_sf_psi_1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
88psi_1_int_e :: CInt -> (Double,Double) 54psi_1_int_e :: CInt -> (Double,Double)
89psi_1_int_e n = createSFR "psi_1_int_e" $ gsl_sf_psi_1_int_e n 55psi_1_int_e n = createSFR "psi_1_int_e" $ gsl_sf_psi_1_int_e n
90foreign import ccall "gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: CInt -> Ptr () -> IO CInt 56foreign import ccall "gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: CInt -> Ptr () -> IO CInt
91
92-- | wrapper for double gsl_sf_psi_1_int(int n);
93--
94-- <http://www.google.com/search?q=gsl_sf_psi_1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
95psi_1_int :: CInt -> Double 57psi_1_int :: CInt -> Double
96psi_1_int = gsl_sf_psi_1_int 58psi_1_int = gsl_sf_psi_1_int
97foreign import ccall "gsl_sf_psi_1_int" gsl_sf_psi_1_int :: CInt -> Double 59foreign import ccall "gsl_sf_psi_1_int" gsl_sf_psi_1_int :: CInt -> Double
98
99-- | wrapper for int gsl_sf_psi_1_e(double x,gsl_sf_result* result);
100--
101-- <http://www.google.com/search?q=gsl_sf_psi_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
102psi_1_e :: Double -> (Double,Double) 60psi_1_e :: Double -> (Double,Double)
103psi_1_e x = createSFR "psi_1_e" $ gsl_sf_psi_1_e x 61psi_1_e x = createSFR "psi_1_e" $ gsl_sf_psi_1_e x
104foreign import ccall "gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr () -> IO CInt 62foreign import ccall "gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr () -> IO CInt
105
106-- | wrapper for double gsl_sf_psi_1(double x);
107--
108-- <http://www.google.com/search?q=gsl_sf_psi_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
109psi_1 :: Double -> Double 63psi_1 :: Double -> Double
110psi_1 = gsl_sf_psi_1 64psi_1 = gsl_sf_psi_1
111foreign import ccall "gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double 65foreign import ccall "gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double
112
113-- | wrapper for int gsl_sf_psi_n_e(int n,double x,gsl_sf_result* result);
114--
115-- <http://www.google.com/search?q=gsl_sf_psi_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
116psi_n_e :: CInt -> Double -> (Double,Double) 66psi_n_e :: CInt -> Double -> (Double,Double)
117psi_n_e n x = createSFR "psi_n_e" $ gsl_sf_psi_n_e n x 67psi_n_e n x = createSFR "psi_n_e" $ gsl_sf_psi_n_e n x
118foreign import ccall "gsl_sf_psi_n_e" gsl_sf_psi_n_e :: CInt -> Double -> Ptr () -> IO CInt 68foreign import ccall "gsl_sf_psi_n_e" gsl_sf_psi_n_e :: CInt -> Double -> Ptr () -> IO CInt
119
120-- | wrapper for double gsl_sf_psi_n(int n,double x);
121--
122-- <http://www.google.com/search?q=gsl_sf_psi_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
123psi_n :: CInt -> Double -> Double 69psi_n :: CInt -> Double -> Double
124psi_n = gsl_sf_psi_n 70psi_n = gsl_sf_psi_n
125foreign import ccall "gsl_sf_psi_n" gsl_sf_psi_n :: CInt -> Double -> Double 71foreign import ccall "gsl_sf_psi_n" gsl_sf_psi_n :: CInt -> Double -> Double
diff --git a/lib/Numeric/GSL/Special/Synchrotron.hs b/lib/Numeric/GSL/Special/Synchrotron.hs
index 7f2785d..6103a8a 100644
--- a/lib/Numeric/GSL/Special/Synchrotron.hs
+++ b/lib/Numeric/GSL/Special/Synchrotron.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Synchrotron 3-- Module : Numeric.GSL.Special.Synchrotron
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_synchrotron.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_synchrotron.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Synchrotron( 15module Numeric.GSL.Special.Synchrotron(
@@ -24,31 +22,15 @@ module Numeric.GSL.Special.Synchrotron(
24import Foreign(Ptr) 22import Foreign(Ptr)
25import Foreign.C.Types(CInt) 23import Foreign.C.Types(CInt)
26import Numeric.GSL.Special.Internal 24import Numeric.GSL.Special.Internal
27
28-- | wrapper for int gsl_sf_synchrotron_1_e(double x,gsl_sf_result* result);
29--
30-- <http://www.google.com/search?q=gsl_sf_synchrotron_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
31synchrotron_1_e :: Double -> (Double,Double) 25synchrotron_1_e :: Double -> (Double,Double)
32synchrotron_1_e x = createSFR "synchrotron_1_e" $ gsl_sf_synchrotron_1_e x 26synchrotron_1_e x = createSFR "synchrotron_1_e" $ gsl_sf_synchrotron_1_e x
33foreign import ccall "gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr () -> IO CInt 27foreign import ccall "gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr () -> IO CInt
34
35-- | wrapper for double gsl_sf_synchrotron_1(double x);
36--
37-- <http://www.google.com/search?q=gsl_sf_synchrotron_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
38synchrotron_1 :: Double -> Double 28synchrotron_1 :: Double -> Double
39synchrotron_1 = gsl_sf_synchrotron_1 29synchrotron_1 = gsl_sf_synchrotron_1
40foreign import ccall "gsl_sf_synchrotron_1" gsl_sf_synchrotron_1 :: Double -> Double 30foreign import ccall "gsl_sf_synchrotron_1" gsl_sf_synchrotron_1 :: Double -> Double
41
42-- | wrapper for int gsl_sf_synchrotron_2_e(double x,gsl_sf_result* result);
43--
44-- <http://www.google.com/search?q=gsl_sf_synchrotron_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
45synchrotron_2_e :: Double -> (Double,Double) 31synchrotron_2_e :: Double -> (Double,Double)
46synchrotron_2_e x = createSFR "synchrotron_2_e" $ gsl_sf_synchrotron_2_e x 32synchrotron_2_e x = createSFR "synchrotron_2_e" $ gsl_sf_synchrotron_2_e x
47foreign import ccall "gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr () -> IO CInt 33foreign import ccall "gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr () -> IO CInt
48
49-- | wrapper for double gsl_sf_synchrotron_2(double x);
50--
51-- <http://www.google.com/search?q=gsl_sf_synchrotron_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
52synchrotron_2 :: Double -> Double 34synchrotron_2 :: Double -> Double
53synchrotron_2 = gsl_sf_synchrotron_2 35synchrotron_2 = gsl_sf_synchrotron_2
54foreign import ccall "gsl_sf_synchrotron_2" gsl_sf_synchrotron_2 :: Double -> Double 36foreign import ccall "gsl_sf_synchrotron_2" gsl_sf_synchrotron_2 :: Double -> Double
diff --git a/lib/Numeric/GSL/Special/Transport.hs b/lib/Numeric/GSL/Special/Transport.hs
new file mode 100644
index 0000000..3bdf1cf
--- /dev/null
+++ b/lib/Numeric/GSL/Special/Transport.hs
@@ -0,0 +1,52 @@
1------------------------------------------------------------
2-- |
3-- Module : Numeric.GSL.Special.Transport
4-- Copyright : (c) Alberto Ruiz 2006
5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional
8-- Portability : uses ffi
9--
10-- Wrappers for selected functions described at:
11--
12-- <http://www.google.com/search?q=gsl_sf_transport.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13------------------------------------------------------------
14
15module Numeric.GSL.Special.Transport(
16 transport_2_e
17, transport_2
18, transport_3_e
19, transport_3
20, transport_4_e
21, transport_4
22, transport_5_e
23, transport_5
24) where
25
26import Foreign(Ptr)
27import Foreign.C.Types(CInt)
28import Numeric.GSL.Special.Internal
29transport_2_e :: Double -> (Double,Double)
30transport_2_e x = createSFR "transport_2_e" $ gsl_sf_transport_2_e x
31foreign import ccall "gsl_sf_transport_2_e" gsl_sf_transport_2_e :: Double -> Ptr () -> IO CInt
32transport_2 :: Double -> Double
33transport_2 = gsl_sf_transport_2
34foreign import ccall "gsl_sf_transport_2" gsl_sf_transport_2 :: Double -> Double
35transport_3_e :: Double -> (Double,Double)
36transport_3_e x = createSFR "transport_3_e" $ gsl_sf_transport_3_e x
37foreign import ccall "gsl_sf_transport_3_e" gsl_sf_transport_3_e :: Double -> Ptr () -> IO CInt
38transport_3 :: Double -> Double
39transport_3 = gsl_sf_transport_3
40foreign import ccall "gsl_sf_transport_3" gsl_sf_transport_3 :: Double -> Double
41transport_4_e :: Double -> (Double,Double)
42transport_4_e x = createSFR "transport_4_e" $ gsl_sf_transport_4_e x
43foreign import ccall "gsl_sf_transport_4_e" gsl_sf_transport_4_e :: Double -> Ptr () -> IO CInt
44transport_4 :: Double -> Double
45transport_4 = gsl_sf_transport_4
46foreign import ccall "gsl_sf_transport_4" gsl_sf_transport_4 :: Double -> Double
47transport_5_e :: Double -> (Double,Double)
48transport_5_e x = createSFR "transport_5_e" $ gsl_sf_transport_5_e x
49foreign import ccall "gsl_sf_transport_5_e" gsl_sf_transport_5_e :: Double -> Ptr () -> IO CInt
50transport_5 :: Double -> Double
51transport_5 = gsl_sf_transport_5
52foreign import ccall "gsl_sf_transport_5" gsl_sf_transport_5 :: Double -> Double
diff --git a/lib/Numeric/GSL/Special/Trig.hs b/lib/Numeric/GSL/Special/Trig.hs
index 1869733..f670070 100644
--- a/lib/Numeric/GSL/Special/Trig.hs
+++ b/lib/Numeric/GSL/Special/Trig.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Trig 3-- Module : Numeric.GSL.Special.Trig
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_trig.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_trig.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Trig( 15module Numeric.GSL.Special.Trig(
@@ -38,178 +36,78 @@ module Numeric.GSL.Special.Trig(
38import Foreign(Ptr) 36import Foreign(Ptr)
39import Foreign.C.Types(CInt) 37import Foreign.C.Types(CInt)
40import Numeric.GSL.Special.Internal 38import Numeric.GSL.Special.Internal
41
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>
45sin_e :: Double -> (Double,Double) 39sin_e :: Double -> (Double,Double)
46sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x 40sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x
47foreign import ccall "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt 41foreign import ccall "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt
48
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>
52sin :: Double -> Double 42sin :: Double -> Double
53sin = gsl_sf_sin 43sin = gsl_sf_sin
54foreign import ccall "gsl_sf_sin" gsl_sf_sin :: Double -> Double 44foreign import ccall "gsl_sf_sin" gsl_sf_sin :: Double -> Double
55
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>
59cos_e :: Double -> (Double,Double) 45cos_e :: Double -> (Double,Double)
60cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x 46cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x
61foreign import ccall "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt 47foreign import ccall "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt
62
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>
66cos :: Double -> Double 48cos :: Double -> Double
67cos = gsl_sf_cos 49cos = gsl_sf_cos
68foreign import ccall "gsl_sf_cos" gsl_sf_cos :: Double -> Double 50foreign import ccall "gsl_sf_cos" gsl_sf_cos :: Double -> Double
69
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>
73hypot_e :: Double -> Double -> (Double,Double) 51hypot_e :: Double -> Double -> (Double,Double)
74hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y 52hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y
75foreign import ccall "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt 53foreign import ccall "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt
76
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>
80hypot :: Double -> Double -> Double 54hypot :: Double -> Double -> Double
81hypot = gsl_sf_hypot 55hypot = gsl_sf_hypot
82foreign import ccall "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double 56foreign import ccall "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double
83
84-- | wrapper for int gsl_sf_complex_sin_e(double zr,double zi,gsl_sf_result* szr,gsl_sf_result* szi);
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) 57complex_sin_e :: Double -> Double -> Ptr () -> (Double,Double)
88complex_sin_e zr zi szr = createSFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi szr 58complex_sin_e zr zi szr = createSFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi szr
89foreign import ccall "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 59foreign import ccall "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
90
91-- | wrapper for int gsl_sf_complex_cos_e(double zr,double zi,gsl_sf_result* czr,gsl_sf_result* czi);
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) 60complex_cos_e :: Double -> Double -> Ptr () -> (Double,Double)
95complex_cos_e zr zi czr = createSFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi czr 61complex_cos_e zr zi czr = createSFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi czr
96foreign import ccall "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 62foreign import ccall "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
97
98-- | wrapper for int gsl_sf_complex_logsin_e(double zr,double zi,gsl_sf_result* lszr,gsl_sf_result* lszi);
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) 63complex_logsin_e :: Double -> Double -> Ptr () -> (Double,Double)
102complex_logsin_e zr zi lszr = createSFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi lszr 64complex_logsin_e zr zi lszr = createSFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi lszr
103foreign import ccall "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 65foreign import ccall "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
104
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>
108sinc_e :: Double -> (Double,Double) 66sinc_e :: Double -> (Double,Double)
109sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x 67sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x
110foreign import ccall "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt 68foreign import ccall "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt
111
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>
115sinc :: Double -> Double 69sinc :: Double -> Double
116sinc = gsl_sf_sinc 70sinc = gsl_sf_sinc
117foreign import ccall "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double 71foreign import ccall "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double
118
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>
122lnsinh_e :: Double -> (Double,Double) 72lnsinh_e :: Double -> (Double,Double)
123lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x 73lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x
124foreign import ccall "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt 74foreign import ccall "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt
125
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>
129lnsinh :: Double -> Double 75lnsinh :: Double -> Double
130lnsinh = gsl_sf_lnsinh 76lnsinh = gsl_sf_lnsinh
131foreign import ccall "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double 77foreign import ccall "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double
132
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>
136lncosh_e :: Double -> (Double,Double) 78lncosh_e :: Double -> (Double,Double)
137lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x 79lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x
138foreign import ccall "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt 80foreign import ccall "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt
139
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>
143lncosh :: Double -> Double 81lncosh :: Double -> Double
144lncosh = gsl_sf_lncosh 82lncosh = gsl_sf_lncosh
145foreign import ccall "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double 83foreign import ccall "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double
146
147-- | wrapper for int gsl_sf_polar_to_rect(double r,double theta,gsl_sf_result* x,gsl_sf_result* y);
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) 84polar_to_rect :: Double -> Double -> Ptr () -> (Double,Double)
151polar_to_rect r theta x = createSFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta x 85polar_to_rect r theta x = createSFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta x
152foreign import ccall "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 86foreign import ccall "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
153
154-- | wrapper for int gsl_sf_rect_to_polar(double x,double y,gsl_sf_result* r,gsl_sf_result* theta);
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) 87rect_to_polar :: Double -> Double -> Ptr () -> (Double,Double)
158rect_to_polar x y r = createSFR "rect_to_polar" $ gsl_sf_rect_to_polar x y r 88rect_to_polar x y r = createSFR "rect_to_polar" $ gsl_sf_rect_to_polar x y r
159foreign import ccall "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 89foreign import ccall "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
160
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>
164sin_err_e :: Double -> Double -> (Double,Double) 90sin_err_e :: Double -> Double -> (Double,Double)
165sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx 91sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx
166foreign import ccall "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt 92foreign import ccall "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt
167
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>
171cos_err_e :: Double -> Double -> (Double,Double) 93cos_err_e :: Double -> Double -> (Double,Double)
172cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx 94cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx
173foreign import ccall "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt 95foreign import ccall "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt
174
175-- | wrapper for int gsl_sf_angle_restrict_symm_e(double* theta);
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 96angle_restrict_symm_e :: Ptr Double -> CInt
179angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e 97angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e
180foreign import ccall "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt 98foreign import ccall "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt
181
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>
185angle_restrict_symm :: Double -> Double 99angle_restrict_symm :: Double -> Double
186angle_restrict_symm = gsl_sf_angle_restrict_symm 100angle_restrict_symm = gsl_sf_angle_restrict_symm
187foreign import ccall "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double 101foreign import ccall "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double
188
189-- | wrapper for int gsl_sf_angle_restrict_pos_e(double* theta);
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 102angle_restrict_pos_e :: Ptr Double -> CInt
193angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e 103angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e
194foreign import ccall "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt 104foreign import ccall "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt
195
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>
199angle_restrict_pos :: Double -> Double 105angle_restrict_pos :: Double -> Double
200angle_restrict_pos = gsl_sf_angle_restrict_pos 106angle_restrict_pos = gsl_sf_angle_restrict_pos
201foreign import ccall "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double 107foreign import ccall "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double
202
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>
206angle_restrict_symm_err_e :: Double -> (Double,Double) 108angle_restrict_symm_err_e :: Double -> (Double,Double)
207angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta 109angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta
208foreign import ccall "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt 110foreign import ccall "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt
209
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>
213angle_restrict_pos_err_e :: Double -> (Double,Double) 111angle_restrict_pos_err_e :: Double -> (Double,Double)
214angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta 112angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta
215foreign import ccall "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt 113foreign import ccall "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt
diff --git a/lib/Numeric/GSL/Special/Zeta.hs b/lib/Numeric/GSL/Special/Zeta.hs
index a78d0e8..45c0f48 100644
--- a/lib/Numeric/GSL/Special/Zeta.hs
+++ b/lib/Numeric/GSL/Special/Zeta.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Zeta 3-- Module : Numeric.GSL.Special.Zeta
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_zeta.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_zeta.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Zeta( 15module Numeric.GSL.Special.Zeta(
@@ -34,101 +32,45 @@ module Numeric.GSL.Special.Zeta(
34import Foreign(Ptr) 32import Foreign(Ptr)
35import Foreign.C.Types(CInt) 33import Foreign.C.Types(CInt)
36import Numeric.GSL.Special.Internal 34import Numeric.GSL.Special.Internal
37
38-- | wrapper for int gsl_sf_zeta_int_e(int n,gsl_sf_result* result);
39--
40-- <http://www.google.com/search?q=gsl_sf_zeta_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
41zeta_int_e :: CInt -> (Double,Double) 35zeta_int_e :: CInt -> (Double,Double)
42zeta_int_e n = createSFR "zeta_int_e" $ gsl_sf_zeta_int_e n 36zeta_int_e n = createSFR "zeta_int_e" $ gsl_sf_zeta_int_e n
43foreign import ccall "gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: CInt -> Ptr () -> IO CInt 37foreign import ccall "gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: CInt -> Ptr () -> IO CInt
44
45-- | wrapper for double gsl_sf_zeta_int(int n);
46--
47-- <http://www.google.com/search?q=gsl_sf_zeta_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
48zeta_int :: CInt -> Double 38zeta_int :: CInt -> Double
49zeta_int = gsl_sf_zeta_int 39zeta_int = gsl_sf_zeta_int
50foreign import ccall "gsl_sf_zeta_int" gsl_sf_zeta_int :: CInt -> Double 40foreign import ccall "gsl_sf_zeta_int" gsl_sf_zeta_int :: CInt -> Double
51
52-- | wrapper for int gsl_sf_zeta_e(double s,gsl_sf_result* result);
53--
54-- <http://www.google.com/search?q=gsl_sf_zeta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
55zeta_e :: Double -> (Double,Double) 41zeta_e :: Double -> (Double,Double)
56zeta_e s = createSFR "zeta_e" $ gsl_sf_zeta_e s 42zeta_e s = createSFR "zeta_e" $ gsl_sf_zeta_e s
57foreign import ccall "gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr () -> IO CInt 43foreign import ccall "gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr () -> IO CInt
58
59-- | wrapper for double gsl_sf_zeta(double s);
60--
61-- <http://www.google.com/search?q=gsl_sf_zeta&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
62zeta :: Double -> Double 44zeta :: Double -> Double
63zeta = gsl_sf_zeta 45zeta = gsl_sf_zeta
64foreign import ccall "gsl_sf_zeta" gsl_sf_zeta :: Double -> Double 46foreign import ccall "gsl_sf_zeta" gsl_sf_zeta :: Double -> Double
65
66-- | wrapper for int gsl_sf_zetam1_e(double s,gsl_sf_result* result);
67--
68-- <http://www.google.com/search?q=gsl_sf_zetam1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
69zetam1_e :: Double -> (Double,Double) 47zetam1_e :: Double -> (Double,Double)
70zetam1_e s = createSFR "zetam1_e" $ gsl_sf_zetam1_e s 48zetam1_e s = createSFR "zetam1_e" $ gsl_sf_zetam1_e s
71foreign import ccall "gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr () -> IO CInt 49foreign import ccall "gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr () -> IO CInt
72
73-- | wrapper for double gsl_sf_zetam1(double s);
74--
75-- <http://www.google.com/search?q=gsl_sf_zetam1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
76zetam1 :: Double -> Double 50zetam1 :: Double -> Double
77zetam1 = gsl_sf_zetam1 51zetam1 = gsl_sf_zetam1
78foreign import ccall "gsl_sf_zetam1" gsl_sf_zetam1 :: Double -> Double 52foreign import ccall "gsl_sf_zetam1" gsl_sf_zetam1 :: Double -> Double
79
80-- | wrapper for int gsl_sf_zetam1_int_e(int s,gsl_sf_result* result);
81--
82-- <http://www.google.com/search?q=gsl_sf_zetam1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
83zetam1_int_e :: CInt -> (Double,Double) 53zetam1_int_e :: CInt -> (Double,Double)
84zetam1_int_e s = createSFR "zetam1_int_e" $ gsl_sf_zetam1_int_e s 54zetam1_int_e s = createSFR "zetam1_int_e" $ gsl_sf_zetam1_int_e s
85foreign import ccall "gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: CInt -> Ptr () -> IO CInt 55foreign import ccall "gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: CInt -> Ptr () -> IO CInt
86
87-- | wrapper for double gsl_sf_zetam1_int(int s);
88--
89-- <http://www.google.com/search?q=gsl_sf_zetam1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
90zetam1_int :: CInt -> Double 56zetam1_int :: CInt -> Double
91zetam1_int = gsl_sf_zetam1_int 57zetam1_int = gsl_sf_zetam1_int
92foreign import ccall "gsl_sf_zetam1_int" gsl_sf_zetam1_int :: CInt -> Double 58foreign import ccall "gsl_sf_zetam1_int" gsl_sf_zetam1_int :: CInt -> Double
93
94-- | wrapper for int gsl_sf_hzeta_e(double s,double q,gsl_sf_result* result);
95--
96-- <http://www.google.com/search?q=gsl_sf_hzeta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
97hzeta_e :: Double -> Double -> (Double,Double) 59hzeta_e :: Double -> Double -> (Double,Double)
98hzeta_e s q = createSFR "hzeta_e" $ gsl_sf_hzeta_e s q 60hzeta_e s q = createSFR "hzeta_e" $ gsl_sf_hzeta_e s q
99foreign import ccall "gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr () -> IO CInt 61foreign import ccall "gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr () -> IO CInt
100
101-- | wrapper for double gsl_sf_hzeta(double s,double q);
102--
103-- <http://www.google.com/search?q=gsl_sf_hzeta&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
104hzeta :: Double -> Double -> Double 62hzeta :: Double -> Double -> Double
105hzeta = gsl_sf_hzeta 63hzeta = gsl_sf_hzeta
106foreign import ccall "gsl_sf_hzeta" gsl_sf_hzeta :: Double -> Double -> Double 64foreign import ccall "gsl_sf_hzeta" gsl_sf_hzeta :: Double -> Double -> Double
107
108-- | wrapper for int gsl_sf_eta_int_e(int n,gsl_sf_result* result);
109--
110-- <http://www.google.com/search?q=gsl_sf_eta_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
111eta_int_e :: CInt -> (Double,Double) 65eta_int_e :: CInt -> (Double,Double)
112eta_int_e n = createSFR "eta_int_e" $ gsl_sf_eta_int_e n 66eta_int_e n = createSFR "eta_int_e" $ gsl_sf_eta_int_e n
113foreign import ccall "gsl_sf_eta_int_e" gsl_sf_eta_int_e :: CInt -> Ptr () -> IO CInt 67foreign import ccall "gsl_sf_eta_int_e" gsl_sf_eta_int_e :: CInt -> Ptr () -> IO CInt
114
115-- | wrapper for double gsl_sf_eta_int(int n);
116--
117-- <http://www.google.com/search?q=gsl_sf_eta_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
118eta_int :: CInt -> Double 68eta_int :: CInt -> Double
119eta_int = gsl_sf_eta_int 69eta_int = gsl_sf_eta_int
120foreign import ccall "gsl_sf_eta_int" gsl_sf_eta_int :: CInt -> Double 70foreign import ccall "gsl_sf_eta_int" gsl_sf_eta_int :: CInt -> Double
121
122-- | wrapper for int gsl_sf_eta_e(double s,gsl_sf_result* result);
123--
124-- <http://www.google.com/search?q=gsl_sf_eta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
125eta_e :: Double -> (Double,Double) 71eta_e :: Double -> (Double,Double)
126eta_e s = createSFR "eta_e" $ gsl_sf_eta_e s 72eta_e s = createSFR "eta_e" $ gsl_sf_eta_e s
127foreign import ccall "gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr () -> IO CInt 73foreign import ccall "gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr () -> IO CInt
128
129-- | wrapper for double gsl_sf_eta(double s);
130--
131-- <http://www.google.com/search?q=gsl_sf_eta&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
132eta :: Double -> Double 74eta :: Double -> Double
133eta = gsl_sf_eta 75eta = gsl_sf_eta
134foreign import ccall "gsl_sf_eta" gsl_sf_eta :: Double -> Double 76foreign import ccall "gsl_sf_eta" gsl_sf_eta :: Double -> Double
diff --git a/lib/Numeric/GSL/Special/auto.hs b/lib/Numeric/GSL/Special/auto.hs
index c8b0529..6727399 100644
--- a/lib/Numeric/GSL/Special/auto.hs
+++ b/lib/Numeric/GSL/Special/auto.hs
@@ -67,23 +67,26 @@ main = do
67 ++"import Numeric.GSL.Special.Internal\n" 67 ++"import Numeric.GSL.Special.Internal\n"
68 let mod = modhead name ++ "module Numeric.GSL.Special."++ upperFirst name++exports++imports++defs 68 let mod = modhead name ++ "module Numeric.GSL.Special."++ upperFirst name++exports++imports++defs
69 writeFile (upperFirst name ++ ".hs") mod 69 writeFile (upperFirst name ++ ".hs") mod
70-- appendFile "funs.txt" $ rep ("(\n ","-- * "
71-- ++map toUpper name
72-- -- ++"\n"++google ( "gsl_sf_"++name++".h")++"\n"
73-- ++"\n,") $ rep (") where","") $ exports
70 74
71 75
72google name = "<http://www.google.com/search?q=" 76google name = "<http://www.google.com/search?q="
73 ++name 77 ++name
74 ++"&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>" 78 ++"&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>"
75 79
76modhead name = replicate 60 '-' ++ "\n" 80modhead name = replicate 60 '-' ++ "\n-- |\n"
77 ++"{- |\n" 81 ++"-- Module : Numeric.GSL.Special."++upperFirst name++"\n"
78 ++"Module : Numeric.GSL.Special."++upperFirst name++"\n" 82 ++"-- Copyright : (c) Alberto Ruiz 2006\n"
79 ++"Copyright : (c) Alberto Ruiz 2006\n" 83 ++"-- License : GPL\n"
80 ++"License : GPL-style\n" 84 ++"-- Maintainer : Alberto Ruiz (aruiz at um dot es)\n"
81 ++"Maintainer : Alberto Ruiz (aruiz at um dot es)\n" 85 ++"-- Stability : provisional\n"
82 ++"Stability : provisional\n" 86 ++"-- Portability : uses ffi\n"
83 ++"Portability : uses ffi\n" 87 ++"--\n"
84 ++"\nWrappers for selected functions described at:\n\n" 88 ++"-- Wrappers for selected functions described at:\n--\n-- "
85 ++ google ( "gsl_sf_"++name++".h") 89 ++ google ( "gsl_sf_"++name++".h")++"\n"
86 ++"\n\n-}\n"
87 ++ replicate 60 '-' ++ "\n\n" 90 ++ replicate 60 '-' ++ "\n\n"
88 91
89upperFirst (x:xs) = toUpper x : xs 92upperFirst (x:xs) = toUpper x : xs
@@ -194,10 +197,11 @@ showHt (Pointer t) = "Ptr "++ht t
194 197
195showHa (t,a) = showHt t 198showHa (t,a) = showHt t
196 199
197showFull hc h@(Header t n args) = "\n-- | wrapper for "++showC h 200showFull hc h@(Header t n args) = -- "\n-- | wrapper for "++showC h
198 ++"\n--\n-- "++google n ++"\n" 201 -- ++"\n--\n-- "++google n ++"\n"
199 ++ boiler h ++"\n" 202 -- ++ "\n" ++
200 ++showH hc h 203 boiler h ++ "\n" ++
204 showH hc h
201 205
202fixmd1 = rep ("Gsl_mode_t","Precision") 206fixmd1 = rep ("Gsl_mode_t","Precision")
203fixmd2 = rep ("mode"," (precCode mode)") 207fixmd2 = rep ("mode"," (precCode mode)")
diff --git a/lib/Numeric/GSL/Special/autoall.sh b/lib/Numeric/GSL/Special/autoall.sh
index b9ea6d0..18d0a6e 100644
--- a/lib/Numeric/GSL/Special/autoall.sh
+++ b/lib/Numeric/GSL/Special/autoall.sh
@@ -5,6 +5,7 @@ function rep {
5 cp /tmp/tmp-rep $3 5 cp /tmp/tmp-rep $3
6} 6}
7 7
8rm -f funs.txt
8 9
9./auto.hs airy 10./auto.hs airy
10rep ') where' ', Precision(..)\n) where' Airy.hs 11rep ') where' ', Precision(..)\n) where' Airy.hs
@@ -18,6 +19,7 @@ rep ', coupling_6j_INCORRECT_e\n, coupling_6j_INCORRECT\n' '' Coupling.hs
18./auto.hs dilog 19./auto.hs dilog
19./auto.hs elementary 20./auto.hs elementary
20./auto.hs ellint 21./auto.hs ellint
22#./auto.hs elljac
21./auto.hs erf 23./auto.hs erf
22./auto.hs exp 24./auto.hs exp
23rep ', exp\n' ', Numeric.GSL.Special.Exp.exp\n' Exp.hs 25rep ', exp\n' ', Numeric.GSL.Special.Exp.exp\n' Exp.hs
@@ -29,12 +31,14 @@ rep ', exprel_n_CF_e' '-- , exprel_n_CF_e' Exp.hs
29./auto.hs hyperg 31./auto.hs hyperg
30./auto.hs laguerre 32./auto.hs laguerre
31./auto.hs lambert 33./auto.hs lambert
32./auto.hs legendre gsl_sf_legendre.h 34./auto.hs legendre
33./auto.hs log 35./auto.hs log
34rep ', log\n' ', Numeric.GSL.Special.Log.log\n' Log.hs 36rep ', log\n' ', Numeric.GSL.Special.Log.log\n' Log.hs
37#./auto.hs mathieu
35./auto.hs pow_int 38./auto.hs pow_int
36./auto.hs psi 39./auto.hs psi
37./auto.hs synchrotron 40./auto.hs synchrotron
41./auto.hs transport
38./auto.hs trig 42./auto.hs trig
39rep ', sin\n' ', Numeric.GSL.Special.Trig.sin\n' Trig.hs 43rep ', sin\n' ', Numeric.GSL.Special.Trig.sin\n' Trig.hs
40rep ', cos\n' ', Numeric.GSL.Special.Trig.cos\n' Trig.hs 44rep ', cos\n' ', Numeric.GSL.Special.Trig.cos\n' Trig.hs
diff --git a/lib/Numeric/GSL/Special/gsl_sf_legendre.h b/lib/Numeric/GSL/Special/gsl_sf_legendre.h
deleted file mode 100644
index f8068f4..0000000
--- a/lib/Numeric/GSL/Special/gsl_sf_legendre.h
+++ /dev/null
@@ -1,319 +0,0 @@
1/* specfunc/gsl_sf_legendre.h
2 *
3 * Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2004 Gerard Jungman
4 *
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; either version 2 of the License, or (at
8 * your option) any later version.
9 *
10 * This program is distributed in the hope that it will be useful, but
11 * WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * General Public License for more details.
14 *
15 * You should have received a copy of the GNU General Public License
16 * along with this program; if not, write to the Free Software
17 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
18 */
19
20/* Author: G. Jungman */
21
22#ifndef __GSL_SF_LEGENDRE_H__
23#define __GSL_SF_LEGENDRE_H__
24
25#include <gsl/gsl_sf_result.h>
26
27#undef __BEGIN_DECLS
28#undef __END_DECLS
29#ifdef __cplusplus
30# define __BEGIN_DECLS extern "C" {
31# define __END_DECLS }
32#else
33# define __BEGIN_DECLS /* empty */
34# define __END_DECLS /* empty */
35#endif
36
37__BEGIN_DECLS
38
39
40/* P_l(x) l >= 0; |x| <= 1
41 *
42 * exceptions: GSL_EDOM
43 */
44int gsl_sf_legendre_Pl_e(const int l, const double x, gsl_sf_result * result);
45double gsl_sf_legendre_Pl(const int l, const double x);
46
47
48/* P_l(x) for l=0,...,lmax; |x| <= 1
49 *
50 * exceptions: GSL_EDOM
51 */
52int gsl_sf_legendre_Pl_array(
53 const int lmax, const double x,
54 double * result_array
55 );
56
57
58/* P_l(x) and P_l'(x) for l=0,...,lmax; |x| <= 1
59 *
60 * exceptions: GSL_EDOM
61 */
62int gsl_sf_legendre_Pl_deriv_array(
63 const int lmax, const double x,
64 double * result_array,
65 double * result_deriv_array
66 );
67
68
69/* P_l(x), l=1,2,3
70 *
71 * exceptions: none
72 */
73int gsl_sf_legendre_P1_e(double x, gsl_sf_result * result);
74int gsl_sf_legendre_P2_e(double x, gsl_sf_result * result);
75int gsl_sf_legendre_P3_e(double x, gsl_sf_result * result);
76double gsl_sf_legendre_P1(const double x);
77double gsl_sf_legendre_P2(const double x);
78double gsl_sf_legendre_P3(const double x);
79
80
81/* Q_0(x), x > -1, x != 1
82 *
83 * exceptions: GSL_EDOM
84 */
85int gsl_sf_legendre_Q0_e(const double x, gsl_sf_result * result);
86double gsl_sf_legendre_Q0(const double x);
87
88
89/* Q_1(x), x > -1, x != 1
90 *
91 * exceptions: GSL_EDOM
92 */
93int gsl_sf_legendre_Q1_e(const double x, gsl_sf_result * result);
94double gsl_sf_legendre_Q1(const double x);
95
96
97/* Q_l(x), x > -1, x != 1, l >= 0
98 *
99 * exceptions: GSL_EDOM
100 */
101int gsl_sf_legendre_Ql_e(const int l, const double x, gsl_sf_result * result);
102double gsl_sf_legendre_Ql(const int l, const double x);
103
104
105/* P_l^m(x) m >= 0; l >= m; |x| <= 1.0
106 *
107 * Note that this function grows combinatorially with l.
108 * Therefore we can easily generate an overflow for l larger
109 * than about 150.
110 *
111 * There is no trouble for small m, but when m and l are both large,
112 * then there will be trouble. Rather than allow overflows, these
113 * functions refuse to calculate when they can sense that l and m are
114 * too big.
115 *
116 * If you really want to calculate a spherical harmonic, then DO NOT
117 * use this. Instead use legendre_sphPlm() below, which uses a similar
118 * recursion, but with the normalized functions.
119 *
120 * exceptions: GSL_EDOM, GSL_EOVRFLW
121 */
122int gsl_sf_legendre_Plm_e(const int l, const int m, const double x, gsl_sf_result * result);
123double gsl_sf_legendre_Plm(const int l, const int m, const double x);
124
125
126/* P_l^m(x) m >= 0; l >= m; |x| <= 1.0
127 * l=|m|,...,lmax
128 *
129 * exceptions: GSL_EDOM, GSL_EOVRFLW
130 */
131int gsl_sf_legendre_Plm_array(
132 const int lmax, const int m, const double x,
133 double * result_array
134 );
135
136
137/* P_l^m(x) and d(P_l^m(x))/dx; m >= 0; lmax >= m; |x| <= 1.0
138 * l=|m|,...,lmax
139 *
140 * exceptions: GSL_EDOM, GSL_EOVRFLW
141 */
142int gsl_sf_legendre_Plm_deriv_array(
143 const int lmax, const int m, const double x,
144 double * result_array,
145 double * result_deriv_array
146 );
147
148
149/* P_l^m(x), normalized properly for use in spherical harmonics
150 * m >= 0; l >= m; |x| <= 1.0
151 *
152 * There is no overflow problem, as there is for the
153 * standard normalization of P_l^m(x).
154 *
155 * Specifically, it returns:
156 *
157 * sqrt((2l+1)/(4pi)) sqrt((l-m)!/(l+m)!) P_l^m(x)
158 *
159 * exceptions: GSL_EDOM
160 */
161int gsl_sf_legendre_sphPlm_e(const int l, int m, const double x, gsl_sf_result * result);
162double gsl_sf_legendre_sphPlm(const int l, const int m, const double x);
163
164
165/* sphPlm(l,m,x) values
166 * m >= 0; l >= m; |x| <= 1.0
167 * l=|m|,...,lmax
168 *
169 * exceptions: GSL_EDOM
170 */
171int gsl_sf_legendre_sphPlm_array(
172 const int lmax, int m, const double x,
173 double * result_array
174 );
175
176
177/* sphPlm(l,m,x) and d(sphPlm(l,m,x))/dx values
178 * m >= 0; l >= m; |x| <= 1.0
179 * l=|m|,...,lmax
180 *
181 * exceptions: GSL_EDOM
182 */
183int gsl_sf_legendre_sphPlm_deriv_array(
184 const int lmax, const int m, const double x,
185 double * result_array,
186 double * result_deriv_array
187 );
188
189
190
191/* size of result_array[] needed for the array versions of Plm
192 * (lmax - m + 1)
193 */
194int gsl_sf_legendre_array_size(const int lmax, const int m);
195
196
197/* Irregular Spherical Conical Function
198 * P^{1/2}_{-1/2 + I lambda}(x)
199 *
200 * x > -1.0
201 * exceptions: GSL_EDOM
202 */
203int gsl_sf_conicalP_half_e(const double lambda, const double x, gsl_sf_result * result);
204double gsl_sf_conicalP_half(const double lambda, const double x);
205
206
207/* Regular Spherical Conical Function
208 * P^{-1/2}_{-1/2 + I lambda}(x)
209 *
210 * x > -1.0
211 * exceptions: GSL_EDOM
212 */
213int gsl_sf_conicalP_mhalf_e(const double lambda, const double x, gsl_sf_result * result);
214double gsl_sf_conicalP_mhalf(const double lambda, const double x);
215
216
217/* Conical Function
218 * P^{0}_{-1/2 + I lambda}(x)
219 *
220 * x > -1.0
221 * exceptions: GSL_EDOM
222 */
223int gsl_sf_conicalP_0_e(const double lambda, const double x, gsl_sf_result * result);
224double gsl_sf_conicalP_0(const double lambda, const double x);
225
226
227/* Conical Function
228 * P^{1}_{-1/2 + I lambda}(x)
229 *
230 * x > -1.0
231 * exceptions: GSL_EDOM
232 */
233int gsl_sf_conicalP_1_e(const double lambda, const double x, gsl_sf_result * result);
234double gsl_sf_conicalP_1(const double lambda, const double x);
235
236
237/* Regular Spherical Conical Function
238 * P^{-1/2-l}_{-1/2 + I lambda}(x)
239 *
240 * x > -1.0, l >= -1
241 * exceptions: GSL_EDOM
242 */
243int gsl_sf_conicalP_sph_reg_e(const int l, const double lambda, const double x, gsl_sf_result * result);
244double gsl_sf_conicalP_sph_reg(const int l, const double lambda, const double x);
245
246
247/* Regular Cylindrical Conical Function
248 * P^{-m}_{-1/2 + I lambda}(x)
249 *
250 * x > -1.0, m >= -1
251 * exceptions: GSL_EDOM
252 */
253int gsl_sf_conicalP_cyl_reg_e(const int m, const double lambda, const double x, gsl_sf_result * result);
254double gsl_sf_conicalP_cyl_reg(const int m, const double lambda, const double x);
255
256
257/* The following spherical functions are specializations
258 * of Legendre functions which give the regular eigenfunctions
259 * of the Laplacian on a 3-dimensional hyperbolic space.
260 * Of particular interest is the flat limit, which is
261 * Flat-Lim := {lambda->Inf, eta->0, lambda*eta fixed}.
262 */
263
264/* Zeroth radial eigenfunction of the Laplacian on the
265 * 3-dimensional hyperbolic space.
266 *
267 * legendre_H3d_0(lambda,eta) := sin(lambda*eta)/(lambda*sinh(eta))
268 *
269 * Normalization:
270 * Flat-Lim legendre_H3d_0(lambda,eta) = j_0(lambda*eta)
271 *
272 * eta >= 0.0
273 * exceptions: GSL_EDOM
274 */
275int gsl_sf_legendre_H3d_0_e(const double lambda, const double eta, gsl_sf_result * result);
276double gsl_sf_legendre_H3d_0(const double lambda, const double eta);
277
278
279/* First radial eigenfunction of the Laplacian on the
280 * 3-dimensional hyperbolic space.
281 *
282 * legendre_H3d_1(lambda,eta) :=
283 * 1/sqrt(lambda^2 + 1) sin(lam eta)/(lam sinh(eta))
284 * (coth(eta) - lambda cot(lambda*eta))
285 *
286 * Normalization:
287 * Flat-Lim legendre_H3d_1(lambda,eta) = j_1(lambda*eta)
288 *
289 * eta >= 0.0
290 * exceptions: GSL_EDOM
291 */
292int gsl_sf_legendre_H3d_1_e(const double lambda, const double eta, gsl_sf_result * result);
293double gsl_sf_legendre_H3d_1(const double lambda, const double eta);
294
295
296/* l'th radial eigenfunction of the Laplacian on the
297 * 3-dimensional hyperbolic space.
298 *
299 * Normalization:
300 * Flat-Lim legendre_H3d_l(l,lambda,eta) = j_l(lambda*eta)
301 *
302 * eta >= 0.0, l >= 0
303 * exceptions: GSL_EDOM
304 */
305int gsl_sf_legendre_H3d_e(const int l, const double lambda, const double eta, gsl_sf_result * result);
306double gsl_sf_legendre_H3d(const int l, const double lambda, const double eta);
307
308
309/* Array of H3d(ell), 0 <= ell <= lmax
310 */
311int gsl_sf_legendre_H3d_array(const int lmax, const double lambda, const double eta, double * result_array);
312
313
314
315
316
317__END_DECLS
318
319#endif /* __GSL_SF_LEGENDRE_H__ */