diff options
author | Alberto Ruiz <aruiz@um.es> | 2012-03-13 11:21:21 +0100 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2012-03-13 11:21:21 +0100 |
commit | 9c4a8a37291f902312215452d0bdd9ad95408ae9 (patch) | |
tree | 72d468cfa9999dc079466f250883dfb131d016ba /packages/special/lib/Numeric/GSL/Special/Expint.hs | |
parent | 6f6455593c0490e4710854b08fc63a2d0993dcac (diff) | |
parent | 032fe19ddfa6e4cfba33f76aaa13043b54568fcf (diff) |
Merge remote-tracking branch 'wowus/master' into unsafe
Diffstat (limited to 'packages/special/lib/Numeric/GSL/Special/Expint.hs')
-rw-r--r-- | packages/special/lib/Numeric/GSL/Special/Expint.hs | 56 |
1 files changed, 28 insertions, 28 deletions
diff --git a/packages/special/lib/Numeric/GSL/Special/Expint.hs b/packages/special/lib/Numeric/GSL/Special/Expint.hs index 06f4594..babed46 100644 --- a/packages/special/lib/Numeric/GSL/Special/Expint.hs +++ b/packages/special/lib/Numeric/GSL/Special/Expint.hs | |||
@@ -49,112 +49,112 @@ import Numeric.GSL.Special.Internal | |||
49 | 49 | ||
50 | expint_E1_e :: Double -> (Double,Double) | 50 | expint_E1_e :: Double -> (Double,Double) |
51 | expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x | 51 | expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x |
52 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt | 52 | foreign import ccall unsafe "gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt |
53 | 53 | ||
54 | expint_E1 :: Double -> Double | 54 | expint_E1 :: Double -> Double |
55 | expint_E1 = gsl_sf_expint_E1 | 55 | expint_E1 = gsl_sf_expint_E1 |
56 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double | 56 | foreign import ccall unsafe "gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double |
57 | 57 | ||
58 | expint_E2_e :: Double -> (Double,Double) | 58 | expint_E2_e :: Double -> (Double,Double) |
59 | expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x | 59 | expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x |
60 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt | 60 | foreign import ccall unsafe "gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt |
61 | 61 | ||
62 | expint_E2 :: Double -> Double | 62 | expint_E2 :: Double -> Double |
63 | expint_E2 = gsl_sf_expint_E2 | 63 | expint_E2 = gsl_sf_expint_E2 |
64 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double | 64 | foreign import ccall unsafe "gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double |
65 | 65 | ||
66 | expint_En_e :: CInt -> Double -> (Double,Double) | 66 | expint_En_e :: CInt -> Double -> (Double,Double) |
67 | expint_En_e n x = createSFR "expint_En_e" $ gsl_sf_expint_En_e n x | 67 | expint_En_e n x = createSFR "expint_En_e" $ gsl_sf_expint_En_e n x |
68 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_En_e" gsl_sf_expint_En_e :: CInt -> Double -> Ptr () -> IO CInt | 68 | foreign import ccall unsafe "gsl_sf_expint_En_e" gsl_sf_expint_En_e :: CInt -> Double -> Ptr () -> IO CInt |
69 | 69 | ||
70 | expint_En :: CInt -> Double -> Double | 70 | expint_En :: CInt -> Double -> Double |
71 | expint_En = gsl_sf_expint_En | 71 | expint_En = gsl_sf_expint_En |
72 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_En" gsl_sf_expint_En :: CInt -> Double -> Double | 72 | foreign import ccall unsafe "gsl_sf_expint_En" gsl_sf_expint_En :: CInt -> Double -> Double |
73 | 73 | ||
74 | expint_E1_scaled_e :: Double -> (Double,Double) | 74 | expint_E1_scaled_e :: Double -> (Double,Double) |
75 | expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x | 75 | expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x |
76 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt | 76 | foreign import ccall unsafe "gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt |
77 | 77 | ||
78 | expint_E1_scaled :: Double -> Double | 78 | expint_E1_scaled :: Double -> Double |
79 | expint_E1_scaled = gsl_sf_expint_E1_scaled | 79 | expint_E1_scaled = gsl_sf_expint_E1_scaled |
80 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double | 80 | foreign import ccall unsafe "gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double |
81 | 81 | ||
82 | expint_E2_scaled_e :: Double -> (Double,Double) | 82 | expint_E2_scaled_e :: Double -> (Double,Double) |
83 | expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x | 83 | expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x |
84 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt | 84 | foreign import ccall unsafe "gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt |
85 | 85 | ||
86 | expint_E2_scaled :: Double -> Double | 86 | expint_E2_scaled :: Double -> Double |
87 | expint_E2_scaled = gsl_sf_expint_E2_scaled | 87 | expint_E2_scaled = gsl_sf_expint_E2_scaled |
88 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double | 88 | foreign import ccall unsafe "gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double |
89 | 89 | ||
90 | expint_En_scaled_e :: CInt -> Double -> (Double,Double) | 90 | expint_En_scaled_e :: CInt -> Double -> (Double,Double) |
91 | expint_En_scaled_e n x = createSFR "expint_En_scaled_e" $ gsl_sf_expint_En_scaled_e n x | 91 | expint_En_scaled_e n x = createSFR "expint_En_scaled_e" $ gsl_sf_expint_En_scaled_e n x |
92 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_En_scaled_e" gsl_sf_expint_En_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 92 | foreign import ccall unsafe "gsl_sf_expint_En_scaled_e" gsl_sf_expint_En_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
93 | 93 | ||
94 | expint_En_scaled :: CInt -> Double -> Double | 94 | expint_En_scaled :: CInt -> Double -> Double |
95 | expint_En_scaled = gsl_sf_expint_En_scaled | 95 | expint_En_scaled = gsl_sf_expint_En_scaled |
96 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_En_scaled" gsl_sf_expint_En_scaled :: CInt -> Double -> Double | 96 | foreign import ccall unsafe "gsl_sf_expint_En_scaled" gsl_sf_expint_En_scaled :: CInt -> Double -> Double |
97 | 97 | ||
98 | expint_Ei_e :: Double -> (Double,Double) | 98 | expint_Ei_e :: Double -> (Double,Double) |
99 | expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x | 99 | expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x |
100 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt | 100 | foreign import ccall unsafe "gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt |
101 | 101 | ||
102 | expint_Ei :: Double -> Double | 102 | expint_Ei :: Double -> Double |
103 | expint_Ei = gsl_sf_expint_Ei | 103 | expint_Ei = gsl_sf_expint_Ei |
104 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double | 104 | foreign import ccall unsafe "gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double |
105 | 105 | ||
106 | expint_Ei_scaled_e :: Double -> (Double,Double) | 106 | expint_Ei_scaled_e :: Double -> (Double,Double) |
107 | expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x | 107 | expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x |
108 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt | 108 | foreign import ccall unsafe "gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt |
109 | 109 | ||
110 | expint_Ei_scaled :: Double -> Double | 110 | expint_Ei_scaled :: Double -> Double |
111 | expint_Ei_scaled = gsl_sf_expint_Ei_scaled | 111 | expint_Ei_scaled = gsl_sf_expint_Ei_scaled |
112 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double | 112 | foreign import ccall unsafe "gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double |
113 | 113 | ||
114 | shi_e :: Double -> (Double,Double) | 114 | shi_e :: Double -> (Double,Double) |
115 | shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x | 115 | shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x |
116 | foreign import ccall SAFE_CHEAP "gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt | 116 | foreign import ccall unsafe "gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt |
117 | 117 | ||
118 | shi :: Double -> Double | 118 | shi :: Double -> Double |
119 | shi = gsl_sf_Shi | 119 | shi = gsl_sf_Shi |
120 | foreign import ccall SAFE_CHEAP "gsl_sf_Shi" gsl_sf_Shi :: Double -> Double | 120 | foreign import ccall unsafe "gsl_sf_Shi" gsl_sf_Shi :: Double -> Double |
121 | 121 | ||
122 | chi_e :: Double -> (Double,Double) | 122 | chi_e :: Double -> (Double,Double) |
123 | chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x | 123 | chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x |
124 | foreign import ccall SAFE_CHEAP "gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt | 124 | foreign import ccall unsafe "gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt |
125 | 125 | ||
126 | chi :: Double -> Double | 126 | chi :: Double -> Double |
127 | chi = gsl_sf_Chi | 127 | chi = gsl_sf_Chi |
128 | foreign import ccall SAFE_CHEAP "gsl_sf_Chi" gsl_sf_Chi :: Double -> Double | 128 | foreign import ccall unsafe "gsl_sf_Chi" gsl_sf_Chi :: Double -> Double |
129 | 129 | ||
130 | expint_3_e :: Double -> (Double,Double) | 130 | expint_3_e :: Double -> (Double,Double) |
131 | expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x | 131 | expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x |
132 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt | 132 | foreign import ccall unsafe "gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt |
133 | 133 | ||
134 | expint_3 :: Double -> Double | 134 | expint_3 :: Double -> Double |
135 | expint_3 = gsl_sf_expint_3 | 135 | expint_3 = gsl_sf_expint_3 |
136 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double | 136 | foreign import ccall unsafe "gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double |
137 | 137 | ||
138 | si_e :: Double -> (Double,Double) | 138 | si_e :: Double -> (Double,Double) |
139 | si_e x = createSFR "si_e" $ gsl_sf_Si_e x | 139 | si_e x = createSFR "si_e" $ gsl_sf_Si_e x |
140 | foreign import ccall SAFE_CHEAP "gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt | 140 | foreign import ccall unsafe "gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt |
141 | 141 | ||
142 | si :: Double -> Double | 142 | si :: Double -> Double |
143 | si = gsl_sf_Si | 143 | si = gsl_sf_Si |
144 | foreign import ccall SAFE_CHEAP "gsl_sf_Si" gsl_sf_Si :: Double -> Double | 144 | foreign import ccall unsafe "gsl_sf_Si" gsl_sf_Si :: Double -> Double |
145 | 145 | ||
146 | ci_e :: Double -> (Double,Double) | 146 | ci_e :: Double -> (Double,Double) |
147 | ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x | 147 | ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x |
148 | foreign import ccall SAFE_CHEAP "gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt | 148 | foreign import ccall unsafe "gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt |
149 | 149 | ||
150 | ci :: Double -> Double | 150 | ci :: Double -> Double |
151 | ci = gsl_sf_Ci | 151 | ci = gsl_sf_Ci |
152 | foreign import ccall SAFE_CHEAP "gsl_sf_Ci" gsl_sf_Ci :: Double -> Double | 152 | foreign import ccall unsafe "gsl_sf_Ci" gsl_sf_Ci :: Double -> Double |
153 | 153 | ||
154 | atanint_e :: Double -> (Double,Double) | 154 | atanint_e :: Double -> (Double,Double) |
155 | atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x | 155 | atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x |
156 | foreign import ccall SAFE_CHEAP "gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt | 156 | foreign import ccall unsafe "gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt |
157 | 157 | ||
158 | atanint :: Double -> Double | 158 | atanint :: Double -> Double |
159 | atanint = gsl_sf_atanint | 159 | atanint = gsl_sf_atanint |
160 | foreign import ccall SAFE_CHEAP "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double | 160 | foreign import ccall unsafe "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double |