summaryrefslogtreecommitdiff
path: root/lib/Numeric/GSL/Integration.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/GSL/Integration.hs')
-rw-r--r--lib/Numeric/GSL/Integration.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Numeric/GSL/Integration.hs b/lib/Numeric/GSL/Integration.hs
index 747b34c..b5f5930 100644
--- a/lib/Numeric/GSL/Integration.hs
+++ b/lib/Numeric/GSL/Integration.hs
@@ -21,6 +21,7 @@ module Numeric.GSL.Integration (
21) where 21) where
22 22
23import Foreign 23import Foreign
24import Foreign.C.Types(CInt)
24import Data.Packed.Internal(mkfun,check,(//)) 25import Data.Packed.Internal(mkfun,check,(//))
25 26
26 27
@@ -55,7 +56,7 @@ integrateQAGS prec n f a b = unsafePerformIO $ do
55 56
56foreign import ccall "gsl-aux.h integrate_qags" 57foreign import ccall "gsl-aux.h integrate_qags"
57 c_integrate_qags :: FunPtr (Double-> Ptr() -> Double) -> Double -> Double -> Double -> Int 58 c_integrate_qags :: FunPtr (Double-> Ptr() -> Double) -> Double -> Double -> Double -> Int
58 -> Ptr Double -> Ptr Double -> IO Int 59 -> Ptr Double -> Ptr Double -> IO CInt
59 60
60----------------------------------------------------------------- 61-----------------------------------------------------------------
61{- | Numerical integration using /gsl_integration_qng/ (useful for fast integration of smooth functions). For example: 62{- | Numerical integration using /gsl_integration_qng/ (useful for fast integration of smooth functions). For example:
@@ -86,5 +87,5 @@ integrateQNG prec f a b = unsafePerformIO $ do
86 87
87foreign import ccall "gsl-aux.h integrate_qng" 88foreign import ccall "gsl-aux.h integrate_qng"
88 c_integrate_qng :: FunPtr (Double-> Ptr() -> Double) -> Double -> Double -> Double 89 c_integrate_qng :: FunPtr (Double-> Ptr() -> Double) -> Double -> Double -> Double
89 -> Ptr Double -> Ptr Double -> IO Int 90 -> Ptr Double -> Ptr Double -> IO CInt
90 91