diff options
Diffstat (limited to 'lib/Numeric/GSL/Special/Pow_int.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Pow_int.hs | 32 |
1 files changed, 11 insertions, 21 deletions
diff --git a/lib/Numeric/GSL/Special/Pow_int.hs b/lib/Numeric/GSL/Special/Pow_int.hs index a1a1066..d6c77b2 100644 --- a/lib/Numeric/GSL/Special/Pow_int.hs +++ b/lib/Numeric/GSL/Special/Pow_int.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Pow_int | 3 | -- Module : Numeric.GSL.Special.Pow_int |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | -- Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | -- License : GPL |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | -- Maintainer : Alberto Ruiz (aruiz at um dot es) |
7 | Stability : provisional | 7 | -- Stability : provisional |
8 | Portability : uses ffi | 8 | -- Portability : uses ffi |
9 | 9 | -- | |
10 | Wrappers for selected functions described at: | 10 | -- Wrappers for selected functions described at: |
11 | 11 | -- | |
12 | <http://www.google.com/search?q=gsl_sf_pow_int.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_pow_int.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Pow_int( | 15 | module Numeric.GSL.Special.Pow_int( |
@@ -22,17 +20,9 @@ module Numeric.GSL.Special.Pow_int( | |||
22 | import Foreign(Ptr) | 20 | import Foreign(Ptr) |
23 | import Foreign.C.Types(CInt) | 21 | import Foreign.C.Types(CInt) |
24 | import Numeric.GSL.Special.Internal | 22 | import Numeric.GSL.Special.Internal |
25 | |||
26 | -- | wrapper for int gsl_sf_pow_int_e(double x,int n,gsl_sf_result* result); | ||
27 | -- | ||
28 | -- <http://www.google.com/search?q=gsl_sf_pow_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
29 | pow_int_e :: Double -> CInt -> (Double,Double) | 23 | pow_int_e :: Double -> CInt -> (Double,Double) |
30 | pow_int_e x n = createSFR "pow_int_e" $ gsl_sf_pow_int_e x n | 24 | pow_int_e x n = createSFR "pow_int_e" $ gsl_sf_pow_int_e x n |
31 | foreign import ccall "gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt | 25 | foreign import ccall "gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt |
32 | |||
33 | -- | wrapper for double gsl_sf_pow_int(double x,int n); | ||
34 | -- | ||
35 | -- <http://www.google.com/search?q=gsl_sf_pow_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
36 | pow_int :: Double -> CInt -> Double | 26 | pow_int :: Double -> CInt -> Double |
37 | pow_int = gsl_sf_pow_int | 27 | pow_int = gsl_sf_pow_int |
38 | foreign import ccall "gsl_sf_pow_int" gsl_sf_pow_int :: Double -> CInt -> Double | 28 | foreign import ccall "gsl_sf_pow_int" gsl_sf_pow_int :: Double -> CInt -> Double |