diff options
Diffstat (limited to 'packages/special/lib/Numeric/GSL/Special/Gamma.hs')
-rw-r--r-- | packages/special/lib/Numeric/GSL/Special/Gamma.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/packages/special/lib/Numeric/GSL/Special/Gamma.hs b/packages/special/lib/Numeric/GSL/Special/Gamma.hs index 03b39c4..1a4ed4e 100644 --- a/packages/special/lib/Numeric/GSL/Special/Gamma.hs +++ b/packages/special/lib/Numeric/GSL/Special/Gamma.hs | |||
@@ -21,6 +21,7 @@ module Numeric.GSL.Special.Gamma( | |||
21 | , gammastar | 21 | , gammastar |
22 | , gammainv_e | 22 | , gammainv_e |
23 | , gammainv | 23 | , gammainv |
24 | , lngamma_complex_e | ||
24 | , taylorcoeff_e | 25 | , taylorcoeff_e |
25 | , taylorcoeff | 26 | , taylorcoeff |
26 | , fact_e | 27 | , fact_e |
@@ -95,8 +96,8 @@ gammainv :: Double -> Double | |||
95 | gammainv = gsl_sf_gammainv | 96 | gammainv = gsl_sf_gammainv |
96 | foreign import ccall SAFE_CHEAP "gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double | 97 | foreign import ccall SAFE_CHEAP "gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double |
97 | 98 | ||
98 | lngamma_complex_e :: Double -> Double -> Ptr () -> (Double,Double) | 99 | lngamma_complex_e :: Double -> Double -> ((Double,Double),(Double,Double)) |
99 | lngamma_complex_e zr zi lnr = createSFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi lnr | 100 | lngamma_complex_e zr zi = create2SFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi |
100 | foreign import ccall SAFE_CHEAP "gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 101 | foreign import ccall SAFE_CHEAP "gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
101 | 102 | ||
102 | taylorcoeff_e :: CInt -> Double -> (Double,Double) | 103 | taylorcoeff_e :: CInt -> Double -> (Double,Double) |