summaryrefslogtreecommitdiff
path: root/lib/Numeric/GSL/Special
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/Numeric/GSL/Special
parent45e0e90ffdedd3c1fbe3da750018c65a1535cf75 (diff)
added special transport and elljac
Diffstat (limited to 'lib/Numeric/GSL/Special')
-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
31 files changed, 400 insertions, 2545 deletions
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__ */