summaryrefslogtreecommitdiff
path: root/lib/Numeric/GSL/Special/Elementary.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/GSL/Special/Elementary.hs')
-rw-r--r--lib/Numeric/GSL/Special/Elementary.hs35
1 files changed, 0 insertions, 35 deletions
diff --git a/lib/Numeric/GSL/Special/Elementary.hs b/lib/Numeric/GSL/Special/Elementary.hs
deleted file mode 100644
index 7e7f8b6..0000000
--- a/lib/Numeric/GSL/Special/Elementary.hs
+++ /dev/null
@@ -1,35 +0,0 @@
1------------------------------------------------------------
2-- |
3-- Module : Numeric.GSL.Special.Elementary
4-- Copyright : (c) Alberto Ruiz 2006
5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional
8-- Portability : uses ffi
9--
10-- Wrappers for selected functions described at:
11--
12-- <http://www.google.com/search?q=gsl_sf_elementary.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13------------------------------------------------------------
14
15module Numeric.GSL.Special.Elementary(
16 multiply_e
17, multiply
18, multiply_err_e
19) where
20
21import Foreign(Ptr)
22import Foreign.C.Types(CInt)
23import Numeric.GSL.Special.Internal
24
25multiply_e :: Double -> Double -> (Double,Double)
26multiply_e x y = createSFR "multiply_e" $ gsl_sf_multiply_e x y
27foreign import ccall SAFE_CHEAP "gsl_sf_multiply_e" gsl_sf_multiply_e :: Double -> Double -> Ptr () -> IO CInt
28
29multiply :: Double -> Double -> Double
30multiply = gsl_sf_multiply
31foreign import ccall SAFE_CHEAP "gsl_sf_multiply" gsl_sf_multiply :: Double -> Double -> Double
32
33multiply_err_e :: Double -> Double -> Double -> Double -> (Double,Double)
34multiply_err_e x dx y dy = createSFR "multiply_err_e" $ gsl_sf_multiply_err_e x dx y dy
35foreign import ccall SAFE_CHEAP "gsl_sf_multiply_err_e" gsl_sf_multiply_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt