diff options
Diffstat (limited to 'lib/Numeric/GSL/Special/Gegenbauer.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Gegenbauer.hs | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/lib/Numeric/GSL/Special/Gegenbauer.hs b/lib/Numeric/GSL/Special/Gegenbauer.hs deleted file mode 100644 index 31568f3..0000000 --- a/lib/Numeric/GSL/Special/Gegenbauer.hs +++ /dev/null | |||
@@ -1,64 +0,0 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | -- | | ||
3 | -- Module : Numeric.GSL.Special.Gegenbauer | ||
4 | -- Copyright : (c) Alberto Ruiz 2006 | ||
5 | -- License : GPL | ||
6 | -- Maintainer : Alberto Ruiz (aruiz at um dot es) | ||
7 | -- Stability : provisional | ||
8 | -- Portability : uses ffi | ||
9 | -- | ||
10 | -- Wrappers for selected functions described at: | ||
11 | -- | ||
12 | -- <http://www.google.com/search?q=gsl_sf_gegenbauer.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
13 | ------------------------------------------------------------ | ||
14 | |||
15 | module Numeric.GSL.Special.Gegenbauer( | ||
16 | gegenpoly_1_e | ||
17 | , gegenpoly_2_e | ||
18 | , gegenpoly_3_e | ||
19 | , gegenpoly_1 | ||
20 | , gegenpoly_2 | ||
21 | , gegenpoly_3 | ||
22 | , gegenpoly_n_e | ||
23 | , gegenpoly_n | ||
24 | ) where | ||
25 | |||
26 | import Foreign(Ptr) | ||
27 | import Foreign.C.Types(CInt) | ||
28 | import Numeric.GSL.Special.Internal | ||
29 | |||
30 | gegenpoly_1_e :: Double -> Double -> (Double,Double) | ||
31 | gegenpoly_1_e lambda x = createSFR "gegenpoly_1_e" $ gsl_sf_gegenpoly_1_e lambda x | ||
32 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_1_e" gsl_sf_gegenpoly_1_e :: Double -> Double -> Ptr () -> IO CInt | ||
33 | |||
34 | gegenpoly_2_e :: Double -> Double -> (Double,Double) | ||
35 | gegenpoly_2_e lambda x = createSFR "gegenpoly_2_e" $ gsl_sf_gegenpoly_2_e lambda x | ||
36 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_2_e" gsl_sf_gegenpoly_2_e :: Double -> Double -> Ptr () -> IO CInt | ||
37 | |||
38 | gegenpoly_3_e :: Double -> Double -> (Double,Double) | ||
39 | gegenpoly_3_e lambda x = createSFR "gegenpoly_3_e" $ gsl_sf_gegenpoly_3_e lambda x | ||
40 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_3_e" gsl_sf_gegenpoly_3_e :: Double -> Double -> Ptr () -> IO CInt | ||
41 | |||
42 | gegenpoly_1 :: Double -> Double -> Double | ||
43 | gegenpoly_1 = gsl_sf_gegenpoly_1 | ||
44 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_1" gsl_sf_gegenpoly_1 :: Double -> Double -> Double | ||
45 | |||
46 | gegenpoly_2 :: Double -> Double -> Double | ||
47 | gegenpoly_2 = gsl_sf_gegenpoly_2 | ||
48 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_2" gsl_sf_gegenpoly_2 :: Double -> Double -> Double | ||
49 | |||
50 | gegenpoly_3 :: Double -> Double -> Double | ||
51 | gegenpoly_3 = gsl_sf_gegenpoly_3 | ||
52 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_3" gsl_sf_gegenpoly_3 :: Double -> Double -> Double | ||
53 | |||
54 | gegenpoly_n_e :: CInt -> Double -> Double -> (Double,Double) | ||
55 | gegenpoly_n_e n lambda x = createSFR "gegenpoly_n_e" $ gsl_sf_gegenpoly_n_e n lambda x | ||
56 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_n_e" gsl_sf_gegenpoly_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | ||
57 | |||
58 | gegenpoly_n :: CInt -> Double -> Double -> Double | ||
59 | gegenpoly_n = gsl_sf_gegenpoly_n | ||
60 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_n" gsl_sf_gegenpoly_n :: CInt -> Double -> Double -> Double | ||
61 | |||
62 | gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt | ||
63 | gegenpoly_array = gsl_sf_gegenpoly_array | ||
64 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_array" gsl_sf_gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt | ||