diff options
author | Alberto Ruiz <aruiz@um.es> | 2014-05-08 13:43:07 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2014-05-08 13:43:07 +0200 |
commit | 551cf7498c33bc0948bb4cb8444ae6f8af7278ea (patch) | |
tree | ec86ff73151746f5e13b83549ea5c60ed442764d /packages/hmatrix/src/Numeric/GSL/Integration.hs | |
parent | 561a6c0e21bb77c21114ccbbd86d3af5ddb5a3f1 (diff) |
separation ok
Diffstat (limited to 'packages/hmatrix/src/Numeric/GSL/Integration.hs')
-rw-r--r-- | packages/hmatrix/src/Numeric/GSL/Integration.hs | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/packages/hmatrix/src/Numeric/GSL/Integration.hs b/packages/hmatrix/src/Numeric/GSL/Integration.hs index 5f0a415..9c1d43a 100644 --- a/packages/hmatrix/src/Numeric/GSL/Integration.hs +++ b/packages/hmatrix/src/Numeric/GSL/Integration.hs | |||
@@ -1,19 +1,15 @@ | |||
1 | {-# OPTIONS #-} | ||
2 | ----------------------------------------------------------------------------- | ||
3 | {- | | 1 | {- | |
4 | Module : Numeric.GSL.Integration | 2 | Module : Numeric.GSL.Integration |
5 | Copyright : (c) Alberto Ruiz 2006 | 3 | Copyright : (c) Alberto Ruiz 2006 |
6 | License : GPL-style | 4 | License : GPL |
7 | 5 | Maintainer : Alberto Ruiz | |
8 | Maintainer : Alberto Ruiz (aruiz at um dot es) | ||
9 | Stability : provisional | 6 | Stability : provisional |
10 | Portability : uses ffi | ||
11 | 7 | ||
12 | Numerical integration routines. | 8 | Numerical integration routines. |
13 | 9 | ||
14 | <http://www.gnu.org/software/gsl/manual/html_node/Numerical-Integration.html#Numerical-Integration> | 10 | <http://www.gnu.org/software/gsl/manual/html_node/Numerical-Integration.html#Numerical-Integration> |
15 | -} | 11 | -} |
16 | ----------------------------------------------------------------------------- | 12 | |
17 | 13 | ||
18 | module Numeric.GSL.Integration ( | 14 | module Numeric.GSL.Integration ( |
19 | integrateQNG, | 15 | integrateQNG, |
@@ -28,7 +24,7 @@ import Foreign.C.Types | |||
28 | import Foreign.Marshal.Alloc(malloc, free) | 24 | import Foreign.Marshal.Alloc(malloc, free) |
29 | import Foreign.Ptr(Ptr, FunPtr, freeHaskellFunPtr) | 25 | import Foreign.Ptr(Ptr, FunPtr, freeHaskellFunPtr) |
30 | import Foreign.Storable(peek) | 26 | import Foreign.Storable(peek) |
31 | import Data.Packed.Internal(check,(//)) | 27 | import Numeric.GSL.Internal |
32 | import System.IO.Unsafe(unsafePerformIO) | 28 | import System.IO.Unsafe(unsafePerformIO) |
33 | 29 | ||
34 | eps = 1e-12 | 30 | eps = 1e-12 |