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.hs30
1 files changed, 0 insertions, 30 deletions
diff --git a/lib/Numeric/GSL/Special/Pow_int.hs b/lib/Numeric/GSL/Special/Pow_int.hs
deleted file mode 100644
index fd232ab..0000000
--- a/lib/Numeric/GSL/Special/Pow_int.hs
+++ /dev/null
@@ -1,30 +0,0 @@
1------------------------------------------------------------
2-- |
3-- Module : Numeric.GSL.Special.Pow_int
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_pow_int.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13------------------------------------------------------------
14
15module Numeric.GSL.Special.Pow_int(
16 pow_int_e
17, pow_int
18) where
19
20import Foreign(Ptr)
21import Foreign.C.Types(CInt)
22import Numeric.GSL.Special.Internal
23
24pow_int_e :: Double -> CInt -> (Double,Double)
25pow_int_e x n = createSFR "pow_int_e" $ gsl_sf_pow_int_e x n
26foreign import ccall SAFE_CHEAP "gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt
27
28pow_int :: Double -> CInt -> Double
29pow_int = gsl_sf_pow_int
30foreign import ccall SAFE_CHEAP "gsl_sf_pow_int" gsl_sf_pow_int :: Double -> CInt -> Double