From ead458786713d4b66933938b304886f629179613 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sat, 16 May 2009 17:40:44 +0000 Subject: headers removed in GSL Special functions --- lib/Numeric/GSL/Special/Psi.hs | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'lib/Numeric/GSL/Special/Psi.hs') diff --git a/lib/Numeric/GSL/Special/Psi.hs b/lib/Numeric/GSL/Special/Psi.hs index 3ff6570..2bd2848 100644 --- a/lib/Numeric/GSL/Special/Psi.hs +++ b/lib/Numeric/GSL/Special/Psi.hs @@ -38,88 +38,88 @@ import Numeric.GSL.Special.Internal -- psi_int_e :: CInt -> (Double,Double) psi_int_e n = createSFR "psi_int_e" $ gsl_sf_psi_int_e n -foreign import ccall "psi.h gsl_sf_psi_int_e" gsl_sf_psi_int_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_psi_int_e" gsl_sf_psi_int_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_psi_int(int n); -- -- psi_int :: CInt -> Double psi_int = gsl_sf_psi_int -foreign import ccall "psi.h gsl_sf_psi_int" gsl_sf_psi_int :: CInt -> Double +foreign import ccall "gsl_sf_psi_int" gsl_sf_psi_int :: CInt -> Double -- | wrapper for int gsl_sf_psi_e(double x,gsl_sf_result* result); -- -- psi_e :: Double -> (Double,Double) psi_e x = createSFR "psi_e" $ gsl_sf_psi_e x -foreign import ccall "psi.h gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_psi(double x); -- -- psi :: Double -> Double psi = gsl_sf_psi -foreign import ccall "psi.h gsl_sf_psi" gsl_sf_psi :: Double -> Double +foreign import ccall "gsl_sf_psi" gsl_sf_psi :: Double -> Double -- | wrapper for int gsl_sf_psi_1piy_e(double y,gsl_sf_result* result); -- -- psi_1piy_e :: Double -> (Double,Double) psi_1piy_e y = createSFR "psi_1piy_e" $ gsl_sf_psi_1piy_e y -foreign import ccall "psi.h gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_psi_1piy(double y); -- -- psi_1piy :: Double -> Double psi_1piy = gsl_sf_psi_1piy -foreign import ccall "psi.h gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double +foreign import ccall "gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double -- | wrapper for int gsl_sf_complex_psi_e(double x,double y,gsl_sf_result* result_re,gsl_sf_result* result_im); -- -- 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 -foreign import ccall "psi.h gsl_sf_complex_psi_e" gsl_sf_complex_psi_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_complex_psi_e" gsl_sf_complex_psi_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt -- | wrapper for int gsl_sf_psi_1_int_e(int n,gsl_sf_result* result); -- -- psi_1_int_e :: CInt -> (Double,Double) psi_1_int_e n = createSFR "psi_1_int_e" $ gsl_sf_psi_1_int_e n -foreign import ccall "psi.h gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: CInt -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: CInt -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_psi_1_int(int n); -- -- psi_1_int :: CInt -> Double psi_1_int = gsl_sf_psi_1_int -foreign import ccall "psi.h gsl_sf_psi_1_int" gsl_sf_psi_1_int :: CInt -> Double +foreign import ccall "gsl_sf_psi_1_int" gsl_sf_psi_1_int :: CInt -> Double -- | wrapper for int gsl_sf_psi_1_e(double x,gsl_sf_result* result); -- -- psi_1_e :: Double -> (Double,Double) psi_1_e x = createSFR "psi_1_e" $ gsl_sf_psi_1_e x -foreign import ccall "psi.h gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_psi_1(double x); -- -- psi_1 :: Double -> Double psi_1 = gsl_sf_psi_1 -foreign import ccall "psi.h gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double +foreign import ccall "gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double -- | wrapper for int gsl_sf_psi_n_e(int n,double x,gsl_sf_result* result); -- -- psi_n_e :: CInt -> Double -> (Double,Double) psi_n_e n x = createSFR "psi_n_e" $ gsl_sf_psi_n_e n x -foreign import ccall "psi.h gsl_sf_psi_n_e" gsl_sf_psi_n_e :: CInt -> Double -> Ptr () -> IO CInt +foreign import ccall "gsl_sf_psi_n_e" gsl_sf_psi_n_e :: CInt -> Double -> Ptr () -> IO CInt -- | wrapper for double gsl_sf_psi_n(int n,double x); -- -- psi_n :: CInt -> Double -> Double psi_n = gsl_sf_psi_n -foreign import ccall "psi.h gsl_sf_psi_n" gsl_sf_psi_n :: CInt -> Double -> Double +foreign import ccall "gsl_sf_psi_n" gsl_sf_psi_n :: CInt -> Double -> Double -- cgit v1.2.3