diff options
author | Alberto Ruiz <aruiz@um.es> | 2009-06-17 12:27:17 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2009-06-17 12:27:17 +0000 |
commit | e58f1e0e94407983fa18cd535cf76427019f1519 (patch) | |
tree | 4ffffdb92fd78e2233485895fb288111af0bf386 /lib/Numeric/GSL/Special/Clausen.hs | |
parent | 45e0e90ffdedd3c1fbe3da750018c65a1535cf75 (diff) |
added special transport and elljac
Diffstat (limited to 'lib/Numeric/GSL/Special/Clausen.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Clausen.hs | 32 |
1 files changed, 11 insertions, 21 deletions
diff --git a/lib/Numeric/GSL/Special/Clausen.hs b/lib/Numeric/GSL/Special/Clausen.hs index 4ebf0e2..0c0b70c 100644 --- a/lib/Numeric/GSL/Special/Clausen.hs +++ b/lib/Numeric/GSL/Special/Clausen.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Clausen | 3 | -- Module : Numeric.GSL.Special.Clausen |
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_clausen.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_clausen.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Clausen( | 15 | module Numeric.GSL.Special.Clausen( |
@@ -22,17 +20,9 @@ module Numeric.GSL.Special.Clausen( | |||
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_clausen_e(double x,gsl_sf_result* result); | ||
27 | -- | ||
28 | -- <http://www.google.com/search?q=gsl_sf_clausen_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
29 | clausen_e :: Double -> (Double,Double) | 23 | clausen_e :: Double -> (Double,Double) |
30 | clausen_e x = createSFR "clausen_e" $ gsl_sf_clausen_e x | 24 | clausen_e x = createSFR "clausen_e" $ gsl_sf_clausen_e x |
31 | foreign import ccall "gsl_sf_clausen_e" gsl_sf_clausen_e :: Double -> Ptr () -> IO CInt | 25 | foreign import ccall "gsl_sf_clausen_e" gsl_sf_clausen_e :: Double -> Ptr () -> IO CInt |
32 | |||
33 | -- | wrapper for double gsl_sf_clausen(double x); | ||
34 | -- | ||
35 | -- <http://www.google.com/search?q=gsl_sf_clausen&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
36 | clausen :: Double -> Double | 26 | clausen :: Double -> Double |
37 | clausen = gsl_sf_clausen | 27 | clausen = gsl_sf_clausen |
38 | foreign import ccall "gsl_sf_clausen" gsl_sf_clausen :: Double -> Double | 28 | foreign import ccall "gsl_sf_clausen" gsl_sf_clausen :: Double -> Double |