diff options
Diffstat (limited to 'lib/Numeric/GSL/Special/Trig.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Trig.hs | 124 |
1 files changed, 11 insertions, 113 deletions
diff --git a/lib/Numeric/GSL/Special/Trig.hs b/lib/Numeric/GSL/Special/Trig.hs index 1869733..f670070 100644 --- a/lib/Numeric/GSL/Special/Trig.hs +++ b/lib/Numeric/GSL/Special/Trig.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Trig | 3 | -- Module : Numeric.GSL.Special.Trig |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | -- Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | -- License : GPL |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | -- Maintainer : Alberto Ruiz (aruiz at um dot es) |
7 | Stability : provisional | 7 | -- Stability : provisional |
8 | Portability : uses ffi | 8 | -- Portability : uses ffi |
9 | 9 | -- | |
10 | Wrappers for selected functions described at: | 10 | -- Wrappers for selected functions described at: |
11 | 11 | -- | |
12 | <http://www.google.com/search?q=gsl_sf_trig.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_trig.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Trig( | 15 | module Numeric.GSL.Special.Trig( |
@@ -38,178 +36,78 @@ module Numeric.GSL.Special.Trig( | |||
38 | import Foreign(Ptr) | 36 | import Foreign(Ptr) |
39 | import Foreign.C.Types(CInt) | 37 | import Foreign.C.Types(CInt) |
40 | import Numeric.GSL.Special.Internal | 38 | import Numeric.GSL.Special.Internal |
41 | |||
42 | -- | wrapper for int gsl_sf_sin_e(double x,gsl_sf_result* result); | ||
43 | -- | ||
44 | -- <http://www.google.com/search?q=gsl_sf_sin_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
45 | sin_e :: Double -> (Double,Double) | 39 | sin_e :: Double -> (Double,Double) |
46 | sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x | 40 | sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x |
47 | foreign import ccall "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt | 41 | foreign import ccall "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt |
48 | |||
49 | -- | wrapper for double gsl_sf_sin(double x); | ||
50 | -- | ||
51 | -- <http://www.google.com/search?q=gsl_sf_sin&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
52 | sin :: Double -> Double | 42 | sin :: Double -> Double |
53 | sin = gsl_sf_sin | 43 | sin = gsl_sf_sin |
54 | foreign import ccall "gsl_sf_sin" gsl_sf_sin :: Double -> Double | 44 | foreign import ccall "gsl_sf_sin" gsl_sf_sin :: Double -> Double |
55 | |||
56 | -- | wrapper for int gsl_sf_cos_e(double x,gsl_sf_result* result); | ||
57 | -- | ||
58 | -- <http://www.google.com/search?q=gsl_sf_cos_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
59 | cos_e :: Double -> (Double,Double) | 45 | cos_e :: Double -> (Double,Double) |
60 | cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x | 46 | cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x |
61 | foreign import ccall "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt | 47 | foreign import ccall "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt |
62 | |||
63 | -- | wrapper for double gsl_sf_cos(double x); | ||
64 | -- | ||
65 | -- <http://www.google.com/search?q=gsl_sf_cos&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
66 | cos :: Double -> Double | 48 | cos :: Double -> Double |
67 | cos = gsl_sf_cos | 49 | cos = gsl_sf_cos |
68 | foreign import ccall "gsl_sf_cos" gsl_sf_cos :: Double -> Double | 50 | foreign import ccall "gsl_sf_cos" gsl_sf_cos :: Double -> Double |
69 | |||
70 | -- | wrapper for int gsl_sf_hypot_e(double x,double y,gsl_sf_result* result); | ||
71 | -- | ||
72 | -- <http://www.google.com/search?q=gsl_sf_hypot_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
73 | hypot_e :: Double -> Double -> (Double,Double) | 51 | hypot_e :: Double -> Double -> (Double,Double) |
74 | hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y | 52 | hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y |
75 | foreign import ccall "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt | 53 | foreign import ccall "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt |
76 | |||
77 | -- | wrapper for double gsl_sf_hypot(double x,double y); | ||
78 | -- | ||
79 | -- <http://www.google.com/search?q=gsl_sf_hypot&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
80 | hypot :: Double -> Double -> Double | 54 | hypot :: Double -> Double -> Double |
81 | hypot = gsl_sf_hypot | 55 | hypot = gsl_sf_hypot |
82 | foreign import ccall "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double | 56 | foreign import ccall "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double |
83 | |||
84 | -- | wrapper for int gsl_sf_complex_sin_e(double zr,double zi,gsl_sf_result* szr,gsl_sf_result* szi); | ||
85 | -- | ||
86 | -- <http://www.google.com/search?q=gsl_sf_complex_sin_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
87 | complex_sin_e :: Double -> Double -> Ptr () -> (Double,Double) | 57 | complex_sin_e :: Double -> Double -> Ptr () -> (Double,Double) |
88 | complex_sin_e zr zi szr = createSFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi szr | 58 | complex_sin_e zr zi szr = createSFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi szr |
89 | foreign import ccall "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 59 | foreign import ccall "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
90 | |||
91 | -- | wrapper for int gsl_sf_complex_cos_e(double zr,double zi,gsl_sf_result* czr,gsl_sf_result* czi); | ||
92 | -- | ||
93 | -- <http://www.google.com/search?q=gsl_sf_complex_cos_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
94 | complex_cos_e :: Double -> Double -> Ptr () -> (Double,Double) | 60 | complex_cos_e :: Double -> Double -> Ptr () -> (Double,Double) |
95 | complex_cos_e zr zi czr = createSFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi czr | 61 | complex_cos_e zr zi czr = createSFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi czr |
96 | foreign import ccall "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 62 | foreign import ccall "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
97 | |||
98 | -- | wrapper for int gsl_sf_complex_logsin_e(double zr,double zi,gsl_sf_result* lszr,gsl_sf_result* lszi); | ||
99 | -- | ||
100 | -- <http://www.google.com/search?q=gsl_sf_complex_logsin_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
101 | complex_logsin_e :: Double -> Double -> Ptr () -> (Double,Double) | 63 | complex_logsin_e :: Double -> Double -> Ptr () -> (Double,Double) |
102 | complex_logsin_e zr zi lszr = createSFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi lszr | 64 | complex_logsin_e zr zi lszr = createSFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi lszr |
103 | foreign import ccall "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 65 | foreign import ccall "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
104 | |||
105 | -- | wrapper for int gsl_sf_sinc_e(double x,gsl_sf_result* result); | ||
106 | -- | ||
107 | -- <http://www.google.com/search?q=gsl_sf_sinc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
108 | sinc_e :: Double -> (Double,Double) | 66 | sinc_e :: Double -> (Double,Double) |
109 | sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x | 67 | sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x |
110 | foreign import ccall "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt | 68 | foreign import ccall "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt |
111 | |||
112 | -- | wrapper for double gsl_sf_sinc(double x); | ||
113 | -- | ||
114 | -- <http://www.google.com/search?q=gsl_sf_sinc&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
115 | sinc :: Double -> Double | 69 | sinc :: Double -> Double |
116 | sinc = gsl_sf_sinc | 70 | sinc = gsl_sf_sinc |
117 | foreign import ccall "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double | 71 | foreign import ccall "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double |
118 | |||
119 | -- | wrapper for int gsl_sf_lnsinh_e(double x,gsl_sf_result* result); | ||
120 | -- | ||
121 | -- <http://www.google.com/search?q=gsl_sf_lnsinh_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
122 | lnsinh_e :: Double -> (Double,Double) | 72 | lnsinh_e :: Double -> (Double,Double) |
123 | lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x | 73 | lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x |
124 | foreign import ccall "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt | 74 | foreign import ccall "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt |
125 | |||
126 | -- | wrapper for double gsl_sf_lnsinh(double x); | ||
127 | -- | ||
128 | -- <http://www.google.com/search?q=gsl_sf_lnsinh&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
129 | lnsinh :: Double -> Double | 75 | lnsinh :: Double -> Double |
130 | lnsinh = gsl_sf_lnsinh | 76 | lnsinh = gsl_sf_lnsinh |
131 | foreign import ccall "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double | 77 | foreign import ccall "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double |
132 | |||
133 | -- | wrapper for int gsl_sf_lncosh_e(double x,gsl_sf_result* result); | ||
134 | -- | ||
135 | -- <http://www.google.com/search?q=gsl_sf_lncosh_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
136 | lncosh_e :: Double -> (Double,Double) | 78 | lncosh_e :: Double -> (Double,Double) |
137 | lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x | 79 | lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x |
138 | foreign import ccall "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt | 80 | foreign import ccall "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt |
139 | |||
140 | -- | wrapper for double gsl_sf_lncosh(double x); | ||
141 | -- | ||
142 | -- <http://www.google.com/search?q=gsl_sf_lncosh&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
143 | lncosh :: Double -> Double | 81 | lncosh :: Double -> Double |
144 | lncosh = gsl_sf_lncosh | 82 | lncosh = gsl_sf_lncosh |
145 | foreign import ccall "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double | 83 | foreign import ccall "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double |
146 | |||
147 | -- | wrapper for int gsl_sf_polar_to_rect(double r,double theta,gsl_sf_result* x,gsl_sf_result* y); | ||
148 | -- | ||
149 | -- <http://www.google.com/search?q=gsl_sf_polar_to_rect&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
150 | polar_to_rect :: Double -> Double -> Ptr () -> (Double,Double) | 84 | polar_to_rect :: Double -> Double -> Ptr () -> (Double,Double) |
151 | polar_to_rect r theta x = createSFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta x | 85 | polar_to_rect r theta x = createSFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta x |
152 | foreign import ccall "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 86 | foreign import ccall "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
153 | |||
154 | -- | wrapper for int gsl_sf_rect_to_polar(double x,double y,gsl_sf_result* r,gsl_sf_result* theta); | ||
155 | -- | ||
156 | -- <http://www.google.com/search?q=gsl_sf_rect_to_polar&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
157 | rect_to_polar :: Double -> Double -> Ptr () -> (Double,Double) | 87 | rect_to_polar :: Double -> Double -> Ptr () -> (Double,Double) |
158 | rect_to_polar x y r = createSFR "rect_to_polar" $ gsl_sf_rect_to_polar x y r | 88 | rect_to_polar x y r = createSFR "rect_to_polar" $ gsl_sf_rect_to_polar x y r |
159 | foreign import ccall "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 89 | foreign import ccall "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
160 | |||
161 | -- | wrapper for int gsl_sf_sin_err_e(double x,double dx,gsl_sf_result* result); | ||
162 | -- | ||
163 | -- <http://www.google.com/search?q=gsl_sf_sin_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
164 | sin_err_e :: Double -> Double -> (Double,Double) | 90 | sin_err_e :: Double -> Double -> (Double,Double) |
165 | sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx | 91 | sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx |
166 | foreign import ccall "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt | 92 | foreign import ccall "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt |
167 | |||
168 | -- | wrapper for int gsl_sf_cos_err_e(double x,double dx,gsl_sf_result* result); | ||
169 | -- | ||
170 | -- <http://www.google.com/search?q=gsl_sf_cos_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
171 | cos_err_e :: Double -> Double -> (Double,Double) | 93 | cos_err_e :: Double -> Double -> (Double,Double) |
172 | cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx | 94 | cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx |
173 | foreign import ccall "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt | 95 | foreign import ccall "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt |
174 | |||
175 | -- | wrapper for int gsl_sf_angle_restrict_symm_e(double* theta); | ||
176 | -- | ||
177 | -- <http://www.google.com/search?q=gsl_sf_angle_restrict_symm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
178 | angle_restrict_symm_e :: Ptr Double -> CInt | 96 | angle_restrict_symm_e :: Ptr Double -> CInt |
179 | angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e | 97 | angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e |
180 | foreign import ccall "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt | 98 | foreign import ccall "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt |
181 | |||
182 | -- | wrapper for double gsl_sf_angle_restrict_symm(double theta); | ||
183 | -- | ||
184 | -- <http://www.google.com/search?q=gsl_sf_angle_restrict_symm&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
185 | angle_restrict_symm :: Double -> Double | 99 | angle_restrict_symm :: Double -> Double |
186 | angle_restrict_symm = gsl_sf_angle_restrict_symm | 100 | angle_restrict_symm = gsl_sf_angle_restrict_symm |
187 | foreign import ccall "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double | 101 | foreign import ccall "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double |
188 | |||
189 | -- | wrapper for int gsl_sf_angle_restrict_pos_e(double* theta); | ||
190 | -- | ||
191 | -- <http://www.google.com/search?q=gsl_sf_angle_restrict_pos_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
192 | angle_restrict_pos_e :: Ptr Double -> CInt | 102 | angle_restrict_pos_e :: Ptr Double -> CInt |
193 | angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e | 103 | angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e |
194 | foreign import ccall "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt | 104 | foreign import ccall "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt |
195 | |||
196 | -- | wrapper for double gsl_sf_angle_restrict_pos(double theta); | ||
197 | -- | ||
198 | -- <http://www.google.com/search?q=gsl_sf_angle_restrict_pos&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
199 | angle_restrict_pos :: Double -> Double | 105 | angle_restrict_pos :: Double -> Double |
200 | angle_restrict_pos = gsl_sf_angle_restrict_pos | 106 | angle_restrict_pos = gsl_sf_angle_restrict_pos |
201 | foreign import ccall "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double | 107 | foreign import ccall "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double |
202 | |||
203 | -- | wrapper for int gsl_sf_angle_restrict_symm_err_e(double theta,gsl_sf_result* result); | ||
204 | -- | ||
205 | -- <http://www.google.com/search?q=gsl_sf_angle_restrict_symm_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
206 | angle_restrict_symm_err_e :: Double -> (Double,Double) | 108 | angle_restrict_symm_err_e :: Double -> (Double,Double) |
207 | angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta | 109 | angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta |
208 | foreign import ccall "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt | 110 | foreign import ccall "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt |
209 | |||
210 | -- | wrapper for int gsl_sf_angle_restrict_pos_err_e(double theta,gsl_sf_result* result); | ||
211 | -- | ||
212 | -- <http://www.google.com/search?q=gsl_sf_angle_restrict_pos_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
213 | angle_restrict_pos_err_e :: Double -> (Double,Double) | 111 | angle_restrict_pos_err_e :: Double -> (Double,Double) |
214 | angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta | 112 | angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta |
215 | foreign import ccall "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt | 113 | foreign import ccall "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt |