diff options
Diffstat (limited to 'lib/Numeric/GSL/Special/Dawson.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Dawson.hs | 32 |
1 files changed, 11 insertions, 21 deletions
diff --git a/lib/Numeric/GSL/Special/Dawson.hs b/lib/Numeric/GSL/Special/Dawson.hs index 40d4d4e..37cc68e 100644 --- a/lib/Numeric/GSL/Special/Dawson.hs +++ b/lib/Numeric/GSL/Special/Dawson.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Dawson | 3 | -- Module : Numeric.GSL.Special.Dawson |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | -- Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | -- License : GPL |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | -- Maintainer : Alberto Ruiz (aruiz at um dot es) |
7 | Stability : provisional | 7 | -- Stability : provisional |
8 | Portability : uses ffi | 8 | -- Portability : uses ffi |
9 | 9 | -- | |
10 | Wrappers for selected functions described at: | 10 | -- Wrappers for selected functions described at: |
11 | 11 | -- | |
12 | <http://www.google.com/search?q=gsl_sf_dawson.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_dawson.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Dawson( | 15 | module Numeric.GSL.Special.Dawson( |
@@ -22,17 +20,9 @@ module Numeric.GSL.Special.Dawson( | |||
22 | import Foreign(Ptr) | 20 | import Foreign(Ptr) |
23 | import Foreign.C.Types(CInt) | 21 | import Foreign.C.Types(CInt) |
24 | import Numeric.GSL.Special.Internal | 22 | import Numeric.GSL.Special.Internal |
25 | |||
26 | -- | wrapper for int gsl_sf_dawson_e(double x,gsl_sf_result* result); | ||
27 | -- | ||
28 | -- <http://www.google.com/search?q=gsl_sf_dawson_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
29 | dawson_e :: Double -> (Double,Double) | 23 | dawson_e :: Double -> (Double,Double) |
30 | dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x | 24 | dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x |
31 | foreign import ccall "gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt | 25 | foreign import ccall "gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt |
32 | |||
33 | -- | wrapper for double gsl_sf_dawson(double x); | ||
34 | -- | ||
35 | -- <http://www.google.com/search?q=gsl_sf_dawson&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
36 | dawson :: Double -> Double | 26 | dawson :: Double -> Double |
37 | dawson = gsl_sf_dawson | 27 | dawson = gsl_sf_dawson |
38 | foreign import ccall "gsl_sf_dawson" gsl_sf_dawson :: Double -> Double | 28 | foreign import ccall "gsl_sf_dawson" gsl_sf_dawson :: Double -> Double |