diff options
Diffstat (limited to 'lib/Numeric/GSL/Special/Pow_int.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Pow_int.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Numeric/GSL/Special/Pow_int.hs b/lib/Numeric/GSL/Special/Pow_int.hs index d6c77b2..d98bd57 100644 --- a/lib/Numeric/GSL/Special/Pow_int.hs +++ b/lib/Numeric/GSL/Special/Pow_int.hs | |||
@@ -20,9 +20,11 @@ module Numeric.GSL.Special.Pow_int( | |||
20 | import Foreign(Ptr) | 20 | import Foreign(Ptr) |
21 | import Foreign.C.Types(CInt) | 21 | import Foreign.C.Types(CInt) |
22 | import Numeric.GSL.Special.Internal | 22 | import Numeric.GSL.Special.Internal |
23 | |||
23 | pow_int_e :: Double -> CInt -> (Double,Double) | 24 | pow_int_e :: Double -> CInt -> (Double,Double) |
24 | pow_int_e x n = createSFR "pow_int_e" $ gsl_sf_pow_int_e x n | 25 | pow_int_e x n = createSFR "pow_int_e" $ gsl_sf_pow_int_e x n |
25 | foreign import ccall "gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt | 26 | foreign import ccall "gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt |
27 | |||
26 | pow_int :: Double -> CInt -> Double | 28 | pow_int :: Double -> CInt -> Double |
27 | pow_int = gsl_sf_pow_int | 29 | pow_int = gsl_sf_pow_int |
28 | foreign import ccall "gsl_sf_pow_int" gsl_sf_pow_int :: Double -> CInt -> Double | 30 | foreign import ccall "gsl_sf_pow_int" gsl_sf_pow_int :: Double -> CInt -> Double |