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/Psi.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'packages/special/lib/Numeric/GSL/Special/Psi.hs') diff --git a/packages/special/lib/Numeric/GSL/Special/Psi.hs b/packages/special/lib/Numeric/GSL/Special/Psi.hs index 4655b8c..cb4c756 100644 --- a/packages/special/lib/Numeric/GSL/Special/Psi.hs +++ b/packages/special/lib/Numeric/GSL/Special/Psi.hs @@ -19,6 +19,7 @@ module Numeric.GSL.Special.Psi( , psi , psi_1piy_e , psi_1piy +, complex_psi_e , psi_1_int_e , psi_1_int , psi_1_e @@ -55,8 +56,8 @@ psi_1piy :: Double -> Double psi_1piy = gsl_sf_psi_1piy foreign import ccall SAFE_CHEAP "gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double -complex_psi_e :: Double -> Double -> Ptr () -> (Double,Double) -complex_psi_e x y result_re = createSFR "complex_psi_e" $ gsl_sf_complex_psi_e x y result_re +complex_psi_e :: Double -> Double -> ((Double,Double),(Double,Double)) +complex_psi_e x y = create2SFR "complex_psi_e" $ gsl_sf_complex_psi_e x y foreign import ccall SAFE_CHEAP "gsl_sf_complex_psi_e" gsl_sf_complex_psi_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt psi_1_int_e :: CInt -> (Double,Double) -- cgit v1.2.3