summaryrefslogtreecommitdiff
path: root/lib/Numeric/GSL/Special/Lambert.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/GSL/Special/Lambert.hs')
-rw-r--r--lib/Numeric/GSL/Special/Lambert.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/Numeric/GSL/Special/Lambert.hs b/lib/Numeric/GSL/Special/Lambert.hs
index 7bc820c..06af09c 100644
--- a/lib/Numeric/GSL/Special/Lambert.hs
+++ b/lib/Numeric/GSL/Special/Lambert.hs
@@ -22,15 +22,19 @@ module Numeric.GSL.Special.Lambert(
22import Foreign(Ptr) 22import Foreign(Ptr)
23import Foreign.C.Types(CInt) 23import Foreign.C.Types(CInt)
24import Numeric.GSL.Special.Internal 24import Numeric.GSL.Special.Internal
25
25lambert_W0_e :: Double -> (Double,Double) 26lambert_W0_e :: Double -> (Double,Double)
26lambert_W0_e x = createSFR "lambert_W0_e" $ gsl_sf_lambert_W0_e x 27lambert_W0_e x = createSFR "lambert_W0_e" $ gsl_sf_lambert_W0_e x
27foreign import ccall "gsl_sf_lambert_W0_e" gsl_sf_lambert_W0_e :: Double -> Ptr () -> IO CInt 28foreign import ccall "gsl_sf_lambert_W0_e" gsl_sf_lambert_W0_e :: Double -> Ptr () -> IO CInt
29
28lambert_W0 :: Double -> Double 30lambert_W0 :: Double -> Double
29lambert_W0 = gsl_sf_lambert_W0 31lambert_W0 = gsl_sf_lambert_W0
30foreign import ccall "gsl_sf_lambert_W0" gsl_sf_lambert_W0 :: Double -> Double 32foreign import ccall "gsl_sf_lambert_W0" gsl_sf_lambert_W0 :: Double -> Double
33
31lambert_Wm1_e :: Double -> (Double,Double) 34lambert_Wm1_e :: Double -> (Double,Double)
32lambert_Wm1_e x = createSFR "lambert_Wm1_e" $ gsl_sf_lambert_Wm1_e x 35lambert_Wm1_e x = createSFR "lambert_Wm1_e" $ gsl_sf_lambert_Wm1_e x
33foreign import ccall "gsl_sf_lambert_Wm1_e" gsl_sf_lambert_Wm1_e :: Double -> Ptr () -> IO CInt 36foreign import ccall "gsl_sf_lambert_Wm1_e" gsl_sf_lambert_Wm1_e :: Double -> Ptr () -> IO CInt
37
34lambert_Wm1 :: Double -> Double 38lambert_Wm1 :: Double -> Double
35lambert_Wm1 = gsl_sf_lambert_Wm1 39lambert_Wm1 = gsl_sf_lambert_Wm1
36foreign import ccall "gsl_sf_lambert_Wm1" gsl_sf_lambert_Wm1 :: Double -> Double 40foreign import ccall "gsl_sf_lambert_Wm1" gsl_sf_lambert_Wm1 :: Double -> Double