From b9db4d25d87cd4ab0f493413db92fb41b7eacda9 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sun, 29 Jul 2007 15:43:21 +0000 Subject: more automatic wrappers for simple special functions --- lib/GSL/Special/Fermi_dirac.hs | 127 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 127 insertions(+) create mode 100644 lib/GSL/Special/Fermi_dirac.hs (limited to 'lib/GSL/Special/Fermi_dirac.hs') diff --git a/lib/GSL/Special/Fermi_dirac.hs b/lib/GSL/Special/Fermi_dirac.hs new file mode 100644 index 0000000..26923d2 --- /dev/null +++ b/lib/GSL/Special/Fermi_dirac.hs @@ -0,0 +1,127 @@ +------------------------------------------------------------ +{- | +Module : GSL.Special.Fermi_dirac +Copyright : (c) Alberto Ruiz 2006 +License : GPL-style +Maintainer : Alberto Ruiz (aruiz at um dot es) +Stability : provisional +Portability : uses ffi + + + +-} +------------------------------------------------------------ + +module GSL.Special.Fermi_dirac( + fermi_dirac_m1_e +, fermi_dirac_m1 +, fermi_dirac_0_e +, fermi_dirac_0 +, fermi_dirac_1_e +, fermi_dirac_1 +, fermi_dirac_2_e +, fermi_dirac_2 +, fermi_dirac_int_e +, fermi_dirac_int +, fermi_dirac_mhalf_e +, fermi_dirac_mhalf +, fermi_dirac_half_e +, fermi_dirac_half +, fermi_dirac_3half_e +, fermi_dirac_3half +, fermi_dirac_inc_0_e +, fermi_dirac_inc_0 +) where + +import Foreign(Ptr) +import GSL.Special.Internal + +-- | wrapper for int gsl_sf_fermi_dirac_m1_e(double x,gsl_sf_result* result); +fermi_dirac_m1_e :: Double -> (Double,Double) +fermi_dirac_m1_e x = createSFR "fermi_dirac_m1_e" $ gsl_sf_fermi_dirac_m1_e x +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_fermi_dirac_m1(double x); +fermi_dirac_m1 :: Double -> Double +fermi_dirac_m1 = gsl_sf_fermi_dirac_m1 +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1 :: Double -> Double + +-- | wrapper for int gsl_sf_fermi_dirac_0_e(double x,gsl_sf_result* result); +fermi_dirac_0_e :: Double -> (Double,Double) +fermi_dirac_0_e x = createSFR "fermi_dirac_0_e" $ gsl_sf_fermi_dirac_0_e x +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_fermi_dirac_0(double x); +fermi_dirac_0 :: Double -> Double +fermi_dirac_0 = gsl_sf_fermi_dirac_0 +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 :: Double -> Double + +-- | wrapper for int gsl_sf_fermi_dirac_1_e(double x,gsl_sf_result* result); +fermi_dirac_1_e :: Double -> (Double,Double) +fermi_dirac_1_e x = createSFR "fermi_dirac_1_e" $ gsl_sf_fermi_dirac_1_e x +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_fermi_dirac_1(double x); +fermi_dirac_1 :: Double -> Double +fermi_dirac_1 = gsl_sf_fermi_dirac_1 +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 :: Double -> Double + +-- | wrapper for int gsl_sf_fermi_dirac_2_e(double x,gsl_sf_result* result); +fermi_dirac_2_e :: Double -> (Double,Double) +fermi_dirac_2_e x = createSFR "fermi_dirac_2_e" $ gsl_sf_fermi_dirac_2_e x +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_fermi_dirac_2(double x); +fermi_dirac_2 :: Double -> Double +fermi_dirac_2 = gsl_sf_fermi_dirac_2 +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 :: Double -> Double + +-- | wrapper for int gsl_sf_fermi_dirac_int_e(int j,double x,gsl_sf_result* result); +fermi_dirac_int_e :: Int -> Double -> (Double,Double) +fermi_dirac_int_e j x = createSFR "fermi_dirac_int_e" $ gsl_sf_fermi_dirac_int_e j x +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: Int -> Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_fermi_dirac_int(int j,double x); +fermi_dirac_int :: Int -> Double -> Double +fermi_dirac_int = gsl_sf_fermi_dirac_int +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: Int -> Double -> Double + +-- | wrapper for int gsl_sf_fermi_dirac_mhalf_e(double x,gsl_sf_result* result); +fermi_dirac_mhalf_e :: Double -> (Double,Double) +fermi_dirac_mhalf_e x = createSFR "fermi_dirac_mhalf_e" $ gsl_sf_fermi_dirac_mhalf_e x +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_fermi_dirac_mhalf(double x); +fermi_dirac_mhalf :: Double -> Double +fermi_dirac_mhalf = gsl_sf_fermi_dirac_mhalf +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac_mhalf :: Double -> Double + +-- | wrapper for int gsl_sf_fermi_dirac_half_e(double x,gsl_sf_result* result); +fermi_dirac_half_e :: Double -> (Double,Double) +fermi_dirac_half_e x = createSFR "fermi_dirac_half_e" $ gsl_sf_fermi_dirac_half_e x +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_fermi_dirac_half(double x); +fermi_dirac_half :: Double -> Double +fermi_dirac_half = gsl_sf_fermi_dirac_half +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_half :: Double -> Double + +-- | wrapper for int gsl_sf_fermi_dirac_3half_e(double x,gsl_sf_result* result); +fermi_dirac_3half_e :: Double -> (Double,Double) +fermi_dirac_3half_e x = createSFR "fermi_dirac_3half_e" $ gsl_sf_fermi_dirac_3half_e x +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_fermi_dirac_3half(double x); +fermi_dirac_3half :: Double -> Double +fermi_dirac_3half = gsl_sf_fermi_dirac_3half +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac_3half :: Double -> Double + +-- | wrapper for int gsl_sf_fermi_dirac_inc_0_e(double x,double b,gsl_sf_result* result); +fermi_dirac_inc_0_e :: Double -> Double -> (Double,Double) +fermi_dirac_inc_0_e x b = createSFR "fermi_dirac_inc_0_e" $ gsl_sf_fermi_dirac_inc_0_e x b +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_inc_0_e" gsl_sf_fermi_dirac_inc_0_e :: Double -> Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_fermi_dirac_inc_0(double x,double b); +fermi_dirac_inc_0 :: Double -> Double -> Double +fermi_dirac_inc_0 = gsl_sf_fermi_dirac_inc_0 +foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_inc_0" gsl_sf_fermi_dirac_inc_0 :: Double -> Double -> Double -- cgit v1.2.3