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