From 7cfba6b4eb311590986a888255cd1dc594bd7264 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 20 Oct 2010 07:19:06 +0000 Subject: mkComplex_e and other complex special functions --- packages/special/lib/Numeric/GSL/Special/Gamma.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'packages/special/lib/Numeric/GSL/Special/Gamma.hs') 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( , gammastar , gammainv_e , gammainv +, lngamma_complex_e , taylorcoeff_e , taylorcoeff , fact_e @@ -95,8 +96,8 @@ gammainv :: Double -> Double gammainv = gsl_sf_gammainv foreign import ccall SAFE_CHEAP "gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double -lngamma_complex_e :: Double -> Double -> Ptr () -> (Double,Double) -lngamma_complex_e zr zi lnr = createSFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi lnr +lngamma_complex_e :: Double -> Double -> ((Double,Double),(Double,Double)) +lngamma_complex_e zr zi = create2SFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi foreign import ccall SAFE_CHEAP "gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt taylorcoeff_e :: CInt -> Double -> (Double,Double) -- cgit v1.2.3