diff options
author | Alberto Ruiz <aruiz@um.es> | 2007-07-29 15:43:21 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2007-07-29 15:43:21 +0000 |
commit | b9db4d25d87cd4ab0f493413db92fb41b7eacda9 (patch) | |
tree | a447fe6f7e16b3768e912064a033ce257040720e /lib/GSL/Special/Fermi_dirac.hs | |
parent | b1b908c10ad7a393200651b4b23fc0b26efbc1b9 (diff) |
more automatic wrappers for simple special functions
Diffstat (limited to 'lib/GSL/Special/Fermi_dirac.hs')
-rw-r--r-- | lib/GSL/Special/Fermi_dirac.hs | 127 |
1 files changed, 127 insertions, 0 deletions
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 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | {- | | ||
3 | Module : GSL.Special.Fermi_dirac | ||
4 | Copyright : (c) Alberto Ruiz 2006 | ||
5 | License : GPL-style | ||
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | ||
7 | Stability : provisional | ||
8 | Portability : uses ffi | ||
9 | |||
10 | |||
11 | |||
12 | -} | ||
13 | ------------------------------------------------------------ | ||
14 | |||
15 | module 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 GSL.Special.Internal | ||
38 | |||
39 | -- | wrapper for int gsl_sf_fermi_dirac_m1_e(double x,gsl_sf_result* result); | ||
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 "fermi_dirac.h gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr Double -> IO(Int) | ||
43 | |||
44 | -- | wrapper for double gsl_sf_fermi_dirac_m1(double x); | ||
45 | fermi_dirac_m1 :: Double -> Double | ||
46 | fermi_dirac_m1 = gsl_sf_fermi_dirac_m1 | ||
47 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1 :: Double -> Double | ||
48 | |||
49 | -- | wrapper for int gsl_sf_fermi_dirac_0_e(double x,gsl_sf_result* result); | ||
50 | fermi_dirac_0_e :: Double -> (Double,Double) | ||
51 | fermi_dirac_0_e x = createSFR "fermi_dirac_0_e" $ gsl_sf_fermi_dirac_0_e x | ||
52 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr Double -> IO(Int) | ||
53 | |||
54 | -- | wrapper for double gsl_sf_fermi_dirac_0(double x); | ||
55 | fermi_dirac_0 :: Double -> Double | ||
56 | fermi_dirac_0 = gsl_sf_fermi_dirac_0 | ||
57 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 :: Double -> Double | ||
58 | |||
59 | -- | wrapper for int gsl_sf_fermi_dirac_1_e(double x,gsl_sf_result* result); | ||
60 | fermi_dirac_1_e :: Double -> (Double,Double) | ||
61 | fermi_dirac_1_e x = createSFR "fermi_dirac_1_e" $ gsl_sf_fermi_dirac_1_e x | ||
62 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr Double -> IO(Int) | ||
63 | |||
64 | -- | wrapper for double gsl_sf_fermi_dirac_1(double x); | ||
65 | fermi_dirac_1 :: Double -> Double | ||
66 | fermi_dirac_1 = gsl_sf_fermi_dirac_1 | ||
67 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 :: Double -> Double | ||
68 | |||
69 | -- | wrapper for int gsl_sf_fermi_dirac_2_e(double x,gsl_sf_result* result); | ||
70 | fermi_dirac_2_e :: Double -> (Double,Double) | ||
71 | fermi_dirac_2_e x = createSFR "fermi_dirac_2_e" $ gsl_sf_fermi_dirac_2_e x | ||
72 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr Double -> IO(Int) | ||
73 | |||
74 | -- | wrapper for double gsl_sf_fermi_dirac_2(double x); | ||
75 | fermi_dirac_2 :: Double -> Double | ||
76 | fermi_dirac_2 = gsl_sf_fermi_dirac_2 | ||
77 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 :: Double -> Double | ||
78 | |||
79 | -- | wrapper for int gsl_sf_fermi_dirac_int_e(int j,double x,gsl_sf_result* result); | ||
80 | fermi_dirac_int_e :: Int -> Double -> (Double,Double) | ||
81 | fermi_dirac_int_e j x = createSFR "fermi_dirac_int_e" $ gsl_sf_fermi_dirac_int_e j x | ||
82 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: Int -> Double -> Ptr Double -> IO(Int) | ||
83 | |||
84 | -- | wrapper for double gsl_sf_fermi_dirac_int(int j,double x); | ||
85 | fermi_dirac_int :: Int -> Double -> Double | ||
86 | fermi_dirac_int = gsl_sf_fermi_dirac_int | ||
87 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: Int -> Double -> Double | ||
88 | |||
89 | -- | wrapper for int gsl_sf_fermi_dirac_mhalf_e(double x,gsl_sf_result* result); | ||
90 | fermi_dirac_mhalf_e :: Double -> (Double,Double) | ||
91 | fermi_dirac_mhalf_e x = createSFR "fermi_dirac_mhalf_e" $ gsl_sf_fermi_dirac_mhalf_e x | ||
92 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr Double -> IO(Int) | ||
93 | |||
94 | -- | wrapper for double gsl_sf_fermi_dirac_mhalf(double x); | ||
95 | fermi_dirac_mhalf :: Double -> Double | ||
96 | fermi_dirac_mhalf = gsl_sf_fermi_dirac_mhalf | ||
97 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac_mhalf :: Double -> Double | ||
98 | |||
99 | -- | wrapper for int gsl_sf_fermi_dirac_half_e(double x,gsl_sf_result* result); | ||
100 | fermi_dirac_half_e :: Double -> (Double,Double) | ||
101 | fermi_dirac_half_e x = createSFR "fermi_dirac_half_e" $ gsl_sf_fermi_dirac_half_e x | ||
102 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr Double -> IO(Int) | ||
103 | |||
104 | -- | wrapper for double gsl_sf_fermi_dirac_half(double x); | ||
105 | fermi_dirac_half :: Double -> Double | ||
106 | fermi_dirac_half = gsl_sf_fermi_dirac_half | ||
107 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_half :: Double -> Double | ||
108 | |||
109 | -- | wrapper for int gsl_sf_fermi_dirac_3half_e(double x,gsl_sf_result* result); | ||
110 | fermi_dirac_3half_e :: Double -> (Double,Double) | ||
111 | fermi_dirac_3half_e x = createSFR "fermi_dirac_3half_e" $ gsl_sf_fermi_dirac_3half_e x | ||
112 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr Double -> IO(Int) | ||
113 | |||
114 | -- | wrapper for double gsl_sf_fermi_dirac_3half(double x); | ||
115 | fermi_dirac_3half :: Double -> Double | ||
116 | fermi_dirac_3half = gsl_sf_fermi_dirac_3half | ||
117 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac_3half :: Double -> Double | ||
118 | |||
119 | -- | wrapper for int gsl_sf_fermi_dirac_inc_0_e(double x,double b,gsl_sf_result* result); | ||
120 | fermi_dirac_inc_0_e :: Double -> Double -> (Double,Double) | ||
121 | fermi_dirac_inc_0_e x b = createSFR "fermi_dirac_inc_0_e" $ gsl_sf_fermi_dirac_inc_0_e x b | ||
122 | 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) | ||
123 | |||
124 | -- | wrapper for double gsl_sf_fermi_dirac_inc_0(double x,double b); | ||
125 | fermi_dirac_inc_0 :: Double -> Double -> Double | ||
126 | fermi_dirac_inc_0 = gsl_sf_fermi_dirac_inc_0 | ||
127 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_inc_0" gsl_sf_fermi_dirac_inc_0 :: Double -> Double -> Double | ||