diff options
Diffstat (limited to 'lib/Numeric/GSL/Special/Fermi_dirac.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Fermi_dirac.hs | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/lib/Numeric/GSL/Special/Fermi_dirac.hs b/lib/Numeric/GSL/Special/Fermi_dirac.hs index a189dd4..cef5304 100644 --- a/lib/Numeric/GSL/Special/Fermi_dirac.hs +++ b/lib/Numeric/GSL/Special/Fermi_dirac.hs | |||
@@ -36,6 +36,7 @@ module Numeric.GSL.Special.Fermi_dirac( | |||
36 | ) where | 36 | ) where |
37 | 37 | ||
38 | import Foreign(Ptr) | 38 | import Foreign(Ptr) |
39 | import Foreign.C.Types(CInt) | ||
39 | import Numeric.GSL.Special.Internal | 40 | import Numeric.GSL.Special.Internal |
40 | 41 | ||
41 | -- | wrapper for int gsl_sf_fermi_dirac_m1_e(double x,gsl_sf_result* result); | 42 | -- | wrapper for int gsl_sf_fermi_dirac_m1_e(double x,gsl_sf_result* result); |
@@ -43,7 +44,7 @@ import Numeric.GSL.Special.Internal | |||
43 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_m1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 44 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_m1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
44 | fermi_dirac_m1_e :: Double -> (Double,Double) | 45 | fermi_dirac_m1_e :: Double -> (Double,Double) |
45 | fermi_dirac_m1_e x = createSFR "fermi_dirac_m1_e" $ gsl_sf_fermi_dirac_m1_e x | 46 | fermi_dirac_m1_e x = createSFR "fermi_dirac_m1_e" $ gsl_sf_fermi_dirac_m1_e x |
46 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr Double -> IO(Int) | 47 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr () -> IO CInt |
47 | 48 | ||
48 | -- | wrapper for double gsl_sf_fermi_dirac_m1(double x); | 49 | -- | wrapper for double gsl_sf_fermi_dirac_m1(double x); |
49 | -- | 50 | -- |
@@ -57,7 +58,7 @@ foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1 | |||
57 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 58 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
58 | fermi_dirac_0_e :: Double -> (Double,Double) | 59 | fermi_dirac_0_e :: Double -> (Double,Double) |
59 | fermi_dirac_0_e x = createSFR "fermi_dirac_0_e" $ gsl_sf_fermi_dirac_0_e x | 60 | fermi_dirac_0_e x = createSFR "fermi_dirac_0_e" $ gsl_sf_fermi_dirac_0_e x |
60 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr Double -> IO(Int) | 61 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr () -> IO CInt |
61 | 62 | ||
62 | -- | wrapper for double gsl_sf_fermi_dirac_0(double x); | 63 | -- | wrapper for double gsl_sf_fermi_dirac_0(double x); |
63 | -- | 64 | -- |
@@ -71,7 +72,7 @@ foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 : | |||
71 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 72 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
72 | fermi_dirac_1_e :: Double -> (Double,Double) | 73 | fermi_dirac_1_e :: Double -> (Double,Double) |
73 | fermi_dirac_1_e x = createSFR "fermi_dirac_1_e" $ gsl_sf_fermi_dirac_1_e x | 74 | fermi_dirac_1_e x = createSFR "fermi_dirac_1_e" $ gsl_sf_fermi_dirac_1_e x |
74 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr Double -> IO(Int) | 75 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr () -> IO CInt |
75 | 76 | ||
76 | -- | wrapper for double gsl_sf_fermi_dirac_1(double x); | 77 | -- | wrapper for double gsl_sf_fermi_dirac_1(double x); |
77 | -- | 78 | -- |
@@ -85,7 +86,7 @@ foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 : | |||
85 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 86 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
86 | fermi_dirac_2_e :: Double -> (Double,Double) | 87 | fermi_dirac_2_e :: Double -> (Double,Double) |
87 | fermi_dirac_2_e x = createSFR "fermi_dirac_2_e" $ gsl_sf_fermi_dirac_2_e x | 88 | fermi_dirac_2_e x = createSFR "fermi_dirac_2_e" $ gsl_sf_fermi_dirac_2_e x |
88 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr Double -> IO(Int) | 89 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr () -> IO CInt |
89 | 90 | ||
90 | -- | wrapper for double gsl_sf_fermi_dirac_2(double x); | 91 | -- | wrapper for double gsl_sf_fermi_dirac_2(double x); |
91 | -- | 92 | -- |
@@ -97,23 +98,23 @@ foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 : | |||
97 | -- | wrapper for int gsl_sf_fermi_dirac_int_e(int j,double x,gsl_sf_result* result); | 98 | -- | wrapper for int gsl_sf_fermi_dirac_int_e(int j,double x,gsl_sf_result* result); |
98 | -- | 99 | -- |
99 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 100 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
100 | fermi_dirac_int_e :: Int -> Double -> (Double,Double) | 101 | fermi_dirac_int_e :: CInt -> Double -> (Double,Double) |
101 | fermi_dirac_int_e j x = createSFR "fermi_dirac_int_e" $ gsl_sf_fermi_dirac_int_e j x | 102 | fermi_dirac_int_e j x = createSFR "fermi_dirac_int_e" $ gsl_sf_fermi_dirac_int_e j x |
102 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: Int -> Double -> Ptr Double -> IO(Int) | 103 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: CInt -> Double -> Ptr () -> IO CInt |
103 | 104 | ||
104 | -- | wrapper for double gsl_sf_fermi_dirac_int(int j,double x); | 105 | -- | wrapper for double gsl_sf_fermi_dirac_int(int j,double x); |
105 | -- | 106 | -- |
106 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 107 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
107 | fermi_dirac_int :: Int -> Double -> Double | 108 | fermi_dirac_int :: CInt -> Double -> Double |
108 | fermi_dirac_int = gsl_sf_fermi_dirac_int | 109 | fermi_dirac_int = gsl_sf_fermi_dirac_int |
109 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: Int -> Double -> Double | 110 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: CInt -> Double -> Double |
110 | 111 | ||
111 | -- | wrapper for int gsl_sf_fermi_dirac_mhalf_e(double x,gsl_sf_result* result); | 112 | -- | wrapper for int gsl_sf_fermi_dirac_mhalf_e(double x,gsl_sf_result* result); |
112 | -- | 113 | -- |
113 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_mhalf_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 114 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_mhalf_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
114 | fermi_dirac_mhalf_e :: Double -> (Double,Double) | 115 | fermi_dirac_mhalf_e :: Double -> (Double,Double) |
115 | fermi_dirac_mhalf_e x = createSFR "fermi_dirac_mhalf_e" $ gsl_sf_fermi_dirac_mhalf_e x | 116 | fermi_dirac_mhalf_e x = createSFR "fermi_dirac_mhalf_e" $ gsl_sf_fermi_dirac_mhalf_e x |
116 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr Double -> IO(Int) | 117 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr () -> IO CInt |
117 | 118 | ||
118 | -- | wrapper for double gsl_sf_fermi_dirac_mhalf(double x); | 119 | -- | wrapper for double gsl_sf_fermi_dirac_mhalf(double x); |
119 | -- | 120 | -- |
@@ -127,7 +128,7 @@ foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac | |||
127 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_half_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 128 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_half_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
128 | fermi_dirac_half_e :: Double -> (Double,Double) | 129 | fermi_dirac_half_e :: Double -> (Double,Double) |
129 | fermi_dirac_half_e x = createSFR "fermi_dirac_half_e" $ gsl_sf_fermi_dirac_half_e x | 130 | fermi_dirac_half_e x = createSFR "fermi_dirac_half_e" $ gsl_sf_fermi_dirac_half_e x |
130 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr Double -> IO(Int) | 131 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr () -> IO CInt |
131 | 132 | ||
132 | -- | wrapper for double gsl_sf_fermi_dirac_half(double x); | 133 | -- | wrapper for double gsl_sf_fermi_dirac_half(double x); |
133 | -- | 134 | -- |
@@ -141,7 +142,7 @@ foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_ | |||
141 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_3half_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 142 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_3half_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
142 | fermi_dirac_3half_e :: Double -> (Double,Double) | 143 | fermi_dirac_3half_e :: Double -> (Double,Double) |
143 | fermi_dirac_3half_e x = createSFR "fermi_dirac_3half_e" $ gsl_sf_fermi_dirac_3half_e x | 144 | fermi_dirac_3half_e x = createSFR "fermi_dirac_3half_e" $ gsl_sf_fermi_dirac_3half_e x |
144 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr Double -> IO(Int) | 145 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr () -> IO CInt |
145 | 146 | ||
146 | -- | wrapper for double gsl_sf_fermi_dirac_3half(double x); | 147 | -- | wrapper for double gsl_sf_fermi_dirac_3half(double x); |
147 | -- | 148 | -- |
@@ -155,7 +156,7 @@ foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac | |||
155 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_inc_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 156 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_inc_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
156 | fermi_dirac_inc_0_e :: Double -> Double -> (Double,Double) | 157 | fermi_dirac_inc_0_e :: Double -> Double -> (Double,Double) |
157 | fermi_dirac_inc_0_e x b = createSFR "fermi_dirac_inc_0_e" $ gsl_sf_fermi_dirac_inc_0_e x b | 158 | fermi_dirac_inc_0_e x b = createSFR "fermi_dirac_inc_0_e" $ gsl_sf_fermi_dirac_inc_0_e x b |
158 | 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) | 159 | foreign import ccall "fermi_dirac.h gsl_sf_fermi_dirac_inc_0_e" gsl_sf_fermi_dirac_inc_0_e :: Double -> Double -> Ptr () -> IO CInt |
159 | 160 | ||
160 | -- | wrapper for double gsl_sf_fermi_dirac_inc_0(double x,double b); | 161 | -- | wrapper for double gsl_sf_fermi_dirac_inc_0(double x,double b); |
161 | -- | 162 | -- |