diff options
Diffstat (limited to 'lib/Numeric/GSL/Special/Fermi_dirac.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Fermi_dirac.hs | 110 |
1 files changed, 0 insertions, 110 deletions
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 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | -- | | ||
3 | -- Module : Numeric.GSL.Special.Fermi_dirac | ||
4 | -- Copyright : (c) Alberto Ruiz 2006 | ||
5 | -- License : GPL | ||
6 | -- Maintainer : Alberto Ruiz (aruiz at um dot es) | ||
7 | -- Stability : provisional | ||
8 | -- Portability : uses ffi | ||
9 | -- | ||
10 | -- Wrappers for selected functions described at: | ||
11 | -- | ||
12 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
13 | ------------------------------------------------------------ | ||
14 | |||
15 | module Numeric.GSL.Special.Fermi_dirac( | ||
16 | fermi_dirac_m1_e | ||
17 | , fermi_dirac_m1 | ||
18 | , fermi_dirac_0_e | ||
19 | , fermi_dirac_0 | ||
20 | , fermi_dirac_1_e | ||
21 | , fermi_dirac_1 | ||
22 | , fermi_dirac_2_e | ||
23 | , fermi_dirac_2 | ||
24 | , fermi_dirac_int_e | ||
25 | , fermi_dirac_int | ||
26 | , fermi_dirac_mhalf_e | ||
27 | , fermi_dirac_mhalf | ||
28 | , fermi_dirac_half_e | ||
29 | , fermi_dirac_half | ||
30 | , fermi_dirac_3half_e | ||
31 | , fermi_dirac_3half | ||
32 | , fermi_dirac_inc_0_e | ||
33 | , fermi_dirac_inc_0 | ||
34 | ) where | ||
35 | |||
36 | import Foreign(Ptr) | ||
37 | import Foreign.C.Types(CInt) | ||
38 | import Numeric.GSL.Special.Internal | ||
39 | |||
40 | fermi_dirac_m1_e :: Double -> (Double,Double) | ||
41 | fermi_dirac_m1_e x = createSFR "fermi_dirac_m1_e" $ gsl_sf_fermi_dirac_m1_e x | ||
42 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr () -> IO CInt | ||
43 | |||
44 | fermi_dirac_m1 :: Double -> Double | ||
45 | fermi_dirac_m1 = gsl_sf_fermi_dirac_m1 | ||
46 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1 :: Double -> Double | ||
47 | |||
48 | fermi_dirac_0_e :: Double -> (Double,Double) | ||
49 | fermi_dirac_0_e x = createSFR "fermi_dirac_0_e" $ gsl_sf_fermi_dirac_0_e x | ||
50 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr () -> IO CInt | ||
51 | |||
52 | fermi_dirac_0 :: Double -> Double | ||
53 | fermi_dirac_0 = gsl_sf_fermi_dirac_0 | ||
54 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 :: Double -> Double | ||
55 | |||
56 | fermi_dirac_1_e :: Double -> (Double,Double) | ||
57 | fermi_dirac_1_e x = createSFR "fermi_dirac_1_e" $ gsl_sf_fermi_dirac_1_e x | ||
58 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr () -> IO CInt | ||
59 | |||
60 | fermi_dirac_1 :: Double -> Double | ||
61 | fermi_dirac_1 = gsl_sf_fermi_dirac_1 | ||
62 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 :: Double -> Double | ||
63 | |||
64 | fermi_dirac_2_e :: Double -> (Double,Double) | ||
65 | fermi_dirac_2_e x = createSFR "fermi_dirac_2_e" $ gsl_sf_fermi_dirac_2_e x | ||
66 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr () -> IO CInt | ||
67 | |||
68 | fermi_dirac_2 :: Double -> Double | ||
69 | fermi_dirac_2 = gsl_sf_fermi_dirac_2 | ||
70 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 :: Double -> Double | ||
71 | |||
72 | fermi_dirac_int_e :: CInt -> Double -> (Double,Double) | ||
73 | fermi_dirac_int_e j x = createSFR "fermi_dirac_int_e" $ gsl_sf_fermi_dirac_int_e j x | ||
74 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: CInt -> Double -> Ptr () -> IO CInt | ||
75 | |||
76 | fermi_dirac_int :: CInt -> Double -> Double | ||
77 | fermi_dirac_int = gsl_sf_fermi_dirac_int | ||
78 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: CInt -> Double -> Double | ||
79 | |||
80 | fermi_dirac_mhalf_e :: Double -> (Double,Double) | ||
81 | fermi_dirac_mhalf_e x = createSFR "fermi_dirac_mhalf_e" $ gsl_sf_fermi_dirac_mhalf_e x | ||
82 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr () -> IO CInt | ||
83 | |||
84 | fermi_dirac_mhalf :: Double -> Double | ||
85 | fermi_dirac_mhalf = gsl_sf_fermi_dirac_mhalf | ||
86 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac_mhalf :: Double -> Double | ||
87 | |||
88 | fermi_dirac_half_e :: Double -> (Double,Double) | ||
89 | fermi_dirac_half_e x = createSFR "fermi_dirac_half_e" $ gsl_sf_fermi_dirac_half_e x | ||
90 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr () -> IO CInt | ||
91 | |||
92 | fermi_dirac_half :: Double -> Double | ||
93 | fermi_dirac_half = gsl_sf_fermi_dirac_half | ||
94 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_half :: Double -> Double | ||
95 | |||
96 | fermi_dirac_3half_e :: Double -> (Double,Double) | ||
97 | fermi_dirac_3half_e x = createSFR "fermi_dirac_3half_e" $ gsl_sf_fermi_dirac_3half_e x | ||
98 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr () -> IO CInt | ||
99 | |||
100 | fermi_dirac_3half :: Double -> Double | ||
101 | fermi_dirac_3half = gsl_sf_fermi_dirac_3half | ||
102 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac_3half :: Double -> Double | ||
103 | |||
104 | fermi_dirac_inc_0_e :: Double -> Double -> (Double,Double) | ||
105 | fermi_dirac_inc_0_e x b = createSFR "fermi_dirac_inc_0_e" $ gsl_sf_fermi_dirac_inc_0_e x b | ||
106 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_inc_0_e" gsl_sf_fermi_dirac_inc_0_e :: Double -> Double -> Ptr () -> IO CInt | ||
107 | |||
108 | fermi_dirac_inc_0 :: Double -> Double -> Double | ||
109 | fermi_dirac_inc_0 = gsl_sf_fermi_dirac_inc_0 | ||
110 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_inc_0" gsl_sf_fermi_dirac_inc_0 :: Double -> Double -> Double | ||