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