From 54bcc1fc1e0f9676cb10f627f412eeeea34b5d2c Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 24 Feb 2010 13:23:42 +0000 Subject: created package hmatrix-special --- lib/Numeric/GSL/Special/Fermi_dirac.hs | 110 --------------------------------- 1 file changed, 110 deletions(-) delete mode 100644 lib/Numeric/GSL/Special/Fermi_dirac.hs (limited to 'lib/Numeric/GSL/Special/Fermi_dirac.hs') diff --git a/lib/Numeric/GSL/Special/Fermi_dirac.hs b/lib/Numeric/GSL/Special/Fermi_dirac.hs deleted file mode 100644 index 362c7ba..0000000 --- a/lib/Numeric/GSL/Special/Fermi_dirac.hs +++ /dev/null @@ -1,110 +0,0 @@ ------------------------------------------------------------- --- | --- Module : Numeric.GSL.Special.Fermi_dirac --- Copyright : (c) Alberto Ruiz 2006 --- License : GPL --- Maintainer : Alberto Ruiz (aruiz at um dot es) --- Stability : provisional --- Portability : uses ffi --- --- Wrappers for selected functions described at: --- --- ------------------------------------------------------------- - -module Numeric.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 Foreign.C.Types(CInt) -import Numeric.GSL.Special.Internal - -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 SAFE_CHEAP "gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr () -> IO CInt - -fermi_dirac_m1 :: Double -> Double -fermi_dirac_m1 = gsl_sf_fermi_dirac_m1 -foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1 :: Double -> Double - -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 SAFE_CHEAP "gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr () -> IO CInt - -fermi_dirac_0 :: Double -> Double -fermi_dirac_0 = gsl_sf_fermi_dirac_0 -foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 :: Double -> Double - -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 SAFE_CHEAP "gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr () -> IO CInt - -fermi_dirac_1 :: Double -> Double -fermi_dirac_1 = gsl_sf_fermi_dirac_1 -foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 :: Double -> Double - -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 SAFE_CHEAP "gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr () -> IO CInt - -fermi_dirac_2 :: Double -> Double -fermi_dirac_2 = gsl_sf_fermi_dirac_2 -foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 :: Double -> Double - -fermi_dirac_int_e :: CInt -> 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 SAFE_CHEAP "gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: CInt -> Double -> Ptr () -> IO CInt - -fermi_dirac_int :: CInt -> Double -> Double -fermi_dirac_int = gsl_sf_fermi_dirac_int -foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: CInt -> Double -> Double - -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 SAFE_CHEAP "gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr () -> IO CInt - -fermi_dirac_mhalf :: Double -> Double -fermi_dirac_mhalf = gsl_sf_fermi_dirac_mhalf -foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac_mhalf :: Double -> Double - -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 SAFE_CHEAP "gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr () -> IO CInt - -fermi_dirac_half :: Double -> Double -fermi_dirac_half = gsl_sf_fermi_dirac_half -foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_half :: Double -> Double - -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 SAFE_CHEAP "gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr () -> IO CInt - -fermi_dirac_3half :: Double -> Double -fermi_dirac_3half = gsl_sf_fermi_dirac_3half -foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac_3half :: Double -> Double - -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 SAFE_CHEAP "gsl_sf_fermi_dirac_inc_0_e" gsl_sf_fermi_dirac_inc_0_e :: Double -> Double -> Ptr () -> IO CInt - -fermi_dirac_inc_0 :: Double -> Double -> Double -fermi_dirac_inc_0 = gsl_sf_fermi_dirac_inc_0 -foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_inc_0" gsl_sf_fermi_dirac_inc_0 :: Double -> Double -> Double -- cgit v1.2.3