diff options
author | Alberto Ruiz <aruiz@um.es> | 2012-03-13 14:51:12 +0100 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2012-03-13 14:51:12 +0100 |
commit | 072055e1658fa6fd64a4462b6a243ec0f5e5cdb4 (patch) | |
tree | 09e3a46185a1ee231cdddab6955437a2b0ead601 | |
parent | 9c4a8a37291f902312215452d0bdd9ad95408ae9 (diff) |
revert to SAFE_CHEAP macro, unsafe by default
29 files changed, 479 insertions, 479 deletions
diff --git a/packages/special/lib/Numeric/GSL/Special/Airy.hs b/packages/special/lib/Numeric/GSL/Special/Airy.hs index e2009e4..737de7c 100644 --- a/packages/special/lib/Numeric/GSL/Special/Airy.hs +++ b/packages/special/lib/Numeric/GSL/Special/Airy.hs | |||
@@ -46,96 +46,96 @@ import Numeric.GSL.Special.Internal | |||
46 | 46 | ||
47 | airy_Ai_e :: Double -> Precision -> (Double,Double) | 47 | airy_Ai_e :: Double -> Precision -> (Double,Double) |
48 | airy_Ai_e x mode = createSFR "airy_Ai_e" $ gsl_sf_airy_Ai_e x (precCode mode) | 48 | airy_Ai_e x mode = createSFR "airy_Ai_e" $ gsl_sf_airy_Ai_e x (precCode mode) |
49 | foreign import ccall unsafe "gsl_sf_airy_Ai_e" gsl_sf_airy_Ai_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 49 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_Ai_e" gsl_sf_airy_Ai_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
50 | 50 | ||
51 | airy_Ai :: Double -> Precision -> Double | 51 | airy_Ai :: Double -> Precision -> Double |
52 | airy_Ai x mode = gsl_sf_airy_Ai x (precCode mode) | 52 | airy_Ai x mode = gsl_sf_airy_Ai x (precCode mode) |
53 | foreign import ccall unsafe "gsl_sf_airy_Ai" gsl_sf_airy_Ai :: Double -> Gsl_mode_t -> Double | 53 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_Ai" gsl_sf_airy_Ai :: Double -> Gsl_mode_t -> Double |
54 | 54 | ||
55 | airy_Bi_e :: Double -> Precision -> (Double,Double) | 55 | airy_Bi_e :: Double -> Precision -> (Double,Double) |
56 | airy_Bi_e x mode = createSFR "airy_Bi_e" $ gsl_sf_airy_Bi_e x (precCode mode) | 56 | airy_Bi_e x mode = createSFR "airy_Bi_e" $ gsl_sf_airy_Bi_e x (precCode mode) |
57 | foreign import ccall unsafe "gsl_sf_airy_Bi_e" gsl_sf_airy_Bi_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 57 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_Bi_e" gsl_sf_airy_Bi_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
58 | 58 | ||
59 | airy_Bi :: Double -> Precision -> Double | 59 | airy_Bi :: Double -> Precision -> Double |
60 | airy_Bi x mode = gsl_sf_airy_Bi x (precCode mode) | 60 | airy_Bi x mode = gsl_sf_airy_Bi x (precCode mode) |
61 | foreign import ccall unsafe "gsl_sf_airy_Bi" gsl_sf_airy_Bi :: Double -> Gsl_mode_t -> Double | 61 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_Bi" gsl_sf_airy_Bi :: Double -> Gsl_mode_t -> Double |
62 | 62 | ||
63 | airy_Ai_scaled_e :: Double -> Precision -> (Double,Double) | 63 | airy_Ai_scaled_e :: Double -> Precision -> (Double,Double) |
64 | airy_Ai_scaled_e x mode = createSFR "airy_Ai_scaled_e" $ gsl_sf_airy_Ai_scaled_e x (precCode mode) | 64 | airy_Ai_scaled_e x mode = createSFR "airy_Ai_scaled_e" $ gsl_sf_airy_Ai_scaled_e x (precCode mode) |
65 | foreign import ccall unsafe "gsl_sf_airy_Ai_scaled_e" gsl_sf_airy_Ai_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 65 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_Ai_scaled_e" gsl_sf_airy_Ai_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
66 | 66 | ||
67 | airy_Ai_scaled :: Double -> Precision -> Double | 67 | airy_Ai_scaled :: Double -> Precision -> Double |
68 | airy_Ai_scaled x mode = gsl_sf_airy_Ai_scaled x (precCode mode) | 68 | airy_Ai_scaled x mode = gsl_sf_airy_Ai_scaled x (precCode mode) |
69 | foreign import ccall unsafe "gsl_sf_airy_Ai_scaled" gsl_sf_airy_Ai_scaled :: Double -> Gsl_mode_t -> Double | 69 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_Ai_scaled" gsl_sf_airy_Ai_scaled :: Double -> Gsl_mode_t -> Double |
70 | 70 | ||
71 | airy_Bi_scaled_e :: Double -> Precision -> (Double,Double) | 71 | airy_Bi_scaled_e :: Double -> Precision -> (Double,Double) |
72 | airy_Bi_scaled_e x mode = createSFR "airy_Bi_scaled_e" $ gsl_sf_airy_Bi_scaled_e x (precCode mode) | 72 | airy_Bi_scaled_e x mode = createSFR "airy_Bi_scaled_e" $ gsl_sf_airy_Bi_scaled_e x (precCode mode) |
73 | foreign import ccall unsafe "gsl_sf_airy_Bi_scaled_e" gsl_sf_airy_Bi_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 73 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_Bi_scaled_e" gsl_sf_airy_Bi_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
74 | 74 | ||
75 | airy_Bi_scaled :: Double -> Precision -> Double | 75 | airy_Bi_scaled :: Double -> Precision -> Double |
76 | airy_Bi_scaled x mode = gsl_sf_airy_Bi_scaled x (precCode mode) | 76 | airy_Bi_scaled x mode = gsl_sf_airy_Bi_scaled x (precCode mode) |
77 | foreign import ccall unsafe "gsl_sf_airy_Bi_scaled" gsl_sf_airy_Bi_scaled :: Double -> Gsl_mode_t -> Double | 77 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_Bi_scaled" gsl_sf_airy_Bi_scaled :: Double -> Gsl_mode_t -> Double |
78 | 78 | ||
79 | airy_Ai_deriv_e :: Double -> Precision -> (Double,Double) | 79 | airy_Ai_deriv_e :: Double -> Precision -> (Double,Double) |
80 | airy_Ai_deriv_e x mode = createSFR "airy_Ai_deriv_e" $ gsl_sf_airy_Ai_deriv_e x (precCode mode) | 80 | airy_Ai_deriv_e x mode = createSFR "airy_Ai_deriv_e" $ gsl_sf_airy_Ai_deriv_e x (precCode mode) |
81 | foreign import ccall unsafe "gsl_sf_airy_Ai_deriv_e" gsl_sf_airy_Ai_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 81 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_Ai_deriv_e" gsl_sf_airy_Ai_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
82 | 82 | ||
83 | airy_Ai_deriv :: Double -> Precision -> Double | 83 | airy_Ai_deriv :: Double -> Precision -> Double |
84 | airy_Ai_deriv x mode = gsl_sf_airy_Ai_deriv x (precCode mode) | 84 | airy_Ai_deriv x mode = gsl_sf_airy_Ai_deriv x (precCode mode) |
85 | foreign import ccall unsafe "gsl_sf_airy_Ai_deriv" gsl_sf_airy_Ai_deriv :: Double -> Gsl_mode_t -> Double | 85 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_Ai_deriv" gsl_sf_airy_Ai_deriv :: Double -> Gsl_mode_t -> Double |
86 | 86 | ||
87 | airy_Bi_deriv_e :: Double -> Precision -> (Double,Double) | 87 | airy_Bi_deriv_e :: Double -> Precision -> (Double,Double) |
88 | airy_Bi_deriv_e x mode = createSFR "airy_Bi_deriv_e" $ gsl_sf_airy_Bi_deriv_e x (precCode mode) | 88 | airy_Bi_deriv_e x mode = createSFR "airy_Bi_deriv_e" $ gsl_sf_airy_Bi_deriv_e x (precCode mode) |
89 | foreign import ccall unsafe "gsl_sf_airy_Bi_deriv_e" gsl_sf_airy_Bi_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 89 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_Bi_deriv_e" gsl_sf_airy_Bi_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
90 | 90 | ||
91 | airy_Bi_deriv :: Double -> Precision -> Double | 91 | airy_Bi_deriv :: Double -> Precision -> Double |
92 | airy_Bi_deriv x mode = gsl_sf_airy_Bi_deriv x (precCode mode) | 92 | airy_Bi_deriv x mode = gsl_sf_airy_Bi_deriv x (precCode mode) |
93 | foreign import ccall unsafe "gsl_sf_airy_Bi_deriv" gsl_sf_airy_Bi_deriv :: Double -> Gsl_mode_t -> Double | 93 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_Bi_deriv" gsl_sf_airy_Bi_deriv :: Double -> Gsl_mode_t -> Double |
94 | 94 | ||
95 | airy_Ai_deriv_scaled_e :: Double -> Precision -> (Double,Double) | 95 | airy_Ai_deriv_scaled_e :: Double -> Precision -> (Double,Double) |
96 | airy_Ai_deriv_scaled_e x mode = createSFR "airy_Ai_deriv_scaled_e" $ gsl_sf_airy_Ai_deriv_scaled_e x (precCode mode) | 96 | airy_Ai_deriv_scaled_e x mode = createSFR "airy_Ai_deriv_scaled_e" $ gsl_sf_airy_Ai_deriv_scaled_e x (precCode mode) |
97 | foreign import ccall unsafe "gsl_sf_airy_Ai_deriv_scaled_e" gsl_sf_airy_Ai_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 97 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_Ai_deriv_scaled_e" gsl_sf_airy_Ai_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
98 | 98 | ||
99 | airy_Ai_deriv_scaled :: Double -> Precision -> Double | 99 | airy_Ai_deriv_scaled :: Double -> Precision -> Double |
100 | airy_Ai_deriv_scaled x mode = gsl_sf_airy_Ai_deriv_scaled x (precCode mode) | 100 | airy_Ai_deriv_scaled x mode = gsl_sf_airy_Ai_deriv_scaled x (precCode mode) |
101 | foreign import ccall unsafe "gsl_sf_airy_Ai_deriv_scaled" gsl_sf_airy_Ai_deriv_scaled :: Double -> Gsl_mode_t -> Double | 101 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_Ai_deriv_scaled" gsl_sf_airy_Ai_deriv_scaled :: Double -> Gsl_mode_t -> Double |
102 | 102 | ||
103 | airy_Bi_deriv_scaled_e :: Double -> Precision -> (Double,Double) | 103 | airy_Bi_deriv_scaled_e :: Double -> Precision -> (Double,Double) |
104 | airy_Bi_deriv_scaled_e x mode = createSFR "airy_Bi_deriv_scaled_e" $ gsl_sf_airy_Bi_deriv_scaled_e x (precCode mode) | 104 | airy_Bi_deriv_scaled_e x mode = createSFR "airy_Bi_deriv_scaled_e" $ gsl_sf_airy_Bi_deriv_scaled_e x (precCode mode) |
105 | foreign import ccall unsafe "gsl_sf_airy_Bi_deriv_scaled_e" gsl_sf_airy_Bi_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 105 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_Bi_deriv_scaled_e" gsl_sf_airy_Bi_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
106 | 106 | ||
107 | airy_Bi_deriv_scaled :: Double -> Precision -> Double | 107 | airy_Bi_deriv_scaled :: Double -> Precision -> Double |
108 | airy_Bi_deriv_scaled x mode = gsl_sf_airy_Bi_deriv_scaled x (precCode mode) | 108 | airy_Bi_deriv_scaled x mode = gsl_sf_airy_Bi_deriv_scaled x (precCode mode) |
109 | foreign import ccall unsafe "gsl_sf_airy_Bi_deriv_scaled" gsl_sf_airy_Bi_deriv_scaled :: Double -> Gsl_mode_t -> Double | 109 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_Bi_deriv_scaled" gsl_sf_airy_Bi_deriv_scaled :: Double -> Gsl_mode_t -> Double |
110 | 110 | ||
111 | airy_zero_Ai_e :: CInt -> (Double,Double) | 111 | airy_zero_Ai_e :: CInt -> (Double,Double) |
112 | airy_zero_Ai_e s = createSFR "airy_zero_Ai_e" $ gsl_sf_airy_zero_Ai_e s | 112 | airy_zero_Ai_e s = createSFR "airy_zero_Ai_e" $ gsl_sf_airy_zero_Ai_e s |
113 | foreign import ccall unsafe "gsl_sf_airy_zero_Ai_e" gsl_sf_airy_zero_Ai_e :: CInt -> Ptr () -> IO CInt | 113 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_zero_Ai_e" gsl_sf_airy_zero_Ai_e :: CInt -> Ptr () -> IO CInt |
114 | 114 | ||
115 | airy_zero_Ai :: CInt -> Double | 115 | airy_zero_Ai :: CInt -> Double |
116 | airy_zero_Ai = gsl_sf_airy_zero_Ai | 116 | airy_zero_Ai = gsl_sf_airy_zero_Ai |
117 | foreign import ccall unsafe "gsl_sf_airy_zero_Ai" gsl_sf_airy_zero_Ai :: CInt -> Double | 117 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_zero_Ai" gsl_sf_airy_zero_Ai :: CInt -> Double |
118 | 118 | ||
119 | airy_zero_Bi_e :: CInt -> (Double,Double) | 119 | airy_zero_Bi_e :: CInt -> (Double,Double) |
120 | airy_zero_Bi_e s = createSFR "airy_zero_Bi_e" $ gsl_sf_airy_zero_Bi_e s | 120 | airy_zero_Bi_e s = createSFR "airy_zero_Bi_e" $ gsl_sf_airy_zero_Bi_e s |
121 | foreign import ccall unsafe "gsl_sf_airy_zero_Bi_e" gsl_sf_airy_zero_Bi_e :: CInt -> Ptr () -> IO CInt | 121 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_zero_Bi_e" gsl_sf_airy_zero_Bi_e :: CInt -> Ptr () -> IO CInt |
122 | 122 | ||
123 | airy_zero_Bi :: CInt -> Double | 123 | airy_zero_Bi :: CInt -> Double |
124 | airy_zero_Bi = gsl_sf_airy_zero_Bi | 124 | airy_zero_Bi = gsl_sf_airy_zero_Bi |
125 | foreign import ccall unsafe "gsl_sf_airy_zero_Bi" gsl_sf_airy_zero_Bi :: CInt -> Double | 125 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_zero_Bi" gsl_sf_airy_zero_Bi :: CInt -> Double |
126 | 126 | ||
127 | airy_zero_Ai_deriv_e :: CInt -> (Double,Double) | 127 | airy_zero_Ai_deriv_e :: CInt -> (Double,Double) |
128 | airy_zero_Ai_deriv_e s = createSFR "airy_zero_Ai_deriv_e" $ gsl_sf_airy_zero_Ai_deriv_e s | 128 | airy_zero_Ai_deriv_e s = createSFR "airy_zero_Ai_deriv_e" $ gsl_sf_airy_zero_Ai_deriv_e s |
129 | foreign import ccall unsafe "gsl_sf_airy_zero_Ai_deriv_e" gsl_sf_airy_zero_Ai_deriv_e :: CInt -> Ptr () -> IO CInt | 129 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_zero_Ai_deriv_e" gsl_sf_airy_zero_Ai_deriv_e :: CInt -> Ptr () -> IO CInt |
130 | 130 | ||
131 | airy_zero_Ai_deriv :: CInt -> Double | 131 | airy_zero_Ai_deriv :: CInt -> Double |
132 | airy_zero_Ai_deriv = gsl_sf_airy_zero_Ai_deriv | 132 | airy_zero_Ai_deriv = gsl_sf_airy_zero_Ai_deriv |
133 | foreign import ccall unsafe "gsl_sf_airy_zero_Ai_deriv" gsl_sf_airy_zero_Ai_deriv :: CInt -> Double | 133 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_zero_Ai_deriv" gsl_sf_airy_zero_Ai_deriv :: CInt -> Double |
134 | 134 | ||
135 | airy_zero_Bi_deriv_e :: CInt -> (Double,Double) | 135 | airy_zero_Bi_deriv_e :: CInt -> (Double,Double) |
136 | airy_zero_Bi_deriv_e s = createSFR "airy_zero_Bi_deriv_e" $ gsl_sf_airy_zero_Bi_deriv_e s | 136 | airy_zero_Bi_deriv_e s = createSFR "airy_zero_Bi_deriv_e" $ gsl_sf_airy_zero_Bi_deriv_e s |
137 | foreign import ccall unsafe "gsl_sf_airy_zero_Bi_deriv_e" gsl_sf_airy_zero_Bi_deriv_e :: CInt -> Ptr () -> IO CInt | 137 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_zero_Bi_deriv_e" gsl_sf_airy_zero_Bi_deriv_e :: CInt -> Ptr () -> IO CInt |
138 | 138 | ||
139 | airy_zero_Bi_deriv :: CInt -> Double | 139 | airy_zero_Bi_deriv :: CInt -> Double |
140 | airy_zero_Bi_deriv = gsl_sf_airy_zero_Bi_deriv | 140 | airy_zero_Bi_deriv = gsl_sf_airy_zero_Bi_deriv |
141 | foreign import ccall unsafe "gsl_sf_airy_zero_Bi_deriv" gsl_sf_airy_zero_Bi_deriv :: CInt -> Double | 141 | foreign import ccall SAFE_CHEAP "gsl_sf_airy_zero_Bi_deriv" gsl_sf_airy_zero_Bi_deriv :: CInt -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Bessel.hs b/packages/special/lib/Numeric/GSL/Special/Bessel.hs index 7fda7f7..4a80c28 100644 --- a/packages/special/lib/Numeric/GSL/Special/Bessel.hs +++ b/packages/special/lib/Numeric/GSL/Special/Bessel.hs | |||
@@ -110,404 +110,404 @@ import Numeric.GSL.Special.Internal | |||
110 | 110 | ||
111 | bessel_J0_e :: Double -> (Double,Double) | 111 | bessel_J0_e :: Double -> (Double,Double) |
112 | bessel_J0_e x = createSFR "bessel_J0_e" $ gsl_sf_bessel_J0_e x | 112 | bessel_J0_e x = createSFR "bessel_J0_e" $ gsl_sf_bessel_J0_e x |
113 | foreign import ccall unsafe "gsl_sf_bessel_J0_e" gsl_sf_bessel_J0_e :: Double -> Ptr () -> IO CInt | 113 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_J0_e" gsl_sf_bessel_J0_e :: Double -> Ptr () -> IO CInt |
114 | 114 | ||
115 | bessel_J0 :: Double -> Double | 115 | bessel_J0 :: Double -> Double |
116 | bessel_J0 = gsl_sf_bessel_J0 | 116 | bessel_J0 = gsl_sf_bessel_J0 |
117 | foreign import ccall unsafe "gsl_sf_bessel_J0" gsl_sf_bessel_J0 :: Double -> Double | 117 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_J0" gsl_sf_bessel_J0 :: Double -> Double |
118 | 118 | ||
119 | bessel_J1_e :: Double -> (Double,Double) | 119 | bessel_J1_e :: Double -> (Double,Double) |
120 | bessel_J1_e x = createSFR "bessel_J1_e" $ gsl_sf_bessel_J1_e x | 120 | bessel_J1_e x = createSFR "bessel_J1_e" $ gsl_sf_bessel_J1_e x |
121 | foreign import ccall unsafe "gsl_sf_bessel_J1_e" gsl_sf_bessel_J1_e :: Double -> Ptr () -> IO CInt | 121 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_J1_e" gsl_sf_bessel_J1_e :: Double -> Ptr () -> IO CInt |
122 | 122 | ||
123 | bessel_J1 :: Double -> Double | 123 | bessel_J1 :: Double -> Double |
124 | bessel_J1 = gsl_sf_bessel_J1 | 124 | bessel_J1 = gsl_sf_bessel_J1 |
125 | foreign import ccall unsafe "gsl_sf_bessel_J1" gsl_sf_bessel_J1 :: Double -> Double | 125 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_J1" gsl_sf_bessel_J1 :: Double -> Double |
126 | 126 | ||
127 | bessel_Jn_e :: CInt -> Double -> (Double,Double) | 127 | bessel_Jn_e :: CInt -> Double -> (Double,Double) |
128 | bessel_Jn_e n x = createSFR "bessel_Jn_e" $ gsl_sf_bessel_Jn_e n x | 128 | bessel_Jn_e n x = createSFR "bessel_Jn_e" $ gsl_sf_bessel_Jn_e n x |
129 | foreign import ccall unsafe "gsl_sf_bessel_Jn_e" gsl_sf_bessel_Jn_e :: CInt -> Double -> Ptr () -> IO CInt | 129 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Jn_e" gsl_sf_bessel_Jn_e :: CInt -> Double -> Ptr () -> IO CInt |
130 | 130 | ||
131 | bessel_Jn :: CInt -> Double -> Double | 131 | bessel_Jn :: CInt -> Double -> Double |
132 | bessel_Jn = gsl_sf_bessel_Jn | 132 | bessel_Jn = gsl_sf_bessel_Jn |
133 | foreign import ccall unsafe "gsl_sf_bessel_Jn" gsl_sf_bessel_Jn :: CInt -> Double -> Double | 133 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Jn" gsl_sf_bessel_Jn :: CInt -> Double -> Double |
134 | 134 | ||
135 | bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 135 | bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
136 | bessel_Jn_array = gsl_sf_bessel_Jn_array | 136 | bessel_Jn_array = gsl_sf_bessel_Jn_array |
137 | foreign import ccall unsafe "gsl_sf_bessel_Jn_array" gsl_sf_bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 137 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Jn_array" gsl_sf_bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
138 | 138 | ||
139 | bessel_Y0_e :: Double -> (Double,Double) | 139 | bessel_Y0_e :: Double -> (Double,Double) |
140 | bessel_Y0_e x = createSFR "bessel_Y0_e" $ gsl_sf_bessel_Y0_e x | 140 | bessel_Y0_e x = createSFR "bessel_Y0_e" $ gsl_sf_bessel_Y0_e x |
141 | foreign import ccall unsafe "gsl_sf_bessel_Y0_e" gsl_sf_bessel_Y0_e :: Double -> Ptr () -> IO CInt | 141 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Y0_e" gsl_sf_bessel_Y0_e :: Double -> Ptr () -> IO CInt |
142 | 142 | ||
143 | bessel_Y0 :: Double -> Double | 143 | bessel_Y0 :: Double -> Double |
144 | bessel_Y0 = gsl_sf_bessel_Y0 | 144 | bessel_Y0 = gsl_sf_bessel_Y0 |
145 | foreign import ccall unsafe "gsl_sf_bessel_Y0" gsl_sf_bessel_Y0 :: Double -> Double | 145 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Y0" gsl_sf_bessel_Y0 :: Double -> Double |
146 | 146 | ||
147 | bessel_Y1_e :: Double -> (Double,Double) | 147 | bessel_Y1_e :: Double -> (Double,Double) |
148 | bessel_Y1_e x = createSFR "bessel_Y1_e" $ gsl_sf_bessel_Y1_e x | 148 | bessel_Y1_e x = createSFR "bessel_Y1_e" $ gsl_sf_bessel_Y1_e x |
149 | foreign import ccall unsafe "gsl_sf_bessel_Y1_e" gsl_sf_bessel_Y1_e :: Double -> Ptr () -> IO CInt | 149 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Y1_e" gsl_sf_bessel_Y1_e :: Double -> Ptr () -> IO CInt |
150 | 150 | ||
151 | bessel_Y1 :: Double -> Double | 151 | bessel_Y1 :: Double -> Double |
152 | bessel_Y1 = gsl_sf_bessel_Y1 | 152 | bessel_Y1 = gsl_sf_bessel_Y1 |
153 | foreign import ccall unsafe "gsl_sf_bessel_Y1" gsl_sf_bessel_Y1 :: Double -> Double | 153 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Y1" gsl_sf_bessel_Y1 :: Double -> Double |
154 | 154 | ||
155 | bessel_Yn_e :: CInt -> Double -> (Double,Double) | 155 | bessel_Yn_e :: CInt -> Double -> (Double,Double) |
156 | bessel_Yn_e n x = createSFR "bessel_Yn_e" $ gsl_sf_bessel_Yn_e n x | 156 | bessel_Yn_e n x = createSFR "bessel_Yn_e" $ gsl_sf_bessel_Yn_e n x |
157 | foreign import ccall unsafe "gsl_sf_bessel_Yn_e" gsl_sf_bessel_Yn_e :: CInt -> Double -> Ptr () -> IO CInt | 157 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Yn_e" gsl_sf_bessel_Yn_e :: CInt -> Double -> Ptr () -> IO CInt |
158 | 158 | ||
159 | bessel_Yn :: CInt -> Double -> Double | 159 | bessel_Yn :: CInt -> Double -> Double |
160 | bessel_Yn = gsl_sf_bessel_Yn | 160 | bessel_Yn = gsl_sf_bessel_Yn |
161 | foreign import ccall unsafe "gsl_sf_bessel_Yn" gsl_sf_bessel_Yn :: CInt -> Double -> Double | 161 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Yn" gsl_sf_bessel_Yn :: CInt -> Double -> Double |
162 | 162 | ||
163 | bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 163 | bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
164 | bessel_Yn_array = gsl_sf_bessel_Yn_array | 164 | bessel_Yn_array = gsl_sf_bessel_Yn_array |
165 | foreign import ccall unsafe "gsl_sf_bessel_Yn_array" gsl_sf_bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 165 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Yn_array" gsl_sf_bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
166 | 166 | ||
167 | bessel_I0_e :: Double -> (Double,Double) | 167 | bessel_I0_e :: Double -> (Double,Double) |
168 | bessel_I0_e x = createSFR "bessel_I0_e" $ gsl_sf_bessel_I0_e x | 168 | bessel_I0_e x = createSFR "bessel_I0_e" $ gsl_sf_bessel_I0_e x |
169 | foreign import ccall unsafe "gsl_sf_bessel_I0_e" gsl_sf_bessel_I0_e :: Double -> Ptr () -> IO CInt | 169 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_I0_e" gsl_sf_bessel_I0_e :: Double -> Ptr () -> IO CInt |
170 | 170 | ||
171 | bessel_I0 :: Double -> Double | 171 | bessel_I0 :: Double -> Double |
172 | bessel_I0 = gsl_sf_bessel_I0 | 172 | bessel_I0 = gsl_sf_bessel_I0 |
173 | foreign import ccall unsafe "gsl_sf_bessel_I0" gsl_sf_bessel_I0 :: Double -> Double | 173 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_I0" gsl_sf_bessel_I0 :: Double -> Double |
174 | 174 | ||
175 | bessel_I1_e :: Double -> (Double,Double) | 175 | bessel_I1_e :: Double -> (Double,Double) |
176 | bessel_I1_e x = createSFR "bessel_I1_e" $ gsl_sf_bessel_I1_e x | 176 | bessel_I1_e x = createSFR "bessel_I1_e" $ gsl_sf_bessel_I1_e x |
177 | foreign import ccall unsafe "gsl_sf_bessel_I1_e" gsl_sf_bessel_I1_e :: Double -> Ptr () -> IO CInt | 177 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_I1_e" gsl_sf_bessel_I1_e :: Double -> Ptr () -> IO CInt |
178 | 178 | ||
179 | bessel_I1 :: Double -> Double | 179 | bessel_I1 :: Double -> Double |
180 | bessel_I1 = gsl_sf_bessel_I1 | 180 | bessel_I1 = gsl_sf_bessel_I1 |
181 | foreign import ccall unsafe "gsl_sf_bessel_I1" gsl_sf_bessel_I1 :: Double -> Double | 181 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_I1" gsl_sf_bessel_I1 :: Double -> Double |
182 | 182 | ||
183 | bessel_In_e :: CInt -> Double -> (Double,Double) | 183 | bessel_In_e :: CInt -> Double -> (Double,Double) |
184 | bessel_In_e n x = createSFR "bessel_In_e" $ gsl_sf_bessel_In_e n x | 184 | bessel_In_e n x = createSFR "bessel_In_e" $ gsl_sf_bessel_In_e n x |
185 | foreign import ccall unsafe "gsl_sf_bessel_In_e" gsl_sf_bessel_In_e :: CInt -> Double -> Ptr () -> IO CInt | 185 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_In_e" gsl_sf_bessel_In_e :: CInt -> Double -> Ptr () -> IO CInt |
186 | 186 | ||
187 | bessel_In :: CInt -> Double -> Double | 187 | bessel_In :: CInt -> Double -> Double |
188 | bessel_In = gsl_sf_bessel_In | 188 | bessel_In = gsl_sf_bessel_In |
189 | foreign import ccall unsafe "gsl_sf_bessel_In" gsl_sf_bessel_In :: CInt -> Double -> Double | 189 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_In" gsl_sf_bessel_In :: CInt -> Double -> Double |
190 | 190 | ||
191 | bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 191 | bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
192 | bessel_In_array = gsl_sf_bessel_In_array | 192 | bessel_In_array = gsl_sf_bessel_In_array |
193 | foreign import ccall unsafe "gsl_sf_bessel_In_array" gsl_sf_bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 193 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_In_array" gsl_sf_bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
194 | 194 | ||
195 | bessel_I0_scaled_e :: Double -> (Double,Double) | 195 | bessel_I0_scaled_e :: Double -> (Double,Double) |
196 | bessel_I0_scaled_e x = createSFR "bessel_I0_scaled_e" $ gsl_sf_bessel_I0_scaled_e x | 196 | bessel_I0_scaled_e x = createSFR "bessel_I0_scaled_e" $ gsl_sf_bessel_I0_scaled_e x |
197 | foreign import ccall unsafe "gsl_sf_bessel_I0_scaled_e" gsl_sf_bessel_I0_scaled_e :: Double -> Ptr () -> IO CInt | 197 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_I0_scaled_e" gsl_sf_bessel_I0_scaled_e :: Double -> Ptr () -> IO CInt |
198 | 198 | ||
199 | bessel_I0_scaled :: Double -> Double | 199 | bessel_I0_scaled :: Double -> Double |
200 | bessel_I0_scaled = gsl_sf_bessel_I0_scaled | 200 | bessel_I0_scaled = gsl_sf_bessel_I0_scaled |
201 | foreign import ccall unsafe "gsl_sf_bessel_I0_scaled" gsl_sf_bessel_I0_scaled :: Double -> Double | 201 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_I0_scaled" gsl_sf_bessel_I0_scaled :: Double -> Double |
202 | 202 | ||
203 | bessel_I1_scaled_e :: Double -> (Double,Double) | 203 | bessel_I1_scaled_e :: Double -> (Double,Double) |
204 | bessel_I1_scaled_e x = createSFR "bessel_I1_scaled_e" $ gsl_sf_bessel_I1_scaled_e x | 204 | bessel_I1_scaled_e x = createSFR "bessel_I1_scaled_e" $ gsl_sf_bessel_I1_scaled_e x |
205 | foreign import ccall unsafe "gsl_sf_bessel_I1_scaled_e" gsl_sf_bessel_I1_scaled_e :: Double -> Ptr () -> IO CInt | 205 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_I1_scaled_e" gsl_sf_bessel_I1_scaled_e :: Double -> Ptr () -> IO CInt |
206 | 206 | ||
207 | bessel_I1_scaled :: Double -> Double | 207 | bessel_I1_scaled :: Double -> Double |
208 | bessel_I1_scaled = gsl_sf_bessel_I1_scaled | 208 | bessel_I1_scaled = gsl_sf_bessel_I1_scaled |
209 | foreign import ccall unsafe "gsl_sf_bessel_I1_scaled" gsl_sf_bessel_I1_scaled :: Double -> Double | 209 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_I1_scaled" gsl_sf_bessel_I1_scaled :: Double -> Double |
210 | 210 | ||
211 | bessel_In_scaled_e :: CInt -> Double -> (Double,Double) | 211 | bessel_In_scaled_e :: CInt -> Double -> (Double,Double) |
212 | bessel_In_scaled_e n x = createSFR "bessel_In_scaled_e" $ gsl_sf_bessel_In_scaled_e n x | 212 | bessel_In_scaled_e n x = createSFR "bessel_In_scaled_e" $ gsl_sf_bessel_In_scaled_e n x |
213 | foreign import ccall unsafe "gsl_sf_bessel_In_scaled_e" gsl_sf_bessel_In_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 213 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_In_scaled_e" gsl_sf_bessel_In_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
214 | 214 | ||
215 | bessel_In_scaled :: CInt -> Double -> Double | 215 | bessel_In_scaled :: CInt -> Double -> Double |
216 | bessel_In_scaled = gsl_sf_bessel_In_scaled | 216 | bessel_In_scaled = gsl_sf_bessel_In_scaled |
217 | foreign import ccall unsafe "gsl_sf_bessel_In_scaled" gsl_sf_bessel_In_scaled :: CInt -> Double -> Double | 217 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_In_scaled" gsl_sf_bessel_In_scaled :: CInt -> Double -> Double |
218 | 218 | ||
219 | bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 219 | bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
220 | bessel_In_scaled_array = gsl_sf_bessel_In_scaled_array | 220 | bessel_In_scaled_array = gsl_sf_bessel_In_scaled_array |
221 | foreign import ccall unsafe "gsl_sf_bessel_In_scaled_array" gsl_sf_bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 221 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_In_scaled_array" gsl_sf_bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
222 | 222 | ||
223 | bessel_K0_e :: Double -> (Double,Double) | 223 | bessel_K0_e :: Double -> (Double,Double) |
224 | bessel_K0_e x = createSFR "bessel_K0_e" $ gsl_sf_bessel_K0_e x | 224 | bessel_K0_e x = createSFR "bessel_K0_e" $ gsl_sf_bessel_K0_e x |
225 | foreign import ccall unsafe "gsl_sf_bessel_K0_e" gsl_sf_bessel_K0_e :: Double -> Ptr () -> IO CInt | 225 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_K0_e" gsl_sf_bessel_K0_e :: Double -> Ptr () -> IO CInt |
226 | 226 | ||
227 | bessel_K0 :: Double -> Double | 227 | bessel_K0 :: Double -> Double |
228 | bessel_K0 = gsl_sf_bessel_K0 | 228 | bessel_K0 = gsl_sf_bessel_K0 |
229 | foreign import ccall unsafe "gsl_sf_bessel_K0" gsl_sf_bessel_K0 :: Double -> Double | 229 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_K0" gsl_sf_bessel_K0 :: Double -> Double |
230 | 230 | ||
231 | bessel_K1_e :: Double -> (Double,Double) | 231 | bessel_K1_e :: Double -> (Double,Double) |
232 | bessel_K1_e x = createSFR "bessel_K1_e" $ gsl_sf_bessel_K1_e x | 232 | bessel_K1_e x = createSFR "bessel_K1_e" $ gsl_sf_bessel_K1_e x |
233 | foreign import ccall unsafe "gsl_sf_bessel_K1_e" gsl_sf_bessel_K1_e :: Double -> Ptr () -> IO CInt | 233 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_K1_e" gsl_sf_bessel_K1_e :: Double -> Ptr () -> IO CInt |
234 | 234 | ||
235 | bessel_K1 :: Double -> Double | 235 | bessel_K1 :: Double -> Double |
236 | bessel_K1 = gsl_sf_bessel_K1 | 236 | bessel_K1 = gsl_sf_bessel_K1 |
237 | foreign import ccall unsafe "gsl_sf_bessel_K1" gsl_sf_bessel_K1 :: Double -> Double | 237 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_K1" gsl_sf_bessel_K1 :: Double -> Double |
238 | 238 | ||
239 | bessel_Kn_e :: CInt -> Double -> (Double,Double) | 239 | bessel_Kn_e :: CInt -> Double -> (Double,Double) |
240 | bessel_Kn_e n x = createSFR "bessel_Kn_e" $ gsl_sf_bessel_Kn_e n x | 240 | bessel_Kn_e n x = createSFR "bessel_Kn_e" $ gsl_sf_bessel_Kn_e n x |
241 | foreign import ccall unsafe "gsl_sf_bessel_Kn_e" gsl_sf_bessel_Kn_e :: CInt -> Double -> Ptr () -> IO CInt | 241 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Kn_e" gsl_sf_bessel_Kn_e :: CInt -> Double -> Ptr () -> IO CInt |
242 | 242 | ||
243 | bessel_Kn :: CInt -> Double -> Double | 243 | bessel_Kn :: CInt -> Double -> Double |
244 | bessel_Kn = gsl_sf_bessel_Kn | 244 | bessel_Kn = gsl_sf_bessel_Kn |
245 | foreign import ccall unsafe "gsl_sf_bessel_Kn" gsl_sf_bessel_Kn :: CInt -> Double -> Double | 245 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Kn" gsl_sf_bessel_Kn :: CInt -> Double -> Double |
246 | 246 | ||
247 | bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 247 | bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
248 | bessel_Kn_array = gsl_sf_bessel_Kn_array | 248 | bessel_Kn_array = gsl_sf_bessel_Kn_array |
249 | foreign import ccall unsafe "gsl_sf_bessel_Kn_array" gsl_sf_bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 249 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Kn_array" gsl_sf_bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
250 | 250 | ||
251 | bessel_K0_scaled_e :: Double -> (Double,Double) | 251 | bessel_K0_scaled_e :: Double -> (Double,Double) |
252 | bessel_K0_scaled_e x = createSFR "bessel_K0_scaled_e" $ gsl_sf_bessel_K0_scaled_e x | 252 | bessel_K0_scaled_e x = createSFR "bessel_K0_scaled_e" $ gsl_sf_bessel_K0_scaled_e x |
253 | foreign import ccall unsafe "gsl_sf_bessel_K0_scaled_e" gsl_sf_bessel_K0_scaled_e :: Double -> Ptr () -> IO CInt | 253 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_K0_scaled_e" gsl_sf_bessel_K0_scaled_e :: Double -> Ptr () -> IO CInt |
254 | 254 | ||
255 | bessel_K0_scaled :: Double -> Double | 255 | bessel_K0_scaled :: Double -> Double |
256 | bessel_K0_scaled = gsl_sf_bessel_K0_scaled | 256 | bessel_K0_scaled = gsl_sf_bessel_K0_scaled |
257 | foreign import ccall unsafe "gsl_sf_bessel_K0_scaled" gsl_sf_bessel_K0_scaled :: Double -> Double | 257 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_K0_scaled" gsl_sf_bessel_K0_scaled :: Double -> Double |
258 | 258 | ||
259 | bessel_K1_scaled_e :: Double -> (Double,Double) | 259 | bessel_K1_scaled_e :: Double -> (Double,Double) |
260 | bessel_K1_scaled_e x = createSFR "bessel_K1_scaled_e" $ gsl_sf_bessel_K1_scaled_e x | 260 | bessel_K1_scaled_e x = createSFR "bessel_K1_scaled_e" $ gsl_sf_bessel_K1_scaled_e x |
261 | foreign import ccall unsafe "gsl_sf_bessel_K1_scaled_e" gsl_sf_bessel_K1_scaled_e :: Double -> Ptr () -> IO CInt | 261 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_K1_scaled_e" gsl_sf_bessel_K1_scaled_e :: Double -> Ptr () -> IO CInt |
262 | 262 | ||
263 | bessel_K1_scaled :: Double -> Double | 263 | bessel_K1_scaled :: Double -> Double |
264 | bessel_K1_scaled = gsl_sf_bessel_K1_scaled | 264 | bessel_K1_scaled = gsl_sf_bessel_K1_scaled |
265 | foreign import ccall unsafe "gsl_sf_bessel_K1_scaled" gsl_sf_bessel_K1_scaled :: Double -> Double | 265 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_K1_scaled" gsl_sf_bessel_K1_scaled :: Double -> Double |
266 | 266 | ||
267 | bessel_Kn_scaled_e :: CInt -> Double -> (Double,Double) | 267 | bessel_Kn_scaled_e :: CInt -> Double -> (Double,Double) |
268 | bessel_Kn_scaled_e n x = createSFR "bessel_Kn_scaled_e" $ gsl_sf_bessel_Kn_scaled_e n x | 268 | bessel_Kn_scaled_e n x = createSFR "bessel_Kn_scaled_e" $ gsl_sf_bessel_Kn_scaled_e n x |
269 | foreign import ccall unsafe "gsl_sf_bessel_Kn_scaled_e" gsl_sf_bessel_Kn_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 269 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Kn_scaled_e" gsl_sf_bessel_Kn_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
270 | 270 | ||
271 | bessel_Kn_scaled :: CInt -> Double -> Double | 271 | bessel_Kn_scaled :: CInt -> Double -> Double |
272 | bessel_Kn_scaled = gsl_sf_bessel_Kn_scaled | 272 | bessel_Kn_scaled = gsl_sf_bessel_Kn_scaled |
273 | foreign import ccall unsafe "gsl_sf_bessel_Kn_scaled" gsl_sf_bessel_Kn_scaled :: CInt -> Double -> Double | 273 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Kn_scaled" gsl_sf_bessel_Kn_scaled :: CInt -> Double -> Double |
274 | 274 | ||
275 | bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 275 | bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
276 | bessel_Kn_scaled_array = gsl_sf_bessel_Kn_scaled_array | 276 | bessel_Kn_scaled_array = gsl_sf_bessel_Kn_scaled_array |
277 | foreign import ccall unsafe "gsl_sf_bessel_Kn_scaled_array" gsl_sf_bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 277 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Kn_scaled_array" gsl_sf_bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
278 | 278 | ||
279 | bessel_j0_e :: Double -> (Double,Double) | 279 | bessel_j0_e :: Double -> (Double,Double) |
280 | bessel_j0_e x = createSFR "bessel_j0_e" $ gsl_sf_bessel_j0_e x | 280 | bessel_j0_e x = createSFR "bessel_j0_e" $ gsl_sf_bessel_j0_e x |
281 | foreign import ccall unsafe "gsl_sf_bessel_j0_e" gsl_sf_bessel_j0_e :: Double -> Ptr () -> IO CInt | 281 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_j0_e" gsl_sf_bessel_j0_e :: Double -> Ptr () -> IO CInt |
282 | 282 | ||
283 | bessel_j0 :: Double -> Double | 283 | bessel_j0 :: Double -> Double |
284 | bessel_j0 = gsl_sf_bessel_j0 | 284 | bessel_j0 = gsl_sf_bessel_j0 |
285 | foreign import ccall unsafe "gsl_sf_bessel_j0" gsl_sf_bessel_j0 :: Double -> Double | 285 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_j0" gsl_sf_bessel_j0 :: Double -> Double |
286 | 286 | ||
287 | bessel_j1_e :: Double -> (Double,Double) | 287 | bessel_j1_e :: Double -> (Double,Double) |
288 | bessel_j1_e x = createSFR "bessel_j1_e" $ gsl_sf_bessel_j1_e x | 288 | bessel_j1_e x = createSFR "bessel_j1_e" $ gsl_sf_bessel_j1_e x |
289 | foreign import ccall unsafe "gsl_sf_bessel_j1_e" gsl_sf_bessel_j1_e :: Double -> Ptr () -> IO CInt | 289 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_j1_e" gsl_sf_bessel_j1_e :: Double -> Ptr () -> IO CInt |
290 | 290 | ||
291 | bessel_j1 :: Double -> Double | 291 | bessel_j1 :: Double -> Double |
292 | bessel_j1 = gsl_sf_bessel_j1 | 292 | bessel_j1 = gsl_sf_bessel_j1 |
293 | foreign import ccall unsafe "gsl_sf_bessel_j1" gsl_sf_bessel_j1 :: Double -> Double | 293 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_j1" gsl_sf_bessel_j1 :: Double -> Double |
294 | 294 | ||
295 | bessel_j2_e :: Double -> (Double,Double) | 295 | bessel_j2_e :: Double -> (Double,Double) |
296 | bessel_j2_e x = createSFR "bessel_j2_e" $ gsl_sf_bessel_j2_e x | 296 | bessel_j2_e x = createSFR "bessel_j2_e" $ gsl_sf_bessel_j2_e x |
297 | foreign import ccall unsafe "gsl_sf_bessel_j2_e" gsl_sf_bessel_j2_e :: Double -> Ptr () -> IO CInt | 297 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_j2_e" gsl_sf_bessel_j2_e :: Double -> Ptr () -> IO CInt |
298 | 298 | ||
299 | bessel_j2 :: Double -> Double | 299 | bessel_j2 :: Double -> Double |
300 | bessel_j2 = gsl_sf_bessel_j2 | 300 | bessel_j2 = gsl_sf_bessel_j2 |
301 | foreign import ccall unsafe "gsl_sf_bessel_j2" gsl_sf_bessel_j2 :: Double -> Double | 301 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_j2" gsl_sf_bessel_j2 :: Double -> Double |
302 | 302 | ||
303 | bessel_jl_e :: CInt -> Double -> (Double,Double) | 303 | bessel_jl_e :: CInt -> Double -> (Double,Double) |
304 | bessel_jl_e l x = createSFR "bessel_jl_e" $ gsl_sf_bessel_jl_e l x | 304 | bessel_jl_e l x = createSFR "bessel_jl_e" $ gsl_sf_bessel_jl_e l x |
305 | foreign import ccall unsafe "gsl_sf_bessel_jl_e" gsl_sf_bessel_jl_e :: CInt -> Double -> Ptr () -> IO CInt | 305 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_jl_e" gsl_sf_bessel_jl_e :: CInt -> Double -> Ptr () -> IO CInt |
306 | 306 | ||
307 | bessel_jl :: CInt -> Double -> Double | 307 | bessel_jl :: CInt -> Double -> Double |
308 | bessel_jl = gsl_sf_bessel_jl | 308 | bessel_jl = gsl_sf_bessel_jl |
309 | foreign import ccall unsafe "gsl_sf_bessel_jl" gsl_sf_bessel_jl :: CInt -> Double -> Double | 309 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_jl" gsl_sf_bessel_jl :: CInt -> Double -> Double |
310 | 310 | ||
311 | bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt | 311 | bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt |
312 | bessel_jl_array = gsl_sf_bessel_jl_array | 312 | bessel_jl_array = gsl_sf_bessel_jl_array |
313 | foreign import ccall unsafe "gsl_sf_bessel_jl_array" gsl_sf_bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt | 313 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_jl_array" gsl_sf_bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt |
314 | 314 | ||
315 | bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt | 315 | bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt |
316 | bessel_jl_steed_array = gsl_sf_bessel_jl_steed_array | 316 | bessel_jl_steed_array = gsl_sf_bessel_jl_steed_array |
317 | foreign import ccall unsafe "gsl_sf_bessel_jl_steed_array" gsl_sf_bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt | 317 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_jl_steed_array" gsl_sf_bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt |
318 | 318 | ||
319 | bessel_y0_e :: Double -> (Double,Double) | 319 | bessel_y0_e :: Double -> (Double,Double) |
320 | bessel_y0_e x = createSFR "bessel_y0_e" $ gsl_sf_bessel_y0_e x | 320 | bessel_y0_e x = createSFR "bessel_y0_e" $ gsl_sf_bessel_y0_e x |
321 | foreign import ccall unsafe "gsl_sf_bessel_y0_e" gsl_sf_bessel_y0_e :: Double -> Ptr () -> IO CInt | 321 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_y0_e" gsl_sf_bessel_y0_e :: Double -> Ptr () -> IO CInt |
322 | 322 | ||
323 | bessel_y0 :: Double -> Double | 323 | bessel_y0 :: Double -> Double |
324 | bessel_y0 = gsl_sf_bessel_y0 | 324 | bessel_y0 = gsl_sf_bessel_y0 |
325 | foreign import ccall unsafe "gsl_sf_bessel_y0" gsl_sf_bessel_y0 :: Double -> Double | 325 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_y0" gsl_sf_bessel_y0 :: Double -> Double |
326 | 326 | ||
327 | bessel_y1_e :: Double -> (Double,Double) | 327 | bessel_y1_e :: Double -> (Double,Double) |
328 | bessel_y1_e x = createSFR "bessel_y1_e" $ gsl_sf_bessel_y1_e x | 328 | bessel_y1_e x = createSFR "bessel_y1_e" $ gsl_sf_bessel_y1_e x |
329 | foreign import ccall unsafe "gsl_sf_bessel_y1_e" gsl_sf_bessel_y1_e :: Double -> Ptr () -> IO CInt | 329 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_y1_e" gsl_sf_bessel_y1_e :: Double -> Ptr () -> IO CInt |
330 | 330 | ||
331 | bessel_y1 :: Double -> Double | 331 | bessel_y1 :: Double -> Double |
332 | bessel_y1 = gsl_sf_bessel_y1 | 332 | bessel_y1 = gsl_sf_bessel_y1 |
333 | foreign import ccall unsafe "gsl_sf_bessel_y1" gsl_sf_bessel_y1 :: Double -> Double | 333 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_y1" gsl_sf_bessel_y1 :: Double -> Double |
334 | 334 | ||
335 | bessel_y2_e :: Double -> (Double,Double) | 335 | bessel_y2_e :: Double -> (Double,Double) |
336 | bessel_y2_e x = createSFR "bessel_y2_e" $ gsl_sf_bessel_y2_e x | 336 | bessel_y2_e x = createSFR "bessel_y2_e" $ gsl_sf_bessel_y2_e x |
337 | foreign import ccall unsafe "gsl_sf_bessel_y2_e" gsl_sf_bessel_y2_e :: Double -> Ptr () -> IO CInt | 337 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_y2_e" gsl_sf_bessel_y2_e :: Double -> Ptr () -> IO CInt |
338 | 338 | ||
339 | bessel_y2 :: Double -> Double | 339 | bessel_y2 :: Double -> Double |
340 | bessel_y2 = gsl_sf_bessel_y2 | 340 | bessel_y2 = gsl_sf_bessel_y2 |
341 | foreign import ccall unsafe "gsl_sf_bessel_y2" gsl_sf_bessel_y2 :: Double -> Double | 341 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_y2" gsl_sf_bessel_y2 :: Double -> Double |
342 | 342 | ||
343 | bessel_yl_e :: CInt -> Double -> (Double,Double) | 343 | bessel_yl_e :: CInt -> Double -> (Double,Double) |
344 | bessel_yl_e l x = createSFR "bessel_yl_e" $ gsl_sf_bessel_yl_e l x | 344 | bessel_yl_e l x = createSFR "bessel_yl_e" $ gsl_sf_bessel_yl_e l x |
345 | foreign import ccall unsafe "gsl_sf_bessel_yl_e" gsl_sf_bessel_yl_e :: CInt -> Double -> Ptr () -> IO CInt | 345 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_yl_e" gsl_sf_bessel_yl_e :: CInt -> Double -> Ptr () -> IO CInt |
346 | 346 | ||
347 | bessel_yl :: CInt -> Double -> Double | 347 | bessel_yl :: CInt -> Double -> Double |
348 | bessel_yl = gsl_sf_bessel_yl | 348 | bessel_yl = gsl_sf_bessel_yl |
349 | foreign import ccall unsafe "gsl_sf_bessel_yl" gsl_sf_bessel_yl :: CInt -> Double -> Double | 349 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_yl" gsl_sf_bessel_yl :: CInt -> Double -> Double |
350 | 350 | ||
351 | bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt | 351 | bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt |
352 | bessel_yl_array = gsl_sf_bessel_yl_array | 352 | bessel_yl_array = gsl_sf_bessel_yl_array |
353 | foreign import ccall unsafe "gsl_sf_bessel_yl_array" gsl_sf_bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt | 353 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_yl_array" gsl_sf_bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt |
354 | 354 | ||
355 | bessel_i0_scaled_e :: Double -> (Double,Double) | 355 | bessel_i0_scaled_e :: Double -> (Double,Double) |
356 | bessel_i0_scaled_e x = createSFR "bessel_i0_scaled_e" $ gsl_sf_bessel_i0_scaled_e x | 356 | bessel_i0_scaled_e x = createSFR "bessel_i0_scaled_e" $ gsl_sf_bessel_i0_scaled_e x |
357 | foreign import ccall unsafe "gsl_sf_bessel_i0_scaled_e" gsl_sf_bessel_i0_scaled_e :: Double -> Ptr () -> IO CInt | 357 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_i0_scaled_e" gsl_sf_bessel_i0_scaled_e :: Double -> Ptr () -> IO CInt |
358 | 358 | ||
359 | bessel_i0_scaled :: Double -> Double | 359 | bessel_i0_scaled :: Double -> Double |
360 | bessel_i0_scaled = gsl_sf_bessel_i0_scaled | 360 | bessel_i0_scaled = gsl_sf_bessel_i0_scaled |
361 | foreign import ccall unsafe "gsl_sf_bessel_i0_scaled" gsl_sf_bessel_i0_scaled :: Double -> Double | 361 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_i0_scaled" gsl_sf_bessel_i0_scaled :: Double -> Double |
362 | 362 | ||
363 | bessel_i1_scaled_e :: Double -> (Double,Double) | 363 | bessel_i1_scaled_e :: Double -> (Double,Double) |
364 | bessel_i1_scaled_e x = createSFR "bessel_i1_scaled_e" $ gsl_sf_bessel_i1_scaled_e x | 364 | bessel_i1_scaled_e x = createSFR "bessel_i1_scaled_e" $ gsl_sf_bessel_i1_scaled_e x |
365 | foreign import ccall unsafe "gsl_sf_bessel_i1_scaled_e" gsl_sf_bessel_i1_scaled_e :: Double -> Ptr () -> IO CInt | 365 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_i1_scaled_e" gsl_sf_bessel_i1_scaled_e :: Double -> Ptr () -> IO CInt |
366 | 366 | ||
367 | bessel_i1_scaled :: Double -> Double | 367 | bessel_i1_scaled :: Double -> Double |
368 | bessel_i1_scaled = gsl_sf_bessel_i1_scaled | 368 | bessel_i1_scaled = gsl_sf_bessel_i1_scaled |
369 | foreign import ccall unsafe "gsl_sf_bessel_i1_scaled" gsl_sf_bessel_i1_scaled :: Double -> Double | 369 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_i1_scaled" gsl_sf_bessel_i1_scaled :: Double -> Double |
370 | 370 | ||
371 | bessel_i2_scaled_e :: Double -> (Double,Double) | 371 | bessel_i2_scaled_e :: Double -> (Double,Double) |
372 | bessel_i2_scaled_e x = createSFR "bessel_i2_scaled_e" $ gsl_sf_bessel_i2_scaled_e x | 372 | bessel_i2_scaled_e x = createSFR "bessel_i2_scaled_e" $ gsl_sf_bessel_i2_scaled_e x |
373 | foreign import ccall unsafe "gsl_sf_bessel_i2_scaled_e" gsl_sf_bessel_i2_scaled_e :: Double -> Ptr () -> IO CInt | 373 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_i2_scaled_e" gsl_sf_bessel_i2_scaled_e :: Double -> Ptr () -> IO CInt |
374 | 374 | ||
375 | bessel_i2_scaled :: Double -> Double | 375 | bessel_i2_scaled :: Double -> Double |
376 | bessel_i2_scaled = gsl_sf_bessel_i2_scaled | 376 | bessel_i2_scaled = gsl_sf_bessel_i2_scaled |
377 | foreign import ccall unsafe "gsl_sf_bessel_i2_scaled" gsl_sf_bessel_i2_scaled :: Double -> Double | 377 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_i2_scaled" gsl_sf_bessel_i2_scaled :: Double -> Double |
378 | 378 | ||
379 | bessel_il_scaled_e :: CInt -> Double -> (Double,Double) | 379 | bessel_il_scaled_e :: CInt -> Double -> (Double,Double) |
380 | bessel_il_scaled_e l x = createSFR "bessel_il_scaled_e" $ gsl_sf_bessel_il_scaled_e l x | 380 | bessel_il_scaled_e l x = createSFR "bessel_il_scaled_e" $ gsl_sf_bessel_il_scaled_e l x |
381 | foreign import ccall unsafe "gsl_sf_bessel_il_scaled_e" gsl_sf_bessel_il_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 381 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_il_scaled_e" gsl_sf_bessel_il_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
382 | 382 | ||
383 | bessel_il_scaled :: CInt -> Double -> Double | 383 | bessel_il_scaled :: CInt -> Double -> Double |
384 | bessel_il_scaled = gsl_sf_bessel_il_scaled | 384 | bessel_il_scaled = gsl_sf_bessel_il_scaled |
385 | foreign import ccall unsafe "gsl_sf_bessel_il_scaled" gsl_sf_bessel_il_scaled :: CInt -> Double -> Double | 385 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_il_scaled" gsl_sf_bessel_il_scaled :: CInt -> Double -> Double |
386 | 386 | ||
387 | bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt | 387 | bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt |
388 | bessel_il_scaled_array = gsl_sf_bessel_il_scaled_array | 388 | bessel_il_scaled_array = gsl_sf_bessel_il_scaled_array |
389 | foreign import ccall unsafe "gsl_sf_bessel_il_scaled_array" gsl_sf_bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt | 389 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_il_scaled_array" gsl_sf_bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt |
390 | 390 | ||
391 | bessel_k0_scaled_e :: Double -> (Double,Double) | 391 | bessel_k0_scaled_e :: Double -> (Double,Double) |
392 | bessel_k0_scaled_e x = createSFR "bessel_k0_scaled_e" $ gsl_sf_bessel_k0_scaled_e x | 392 | bessel_k0_scaled_e x = createSFR "bessel_k0_scaled_e" $ gsl_sf_bessel_k0_scaled_e x |
393 | foreign import ccall unsafe "gsl_sf_bessel_k0_scaled_e" gsl_sf_bessel_k0_scaled_e :: Double -> Ptr () -> IO CInt | 393 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_k0_scaled_e" gsl_sf_bessel_k0_scaled_e :: Double -> Ptr () -> IO CInt |
394 | 394 | ||
395 | bessel_k0_scaled :: Double -> Double | 395 | bessel_k0_scaled :: Double -> Double |
396 | bessel_k0_scaled = gsl_sf_bessel_k0_scaled | 396 | bessel_k0_scaled = gsl_sf_bessel_k0_scaled |
397 | foreign import ccall unsafe "gsl_sf_bessel_k0_scaled" gsl_sf_bessel_k0_scaled :: Double -> Double | 397 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_k0_scaled" gsl_sf_bessel_k0_scaled :: Double -> Double |
398 | 398 | ||
399 | bessel_k1_scaled_e :: Double -> (Double,Double) | 399 | bessel_k1_scaled_e :: Double -> (Double,Double) |
400 | bessel_k1_scaled_e x = createSFR "bessel_k1_scaled_e" $ gsl_sf_bessel_k1_scaled_e x | 400 | bessel_k1_scaled_e x = createSFR "bessel_k1_scaled_e" $ gsl_sf_bessel_k1_scaled_e x |
401 | foreign import ccall unsafe "gsl_sf_bessel_k1_scaled_e" gsl_sf_bessel_k1_scaled_e :: Double -> Ptr () -> IO CInt | 401 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_k1_scaled_e" gsl_sf_bessel_k1_scaled_e :: Double -> Ptr () -> IO CInt |
402 | 402 | ||
403 | bessel_k1_scaled :: Double -> Double | 403 | bessel_k1_scaled :: Double -> Double |
404 | bessel_k1_scaled = gsl_sf_bessel_k1_scaled | 404 | bessel_k1_scaled = gsl_sf_bessel_k1_scaled |
405 | foreign import ccall unsafe "gsl_sf_bessel_k1_scaled" gsl_sf_bessel_k1_scaled :: Double -> Double | 405 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_k1_scaled" gsl_sf_bessel_k1_scaled :: Double -> Double |
406 | 406 | ||
407 | bessel_k2_scaled_e :: Double -> (Double,Double) | 407 | bessel_k2_scaled_e :: Double -> (Double,Double) |
408 | bessel_k2_scaled_e x = createSFR "bessel_k2_scaled_e" $ gsl_sf_bessel_k2_scaled_e x | 408 | bessel_k2_scaled_e x = createSFR "bessel_k2_scaled_e" $ gsl_sf_bessel_k2_scaled_e x |
409 | foreign import ccall unsafe "gsl_sf_bessel_k2_scaled_e" gsl_sf_bessel_k2_scaled_e :: Double -> Ptr () -> IO CInt | 409 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_k2_scaled_e" gsl_sf_bessel_k2_scaled_e :: Double -> Ptr () -> IO CInt |
410 | 410 | ||
411 | bessel_k2_scaled :: Double -> Double | 411 | bessel_k2_scaled :: Double -> Double |
412 | bessel_k2_scaled = gsl_sf_bessel_k2_scaled | 412 | bessel_k2_scaled = gsl_sf_bessel_k2_scaled |
413 | foreign import ccall unsafe "gsl_sf_bessel_k2_scaled" gsl_sf_bessel_k2_scaled :: Double -> Double | 413 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_k2_scaled" gsl_sf_bessel_k2_scaled :: Double -> Double |
414 | 414 | ||
415 | bessel_kl_scaled_e :: CInt -> Double -> (Double,Double) | 415 | bessel_kl_scaled_e :: CInt -> Double -> (Double,Double) |
416 | bessel_kl_scaled_e l x = createSFR "bessel_kl_scaled_e" $ gsl_sf_bessel_kl_scaled_e l x | 416 | bessel_kl_scaled_e l x = createSFR "bessel_kl_scaled_e" $ gsl_sf_bessel_kl_scaled_e l x |
417 | foreign import ccall unsafe "gsl_sf_bessel_kl_scaled_e" gsl_sf_bessel_kl_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 417 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_kl_scaled_e" gsl_sf_bessel_kl_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
418 | 418 | ||
419 | bessel_kl_scaled :: CInt -> Double -> Double | 419 | bessel_kl_scaled :: CInt -> Double -> Double |
420 | bessel_kl_scaled = gsl_sf_bessel_kl_scaled | 420 | bessel_kl_scaled = gsl_sf_bessel_kl_scaled |
421 | foreign import ccall unsafe "gsl_sf_bessel_kl_scaled" gsl_sf_bessel_kl_scaled :: CInt -> Double -> Double | 421 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_kl_scaled" gsl_sf_bessel_kl_scaled :: CInt -> Double -> Double |
422 | 422 | ||
423 | bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt | 423 | bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt |
424 | bessel_kl_scaled_array = gsl_sf_bessel_kl_scaled_array | 424 | bessel_kl_scaled_array = gsl_sf_bessel_kl_scaled_array |
425 | foreign import ccall unsafe "gsl_sf_bessel_kl_scaled_array" gsl_sf_bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt | 425 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_kl_scaled_array" gsl_sf_bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt |
426 | 426 | ||
427 | bessel_Jnu_e :: Double -> Double -> (Double,Double) | 427 | bessel_Jnu_e :: Double -> Double -> (Double,Double) |
428 | bessel_Jnu_e nu x = createSFR "bessel_Jnu_e" $ gsl_sf_bessel_Jnu_e nu x | 428 | bessel_Jnu_e nu x = createSFR "bessel_Jnu_e" $ gsl_sf_bessel_Jnu_e nu x |
429 | foreign import ccall unsafe "gsl_sf_bessel_Jnu_e" gsl_sf_bessel_Jnu_e :: Double -> Double -> Ptr () -> IO CInt | 429 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Jnu_e" gsl_sf_bessel_Jnu_e :: Double -> Double -> Ptr () -> IO CInt |
430 | 430 | ||
431 | bessel_Jnu :: Double -> Double -> Double | 431 | bessel_Jnu :: Double -> Double -> Double |
432 | bessel_Jnu = gsl_sf_bessel_Jnu | 432 | bessel_Jnu = gsl_sf_bessel_Jnu |
433 | foreign import ccall unsafe "gsl_sf_bessel_Jnu" gsl_sf_bessel_Jnu :: Double -> Double -> Double | 433 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Jnu" gsl_sf_bessel_Jnu :: Double -> Double -> Double |
434 | 434 | ||
435 | bessel_Ynu_e :: Double -> Double -> (Double,Double) | 435 | bessel_Ynu_e :: Double -> Double -> (Double,Double) |
436 | bessel_Ynu_e nu x = createSFR "bessel_Ynu_e" $ gsl_sf_bessel_Ynu_e nu x | 436 | bessel_Ynu_e nu x = createSFR "bessel_Ynu_e" $ gsl_sf_bessel_Ynu_e nu x |
437 | foreign import ccall unsafe "gsl_sf_bessel_Ynu_e" gsl_sf_bessel_Ynu_e :: Double -> Double -> Ptr () -> IO CInt | 437 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Ynu_e" gsl_sf_bessel_Ynu_e :: Double -> Double -> Ptr () -> IO CInt |
438 | 438 | ||
439 | bessel_Ynu :: Double -> Double -> Double | 439 | bessel_Ynu :: Double -> Double -> Double |
440 | bessel_Ynu = gsl_sf_bessel_Ynu | 440 | bessel_Ynu = gsl_sf_bessel_Ynu |
441 | foreign import ccall unsafe "gsl_sf_bessel_Ynu" gsl_sf_bessel_Ynu :: Double -> Double -> Double | 441 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Ynu" gsl_sf_bessel_Ynu :: Double -> Double -> Double |
442 | 442 | ||
443 | bessel_sequence_Jnu_e :: Double -> Precision -> Size_t -> Ptr Double -> CInt | 443 | bessel_sequence_Jnu_e :: Double -> Precision -> Size_t -> Ptr Double -> CInt |
444 | bessel_sequence_Jnu_e nu mode size v = gsl_sf_bessel_sequence_Jnu_e nu (precCode mode) size v | 444 | bessel_sequence_Jnu_e nu mode size v = gsl_sf_bessel_sequence_Jnu_e nu (precCode mode) size v |
445 | foreign import ccall unsafe "gsl_sf_bessel_sequence_Jnu_e" gsl_sf_bessel_sequence_Jnu_e :: Double -> Gsl_mode_t -> Size_t -> Ptr Double -> CInt | 445 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_sequence_Jnu_e" gsl_sf_bessel_sequence_Jnu_e :: Double -> Gsl_mode_t -> Size_t -> Ptr Double -> CInt |
446 | 446 | ||
447 | bessel_Inu_scaled_e :: Double -> Double -> (Double,Double) | 447 | bessel_Inu_scaled_e :: Double -> Double -> (Double,Double) |
448 | bessel_Inu_scaled_e nu x = createSFR "bessel_Inu_scaled_e" $ gsl_sf_bessel_Inu_scaled_e nu x | 448 | bessel_Inu_scaled_e nu x = createSFR "bessel_Inu_scaled_e" $ gsl_sf_bessel_Inu_scaled_e nu x |
449 | foreign import ccall unsafe "gsl_sf_bessel_Inu_scaled_e" gsl_sf_bessel_Inu_scaled_e :: Double -> Double -> Ptr () -> IO CInt | 449 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Inu_scaled_e" gsl_sf_bessel_Inu_scaled_e :: Double -> Double -> Ptr () -> IO CInt |
450 | 450 | ||
451 | bessel_Inu_scaled :: Double -> Double -> Double | 451 | bessel_Inu_scaled :: Double -> Double -> Double |
452 | bessel_Inu_scaled = gsl_sf_bessel_Inu_scaled | 452 | bessel_Inu_scaled = gsl_sf_bessel_Inu_scaled |
453 | foreign import ccall unsafe "gsl_sf_bessel_Inu_scaled" gsl_sf_bessel_Inu_scaled :: Double -> Double -> Double | 453 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Inu_scaled" gsl_sf_bessel_Inu_scaled :: Double -> Double -> Double |
454 | 454 | ||
455 | bessel_Inu_e :: Double -> Double -> (Double,Double) | 455 | bessel_Inu_e :: Double -> Double -> (Double,Double) |
456 | bessel_Inu_e nu x = createSFR "bessel_Inu_e" $ gsl_sf_bessel_Inu_e nu x | 456 | bessel_Inu_e nu x = createSFR "bessel_Inu_e" $ gsl_sf_bessel_Inu_e nu x |
457 | foreign import ccall unsafe "gsl_sf_bessel_Inu_e" gsl_sf_bessel_Inu_e :: Double -> Double -> Ptr () -> IO CInt | 457 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Inu_e" gsl_sf_bessel_Inu_e :: Double -> Double -> Ptr () -> IO CInt |
458 | 458 | ||
459 | bessel_Inu :: Double -> Double -> Double | 459 | bessel_Inu :: Double -> Double -> Double |
460 | bessel_Inu = gsl_sf_bessel_Inu | 460 | bessel_Inu = gsl_sf_bessel_Inu |
461 | foreign import ccall unsafe "gsl_sf_bessel_Inu" gsl_sf_bessel_Inu :: Double -> Double -> Double | 461 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Inu" gsl_sf_bessel_Inu :: Double -> Double -> Double |
462 | 462 | ||
463 | bessel_Knu_scaled_e :: Double -> Double -> (Double,Double) | 463 | bessel_Knu_scaled_e :: Double -> Double -> (Double,Double) |
464 | bessel_Knu_scaled_e nu x = createSFR "bessel_Knu_scaled_e" $ gsl_sf_bessel_Knu_scaled_e nu x | 464 | bessel_Knu_scaled_e nu x = createSFR "bessel_Knu_scaled_e" $ gsl_sf_bessel_Knu_scaled_e nu x |
465 | foreign import ccall unsafe "gsl_sf_bessel_Knu_scaled_e" gsl_sf_bessel_Knu_scaled_e :: Double -> Double -> Ptr () -> IO CInt | 465 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Knu_scaled_e" gsl_sf_bessel_Knu_scaled_e :: Double -> Double -> Ptr () -> IO CInt |
466 | 466 | ||
467 | bessel_Knu_scaled :: Double -> Double -> Double | 467 | bessel_Knu_scaled :: Double -> Double -> Double |
468 | bessel_Knu_scaled = gsl_sf_bessel_Knu_scaled | 468 | bessel_Knu_scaled = gsl_sf_bessel_Knu_scaled |
469 | foreign import ccall unsafe "gsl_sf_bessel_Knu_scaled" gsl_sf_bessel_Knu_scaled :: Double -> Double -> Double | 469 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Knu_scaled" gsl_sf_bessel_Knu_scaled :: Double -> Double -> Double |
470 | 470 | ||
471 | bessel_Knu_scaled_e10_e :: Double -> Double -> (Double,Int,Double) | 471 | bessel_Knu_scaled_e10_e :: Double -> Double -> (Double,Int,Double) |
472 | bessel_Knu_scaled_e10_e nu x = createSFR_E10 "bessel_Knu_scaled_e10_e" $ gsl_sf_bessel_Knu_scaled_e10_e nu x | 472 | bessel_Knu_scaled_e10_e nu x = createSFR_E10 "bessel_Knu_scaled_e10_e" $ gsl_sf_bessel_Knu_scaled_e10_e nu x |
473 | foreign import ccall unsafe "gsl_sf_bessel_Knu_scaled_e10_e" gsl_sf_bessel_Knu_scaled_e10_e :: Double -> Double -> Ptr () -> IO CInt | 473 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Knu_scaled_e10_e" gsl_sf_bessel_Knu_scaled_e10_e :: Double -> Double -> Ptr () -> IO CInt |
474 | 474 | ||
475 | bessel_Knu_e :: Double -> Double -> (Double,Double) | 475 | bessel_Knu_e :: Double -> Double -> (Double,Double) |
476 | bessel_Knu_e nu x = createSFR "bessel_Knu_e" $ gsl_sf_bessel_Knu_e nu x | 476 | bessel_Knu_e nu x = createSFR "bessel_Knu_e" $ gsl_sf_bessel_Knu_e nu x |
477 | foreign import ccall unsafe "gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr () -> IO CInt | 477 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr () -> IO CInt |
478 | 478 | ||
479 | bessel_Knu :: Double -> Double -> Double | 479 | bessel_Knu :: Double -> Double -> Double |
480 | bessel_Knu = gsl_sf_bessel_Knu | 480 | bessel_Knu = gsl_sf_bessel_Knu |
481 | foreign import ccall unsafe "gsl_sf_bessel_Knu" gsl_sf_bessel_Knu :: Double -> Double -> Double | 481 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Knu" gsl_sf_bessel_Knu :: Double -> Double -> Double |
482 | 482 | ||
483 | bessel_lnKnu_e :: Double -> Double -> (Double,Double) | 483 | bessel_lnKnu_e :: Double -> Double -> (Double,Double) |
484 | bessel_lnKnu_e nu x = createSFR "bessel_lnKnu_e" $ gsl_sf_bessel_lnKnu_e nu x | 484 | bessel_lnKnu_e nu x = createSFR "bessel_lnKnu_e" $ gsl_sf_bessel_lnKnu_e nu x |
485 | foreign import ccall unsafe "gsl_sf_bessel_lnKnu_e" gsl_sf_bessel_lnKnu_e :: Double -> Double -> Ptr () -> IO CInt | 485 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_lnKnu_e" gsl_sf_bessel_lnKnu_e :: Double -> Double -> Ptr () -> IO CInt |
486 | 486 | ||
487 | bessel_lnKnu :: Double -> Double -> Double | 487 | bessel_lnKnu :: Double -> Double -> Double |
488 | bessel_lnKnu = gsl_sf_bessel_lnKnu | 488 | bessel_lnKnu = gsl_sf_bessel_lnKnu |
489 | foreign import ccall unsafe "gsl_sf_bessel_lnKnu" gsl_sf_bessel_lnKnu :: Double -> Double -> Double | 489 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_lnKnu" gsl_sf_bessel_lnKnu :: Double -> Double -> Double |
490 | 490 | ||
491 | bessel_zero_J0_e :: CInt -> (Double,Double) | 491 | bessel_zero_J0_e :: CInt -> (Double,Double) |
492 | bessel_zero_J0_e s = createSFR "bessel_zero_J0_e" $ gsl_sf_bessel_zero_J0_e s | 492 | bessel_zero_J0_e s = createSFR "bessel_zero_J0_e" $ gsl_sf_bessel_zero_J0_e s |
493 | foreign import ccall unsafe "gsl_sf_bessel_zero_J0_e" gsl_sf_bessel_zero_J0_e :: CInt -> Ptr () -> IO CInt | 493 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_zero_J0_e" gsl_sf_bessel_zero_J0_e :: CInt -> Ptr () -> IO CInt |
494 | 494 | ||
495 | bessel_zero_J0 :: CInt -> Double | 495 | bessel_zero_J0 :: CInt -> Double |
496 | bessel_zero_J0 = gsl_sf_bessel_zero_J0 | 496 | bessel_zero_J0 = gsl_sf_bessel_zero_J0 |
497 | foreign import ccall unsafe "gsl_sf_bessel_zero_J0" gsl_sf_bessel_zero_J0 :: CInt -> Double | 497 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_zero_J0" gsl_sf_bessel_zero_J0 :: CInt -> Double |
498 | 498 | ||
499 | bessel_zero_J1_e :: CInt -> (Double,Double) | 499 | bessel_zero_J1_e :: CInt -> (Double,Double) |
500 | bessel_zero_J1_e s = createSFR "bessel_zero_J1_e" $ gsl_sf_bessel_zero_J1_e s | 500 | bessel_zero_J1_e s = createSFR "bessel_zero_J1_e" $ gsl_sf_bessel_zero_J1_e s |
501 | foreign import ccall unsafe "gsl_sf_bessel_zero_J1_e" gsl_sf_bessel_zero_J1_e :: CInt -> Ptr () -> IO CInt | 501 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_zero_J1_e" gsl_sf_bessel_zero_J1_e :: CInt -> Ptr () -> IO CInt |
502 | 502 | ||
503 | bessel_zero_J1 :: CInt -> Double | 503 | bessel_zero_J1 :: CInt -> Double |
504 | bessel_zero_J1 = gsl_sf_bessel_zero_J1 | 504 | bessel_zero_J1 = gsl_sf_bessel_zero_J1 |
505 | foreign import ccall unsafe "gsl_sf_bessel_zero_J1" gsl_sf_bessel_zero_J1 :: CInt -> Double | 505 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_zero_J1" gsl_sf_bessel_zero_J1 :: CInt -> Double |
506 | 506 | ||
507 | bessel_zero_Jnu_e :: Double -> CInt -> (Double,Double) | 507 | bessel_zero_Jnu_e :: Double -> CInt -> (Double,Double) |
508 | bessel_zero_Jnu_e nu s = createSFR "bessel_zero_Jnu_e" $ gsl_sf_bessel_zero_Jnu_e nu s | 508 | bessel_zero_Jnu_e nu s = createSFR "bessel_zero_Jnu_e" $ gsl_sf_bessel_zero_Jnu_e nu s |
509 | foreign import ccall unsafe "gsl_sf_bessel_zero_Jnu_e" gsl_sf_bessel_zero_Jnu_e :: Double -> CInt -> Ptr () -> IO CInt | 509 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_zero_Jnu_e" gsl_sf_bessel_zero_Jnu_e :: Double -> CInt -> Ptr () -> IO CInt |
510 | 510 | ||
511 | bessel_zero_Jnu :: Double -> CInt -> Double | 511 | bessel_zero_Jnu :: Double -> CInt -> Double |
512 | bessel_zero_Jnu = gsl_sf_bessel_zero_Jnu | 512 | bessel_zero_Jnu = gsl_sf_bessel_zero_Jnu |
513 | foreign import ccall unsafe "gsl_sf_bessel_zero_Jnu" gsl_sf_bessel_zero_Jnu :: Double -> CInt -> Double | 513 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_zero_Jnu" gsl_sf_bessel_zero_Jnu :: Double -> CInt -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Clausen.hs b/packages/special/lib/Numeric/GSL/Special/Clausen.hs index de7d605..80bd45c 100644 --- a/packages/special/lib/Numeric/GSL/Special/Clausen.hs +++ b/packages/special/lib/Numeric/GSL/Special/Clausen.hs | |||
@@ -23,8 +23,8 @@ import Numeric.GSL.Special.Internal | |||
23 | 23 | ||
24 | clausen_e :: Double -> (Double,Double) | 24 | clausen_e :: Double -> (Double,Double) |
25 | clausen_e x = createSFR "clausen_e" $ gsl_sf_clausen_e x | 25 | clausen_e x = createSFR "clausen_e" $ gsl_sf_clausen_e x |
26 | foreign import ccall unsafe "gsl_sf_clausen_e" gsl_sf_clausen_e :: Double -> Ptr () -> IO CInt | 26 | foreign import ccall SAFE_CHEAP "gsl_sf_clausen_e" gsl_sf_clausen_e :: Double -> Ptr () -> IO CInt |
27 | 27 | ||
28 | clausen :: Double -> Double | 28 | clausen :: Double -> Double |
29 | clausen = gsl_sf_clausen | 29 | clausen = gsl_sf_clausen |
30 | foreign import ccall unsafe "gsl_sf_clausen" gsl_sf_clausen :: Double -> Double | 30 | foreign import ccall SAFE_CHEAP "gsl_sf_clausen" gsl_sf_clausen :: Double -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Coulomb.hs b/packages/special/lib/Numeric/GSL/Special/Coulomb.hs index 1d47d4e..218213a 100644 --- a/packages/special/lib/Numeric/GSL/Special/Coulomb.hs +++ b/packages/special/lib/Numeric/GSL/Special/Coulomb.hs | |||
@@ -26,44 +26,44 @@ import Numeric.GSL.Special.Internal | |||
26 | 26 | ||
27 | hydrogenicR_1_e :: Double -> Double -> (Double,Double) | 27 | hydrogenicR_1_e :: Double -> Double -> (Double,Double) |
28 | hydrogenicR_1_e zZ r = createSFR "hydrogenicR_1_e" $ gsl_sf_hydrogenicR_1_e zZ r | 28 | hydrogenicR_1_e zZ r = createSFR "hydrogenicR_1_e" $ gsl_sf_hydrogenicR_1_e zZ r |
29 | foreign import ccall unsafe "gsl_sf_hydrogenicR_1_e" gsl_sf_hydrogenicR_1_e :: Double -> Double -> Ptr () -> IO CInt | 29 | foreign import ccall SAFE_CHEAP "gsl_sf_hydrogenicR_1_e" gsl_sf_hydrogenicR_1_e :: Double -> Double -> Ptr () -> IO CInt |
30 | 30 | ||
31 | hydrogenicR_1 :: Double -> Double -> Double | 31 | hydrogenicR_1 :: Double -> Double -> Double |
32 | hydrogenicR_1 = gsl_sf_hydrogenicR_1 | 32 | hydrogenicR_1 = gsl_sf_hydrogenicR_1 |
33 | foreign import ccall unsafe "gsl_sf_hydrogenicR_1" gsl_sf_hydrogenicR_1 :: Double -> Double -> Double | 33 | foreign import ccall SAFE_CHEAP "gsl_sf_hydrogenicR_1" gsl_sf_hydrogenicR_1 :: Double -> Double -> Double |
34 | 34 | ||
35 | hydrogenicR_e :: CInt -> CInt -> Double -> Double -> (Double,Double) | 35 | hydrogenicR_e :: CInt -> CInt -> Double -> Double -> (Double,Double) |
36 | hydrogenicR_e n l zZ r = createSFR "hydrogenicR_e" $ gsl_sf_hydrogenicR_e n l zZ r | 36 | hydrogenicR_e n l zZ r = createSFR "hydrogenicR_e" $ gsl_sf_hydrogenicR_e n l zZ r |
37 | foreign import ccall unsafe "gsl_sf_hydrogenicR_e" gsl_sf_hydrogenicR_e :: CInt -> CInt -> Double -> Double -> Ptr () -> IO CInt | 37 | foreign import ccall SAFE_CHEAP "gsl_sf_hydrogenicR_e" gsl_sf_hydrogenicR_e :: CInt -> CInt -> Double -> Double -> Ptr () -> IO CInt |
38 | 38 | ||
39 | hydrogenicR :: CInt -> CInt -> Double -> Double -> Double | 39 | hydrogenicR :: CInt -> CInt -> Double -> Double -> Double |
40 | hydrogenicR = gsl_sf_hydrogenicR | 40 | hydrogenicR = gsl_sf_hydrogenicR |
41 | foreign import ccall unsafe "gsl_sf_hydrogenicR" gsl_sf_hydrogenicR :: CInt -> CInt -> Double -> Double -> Double | 41 | foreign import ccall SAFE_CHEAP "gsl_sf_hydrogenicR" gsl_sf_hydrogenicR :: CInt -> CInt -> Double -> Double -> Double |
42 | 42 | ||
43 | coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt | 43 | coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt |
44 | coulomb_wave_FG_e = gsl_sf_coulomb_wave_FG_e | 44 | coulomb_wave_FG_e = gsl_sf_coulomb_wave_FG_e |
45 | foreign import ccall unsafe "gsl_sf_coulomb_wave_FG_e" gsl_sf_coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt | 45 | foreign import ccall SAFE_CHEAP "gsl_sf_coulomb_wave_FG_e" gsl_sf_coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt |
46 | 46 | ||
47 | coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt | 47 | coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt |
48 | coulomb_wave_F_array = gsl_sf_coulomb_wave_F_array | 48 | coulomb_wave_F_array = gsl_sf_coulomb_wave_F_array |
49 | foreign import ccall unsafe "gsl_sf_coulomb_wave_F_array" gsl_sf_coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt | 49 | foreign import ccall SAFE_CHEAP "gsl_sf_coulomb_wave_F_array" gsl_sf_coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt |
50 | 50 | ||
51 | coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt | 51 | coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt |
52 | coulomb_wave_FG_array = gsl_sf_coulomb_wave_FG_array | 52 | coulomb_wave_FG_array = gsl_sf_coulomb_wave_FG_array |
53 | foreign import ccall unsafe "gsl_sf_coulomb_wave_FG_array" gsl_sf_coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt | 53 | foreign import ccall SAFE_CHEAP "gsl_sf_coulomb_wave_FG_array" gsl_sf_coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt |
54 | 54 | ||
55 | coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt | 55 | coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt |
56 | coulomb_wave_FGp_array = gsl_sf_coulomb_wave_FGp_array | 56 | coulomb_wave_FGp_array = gsl_sf_coulomb_wave_FGp_array |
57 | foreign import ccall unsafe "gsl_sf_coulomb_wave_FGp_array" gsl_sf_coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt | 57 | foreign import ccall SAFE_CHEAP "gsl_sf_coulomb_wave_FGp_array" gsl_sf_coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt |
58 | 58 | ||
59 | coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt | 59 | coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt |
60 | coulomb_wave_sphF_array = gsl_sf_coulomb_wave_sphF_array | 60 | coulomb_wave_sphF_array = gsl_sf_coulomb_wave_sphF_array |
61 | foreign import ccall unsafe "gsl_sf_coulomb_wave_sphF_array" gsl_sf_coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt | 61 | foreign import ccall SAFE_CHEAP "gsl_sf_coulomb_wave_sphF_array" gsl_sf_coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt |
62 | 62 | ||
63 | coulomb_CL_e :: Double -> Double -> (Double,Double) | 63 | coulomb_CL_e :: Double -> Double -> (Double,Double) |
64 | coulomb_CL_e lL eta = createSFR "coulomb_CL_e" $ gsl_sf_coulomb_CL_e lL eta | 64 | coulomb_CL_e lL eta = createSFR "coulomb_CL_e" $ gsl_sf_coulomb_CL_e lL eta |
65 | foreign import ccall unsafe "gsl_sf_coulomb_CL_e" gsl_sf_coulomb_CL_e :: Double -> Double -> Ptr () -> IO CInt | 65 | foreign import ccall SAFE_CHEAP "gsl_sf_coulomb_CL_e" gsl_sf_coulomb_CL_e :: Double -> Double -> Ptr () -> IO CInt |
66 | 66 | ||
67 | coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt | 67 | coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt |
68 | coulomb_CL_array = gsl_sf_coulomb_CL_array | 68 | coulomb_CL_array = gsl_sf_coulomb_CL_array |
69 | foreign import ccall unsafe "gsl_sf_coulomb_CL_array" gsl_sf_coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt | 69 | foreign import ccall SAFE_CHEAP "gsl_sf_coulomb_CL_array" gsl_sf_coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt |
diff --git a/packages/special/lib/Numeric/GSL/Special/Coupling.hs b/packages/special/lib/Numeric/GSL/Special/Coupling.hs index 777e410..326f53f 100644 --- a/packages/special/lib/Numeric/GSL/Special/Coupling.hs +++ b/packages/special/lib/Numeric/GSL/Special/Coupling.hs | |||
@@ -29,40 +29,40 @@ import Numeric.GSL.Special.Internal | |||
29 | 29 | ||
30 | coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) | 30 | coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) |
31 | coupling_3j_e two_ja two_jb two_jc two_ma two_mb two_mc = createSFR "coupling_3j_e" $ gsl_sf_coupling_3j_e two_ja two_jb two_jc two_ma two_mb two_mc | 31 | coupling_3j_e two_ja two_jb two_jc two_ma two_mb two_mc = createSFR "coupling_3j_e" $ gsl_sf_coupling_3j_e two_ja two_jb two_jc two_ma two_mb two_mc |
32 | foreign import ccall unsafe "gsl_sf_coupling_3j_e" gsl_sf_coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 32 | foreign import ccall SAFE_CHEAP "gsl_sf_coupling_3j_e" gsl_sf_coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt |
33 | 33 | ||
34 | coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 34 | coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
35 | coupling_3j = gsl_sf_coupling_3j | 35 | coupling_3j = gsl_sf_coupling_3j |
36 | foreign import ccall unsafe "gsl_sf_coupling_3j" gsl_sf_coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 36 | foreign import ccall SAFE_CHEAP "gsl_sf_coupling_3j" gsl_sf_coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
37 | 37 | ||
38 | coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) | 38 | coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) |
39 | coupling_6j_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_6j_e" $ gsl_sf_coupling_6j_e two_ja two_jb two_jc two_jd two_je two_jf | 39 | coupling_6j_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_6j_e" $ gsl_sf_coupling_6j_e two_ja two_jb two_jc two_jd two_je two_jf |
40 | foreign import ccall unsafe "gsl_sf_coupling_6j_e" gsl_sf_coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 40 | foreign import ccall SAFE_CHEAP "gsl_sf_coupling_6j_e" gsl_sf_coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt |
41 | 41 | ||
42 | coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 42 | coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
43 | coupling_6j = gsl_sf_coupling_6j | 43 | coupling_6j = gsl_sf_coupling_6j |
44 | foreign import ccall unsafe "gsl_sf_coupling_6j" gsl_sf_coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 44 | foreign import ccall SAFE_CHEAP "gsl_sf_coupling_6j" gsl_sf_coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
45 | 45 | ||
46 | coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) | 46 | coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) |
47 | coupling_RacahW_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_RacahW_e" $ gsl_sf_coupling_RacahW_e two_ja two_jb two_jc two_jd two_je two_jf | 47 | coupling_RacahW_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_RacahW_e" $ gsl_sf_coupling_RacahW_e two_ja two_jb two_jc two_jd two_je two_jf |
48 | foreign import ccall unsafe "gsl_sf_coupling_RacahW_e" gsl_sf_coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 48 | foreign import ccall SAFE_CHEAP "gsl_sf_coupling_RacahW_e" gsl_sf_coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt |
49 | 49 | ||
50 | coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 50 | coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
51 | coupling_RacahW = gsl_sf_coupling_RacahW | 51 | coupling_RacahW = gsl_sf_coupling_RacahW |
52 | foreign import ccall unsafe "gsl_sf_coupling_RacahW" gsl_sf_coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 52 | foreign import ccall SAFE_CHEAP "gsl_sf_coupling_RacahW" gsl_sf_coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
53 | 53 | ||
54 | coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) | 54 | coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) |
55 | coupling_9j_e two_ja two_jb two_jc two_jd two_je two_jf two_jg two_jh two_ji = createSFR "coupling_9j_e" $ gsl_sf_coupling_9j_e two_ja two_jb two_jc two_jd two_je two_jf two_jg two_jh two_ji | 55 | coupling_9j_e two_ja two_jb two_jc two_jd two_je two_jf two_jg two_jh two_ji = createSFR "coupling_9j_e" $ gsl_sf_coupling_9j_e two_ja two_jb two_jc two_jd two_je two_jf two_jg two_jh two_ji |
56 | foreign import ccall unsafe "gsl_sf_coupling_9j_e" gsl_sf_coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 56 | foreign import ccall SAFE_CHEAP "gsl_sf_coupling_9j_e" gsl_sf_coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt |
57 | 57 | ||
58 | coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 58 | coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
59 | coupling_9j = gsl_sf_coupling_9j | 59 | coupling_9j = gsl_sf_coupling_9j |
60 | foreign import ccall unsafe "gsl_sf_coupling_9j" gsl_sf_coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 60 | foreign import ccall SAFE_CHEAP "gsl_sf_coupling_9j" gsl_sf_coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
61 | 61 | ||
62 | coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) | 62 | coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) |
63 | coupling_6j_INCORRECT_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_6j_INCORRECT_e" $ gsl_sf_coupling_6j_INCORRECT_e two_ja two_jb two_jc two_jd two_je two_jf | 63 | coupling_6j_INCORRECT_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_6j_INCORRECT_e" $ gsl_sf_coupling_6j_INCORRECT_e two_ja two_jb two_jc two_jd two_je two_jf |
64 | foreign import ccall unsafe "gsl_sf_coupling_6j_INCORRECT_e" gsl_sf_coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 64 | foreign import ccall SAFE_CHEAP "gsl_sf_coupling_6j_INCORRECT_e" gsl_sf_coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt |
65 | 65 | ||
66 | coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 66 | coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
67 | coupling_6j_INCORRECT = gsl_sf_coupling_6j_INCORRECT | 67 | coupling_6j_INCORRECT = gsl_sf_coupling_6j_INCORRECT |
68 | foreign import ccall unsafe "gsl_sf_coupling_6j_INCORRECT" gsl_sf_coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 68 | foreign import ccall SAFE_CHEAP "gsl_sf_coupling_6j_INCORRECT" gsl_sf_coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Dawson.hs b/packages/special/lib/Numeric/GSL/Special/Dawson.hs index 64b6ced..9f73767 100644 --- a/packages/special/lib/Numeric/GSL/Special/Dawson.hs +++ b/packages/special/lib/Numeric/GSL/Special/Dawson.hs | |||
@@ -23,8 +23,8 @@ import Numeric.GSL.Special.Internal | |||
23 | 23 | ||
24 | dawson_e :: Double -> (Double,Double) | 24 | dawson_e :: Double -> (Double,Double) |
25 | dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x | 25 | dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x |
26 | foreign import ccall unsafe "gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt | 26 | foreign import ccall SAFE_CHEAP "gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt |
27 | 27 | ||
28 | dawson :: Double -> Double | 28 | dawson :: Double -> Double |
29 | dawson = gsl_sf_dawson | 29 | dawson = gsl_sf_dawson |
30 | foreign import ccall unsafe "gsl_sf_dawson" gsl_sf_dawson :: Double -> Double | 30 | foreign import ccall SAFE_CHEAP "gsl_sf_dawson" gsl_sf_dawson :: Double -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Debye.hs b/packages/special/lib/Numeric/GSL/Special/Debye.hs index 27b25e2..7ca17e4 100644 --- a/packages/special/lib/Numeric/GSL/Special/Debye.hs +++ b/packages/special/lib/Numeric/GSL/Special/Debye.hs | |||
@@ -33,48 +33,48 @@ import Numeric.GSL.Special.Internal | |||
33 | 33 | ||
34 | debye_1_e :: Double -> (Double,Double) | 34 | debye_1_e :: Double -> (Double,Double) |
35 | debye_1_e x = createSFR "debye_1_e" $ gsl_sf_debye_1_e x | 35 | debye_1_e x = createSFR "debye_1_e" $ gsl_sf_debye_1_e x |
36 | foreign import ccall unsafe "gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr () -> IO CInt | 36 | foreign import ccall SAFE_CHEAP "gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr () -> IO CInt |
37 | 37 | ||
38 | debye_1 :: Double -> Double | 38 | debye_1 :: Double -> Double |
39 | debye_1 = gsl_sf_debye_1 | 39 | debye_1 = gsl_sf_debye_1 |
40 | foreign import ccall unsafe "gsl_sf_debye_1" gsl_sf_debye_1 :: Double -> Double | 40 | foreign import ccall SAFE_CHEAP "gsl_sf_debye_1" gsl_sf_debye_1 :: Double -> Double |
41 | 41 | ||
42 | debye_2_e :: Double -> (Double,Double) | 42 | debye_2_e :: Double -> (Double,Double) |
43 | debye_2_e x = createSFR "debye_2_e" $ gsl_sf_debye_2_e x | 43 | debye_2_e x = createSFR "debye_2_e" $ gsl_sf_debye_2_e x |
44 | foreign import ccall unsafe "gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr () -> IO CInt | 44 | foreign import ccall SAFE_CHEAP "gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr () -> IO CInt |
45 | 45 | ||
46 | debye_2 :: Double -> Double | 46 | debye_2 :: Double -> Double |
47 | debye_2 = gsl_sf_debye_2 | 47 | debye_2 = gsl_sf_debye_2 |
48 | foreign import ccall unsafe "gsl_sf_debye_2" gsl_sf_debye_2 :: Double -> Double | 48 | foreign import ccall SAFE_CHEAP "gsl_sf_debye_2" gsl_sf_debye_2 :: Double -> Double |
49 | 49 | ||
50 | debye_3_e :: Double -> (Double,Double) | 50 | debye_3_e :: Double -> (Double,Double) |
51 | debye_3_e x = createSFR "debye_3_e" $ gsl_sf_debye_3_e x | 51 | debye_3_e x = createSFR "debye_3_e" $ gsl_sf_debye_3_e x |
52 | foreign import ccall unsafe "gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr () -> IO CInt | 52 | foreign import ccall SAFE_CHEAP "gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr () -> IO CInt |
53 | 53 | ||
54 | debye_3 :: Double -> Double | 54 | debye_3 :: Double -> Double |
55 | debye_3 = gsl_sf_debye_3 | 55 | debye_3 = gsl_sf_debye_3 |
56 | foreign import ccall unsafe "gsl_sf_debye_3" gsl_sf_debye_3 :: Double -> Double | 56 | foreign import ccall SAFE_CHEAP "gsl_sf_debye_3" gsl_sf_debye_3 :: Double -> Double |
57 | 57 | ||
58 | debye_4_e :: Double -> (Double,Double) | 58 | debye_4_e :: Double -> (Double,Double) |
59 | debye_4_e x = createSFR "debye_4_e" $ gsl_sf_debye_4_e x | 59 | debye_4_e x = createSFR "debye_4_e" $ gsl_sf_debye_4_e x |
60 | foreign import ccall unsafe "gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr () -> IO CInt | 60 | foreign import ccall SAFE_CHEAP "gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr () -> IO CInt |
61 | 61 | ||
62 | debye_4 :: Double -> Double | 62 | debye_4 :: Double -> Double |
63 | debye_4 = gsl_sf_debye_4 | 63 | debye_4 = gsl_sf_debye_4 |
64 | foreign import ccall unsafe "gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double | 64 | foreign import ccall SAFE_CHEAP "gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double |
65 | 65 | ||
66 | debye_5_e :: Double -> (Double,Double) | 66 | debye_5_e :: Double -> (Double,Double) |
67 | debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x | 67 | debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x |
68 | foreign import ccall unsafe "gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt | 68 | foreign import ccall SAFE_CHEAP "gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt |
69 | 69 | ||
70 | debye_5 :: Double -> Double | 70 | debye_5 :: Double -> Double |
71 | debye_5 = gsl_sf_debye_5 | 71 | debye_5 = gsl_sf_debye_5 |
72 | foreign import ccall unsafe "gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double | 72 | foreign import ccall SAFE_CHEAP "gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double |
73 | 73 | ||
74 | debye_6_e :: Double -> (Double,Double) | 74 | debye_6_e :: Double -> (Double,Double) |
75 | debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x | 75 | debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x |
76 | foreign import ccall unsafe "gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt | 76 | foreign import ccall SAFE_CHEAP "gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt |
77 | 77 | ||
78 | debye_6 :: Double -> Double | 78 | debye_6 :: Double -> Double |
79 | debye_6 = gsl_sf_debye_6 | 79 | debye_6 = gsl_sf_debye_6 |
80 | foreign import ccall unsafe "gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double | 80 | foreign import ccall SAFE_CHEAP "gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Dilog.hs b/packages/special/lib/Numeric/GSL/Special/Dilog.hs index 2c9810f..32cceba 100644 --- a/packages/special/lib/Numeric/GSL/Special/Dilog.hs +++ b/packages/special/lib/Numeric/GSL/Special/Dilog.hs | |||
@@ -26,20 +26,20 @@ import Numeric.GSL.Special.Internal | |||
26 | 26 | ||
27 | dilog_e :: Double -> (Double,Double) | 27 | dilog_e :: Double -> (Double,Double) |
28 | dilog_e x = createSFR "dilog_e" $ gsl_sf_dilog_e x | 28 | dilog_e x = createSFR "dilog_e" $ gsl_sf_dilog_e x |
29 | foreign import ccall unsafe "gsl_sf_dilog_e" gsl_sf_dilog_e :: Double -> Ptr () -> IO CInt | 29 | foreign import ccall SAFE_CHEAP "gsl_sf_dilog_e" gsl_sf_dilog_e :: Double -> Ptr () -> IO CInt |
30 | 30 | ||
31 | dilog :: Double -> Double | 31 | dilog :: Double -> Double |
32 | dilog = gsl_sf_dilog | 32 | dilog = gsl_sf_dilog |
33 | foreign import ccall unsafe "gsl_sf_dilog" gsl_sf_dilog :: Double -> Double | 33 | foreign import ccall SAFE_CHEAP "gsl_sf_dilog" gsl_sf_dilog :: Double -> Double |
34 | 34 | ||
35 | complex_dilog_xy_e :: Double -> Double -> ((Double,Double),(Double,Double)) | 35 | complex_dilog_xy_e :: Double -> Double -> ((Double,Double),(Double,Double)) |
36 | complex_dilog_xy_e x y = create2SFR "complex_dilog_xy_e" $ gsl_sf_complex_dilog_xy_e x y | 36 | complex_dilog_xy_e x y = create2SFR "complex_dilog_xy_e" $ gsl_sf_complex_dilog_xy_e x y |
37 | foreign import ccall unsafe "gsl_sf_complex_dilog_xy_e" gsl_sf_complex_dilog_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 37 | foreign import ccall SAFE_CHEAP "gsl_sf_complex_dilog_xy_e" gsl_sf_complex_dilog_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
38 | 38 | ||
39 | complex_dilog_e :: Double -> Double -> ((Double,Double),(Double,Double)) | 39 | complex_dilog_e :: Double -> Double -> ((Double,Double),(Double,Double)) |
40 | complex_dilog_e r theta = create2SFR "complex_dilog_e" $ gsl_sf_complex_dilog_e r theta | 40 | complex_dilog_e r theta = create2SFR "complex_dilog_e" $ gsl_sf_complex_dilog_e r theta |
41 | foreign import ccall unsafe "gsl_sf_complex_dilog_e" gsl_sf_complex_dilog_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 41 | foreign import ccall SAFE_CHEAP "gsl_sf_complex_dilog_e" gsl_sf_complex_dilog_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
42 | 42 | ||
43 | complex_spence_xy_e :: Double -> Double -> ((Double,Double),(Double,Double)) | 43 | complex_spence_xy_e :: Double -> Double -> ((Double,Double),(Double,Double)) |
44 | complex_spence_xy_e x y = create2SFR "complex_spence_xy_e" $ gsl_sf_complex_spence_xy_e x y | 44 | complex_spence_xy_e x y = create2SFR "complex_spence_xy_e" $ gsl_sf_complex_spence_xy_e x y |
45 | foreign import ccall unsafe "gsl_sf_complex_spence_xy_e" gsl_sf_complex_spence_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 45 | foreign import ccall SAFE_CHEAP "gsl_sf_complex_spence_xy_e" gsl_sf_complex_spence_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
diff --git a/packages/special/lib/Numeric/GSL/Special/Elementary.hs b/packages/special/lib/Numeric/GSL/Special/Elementary.hs index 609081b..e58a697 100644 --- a/packages/special/lib/Numeric/GSL/Special/Elementary.hs +++ b/packages/special/lib/Numeric/GSL/Special/Elementary.hs | |||
@@ -24,12 +24,12 @@ import Numeric.GSL.Special.Internal | |||
24 | 24 | ||
25 | multiply_e :: Double -> Double -> (Double,Double) | 25 | multiply_e :: Double -> Double -> (Double,Double) |
26 | multiply_e x y = createSFR "multiply_e" $ gsl_sf_multiply_e x y | 26 | multiply_e x y = createSFR "multiply_e" $ gsl_sf_multiply_e x y |
27 | foreign import ccall unsafe "gsl_sf_multiply_e" gsl_sf_multiply_e :: Double -> Double -> Ptr () -> IO CInt | 27 | foreign import ccall SAFE_CHEAP "gsl_sf_multiply_e" gsl_sf_multiply_e :: Double -> Double -> Ptr () -> IO CInt |
28 | 28 | ||
29 | multiply :: Double -> Double -> Double | 29 | multiply :: Double -> Double -> Double |
30 | multiply = gsl_sf_multiply | 30 | multiply = gsl_sf_multiply |
31 | foreign import ccall unsafe "gsl_sf_multiply" gsl_sf_multiply :: Double -> Double -> Double | 31 | foreign import ccall SAFE_CHEAP "gsl_sf_multiply" gsl_sf_multiply :: Double -> Double -> Double |
32 | 32 | ||
33 | multiply_err_e :: Double -> Double -> Double -> Double -> (Double,Double) | 33 | multiply_err_e :: Double -> Double -> Double -> Double -> (Double,Double) |
34 | multiply_err_e x dx y dy = createSFR "multiply_err_e" $ gsl_sf_multiply_err_e x dx y dy | 34 | multiply_err_e x dx y dy = createSFR "multiply_err_e" $ gsl_sf_multiply_err_e x dx y dy |
35 | foreign import ccall unsafe "gsl_sf_multiply_err_e" gsl_sf_multiply_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 35 | foreign import ccall SAFE_CHEAP "gsl_sf_multiply_err_e" gsl_sf_multiply_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
diff --git a/packages/special/lib/Numeric/GSL/Special/Ellint.hs b/packages/special/lib/Numeric/GSL/Special/Ellint.hs index 5837a7f..365c366 100644 --- a/packages/special/lib/Numeric/GSL/Special/Ellint.hs +++ b/packages/special/lib/Numeric/GSL/Special/Ellint.hs | |||
@@ -45,96 +45,96 @@ import Numeric.GSL.Special.Internal | |||
45 | 45 | ||
46 | ellint_Kcomp_e :: Double -> Precision -> (Double,Double) | 46 | ellint_Kcomp_e :: Double -> Precision -> (Double,Double) |
47 | ellint_Kcomp_e k mode = createSFR "ellint_Kcomp_e" $ gsl_sf_ellint_Kcomp_e k (precCode mode) | 47 | ellint_Kcomp_e k mode = createSFR "ellint_Kcomp_e" $ gsl_sf_ellint_Kcomp_e k (precCode mode) |
48 | foreign import ccall unsafe "gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 48 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
49 | 49 | ||
50 | ellint_Kcomp :: Double -> Precision -> Double | 50 | ellint_Kcomp :: Double -> Precision -> Double |
51 | ellint_Kcomp k mode = gsl_sf_ellint_Kcomp k (precCode mode) | 51 | ellint_Kcomp k mode = gsl_sf_ellint_Kcomp k (precCode mode) |
52 | foreign import ccall unsafe "gsl_sf_ellint_Kcomp" gsl_sf_ellint_Kcomp :: Double -> Gsl_mode_t -> Double | 52 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_Kcomp" gsl_sf_ellint_Kcomp :: Double -> Gsl_mode_t -> Double |
53 | 53 | ||
54 | ellint_Ecomp_e :: Double -> Precision -> (Double,Double) | 54 | ellint_Ecomp_e :: Double -> Precision -> (Double,Double) |
55 | ellint_Ecomp_e k mode = createSFR "ellint_Ecomp_e" $ gsl_sf_ellint_Ecomp_e k (precCode mode) | 55 | ellint_Ecomp_e k mode = createSFR "ellint_Ecomp_e" $ gsl_sf_ellint_Ecomp_e k (precCode mode) |
56 | foreign import ccall unsafe "gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 56 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
57 | 57 | ||
58 | ellint_Ecomp :: Double -> Precision -> Double | 58 | ellint_Ecomp :: Double -> Precision -> Double |
59 | ellint_Ecomp k mode = gsl_sf_ellint_Ecomp k (precCode mode) | 59 | ellint_Ecomp k mode = gsl_sf_ellint_Ecomp k (precCode mode) |
60 | foreign import ccall unsafe "gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double | 60 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double |
61 | 61 | ||
62 | ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double) | 62 | ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double) |
63 | ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n (precCode mode) | 63 | ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n (precCode mode) |
64 | foreign import ccall unsafe "gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 64 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
65 | 65 | ||
66 | ellint_Pcomp :: Double -> Double -> Precision -> Double | 66 | ellint_Pcomp :: Double -> Double -> Precision -> Double |
67 | ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n (precCode mode) | 67 | ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n (precCode mode) |
68 | foreign import ccall unsafe "gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double | 68 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double |
69 | 69 | ||
70 | ellint_Dcomp_e :: Double -> Precision -> (Double,Double) | 70 | ellint_Dcomp_e :: Double -> Precision -> (Double,Double) |
71 | ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k (precCode mode) | 71 | ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k (precCode mode) |
72 | foreign import ccall unsafe "gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 72 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
73 | 73 | ||
74 | ellint_Dcomp :: Double -> Precision -> Double | 74 | ellint_Dcomp :: Double -> Precision -> Double |
75 | ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k (precCode mode) | 75 | ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k (precCode mode) |
76 | foreign import ccall unsafe "gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double | 76 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double |
77 | 77 | ||
78 | ellint_F_e :: Double -> Double -> Precision -> (Double,Double) | 78 | ellint_F_e :: Double -> Double -> Precision -> (Double,Double) |
79 | ellint_F_e phi k mode = createSFR "ellint_F_e" $ gsl_sf_ellint_F_e phi k (precCode mode) | 79 | ellint_F_e phi k mode = createSFR "ellint_F_e" $ gsl_sf_ellint_F_e phi k (precCode mode) |
80 | foreign import ccall unsafe "gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 80 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
81 | 81 | ||
82 | ellint_F :: Double -> Double -> Precision -> Double | 82 | ellint_F :: Double -> Double -> Precision -> Double |
83 | ellint_F phi k mode = gsl_sf_ellint_F phi k (precCode mode) | 83 | ellint_F phi k mode = gsl_sf_ellint_F phi k (precCode mode) |
84 | foreign import ccall unsafe "gsl_sf_ellint_F" gsl_sf_ellint_F :: Double -> Double -> Gsl_mode_t -> Double | 84 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_F" gsl_sf_ellint_F :: Double -> Double -> Gsl_mode_t -> Double |
85 | 85 | ||
86 | ellint_E_e :: Double -> Double -> Precision -> (Double,Double) | 86 | ellint_E_e :: Double -> Double -> Precision -> (Double,Double) |
87 | ellint_E_e phi k mode = createSFR "ellint_E_e" $ gsl_sf_ellint_E_e phi k (precCode mode) | 87 | ellint_E_e phi k mode = createSFR "ellint_E_e" $ gsl_sf_ellint_E_e phi k (precCode mode) |
88 | foreign import ccall unsafe "gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 88 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
89 | 89 | ||
90 | ellint_E :: Double -> Double -> Precision -> Double | 90 | ellint_E :: Double -> Double -> Precision -> Double |
91 | ellint_E phi k mode = gsl_sf_ellint_E phi k (precCode mode) | 91 | ellint_E phi k mode = gsl_sf_ellint_E phi k (precCode mode) |
92 | foreign import ccall unsafe "gsl_sf_ellint_E" gsl_sf_ellint_E :: Double -> Double -> Gsl_mode_t -> Double | 92 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_E" gsl_sf_ellint_E :: Double -> Double -> Gsl_mode_t -> Double |
93 | 93 | ||
94 | ellint_P_e :: Double -> Double -> Double -> Precision -> (Double,Double) | 94 | ellint_P_e :: Double -> Double -> Double -> Precision -> (Double,Double) |
95 | ellint_P_e phi k n mode = createSFR "ellint_P_e" $ gsl_sf_ellint_P_e phi k n (precCode mode) | 95 | ellint_P_e phi k n mode = createSFR "ellint_P_e" $ gsl_sf_ellint_P_e phi k n (precCode mode) |
96 | foreign import ccall unsafe "gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 96 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
97 | 97 | ||
98 | ellint_P :: Double -> Double -> Double -> Precision -> Double | 98 | ellint_P :: Double -> Double -> Double -> Precision -> Double |
99 | ellint_P phi k n mode = gsl_sf_ellint_P phi k n (precCode mode) | 99 | ellint_P phi k n mode = gsl_sf_ellint_P phi k n (precCode mode) |
100 | foreign import ccall unsafe "gsl_sf_ellint_P" gsl_sf_ellint_P :: Double -> Double -> Double -> Gsl_mode_t -> Double | 100 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_P" gsl_sf_ellint_P :: Double -> Double -> Double -> Gsl_mode_t -> Double |
101 | 101 | ||
102 | ellint_D_e :: Double -> Double -> Double -> Precision -> (Double,Double) | 102 | ellint_D_e :: Double -> Double -> Double -> Precision -> (Double,Double) |
103 | ellint_D_e phi k n mode = createSFR "ellint_D_e" $ gsl_sf_ellint_D_e phi k n (precCode mode) | 103 | ellint_D_e phi k n mode = createSFR "ellint_D_e" $ gsl_sf_ellint_D_e phi k n (precCode mode) |
104 | foreign import ccall unsafe "gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 104 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
105 | 105 | ||
106 | ellint_D :: Double -> Double -> Double -> Precision -> Double | 106 | ellint_D :: Double -> Double -> Double -> Precision -> Double |
107 | ellint_D phi k n mode = gsl_sf_ellint_D phi k n (precCode mode) | 107 | ellint_D phi k n mode = gsl_sf_ellint_D phi k n (precCode mode) |
108 | foreign import ccall unsafe "gsl_sf_ellint_D" gsl_sf_ellint_D :: Double -> Double -> Double -> Gsl_mode_t -> Double | 108 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_D" gsl_sf_ellint_D :: Double -> Double -> Double -> Gsl_mode_t -> Double |
109 | 109 | ||
110 | ellint_RC_e :: Double -> Double -> Precision -> (Double,Double) | 110 | ellint_RC_e :: Double -> Double -> Precision -> (Double,Double) |
111 | ellint_RC_e x y mode = createSFR "ellint_RC_e" $ gsl_sf_ellint_RC_e x y (precCode mode) | 111 | ellint_RC_e x y mode = createSFR "ellint_RC_e" $ gsl_sf_ellint_RC_e x y (precCode mode) |
112 | foreign import ccall unsafe "gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 112 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
113 | 113 | ||
114 | ellint_RC :: Double -> Double -> Precision -> Double | 114 | ellint_RC :: Double -> Double -> Precision -> Double |
115 | ellint_RC x y mode = gsl_sf_ellint_RC x y (precCode mode) | 115 | ellint_RC x y mode = gsl_sf_ellint_RC x y (precCode mode) |
116 | foreign import ccall unsafe "gsl_sf_ellint_RC" gsl_sf_ellint_RC :: Double -> Double -> Gsl_mode_t -> Double | 116 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_RC" gsl_sf_ellint_RC :: Double -> Double -> Gsl_mode_t -> Double |
117 | 117 | ||
118 | ellint_RD_e :: Double -> Double -> Double -> Precision -> (Double,Double) | 118 | ellint_RD_e :: Double -> Double -> Double -> Precision -> (Double,Double) |
119 | ellint_RD_e x y z mode = createSFR "ellint_RD_e" $ gsl_sf_ellint_RD_e x y z (precCode mode) | 119 | ellint_RD_e x y z mode = createSFR "ellint_RD_e" $ gsl_sf_ellint_RD_e x y z (precCode mode) |
120 | foreign import ccall unsafe "gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 120 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
121 | 121 | ||
122 | ellint_RD :: Double -> Double -> Double -> Precision -> Double | 122 | ellint_RD :: Double -> Double -> Double -> Precision -> Double |
123 | ellint_RD x y z mode = gsl_sf_ellint_RD x y z (precCode mode) | 123 | ellint_RD x y z mode = gsl_sf_ellint_RD x y z (precCode mode) |
124 | foreign import ccall unsafe "gsl_sf_ellint_RD" gsl_sf_ellint_RD :: Double -> Double -> Double -> Gsl_mode_t -> Double | 124 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_RD" gsl_sf_ellint_RD :: Double -> Double -> Double -> Gsl_mode_t -> Double |
125 | 125 | ||
126 | ellint_RF_e :: Double -> Double -> Double -> Precision -> (Double,Double) | 126 | ellint_RF_e :: Double -> Double -> Double -> Precision -> (Double,Double) |
127 | ellint_RF_e x y z mode = createSFR "ellint_RF_e" $ gsl_sf_ellint_RF_e x y z (precCode mode) | 127 | ellint_RF_e x y z mode = createSFR "ellint_RF_e" $ gsl_sf_ellint_RF_e x y z (precCode mode) |
128 | foreign import ccall unsafe "gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 128 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
129 | 129 | ||
130 | ellint_RF :: Double -> Double -> Double -> Precision -> Double | 130 | ellint_RF :: Double -> Double -> Double -> Precision -> Double |
131 | ellint_RF x y z mode = gsl_sf_ellint_RF x y z (precCode mode) | 131 | ellint_RF x y z mode = gsl_sf_ellint_RF x y z (precCode mode) |
132 | foreign import ccall unsafe "gsl_sf_ellint_RF" gsl_sf_ellint_RF :: Double -> Double -> Double -> Gsl_mode_t -> Double | 132 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_RF" gsl_sf_ellint_RF :: Double -> Double -> Double -> Gsl_mode_t -> Double |
133 | 133 | ||
134 | ellint_RJ_e :: Double -> Double -> Double -> Double -> Precision -> (Double,Double) | 134 | ellint_RJ_e :: Double -> Double -> Double -> Double -> Precision -> (Double,Double) |
135 | ellint_RJ_e x y z p mode = createSFR "ellint_RJ_e" $ gsl_sf_ellint_RJ_e x y z p (precCode mode) | 135 | ellint_RJ_e x y z p mode = createSFR "ellint_RJ_e" $ gsl_sf_ellint_RJ_e x y z p (precCode mode) |
136 | foreign import ccall unsafe "gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 136 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
137 | 137 | ||
138 | ellint_RJ :: Double -> Double -> Double -> Double -> Precision -> Double | 138 | ellint_RJ :: Double -> Double -> Double -> Double -> Precision -> Double |
139 | ellint_RJ x y z p mode = gsl_sf_ellint_RJ x y z p (precCode mode) | 139 | ellint_RJ x y z p mode = gsl_sf_ellint_RJ x y z p (precCode mode) |
140 | foreign import ccall unsafe "gsl_sf_ellint_RJ" gsl_sf_ellint_RJ :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Double | 140 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_RJ" gsl_sf_ellint_RJ :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Elljac.hs b/packages/special/lib/Numeric/GSL/Special/Elljac.hs index 555e3ff..553350c 100644 --- a/packages/special/lib/Numeric/GSL/Special/Elljac.hs +++ b/packages/special/lib/Numeric/GSL/Special/Elljac.hs | |||
@@ -38,4 +38,4 @@ elljac_e u m = unsafePerformIO $ do | |||
38 | else error $ "error code "++show res++ | 38 | else error $ "error code "++show res++ |
39 | " in elljac_e "++show u++" "++show m | 39 | " in elljac_e "++show u++" "++show m |
40 | 40 | ||
41 | foreign import ccall unsafe "gsl_sf_elljac_e" gsl_sf_elljac_e :: Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO CInt | 41 | foreign import ccall "gsl_sf_elljac_e" gsl_sf_elljac_e :: Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO CInt |
diff --git a/packages/special/lib/Numeric/GSL/Special/Erf.hs b/packages/special/lib/Numeric/GSL/Special/Erf.hs index ddbc376..171a3c5 100644 --- a/packages/special/lib/Numeric/GSL/Special/Erf.hs +++ b/packages/special/lib/Numeric/GSL/Special/Erf.hs | |||
@@ -33,48 +33,48 @@ import Numeric.GSL.Special.Internal | |||
33 | 33 | ||
34 | erfc_e :: Double -> (Double,Double) | 34 | erfc_e :: Double -> (Double,Double) |
35 | erfc_e x = createSFR "erfc_e" $ gsl_sf_erfc_e x | 35 | erfc_e x = createSFR "erfc_e" $ gsl_sf_erfc_e x |
36 | foreign import ccall unsafe "gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr () -> IO CInt | 36 | foreign import ccall SAFE_CHEAP "gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr () -> IO CInt |
37 | 37 | ||
38 | erfc :: Double -> Double | 38 | erfc :: Double -> Double |
39 | erfc = gsl_sf_erfc | 39 | erfc = gsl_sf_erfc |
40 | foreign import ccall unsafe "gsl_sf_erfc" gsl_sf_erfc :: Double -> Double | 40 | foreign import ccall SAFE_CHEAP "gsl_sf_erfc" gsl_sf_erfc :: Double -> Double |
41 | 41 | ||
42 | log_erfc_e :: Double -> (Double,Double) | 42 | log_erfc_e :: Double -> (Double,Double) |
43 | log_erfc_e x = createSFR "log_erfc_e" $ gsl_sf_log_erfc_e x | 43 | log_erfc_e x = createSFR "log_erfc_e" $ gsl_sf_log_erfc_e x |
44 | foreign import ccall unsafe "gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr () -> IO CInt | 44 | foreign import ccall SAFE_CHEAP "gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr () -> IO CInt |
45 | 45 | ||
46 | log_erfc :: Double -> Double | 46 | log_erfc :: Double -> Double |
47 | log_erfc = gsl_sf_log_erfc | 47 | log_erfc = gsl_sf_log_erfc |
48 | foreign import ccall unsafe "gsl_sf_log_erfc" gsl_sf_log_erfc :: Double -> Double | 48 | foreign import ccall SAFE_CHEAP "gsl_sf_log_erfc" gsl_sf_log_erfc :: Double -> Double |
49 | 49 | ||
50 | erf_e :: Double -> (Double,Double) | 50 | erf_e :: Double -> (Double,Double) |
51 | erf_e x = createSFR "erf_e" $ gsl_sf_erf_e x | 51 | erf_e x = createSFR "erf_e" $ gsl_sf_erf_e x |
52 | foreign import ccall unsafe "gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr () -> IO CInt | 52 | foreign import ccall SAFE_CHEAP "gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr () -> IO CInt |
53 | 53 | ||
54 | erf :: Double -> Double | 54 | erf :: Double -> Double |
55 | erf = gsl_sf_erf | 55 | erf = gsl_sf_erf |
56 | foreign import ccall unsafe "gsl_sf_erf" gsl_sf_erf :: Double -> Double | 56 | foreign import ccall SAFE_CHEAP "gsl_sf_erf" gsl_sf_erf :: Double -> Double |
57 | 57 | ||
58 | erf_Z_e :: Double -> (Double,Double) | 58 | erf_Z_e :: Double -> (Double,Double) |
59 | erf_Z_e x = createSFR "erf_Z_e" $ gsl_sf_erf_Z_e x | 59 | erf_Z_e x = createSFR "erf_Z_e" $ gsl_sf_erf_Z_e x |
60 | foreign import ccall unsafe "gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr () -> IO CInt | 60 | foreign import ccall SAFE_CHEAP "gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr () -> IO CInt |
61 | 61 | ||
62 | erf_Q_e :: Double -> (Double,Double) | 62 | erf_Q_e :: Double -> (Double,Double) |
63 | erf_Q_e x = createSFR "erf_Q_e" $ gsl_sf_erf_Q_e x | 63 | erf_Q_e x = createSFR "erf_Q_e" $ gsl_sf_erf_Q_e x |
64 | foreign import ccall unsafe "gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr () -> IO CInt | 64 | foreign import ccall SAFE_CHEAP "gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr () -> IO CInt |
65 | 65 | ||
66 | erf_Z :: Double -> Double | 66 | erf_Z :: Double -> Double |
67 | erf_Z = gsl_sf_erf_Z | 67 | erf_Z = gsl_sf_erf_Z |
68 | foreign import ccall unsafe "gsl_sf_erf_Z" gsl_sf_erf_Z :: Double -> Double | 68 | foreign import ccall SAFE_CHEAP "gsl_sf_erf_Z" gsl_sf_erf_Z :: Double -> Double |
69 | 69 | ||
70 | erf_Q :: Double -> Double | 70 | erf_Q :: Double -> Double |
71 | erf_Q = gsl_sf_erf_Q | 71 | erf_Q = gsl_sf_erf_Q |
72 | foreign import ccall unsafe "gsl_sf_erf_Q" gsl_sf_erf_Q :: Double -> Double | 72 | foreign import ccall SAFE_CHEAP "gsl_sf_erf_Q" gsl_sf_erf_Q :: Double -> Double |
73 | 73 | ||
74 | hazard_e :: Double -> (Double,Double) | 74 | hazard_e :: Double -> (Double,Double) |
75 | hazard_e x = createSFR "hazard_e" $ gsl_sf_hazard_e x | 75 | hazard_e x = createSFR "hazard_e" $ gsl_sf_hazard_e x |
76 | foreign import ccall unsafe "gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr () -> IO CInt | 76 | foreign import ccall SAFE_CHEAP "gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr () -> IO CInt |
77 | 77 | ||
78 | hazard :: Double -> Double | 78 | hazard :: Double -> Double |
79 | hazard = gsl_sf_hazard | 79 | hazard = gsl_sf_hazard |
80 | foreign import ccall unsafe "gsl_sf_hazard" gsl_sf_hazard :: Double -> Double | 80 | foreign import ccall SAFE_CHEAP "gsl_sf_hazard" gsl_sf_hazard :: Double -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Exp.hs b/packages/special/lib/Numeric/GSL/Special/Exp.hs index c8a0b63..3b70078 100644 --- a/packages/special/lib/Numeric/GSL/Special/Exp.hs +++ b/packages/special/lib/Numeric/GSL/Special/Exp.hs | |||
@@ -40,76 +40,76 @@ import Numeric.GSL.Special.Internal | |||
40 | 40 | ||
41 | exp_e :: Double -> (Double,Double) | 41 | exp_e :: Double -> (Double,Double) |
42 | exp_e x = createSFR "exp_e" $ gsl_sf_exp_e x | 42 | exp_e x = createSFR "exp_e" $ gsl_sf_exp_e x |
43 | foreign import ccall unsafe "gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr () -> IO CInt | 43 | foreign import ccall SAFE_CHEAP "gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr () -> IO CInt |
44 | 44 | ||
45 | exp :: Double -> Double | 45 | exp :: Double -> Double |
46 | exp = gsl_sf_exp | 46 | exp = gsl_sf_exp |
47 | foreign import ccall unsafe "gsl_sf_exp" gsl_sf_exp :: Double -> Double | 47 | foreign import ccall SAFE_CHEAP "gsl_sf_exp" gsl_sf_exp :: Double -> Double |
48 | 48 | ||
49 | exp_e10_e :: Double -> (Double,Int,Double) | 49 | exp_e10_e :: Double -> (Double,Int,Double) |
50 | exp_e10_e x = createSFR_E10 "exp_e10_e" $ gsl_sf_exp_e10_e x | 50 | exp_e10_e x = createSFR_E10 "exp_e10_e" $ gsl_sf_exp_e10_e x |
51 | foreign import ccall unsafe "gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO CInt | 51 | foreign import ccall SAFE_CHEAP "gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO CInt |
52 | 52 | ||
53 | exp_mult_e :: Double -> Double -> (Double,Double) | 53 | exp_mult_e :: Double -> Double -> (Double,Double) |
54 | exp_mult_e x y = createSFR "exp_mult_e" $ gsl_sf_exp_mult_e x y | 54 | exp_mult_e x y = createSFR "exp_mult_e" $ gsl_sf_exp_mult_e x y |
55 | foreign import ccall unsafe "gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr () -> IO CInt | 55 | foreign import ccall SAFE_CHEAP "gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr () -> IO CInt |
56 | 56 | ||
57 | exp_mult :: Double -> Double -> Double | 57 | exp_mult :: Double -> Double -> Double |
58 | exp_mult = gsl_sf_exp_mult | 58 | exp_mult = gsl_sf_exp_mult |
59 | foreign import ccall unsafe "gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double | 59 | foreign import ccall SAFE_CHEAP "gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double |
60 | 60 | ||
61 | exp_mult_e10_e :: Double -> Double -> (Double,Int,Double) | 61 | exp_mult_e10_e :: Double -> Double -> (Double,Int,Double) |
62 | exp_mult_e10_e x y = createSFR_E10 "exp_mult_e10_e" $ gsl_sf_exp_mult_e10_e x y | 62 | exp_mult_e10_e x y = createSFR_E10 "exp_mult_e10_e" $ gsl_sf_exp_mult_e10_e x y |
63 | foreign import ccall unsafe "gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO CInt | 63 | foreign import ccall SAFE_CHEAP "gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO CInt |
64 | 64 | ||
65 | expm1_e :: Double -> (Double,Double) | 65 | expm1_e :: Double -> (Double,Double) |
66 | expm1_e x = createSFR "expm1_e" $ gsl_sf_expm1_e x | 66 | expm1_e x = createSFR "expm1_e" $ gsl_sf_expm1_e x |
67 | foreign import ccall unsafe "gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr () -> IO CInt | 67 | foreign import ccall SAFE_CHEAP "gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr () -> IO CInt |
68 | 68 | ||
69 | expm1 :: Double -> Double | 69 | expm1 :: Double -> Double |
70 | expm1 = gsl_sf_expm1 | 70 | expm1 = gsl_sf_expm1 |
71 | foreign import ccall unsafe "gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double | 71 | foreign import ccall SAFE_CHEAP "gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double |
72 | 72 | ||
73 | exprel_e :: Double -> (Double,Double) | 73 | exprel_e :: Double -> (Double,Double) |
74 | exprel_e x = createSFR "exprel_e" $ gsl_sf_exprel_e x | 74 | exprel_e x = createSFR "exprel_e" $ gsl_sf_exprel_e x |
75 | foreign import ccall unsafe "gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr () -> IO CInt | 75 | foreign import ccall SAFE_CHEAP "gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr () -> IO CInt |
76 | 76 | ||
77 | exprel :: Double -> Double | 77 | exprel :: Double -> Double |
78 | exprel = gsl_sf_exprel | 78 | exprel = gsl_sf_exprel |
79 | foreign import ccall unsafe "gsl_sf_exprel" gsl_sf_exprel :: Double -> Double | 79 | foreign import ccall SAFE_CHEAP "gsl_sf_exprel" gsl_sf_exprel :: Double -> Double |
80 | 80 | ||
81 | exprel_2_e :: Double -> (Double,Double) | 81 | exprel_2_e :: Double -> (Double,Double) |
82 | exprel_2_e x = createSFR "exprel_2_e" $ gsl_sf_exprel_2_e x | 82 | exprel_2_e x = createSFR "exprel_2_e" $ gsl_sf_exprel_2_e x |
83 | foreign import ccall unsafe "gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr () -> IO CInt | 83 | foreign import ccall SAFE_CHEAP "gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr () -> IO CInt |
84 | 84 | ||
85 | exprel_2 :: Double -> Double | 85 | exprel_2 :: Double -> Double |
86 | exprel_2 = gsl_sf_exprel_2 | 86 | exprel_2 = gsl_sf_exprel_2 |
87 | foreign import ccall unsafe "gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double | 87 | foreign import ccall SAFE_CHEAP "gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double |
88 | 88 | ||
89 | exprel_n_e :: CInt -> Double -> (Double,Double) | 89 | exprel_n_e :: CInt -> Double -> (Double,Double) |
90 | exprel_n_e n x = createSFR "exprel_n_e" $ gsl_sf_exprel_n_e n x | 90 | exprel_n_e n x = createSFR "exprel_n_e" $ gsl_sf_exprel_n_e n x |
91 | foreign import ccall unsafe "gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: CInt -> Double -> Ptr () -> IO CInt | 91 | foreign import ccall SAFE_CHEAP "gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: CInt -> Double -> Ptr () -> IO CInt |
92 | 92 | ||
93 | exprel_n :: CInt -> Double -> Double | 93 | exprel_n :: CInt -> Double -> Double |
94 | exprel_n = gsl_sf_exprel_n | 94 | exprel_n = gsl_sf_exprel_n |
95 | foreign import ccall unsafe "gsl_sf_exprel_n" gsl_sf_exprel_n :: CInt -> Double -> Double | 95 | foreign import ccall SAFE_CHEAP "gsl_sf_exprel_n" gsl_sf_exprel_n :: CInt -> Double -> Double |
96 | 96 | ||
97 | exprel_n_CF_e :: Double -> Double -> (Double,Double) | 97 | exprel_n_CF_e :: Double -> Double -> (Double,Double) |
98 | exprel_n_CF_e n x = createSFR "exprel_n_CF_e" $ gsl_sf_exprel_n_CF_e n x | 98 | exprel_n_CF_e n x = createSFR "exprel_n_CF_e" $ gsl_sf_exprel_n_CF_e n x |
99 | foreign import ccall unsafe "gsl_sf_exprel_n_CF_e" gsl_sf_exprel_n_CF_e :: Double -> Double -> Ptr () -> IO CInt | 99 | foreign import ccall SAFE_CHEAP "gsl_sf_exprel_n_CF_e" gsl_sf_exprel_n_CF_e :: Double -> Double -> Ptr () -> IO CInt |
100 | 100 | ||
101 | exp_err_e :: Double -> Double -> (Double,Double) | 101 | exp_err_e :: Double -> Double -> (Double,Double) |
102 | exp_err_e x dx = createSFR "exp_err_e" $ gsl_sf_exp_err_e x dx | 102 | exp_err_e x dx = createSFR "exp_err_e" $ gsl_sf_exp_err_e x dx |
103 | foreign import ccall unsafe "gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr () -> IO CInt | 103 | foreign import ccall SAFE_CHEAP "gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr () -> IO CInt |
104 | 104 | ||
105 | exp_err_e10_e :: Double -> Double -> (Double,Int,Double) | 105 | exp_err_e10_e :: Double -> Double -> (Double,Int,Double) |
106 | exp_err_e10_e x dx = createSFR_E10 "exp_err_e10_e" $ gsl_sf_exp_err_e10_e x dx | 106 | exp_err_e10_e x dx = createSFR_E10 "exp_err_e10_e" $ gsl_sf_exp_err_e10_e x dx |
107 | foreign import ccall unsafe "gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO CInt | 107 | foreign import ccall SAFE_CHEAP "gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO CInt |
108 | 108 | ||
109 | exp_mult_err_e :: Double -> Double -> Double -> Double -> (Double,Double) | 109 | exp_mult_err_e :: Double -> Double -> Double -> Double -> (Double,Double) |
110 | exp_mult_err_e x dx y dy = createSFR "exp_mult_err_e" $ gsl_sf_exp_mult_err_e x dx y dy | 110 | exp_mult_err_e x dx y dy = createSFR "exp_mult_err_e" $ gsl_sf_exp_mult_err_e x dx y dy |
111 | foreign import ccall unsafe "gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 111 | foreign import ccall SAFE_CHEAP "gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
112 | 112 | ||
113 | exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> (Double,Int,Double) | 113 | exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> (Double,Int,Double) |
114 | exp_mult_err_e10_e x dx y dy = createSFR_E10 "exp_mult_err_e10_e" $ gsl_sf_exp_mult_err_e10_e x dx y dy | 114 | exp_mult_err_e10_e x dx y dy = createSFR_E10 "exp_mult_err_e10_e" $ gsl_sf_exp_mult_err_e10_e x dx y dy |
115 | foreign import ccall unsafe "gsl_sf_exp_mult_err_e10_e" gsl_sf_exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 115 | foreign import ccall SAFE_CHEAP "gsl_sf_exp_mult_err_e10_e" gsl_sf_exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
diff --git a/packages/special/lib/Numeric/GSL/Special/Expint.hs b/packages/special/lib/Numeric/GSL/Special/Expint.hs index babed46..06f4594 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 unsafe "gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt | 52 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double | 56 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt | 60 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double | 64 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_En_e" gsl_sf_expint_En_e :: CInt -> Double -> Ptr () -> IO CInt | 68 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_En" gsl_sf_expint_En :: CInt -> Double -> Double | 72 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt | 76 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double | 80 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt | 84 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double | 88 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_En_scaled_e" gsl_sf_expint_En_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 92 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_En_scaled" gsl_sf_expint_En_scaled :: CInt -> Double -> Double | 96 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt | 100 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double | 104 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt | 108 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double | 112 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt | 116 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_Shi" gsl_sf_Shi :: Double -> Double | 120 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt | 124 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_Chi" gsl_sf_Chi :: Double -> Double | 128 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt | 132 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double | 136 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt | 140 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_Si" gsl_sf_Si :: Double -> Double | 144 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt | 148 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_Ci" gsl_sf_Ci :: Double -> Double | 152 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt | 156 | foreign import ccall SAFE_CHEAP "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 unsafe "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double | 160 | foreign import ccall SAFE_CHEAP "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Fermi_dirac.hs b/packages/special/lib/Numeric/GSL/Special/Fermi_dirac.hs index 11ed8a2..c39c096 100644 --- a/packages/special/lib/Numeric/GSL/Special/Fermi_dirac.hs +++ b/packages/special/lib/Numeric/GSL/Special/Fermi_dirac.hs | |||
@@ -39,72 +39,72 @@ import Numeric.GSL.Special.Internal | |||
39 | 39 | ||
40 | fermi_dirac_m1_e :: Double -> (Double,Double) | 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 | 41 | fermi_dirac_m1_e x = createSFR "fermi_dirac_m1_e" $ gsl_sf_fermi_dirac_m1_e x |
42 | foreign import ccall unsafe "gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr () -> IO CInt | 42 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr () -> IO CInt |
43 | 43 | ||
44 | fermi_dirac_m1 :: Double -> Double | 44 | fermi_dirac_m1 :: Double -> Double |
45 | fermi_dirac_m1 = gsl_sf_fermi_dirac_m1 | 45 | fermi_dirac_m1 = gsl_sf_fermi_dirac_m1 |
46 | foreign import ccall unsafe "gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1 :: Double -> Double | 46 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1 :: Double -> Double |
47 | 47 | ||
48 | fermi_dirac_0_e :: Double -> (Double,Double) | 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 | 49 | fermi_dirac_0_e x = createSFR "fermi_dirac_0_e" $ gsl_sf_fermi_dirac_0_e x |
50 | foreign import ccall unsafe "gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr () -> IO CInt | 50 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr () -> IO CInt |
51 | 51 | ||
52 | fermi_dirac_0 :: Double -> Double | 52 | fermi_dirac_0 :: Double -> Double |
53 | fermi_dirac_0 = gsl_sf_fermi_dirac_0 | 53 | fermi_dirac_0 = gsl_sf_fermi_dirac_0 |
54 | foreign import ccall unsafe "gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 :: Double -> Double | 54 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 :: Double -> Double |
55 | 55 | ||
56 | fermi_dirac_1_e :: Double -> (Double,Double) | 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 | 57 | fermi_dirac_1_e x = createSFR "fermi_dirac_1_e" $ gsl_sf_fermi_dirac_1_e x |
58 | foreign import ccall unsafe "gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr () -> IO CInt | 58 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr () -> IO CInt |
59 | 59 | ||
60 | fermi_dirac_1 :: Double -> Double | 60 | fermi_dirac_1 :: Double -> Double |
61 | fermi_dirac_1 = gsl_sf_fermi_dirac_1 | 61 | fermi_dirac_1 = gsl_sf_fermi_dirac_1 |
62 | foreign import ccall unsafe "gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 :: Double -> Double | 62 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 :: Double -> Double |
63 | 63 | ||
64 | fermi_dirac_2_e :: Double -> (Double,Double) | 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 | 65 | fermi_dirac_2_e x = createSFR "fermi_dirac_2_e" $ gsl_sf_fermi_dirac_2_e x |
66 | foreign import ccall unsafe "gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr () -> IO CInt | 66 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr () -> IO CInt |
67 | 67 | ||
68 | fermi_dirac_2 :: Double -> Double | 68 | fermi_dirac_2 :: Double -> Double |
69 | fermi_dirac_2 = gsl_sf_fermi_dirac_2 | 69 | fermi_dirac_2 = gsl_sf_fermi_dirac_2 |
70 | foreign import ccall unsafe "gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 :: Double -> Double | 70 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 :: Double -> Double |
71 | 71 | ||
72 | fermi_dirac_int_e :: CInt -> Double -> (Double,Double) | 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 | 73 | fermi_dirac_int_e j x = createSFR "fermi_dirac_int_e" $ gsl_sf_fermi_dirac_int_e j x |
74 | foreign import ccall unsafe "gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: CInt -> Double -> Ptr () -> IO CInt | 74 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: CInt -> Double -> Ptr () -> IO CInt |
75 | 75 | ||
76 | fermi_dirac_int :: CInt -> Double -> Double | 76 | fermi_dirac_int :: CInt -> Double -> Double |
77 | fermi_dirac_int = gsl_sf_fermi_dirac_int | 77 | fermi_dirac_int = gsl_sf_fermi_dirac_int |
78 | foreign import ccall unsafe "gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: CInt -> Double -> Double | 78 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: CInt -> Double -> Double |
79 | 79 | ||
80 | fermi_dirac_mhalf_e :: Double -> (Double,Double) | 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 | 81 | fermi_dirac_mhalf_e x = createSFR "fermi_dirac_mhalf_e" $ gsl_sf_fermi_dirac_mhalf_e x |
82 | foreign import ccall unsafe "gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr () -> IO CInt | 82 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr () -> IO CInt |
83 | 83 | ||
84 | fermi_dirac_mhalf :: Double -> Double | 84 | fermi_dirac_mhalf :: Double -> Double |
85 | fermi_dirac_mhalf = gsl_sf_fermi_dirac_mhalf | 85 | fermi_dirac_mhalf = gsl_sf_fermi_dirac_mhalf |
86 | foreign import ccall unsafe "gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac_mhalf :: Double -> Double | 86 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac_mhalf :: Double -> Double |
87 | 87 | ||
88 | fermi_dirac_half_e :: Double -> (Double,Double) | 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 | 89 | fermi_dirac_half_e x = createSFR "fermi_dirac_half_e" $ gsl_sf_fermi_dirac_half_e x |
90 | foreign import ccall unsafe "gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr () -> IO CInt | 90 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr () -> IO CInt |
91 | 91 | ||
92 | fermi_dirac_half :: Double -> Double | 92 | fermi_dirac_half :: Double -> Double |
93 | fermi_dirac_half = gsl_sf_fermi_dirac_half | 93 | fermi_dirac_half = gsl_sf_fermi_dirac_half |
94 | foreign import ccall unsafe "gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_half :: Double -> Double | 94 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_half :: Double -> Double |
95 | 95 | ||
96 | fermi_dirac_3half_e :: Double -> (Double,Double) | 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 | 97 | fermi_dirac_3half_e x = createSFR "fermi_dirac_3half_e" $ gsl_sf_fermi_dirac_3half_e x |
98 | foreign import ccall unsafe "gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr () -> IO CInt | 98 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr () -> IO CInt |
99 | 99 | ||
100 | fermi_dirac_3half :: Double -> Double | 100 | fermi_dirac_3half :: Double -> Double |
101 | fermi_dirac_3half = gsl_sf_fermi_dirac_3half | 101 | fermi_dirac_3half = gsl_sf_fermi_dirac_3half |
102 | foreign import ccall unsafe "gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac_3half :: Double -> Double | 102 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac_3half :: Double -> Double |
103 | 103 | ||
104 | fermi_dirac_inc_0_e :: Double -> Double -> (Double,Double) | 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 | 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 unsafe "gsl_sf_fermi_dirac_inc_0_e" gsl_sf_fermi_dirac_inc_0_e :: Double -> Double -> Ptr () -> IO CInt | 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 | 107 | ||
108 | fermi_dirac_inc_0 :: Double -> Double -> Double | 108 | fermi_dirac_inc_0 :: Double -> Double -> Double |
109 | fermi_dirac_inc_0 = gsl_sf_fermi_dirac_inc_0 | 109 | fermi_dirac_inc_0 = gsl_sf_fermi_dirac_inc_0 |
110 | foreign import ccall unsafe "gsl_sf_fermi_dirac_inc_0" gsl_sf_fermi_dirac_inc_0 :: Double -> Double -> Double | 110 | foreign import ccall SAFE_CHEAP "gsl_sf_fermi_dirac_inc_0" gsl_sf_fermi_dirac_inc_0 :: Double -> Double -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Gamma.hs b/packages/special/lib/Numeric/GSL/Special/Gamma.hs index bf4d920..78115f1 100644 --- a/packages/special/lib/Numeric/GSL/Special/Gamma.hs +++ b/packages/special/lib/Numeric/GSL/Special/Gamma.hs | |||
@@ -62,176 +62,176 @@ import Numeric.GSL.Special.Internal | |||
62 | 62 | ||
63 | lngamma_e :: Double -> (Double,Double) | 63 | lngamma_e :: Double -> (Double,Double) |
64 | lngamma_e x = createSFR "lngamma_e" $ gsl_sf_lngamma_e x | 64 | lngamma_e x = createSFR "lngamma_e" $ gsl_sf_lngamma_e x |
65 | foreign import ccall unsafe "gsl_sf_lngamma_e" gsl_sf_lngamma_e :: Double -> Ptr () -> IO CInt | 65 | foreign import ccall SAFE_CHEAP "gsl_sf_lngamma_e" gsl_sf_lngamma_e :: Double -> Ptr () -> IO CInt |
66 | 66 | ||
67 | lngamma :: Double -> Double | 67 | lngamma :: Double -> Double |
68 | lngamma = gsl_sf_lngamma | 68 | lngamma = gsl_sf_lngamma |
69 | foreign import ccall unsafe "gsl_sf_lngamma" gsl_sf_lngamma :: Double -> Double | 69 | foreign import ccall SAFE_CHEAP "gsl_sf_lngamma" gsl_sf_lngamma :: Double -> Double |
70 | 70 | ||
71 | lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt | 71 | lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt |
72 | lngamma_sgn_e = gsl_sf_lngamma_sgn_e | 72 | lngamma_sgn_e = gsl_sf_lngamma_sgn_e |
73 | foreign import ccall unsafe "gsl_sf_lngamma_sgn_e" gsl_sf_lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt | 73 | foreign import ccall SAFE_CHEAP "gsl_sf_lngamma_sgn_e" gsl_sf_lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt |
74 | 74 | ||
75 | gamma_e :: Double -> (Double,Double) | 75 | gamma_e :: Double -> (Double,Double) |
76 | gamma_e x = createSFR "gamma_e" $ gsl_sf_gamma_e x | 76 | gamma_e x = createSFR "gamma_e" $ gsl_sf_gamma_e x |
77 | foreign import ccall unsafe "gsl_sf_gamma_e" gsl_sf_gamma_e :: Double -> Ptr () -> IO CInt | 77 | foreign import ccall SAFE_CHEAP "gsl_sf_gamma_e" gsl_sf_gamma_e :: Double -> Ptr () -> IO CInt |
78 | 78 | ||
79 | gamma :: Double -> Double | 79 | gamma :: Double -> Double |
80 | gamma = gsl_sf_gamma | 80 | gamma = gsl_sf_gamma |
81 | foreign import ccall unsafe "gsl_sf_gamma" gsl_sf_gamma :: Double -> Double | 81 | foreign import ccall SAFE_CHEAP "gsl_sf_gamma" gsl_sf_gamma :: Double -> Double |
82 | 82 | ||
83 | gammastar_e :: Double -> (Double,Double) | 83 | gammastar_e :: Double -> (Double,Double) |
84 | gammastar_e x = createSFR "gammastar_e" $ gsl_sf_gammastar_e x | 84 | gammastar_e x = createSFR "gammastar_e" $ gsl_sf_gammastar_e x |
85 | foreign import ccall unsafe "gsl_sf_gammastar_e" gsl_sf_gammastar_e :: Double -> Ptr () -> IO CInt | 85 | foreign import ccall SAFE_CHEAP "gsl_sf_gammastar_e" gsl_sf_gammastar_e :: Double -> Ptr () -> IO CInt |
86 | 86 | ||
87 | gammastar :: Double -> Double | 87 | gammastar :: Double -> Double |
88 | gammastar = gsl_sf_gammastar | 88 | gammastar = gsl_sf_gammastar |
89 | foreign import ccall unsafe "gsl_sf_gammastar" gsl_sf_gammastar :: Double -> Double | 89 | foreign import ccall SAFE_CHEAP "gsl_sf_gammastar" gsl_sf_gammastar :: Double -> Double |
90 | 90 | ||
91 | gammainv_e :: Double -> (Double,Double) | 91 | gammainv_e :: Double -> (Double,Double) |
92 | gammainv_e x = createSFR "gammainv_e" $ gsl_sf_gammainv_e x | 92 | gammainv_e x = createSFR "gammainv_e" $ gsl_sf_gammainv_e x |
93 | foreign import ccall unsafe "gsl_sf_gammainv_e" gsl_sf_gammainv_e :: Double -> Ptr () -> IO CInt | 93 | foreign import ccall SAFE_CHEAP "gsl_sf_gammainv_e" gsl_sf_gammainv_e :: Double -> Ptr () -> IO CInt |
94 | 94 | ||
95 | gammainv :: Double -> Double | 95 | gammainv :: Double -> Double |
96 | gammainv = gsl_sf_gammainv | 96 | gammainv = gsl_sf_gammainv |
97 | foreign import ccall unsafe "gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double | 97 | foreign import ccall SAFE_CHEAP "gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double |
98 | 98 | ||
99 | lngamma_complex_e :: Double -> Double -> ((Double,Double),(Double,Double)) | 99 | lngamma_complex_e :: Double -> Double -> ((Double,Double),(Double,Double)) |
100 | lngamma_complex_e zr zi = create2SFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi | 100 | lngamma_complex_e zr zi = create2SFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi |
101 | foreign import ccall unsafe "gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 101 | foreign import ccall SAFE_CHEAP "gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
102 | 102 | ||
103 | taylorcoeff_e :: CInt -> Double -> (Double,Double) | 103 | taylorcoeff_e :: CInt -> Double -> (Double,Double) |
104 | taylorcoeff_e n x = createSFR "taylorcoeff_e" $ gsl_sf_taylorcoeff_e n x | 104 | taylorcoeff_e n x = createSFR "taylorcoeff_e" $ gsl_sf_taylorcoeff_e n x |
105 | foreign import ccall unsafe "gsl_sf_taylorcoeff_e" gsl_sf_taylorcoeff_e :: CInt -> Double -> Ptr () -> IO CInt | 105 | foreign import ccall SAFE_CHEAP "gsl_sf_taylorcoeff_e" gsl_sf_taylorcoeff_e :: CInt -> Double -> Ptr () -> IO CInt |
106 | 106 | ||
107 | taylorcoeff :: CInt -> Double -> Double | 107 | taylorcoeff :: CInt -> Double -> Double |
108 | taylorcoeff = gsl_sf_taylorcoeff | 108 | taylorcoeff = gsl_sf_taylorcoeff |
109 | foreign import ccall unsafe "gsl_sf_taylorcoeff" gsl_sf_taylorcoeff :: CInt -> Double -> Double | 109 | foreign import ccall SAFE_CHEAP "gsl_sf_taylorcoeff" gsl_sf_taylorcoeff :: CInt -> Double -> Double |
110 | 110 | ||
111 | fact_e :: CInt -> (Double,Double) | 111 | fact_e :: CInt -> (Double,Double) |
112 | fact_e n = createSFR "fact_e" $ gsl_sf_fact_e n | 112 | fact_e n = createSFR "fact_e" $ gsl_sf_fact_e n |
113 | foreign import ccall unsafe "gsl_sf_fact_e" gsl_sf_fact_e :: CInt -> Ptr () -> IO CInt | 113 | foreign import ccall SAFE_CHEAP "gsl_sf_fact_e" gsl_sf_fact_e :: CInt -> Ptr () -> IO CInt |
114 | 114 | ||
115 | fact :: CInt -> Double | 115 | fact :: CInt -> Double |
116 | fact = gsl_sf_fact | 116 | fact = gsl_sf_fact |
117 | foreign import ccall unsafe "gsl_sf_fact" gsl_sf_fact :: CInt -> Double | 117 | foreign import ccall SAFE_CHEAP "gsl_sf_fact" gsl_sf_fact :: CInt -> Double |
118 | 118 | ||
119 | doublefact_e :: CInt -> (Double,Double) | 119 | doublefact_e :: CInt -> (Double,Double) |
120 | doublefact_e n = createSFR "doublefact_e" $ gsl_sf_doublefact_e n | 120 | doublefact_e n = createSFR "doublefact_e" $ gsl_sf_doublefact_e n |
121 | foreign import ccall unsafe "gsl_sf_doublefact_e" gsl_sf_doublefact_e :: CInt -> Ptr () -> IO CInt | 121 | foreign import ccall SAFE_CHEAP "gsl_sf_doublefact_e" gsl_sf_doublefact_e :: CInt -> Ptr () -> IO CInt |
122 | 122 | ||
123 | doublefact :: CInt -> Double | 123 | doublefact :: CInt -> Double |
124 | doublefact = gsl_sf_doublefact | 124 | doublefact = gsl_sf_doublefact |
125 | foreign import ccall unsafe "gsl_sf_doublefact" gsl_sf_doublefact :: CInt -> Double | 125 | foreign import ccall SAFE_CHEAP "gsl_sf_doublefact" gsl_sf_doublefact :: CInt -> Double |
126 | 126 | ||
127 | lnfact_e :: CInt -> (Double,Double) | 127 | lnfact_e :: CInt -> (Double,Double) |
128 | lnfact_e n = createSFR "lnfact_e" $ gsl_sf_lnfact_e n | 128 | lnfact_e n = createSFR "lnfact_e" $ gsl_sf_lnfact_e n |
129 | foreign import ccall unsafe "gsl_sf_lnfact_e" gsl_sf_lnfact_e :: CInt -> Ptr () -> IO CInt | 129 | foreign import ccall SAFE_CHEAP "gsl_sf_lnfact_e" gsl_sf_lnfact_e :: CInt -> Ptr () -> IO CInt |
130 | 130 | ||
131 | lnfact :: CInt -> Double | 131 | lnfact :: CInt -> Double |
132 | lnfact = gsl_sf_lnfact | 132 | lnfact = gsl_sf_lnfact |
133 | foreign import ccall unsafe "gsl_sf_lnfact" gsl_sf_lnfact :: CInt -> Double | 133 | foreign import ccall SAFE_CHEAP "gsl_sf_lnfact" gsl_sf_lnfact :: CInt -> Double |
134 | 134 | ||
135 | lndoublefact_e :: CInt -> (Double,Double) | 135 | lndoublefact_e :: CInt -> (Double,Double) |
136 | lndoublefact_e n = createSFR "lndoublefact_e" $ gsl_sf_lndoublefact_e n | 136 | lndoublefact_e n = createSFR "lndoublefact_e" $ gsl_sf_lndoublefact_e n |
137 | foreign import ccall unsafe "gsl_sf_lndoublefact_e" gsl_sf_lndoublefact_e :: CInt -> Ptr () -> IO CInt | 137 | foreign import ccall SAFE_CHEAP "gsl_sf_lndoublefact_e" gsl_sf_lndoublefact_e :: CInt -> Ptr () -> IO CInt |
138 | 138 | ||
139 | lndoublefact :: CInt -> Double | 139 | lndoublefact :: CInt -> Double |
140 | lndoublefact = gsl_sf_lndoublefact | 140 | lndoublefact = gsl_sf_lndoublefact |
141 | foreign import ccall unsafe "gsl_sf_lndoublefact" gsl_sf_lndoublefact :: CInt -> Double | 141 | foreign import ccall SAFE_CHEAP "gsl_sf_lndoublefact" gsl_sf_lndoublefact :: CInt -> Double |
142 | 142 | ||
143 | lnchoose_e :: CInt -> CInt -> (Double,Double) | 143 | lnchoose_e :: CInt -> CInt -> (Double,Double) |
144 | lnchoose_e n m = createSFR "lnchoose_e" $ gsl_sf_lnchoose_e n m | 144 | lnchoose_e n m = createSFR "lnchoose_e" $ gsl_sf_lnchoose_e n m |
145 | foreign import ccall unsafe "gsl_sf_lnchoose_e" gsl_sf_lnchoose_e :: CInt -> CInt -> Ptr () -> IO CInt | 145 | foreign import ccall SAFE_CHEAP "gsl_sf_lnchoose_e" gsl_sf_lnchoose_e :: CInt -> CInt -> Ptr () -> IO CInt |
146 | 146 | ||
147 | lnchoose :: CInt -> CInt -> Double | 147 | lnchoose :: CInt -> CInt -> Double |
148 | lnchoose = gsl_sf_lnchoose | 148 | lnchoose = gsl_sf_lnchoose |
149 | foreign import ccall unsafe "gsl_sf_lnchoose" gsl_sf_lnchoose :: CInt -> CInt -> Double | 149 | foreign import ccall SAFE_CHEAP "gsl_sf_lnchoose" gsl_sf_lnchoose :: CInt -> CInt -> Double |
150 | 150 | ||
151 | choose_e :: CInt -> CInt -> (Double,Double) | 151 | choose_e :: CInt -> CInt -> (Double,Double) |
152 | choose_e n m = createSFR "choose_e" $ gsl_sf_choose_e n m | 152 | choose_e n m = createSFR "choose_e" $ gsl_sf_choose_e n m |
153 | foreign import ccall unsafe "gsl_sf_choose_e" gsl_sf_choose_e :: CInt -> CInt -> Ptr () -> IO CInt | 153 | foreign import ccall SAFE_CHEAP "gsl_sf_choose_e" gsl_sf_choose_e :: CInt -> CInt -> Ptr () -> IO CInt |
154 | 154 | ||
155 | choose :: CInt -> CInt -> Double | 155 | choose :: CInt -> CInt -> Double |
156 | choose = gsl_sf_choose | 156 | choose = gsl_sf_choose |
157 | foreign import ccall unsafe "gsl_sf_choose" gsl_sf_choose :: CInt -> CInt -> Double | 157 | foreign import ccall SAFE_CHEAP "gsl_sf_choose" gsl_sf_choose :: CInt -> CInt -> Double |
158 | 158 | ||
159 | lnpoch_e :: Double -> Double -> (Double,Double) | 159 | lnpoch_e :: Double -> Double -> (Double,Double) |
160 | lnpoch_e a x = createSFR "lnpoch_e" $ gsl_sf_lnpoch_e a x | 160 | lnpoch_e a x = createSFR "lnpoch_e" $ gsl_sf_lnpoch_e a x |
161 | foreign import ccall unsafe "gsl_sf_lnpoch_e" gsl_sf_lnpoch_e :: Double -> Double -> Ptr () -> IO CInt | 161 | foreign import ccall SAFE_CHEAP "gsl_sf_lnpoch_e" gsl_sf_lnpoch_e :: Double -> Double -> Ptr () -> IO CInt |
162 | 162 | ||
163 | lnpoch :: Double -> Double -> Double | 163 | lnpoch :: Double -> Double -> Double |
164 | lnpoch = gsl_sf_lnpoch | 164 | lnpoch = gsl_sf_lnpoch |
165 | foreign import ccall unsafe "gsl_sf_lnpoch" gsl_sf_lnpoch :: Double -> Double -> Double | 165 | foreign import ccall SAFE_CHEAP "gsl_sf_lnpoch" gsl_sf_lnpoch :: Double -> Double -> Double |
166 | 166 | ||
167 | lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt | 167 | lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt |
168 | lnpoch_sgn_e = gsl_sf_lnpoch_sgn_e | 168 | lnpoch_sgn_e = gsl_sf_lnpoch_sgn_e |
169 | foreign import ccall unsafe "gsl_sf_lnpoch_sgn_e" gsl_sf_lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt | 169 | foreign import ccall SAFE_CHEAP "gsl_sf_lnpoch_sgn_e" gsl_sf_lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt |
170 | 170 | ||
171 | poch_e :: Double -> Double -> (Double,Double) | 171 | poch_e :: Double -> Double -> (Double,Double) |
172 | poch_e a x = createSFR "poch_e" $ gsl_sf_poch_e a x | 172 | poch_e a x = createSFR "poch_e" $ gsl_sf_poch_e a x |
173 | foreign import ccall unsafe "gsl_sf_poch_e" gsl_sf_poch_e :: Double -> Double -> Ptr () -> IO CInt | 173 | foreign import ccall SAFE_CHEAP "gsl_sf_poch_e" gsl_sf_poch_e :: Double -> Double -> Ptr () -> IO CInt |
174 | 174 | ||
175 | poch :: Double -> Double -> Double | 175 | poch :: Double -> Double -> Double |
176 | poch = gsl_sf_poch | 176 | poch = gsl_sf_poch |
177 | foreign import ccall unsafe "gsl_sf_poch" gsl_sf_poch :: Double -> Double -> Double | 177 | foreign import ccall SAFE_CHEAP "gsl_sf_poch" gsl_sf_poch :: Double -> Double -> Double |
178 | 178 | ||
179 | pochrel_e :: Double -> Double -> (Double,Double) | 179 | pochrel_e :: Double -> Double -> (Double,Double) |
180 | pochrel_e a x = createSFR "pochrel_e" $ gsl_sf_pochrel_e a x | 180 | pochrel_e a x = createSFR "pochrel_e" $ gsl_sf_pochrel_e a x |
181 | foreign import ccall unsafe "gsl_sf_pochrel_e" gsl_sf_pochrel_e :: Double -> Double -> Ptr () -> IO CInt | 181 | foreign import ccall SAFE_CHEAP "gsl_sf_pochrel_e" gsl_sf_pochrel_e :: Double -> Double -> Ptr () -> IO CInt |
182 | 182 | ||
183 | pochrel :: Double -> Double -> Double | 183 | pochrel :: Double -> Double -> Double |
184 | pochrel = gsl_sf_pochrel | 184 | pochrel = gsl_sf_pochrel |
185 | foreign import ccall unsafe "gsl_sf_pochrel" gsl_sf_pochrel :: Double -> Double -> Double | 185 | foreign import ccall SAFE_CHEAP "gsl_sf_pochrel" gsl_sf_pochrel :: Double -> Double -> Double |
186 | 186 | ||
187 | gamma_inc_Q_e :: Double -> Double -> (Double,Double) | 187 | gamma_inc_Q_e :: Double -> Double -> (Double,Double) |
188 | gamma_inc_Q_e a x = createSFR "gamma_inc_Q_e" $ gsl_sf_gamma_inc_Q_e a x | 188 | gamma_inc_Q_e a x = createSFR "gamma_inc_Q_e" $ gsl_sf_gamma_inc_Q_e a x |
189 | foreign import ccall unsafe "gsl_sf_gamma_inc_Q_e" gsl_sf_gamma_inc_Q_e :: Double -> Double -> Ptr () -> IO CInt | 189 | foreign import ccall SAFE_CHEAP "gsl_sf_gamma_inc_Q_e" gsl_sf_gamma_inc_Q_e :: Double -> Double -> Ptr () -> IO CInt |
190 | 190 | ||
191 | gamma_inc_Q :: Double -> Double -> Double | 191 | gamma_inc_Q :: Double -> Double -> Double |
192 | gamma_inc_Q = gsl_sf_gamma_inc_Q | 192 | gamma_inc_Q = gsl_sf_gamma_inc_Q |
193 | foreign import ccall unsafe "gsl_sf_gamma_inc_Q" gsl_sf_gamma_inc_Q :: Double -> Double -> Double | 193 | foreign import ccall SAFE_CHEAP "gsl_sf_gamma_inc_Q" gsl_sf_gamma_inc_Q :: Double -> Double -> Double |
194 | 194 | ||
195 | gamma_inc_P_e :: Double -> Double -> (Double,Double) | 195 | gamma_inc_P_e :: Double -> Double -> (Double,Double) |
196 | gamma_inc_P_e a x = createSFR "gamma_inc_P_e" $ gsl_sf_gamma_inc_P_e a x | 196 | gamma_inc_P_e a x = createSFR "gamma_inc_P_e" $ gsl_sf_gamma_inc_P_e a x |
197 | foreign import ccall unsafe "gsl_sf_gamma_inc_P_e" gsl_sf_gamma_inc_P_e :: Double -> Double -> Ptr () -> IO CInt | 197 | foreign import ccall SAFE_CHEAP "gsl_sf_gamma_inc_P_e" gsl_sf_gamma_inc_P_e :: Double -> Double -> Ptr () -> IO CInt |
198 | 198 | ||
199 | gamma_inc_P :: Double -> Double -> Double | 199 | gamma_inc_P :: Double -> Double -> Double |
200 | gamma_inc_P = gsl_sf_gamma_inc_P | 200 | gamma_inc_P = gsl_sf_gamma_inc_P |
201 | foreign import ccall unsafe "gsl_sf_gamma_inc_P" gsl_sf_gamma_inc_P :: Double -> Double -> Double | 201 | foreign import ccall SAFE_CHEAP "gsl_sf_gamma_inc_P" gsl_sf_gamma_inc_P :: Double -> Double -> Double |
202 | 202 | ||
203 | gamma_inc_e :: Double -> Double -> (Double,Double) | 203 | gamma_inc_e :: Double -> Double -> (Double,Double) |
204 | gamma_inc_e a x = createSFR "gamma_inc_e" $ gsl_sf_gamma_inc_e a x | 204 | gamma_inc_e a x = createSFR "gamma_inc_e" $ gsl_sf_gamma_inc_e a x |
205 | foreign import ccall unsafe "gsl_sf_gamma_inc_e" gsl_sf_gamma_inc_e :: Double -> Double -> Ptr () -> IO CInt | 205 | foreign import ccall SAFE_CHEAP "gsl_sf_gamma_inc_e" gsl_sf_gamma_inc_e :: Double -> Double -> Ptr () -> IO CInt |
206 | 206 | ||
207 | gamma_inc :: Double -> Double -> Double | 207 | gamma_inc :: Double -> Double -> Double |
208 | gamma_inc = gsl_sf_gamma_inc | 208 | gamma_inc = gsl_sf_gamma_inc |
209 | foreign import ccall unsafe "gsl_sf_gamma_inc" gsl_sf_gamma_inc :: Double -> Double -> Double | 209 | foreign import ccall SAFE_CHEAP "gsl_sf_gamma_inc" gsl_sf_gamma_inc :: Double -> Double -> Double |
210 | 210 | ||
211 | lnbeta_e :: Double -> Double -> (Double,Double) | 211 | lnbeta_e :: Double -> Double -> (Double,Double) |
212 | lnbeta_e a b = createSFR "lnbeta_e" $ gsl_sf_lnbeta_e a b | 212 | lnbeta_e a b = createSFR "lnbeta_e" $ gsl_sf_lnbeta_e a b |
213 | foreign import ccall unsafe "gsl_sf_lnbeta_e" gsl_sf_lnbeta_e :: Double -> Double -> Ptr () -> IO CInt | 213 | foreign import ccall SAFE_CHEAP "gsl_sf_lnbeta_e" gsl_sf_lnbeta_e :: Double -> Double -> Ptr () -> IO CInt |
214 | 214 | ||
215 | lnbeta :: Double -> Double -> Double | 215 | lnbeta :: Double -> Double -> Double |
216 | lnbeta = gsl_sf_lnbeta | 216 | lnbeta = gsl_sf_lnbeta |
217 | foreign import ccall unsafe "gsl_sf_lnbeta" gsl_sf_lnbeta :: Double -> Double -> Double | 217 | foreign import ccall SAFE_CHEAP "gsl_sf_lnbeta" gsl_sf_lnbeta :: Double -> Double -> Double |
218 | 218 | ||
219 | lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt | 219 | lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt |
220 | lnbeta_sgn_e = gsl_sf_lnbeta_sgn_e | 220 | lnbeta_sgn_e = gsl_sf_lnbeta_sgn_e |
221 | foreign import ccall unsafe "gsl_sf_lnbeta_sgn_e" gsl_sf_lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt | 221 | foreign import ccall SAFE_CHEAP "gsl_sf_lnbeta_sgn_e" gsl_sf_lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt |
222 | 222 | ||
223 | beta_e :: Double -> Double -> (Double,Double) | 223 | beta_e :: Double -> Double -> (Double,Double) |
224 | beta_e a b = createSFR "beta_e" $ gsl_sf_beta_e a b | 224 | beta_e a b = createSFR "beta_e" $ gsl_sf_beta_e a b |
225 | foreign import ccall unsafe "gsl_sf_beta_e" gsl_sf_beta_e :: Double -> Double -> Ptr () -> IO CInt | 225 | foreign import ccall SAFE_CHEAP "gsl_sf_beta_e" gsl_sf_beta_e :: Double -> Double -> Ptr () -> IO CInt |
226 | 226 | ||
227 | beta :: Double -> Double -> Double | 227 | beta :: Double -> Double -> Double |
228 | beta = gsl_sf_beta | 228 | beta = gsl_sf_beta |
229 | foreign import ccall unsafe "gsl_sf_beta" gsl_sf_beta :: Double -> Double -> Double | 229 | foreign import ccall SAFE_CHEAP "gsl_sf_beta" gsl_sf_beta :: Double -> Double -> Double |
230 | 230 | ||
231 | beta_inc_e :: Double -> Double -> Double -> (Double,Double) | 231 | beta_inc_e :: Double -> Double -> Double -> (Double,Double) |
232 | beta_inc_e a b x = createSFR "beta_inc_e" $ gsl_sf_beta_inc_e a b x | 232 | beta_inc_e a b x = createSFR "beta_inc_e" $ gsl_sf_beta_inc_e a b x |
233 | foreign import ccall unsafe "gsl_sf_beta_inc_e" gsl_sf_beta_inc_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 233 | foreign import ccall SAFE_CHEAP "gsl_sf_beta_inc_e" gsl_sf_beta_inc_e :: Double -> Double -> Double -> Ptr () -> IO CInt |
234 | 234 | ||
235 | beta_inc :: Double -> Double -> Double -> Double | 235 | beta_inc :: Double -> Double -> Double -> Double |
236 | beta_inc = gsl_sf_beta_inc | 236 | beta_inc = gsl_sf_beta_inc |
237 | foreign import ccall unsafe "gsl_sf_beta_inc" gsl_sf_beta_inc :: Double -> Double -> Double -> Double | 237 | foreign import ccall SAFE_CHEAP "gsl_sf_beta_inc" gsl_sf_beta_inc :: Double -> Double -> Double -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Gegenbauer.hs b/packages/special/lib/Numeric/GSL/Special/Gegenbauer.hs index bf8c08e..a3c998a 100644 --- a/packages/special/lib/Numeric/GSL/Special/Gegenbauer.hs +++ b/packages/special/lib/Numeric/GSL/Special/Gegenbauer.hs | |||
@@ -29,36 +29,36 @@ import Numeric.GSL.Special.Internal | |||
29 | 29 | ||
30 | gegenpoly_1_e :: Double -> Double -> (Double,Double) | 30 | gegenpoly_1_e :: Double -> Double -> (Double,Double) |
31 | gegenpoly_1_e lambda x = createSFR "gegenpoly_1_e" $ gsl_sf_gegenpoly_1_e lambda x | 31 | gegenpoly_1_e lambda x = createSFR "gegenpoly_1_e" $ gsl_sf_gegenpoly_1_e lambda x |
32 | foreign import ccall unsafe "gsl_sf_gegenpoly_1_e" gsl_sf_gegenpoly_1_e :: Double -> Double -> Ptr () -> IO CInt | 32 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_1_e" gsl_sf_gegenpoly_1_e :: Double -> Double -> Ptr () -> IO CInt |
33 | 33 | ||
34 | gegenpoly_2_e :: Double -> Double -> (Double,Double) | 34 | gegenpoly_2_e :: Double -> Double -> (Double,Double) |
35 | gegenpoly_2_e lambda x = createSFR "gegenpoly_2_e" $ gsl_sf_gegenpoly_2_e lambda x | 35 | gegenpoly_2_e lambda x = createSFR "gegenpoly_2_e" $ gsl_sf_gegenpoly_2_e lambda x |
36 | foreign import ccall unsafe "gsl_sf_gegenpoly_2_e" gsl_sf_gegenpoly_2_e :: Double -> Double -> Ptr () -> IO CInt | 36 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_2_e" gsl_sf_gegenpoly_2_e :: Double -> Double -> Ptr () -> IO CInt |
37 | 37 | ||
38 | gegenpoly_3_e :: Double -> Double -> (Double,Double) | 38 | gegenpoly_3_e :: Double -> Double -> (Double,Double) |
39 | gegenpoly_3_e lambda x = createSFR "gegenpoly_3_e" $ gsl_sf_gegenpoly_3_e lambda x | 39 | gegenpoly_3_e lambda x = createSFR "gegenpoly_3_e" $ gsl_sf_gegenpoly_3_e lambda x |
40 | foreign import ccall unsafe "gsl_sf_gegenpoly_3_e" gsl_sf_gegenpoly_3_e :: Double -> Double -> Ptr () -> IO CInt | 40 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_3_e" gsl_sf_gegenpoly_3_e :: Double -> Double -> Ptr () -> IO CInt |
41 | 41 | ||
42 | gegenpoly_1 :: Double -> Double -> Double | 42 | gegenpoly_1 :: Double -> Double -> Double |
43 | gegenpoly_1 = gsl_sf_gegenpoly_1 | 43 | gegenpoly_1 = gsl_sf_gegenpoly_1 |
44 | foreign import ccall unsafe "gsl_sf_gegenpoly_1" gsl_sf_gegenpoly_1 :: Double -> Double -> Double | 44 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_1" gsl_sf_gegenpoly_1 :: Double -> Double -> Double |
45 | 45 | ||
46 | gegenpoly_2 :: Double -> Double -> Double | 46 | gegenpoly_2 :: Double -> Double -> Double |
47 | gegenpoly_2 = gsl_sf_gegenpoly_2 | 47 | gegenpoly_2 = gsl_sf_gegenpoly_2 |
48 | foreign import ccall unsafe "gsl_sf_gegenpoly_2" gsl_sf_gegenpoly_2 :: Double -> Double -> Double | 48 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_2" gsl_sf_gegenpoly_2 :: Double -> Double -> Double |
49 | 49 | ||
50 | gegenpoly_3 :: Double -> Double -> Double | 50 | gegenpoly_3 :: Double -> Double -> Double |
51 | gegenpoly_3 = gsl_sf_gegenpoly_3 | 51 | gegenpoly_3 = gsl_sf_gegenpoly_3 |
52 | foreign import ccall unsafe "gsl_sf_gegenpoly_3" gsl_sf_gegenpoly_3 :: Double -> Double -> Double | 52 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_3" gsl_sf_gegenpoly_3 :: Double -> Double -> Double |
53 | 53 | ||
54 | gegenpoly_n_e :: CInt -> Double -> Double -> (Double,Double) | 54 | gegenpoly_n_e :: CInt -> Double -> Double -> (Double,Double) |
55 | gegenpoly_n_e n lambda x = createSFR "gegenpoly_n_e" $ gsl_sf_gegenpoly_n_e n lambda x | 55 | gegenpoly_n_e n lambda x = createSFR "gegenpoly_n_e" $ gsl_sf_gegenpoly_n_e n lambda x |
56 | foreign import ccall unsafe "gsl_sf_gegenpoly_n_e" gsl_sf_gegenpoly_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 56 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_n_e" gsl_sf_gegenpoly_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt |
57 | 57 | ||
58 | gegenpoly_n :: CInt -> Double -> Double -> Double | 58 | gegenpoly_n :: CInt -> Double -> Double -> Double |
59 | gegenpoly_n = gsl_sf_gegenpoly_n | 59 | gegenpoly_n = gsl_sf_gegenpoly_n |
60 | foreign import ccall unsafe "gsl_sf_gegenpoly_n" gsl_sf_gegenpoly_n :: CInt -> Double -> Double -> Double | 60 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_n" gsl_sf_gegenpoly_n :: CInt -> Double -> Double -> Double |
61 | 61 | ||
62 | gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt | 62 | gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt |
63 | gegenpoly_array = gsl_sf_gegenpoly_array | 63 | gegenpoly_array = gsl_sf_gegenpoly_array |
64 | foreign import ccall unsafe "gsl_sf_gegenpoly_array" gsl_sf_gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt | 64 | foreign import ccall SAFE_CHEAP "gsl_sf_gegenpoly_array" gsl_sf_gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt |
diff --git a/packages/special/lib/Numeric/GSL/Special/Hyperg.hs b/packages/special/lib/Numeric/GSL/Special/Hyperg.hs index ec974a4..ac237a5 100644 --- a/packages/special/lib/Numeric/GSL/Special/Hyperg.hs +++ b/packages/special/lib/Numeric/GSL/Special/Hyperg.hs | |||
@@ -43,88 +43,88 @@ import Numeric.GSL.Special.Internal | |||
43 | 43 | ||
44 | hyperg_0F1_e :: Double -> Double -> (Double,Double) | 44 | hyperg_0F1_e :: Double -> Double -> (Double,Double) |
45 | hyperg_0F1_e c x = createSFR "hyperg_0F1_e" $ gsl_sf_hyperg_0F1_e c x | 45 | hyperg_0F1_e c x = createSFR "hyperg_0F1_e" $ gsl_sf_hyperg_0F1_e c x |
46 | foreign import ccall unsafe "gsl_sf_hyperg_0F1_e" gsl_sf_hyperg_0F1_e :: Double -> Double -> Ptr () -> IO CInt | 46 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_0F1_e" gsl_sf_hyperg_0F1_e :: Double -> Double -> Ptr () -> IO CInt |
47 | 47 | ||
48 | hyperg_0F1 :: Double -> Double -> Double | 48 | hyperg_0F1 :: Double -> Double -> Double |
49 | hyperg_0F1 = gsl_sf_hyperg_0F1 | 49 | hyperg_0F1 = gsl_sf_hyperg_0F1 |
50 | foreign import ccall unsafe "gsl_sf_hyperg_0F1" gsl_sf_hyperg_0F1 :: Double -> Double -> Double | 50 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_0F1" gsl_sf_hyperg_0F1 :: Double -> Double -> Double |
51 | 51 | ||
52 | hyperg_1F1_int_e :: CInt -> CInt -> Double -> (Double,Double) | 52 | hyperg_1F1_int_e :: CInt -> CInt -> Double -> (Double,Double) |
53 | hyperg_1F1_int_e m n x = createSFR "hyperg_1F1_int_e" $ gsl_sf_hyperg_1F1_int_e m n x | 53 | hyperg_1F1_int_e m n x = createSFR "hyperg_1F1_int_e" $ gsl_sf_hyperg_1F1_int_e m n x |
54 | foreign import ccall unsafe "gsl_sf_hyperg_1F1_int_e" gsl_sf_hyperg_1F1_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 54 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_1F1_int_e" gsl_sf_hyperg_1F1_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt |
55 | 55 | ||
56 | hyperg_1F1_int :: CInt -> CInt -> Double -> Double | 56 | hyperg_1F1_int :: CInt -> CInt -> Double -> Double |
57 | hyperg_1F1_int = gsl_sf_hyperg_1F1_int | 57 | hyperg_1F1_int = gsl_sf_hyperg_1F1_int |
58 | foreign import ccall unsafe "gsl_sf_hyperg_1F1_int" gsl_sf_hyperg_1F1_int :: CInt -> CInt -> Double -> Double | 58 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_1F1_int" gsl_sf_hyperg_1F1_int :: CInt -> CInt -> Double -> Double |
59 | 59 | ||
60 | hyperg_1F1_e :: Double -> Double -> Double -> (Double,Double) | 60 | hyperg_1F1_e :: Double -> Double -> Double -> (Double,Double) |
61 | hyperg_1F1_e a b x = createSFR "hyperg_1F1_e" $ gsl_sf_hyperg_1F1_e a b x | 61 | hyperg_1F1_e a b x = createSFR "hyperg_1F1_e" $ gsl_sf_hyperg_1F1_e a b x |
62 | foreign import ccall unsafe "gsl_sf_hyperg_1F1_e" gsl_sf_hyperg_1F1_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 62 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_1F1_e" gsl_sf_hyperg_1F1_e :: Double -> Double -> Double -> Ptr () -> IO CInt |
63 | 63 | ||
64 | hyperg_1F1 :: Double -> Double -> Double -> Double | 64 | hyperg_1F1 :: Double -> Double -> Double -> Double |
65 | hyperg_1F1 = gsl_sf_hyperg_1F1 | 65 | hyperg_1F1 = gsl_sf_hyperg_1F1 |
66 | foreign import ccall unsafe "gsl_sf_hyperg_1F1" gsl_sf_hyperg_1F1 :: Double -> Double -> Double -> Double | 66 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_1F1" gsl_sf_hyperg_1F1 :: Double -> Double -> Double -> Double |
67 | 67 | ||
68 | hyperg_U_int_e :: CInt -> CInt -> Double -> (Double,Double) | 68 | hyperg_U_int_e :: CInt -> CInt -> Double -> (Double,Double) |
69 | hyperg_U_int_e m n x = createSFR "hyperg_U_int_e" $ gsl_sf_hyperg_U_int_e m n x | 69 | hyperg_U_int_e m n x = createSFR "hyperg_U_int_e" $ gsl_sf_hyperg_U_int_e m n x |
70 | foreign import ccall unsafe "gsl_sf_hyperg_U_int_e" gsl_sf_hyperg_U_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 70 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_U_int_e" gsl_sf_hyperg_U_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt |
71 | 71 | ||
72 | hyperg_U_int :: CInt -> CInt -> Double -> Double | 72 | hyperg_U_int :: CInt -> CInt -> Double -> Double |
73 | hyperg_U_int = gsl_sf_hyperg_U_int | 73 | hyperg_U_int = gsl_sf_hyperg_U_int |
74 | foreign import ccall unsafe "gsl_sf_hyperg_U_int" gsl_sf_hyperg_U_int :: CInt -> CInt -> Double -> Double | 74 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_U_int" gsl_sf_hyperg_U_int :: CInt -> CInt -> Double -> Double |
75 | 75 | ||
76 | hyperg_U_int_e10_e :: CInt -> CInt -> Double -> (Double,Int,Double) | 76 | hyperg_U_int_e10_e :: CInt -> CInt -> Double -> (Double,Int,Double) |
77 | hyperg_U_int_e10_e m n x = createSFR_E10 "hyperg_U_int_e10_e" $ gsl_sf_hyperg_U_int_e10_e m n x | 77 | hyperg_U_int_e10_e m n x = createSFR_E10 "hyperg_U_int_e10_e" $ gsl_sf_hyperg_U_int_e10_e m n x |
78 | foreign import ccall unsafe "gsl_sf_hyperg_U_int_e10_e" gsl_sf_hyperg_U_int_e10_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 78 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_U_int_e10_e" gsl_sf_hyperg_U_int_e10_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt |
79 | 79 | ||
80 | hyperg_U_e :: Double -> Double -> Double -> (Double,Double) | 80 | hyperg_U_e :: Double -> Double -> Double -> (Double,Double) |
81 | hyperg_U_e a b x = createSFR "hyperg_U_e" $ gsl_sf_hyperg_U_e a b x | 81 | hyperg_U_e a b x = createSFR "hyperg_U_e" $ gsl_sf_hyperg_U_e a b x |
82 | foreign import ccall unsafe "gsl_sf_hyperg_U_e" gsl_sf_hyperg_U_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 82 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_U_e" gsl_sf_hyperg_U_e :: Double -> Double -> Double -> Ptr () -> IO CInt |
83 | 83 | ||
84 | hyperg_U :: Double -> Double -> Double -> Double | 84 | hyperg_U :: Double -> Double -> Double -> Double |
85 | hyperg_U = gsl_sf_hyperg_U | 85 | hyperg_U = gsl_sf_hyperg_U |
86 | foreign import ccall unsafe "gsl_sf_hyperg_U" gsl_sf_hyperg_U :: Double -> Double -> Double -> Double | 86 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_U" gsl_sf_hyperg_U :: Double -> Double -> Double -> Double |
87 | 87 | ||
88 | hyperg_U_e10_e :: Double -> Double -> Double -> (Double,Int,Double) | 88 | hyperg_U_e10_e :: Double -> Double -> Double -> (Double,Int,Double) |
89 | hyperg_U_e10_e a b x = createSFR_E10 "hyperg_U_e10_e" $ gsl_sf_hyperg_U_e10_e a b x | 89 | hyperg_U_e10_e a b x = createSFR_E10 "hyperg_U_e10_e" $ gsl_sf_hyperg_U_e10_e a b x |
90 | foreign import ccall unsafe "gsl_sf_hyperg_U_e10_e" gsl_sf_hyperg_U_e10_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 90 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_U_e10_e" gsl_sf_hyperg_U_e10_e :: Double -> Double -> Double -> Ptr () -> IO CInt |
91 | 91 | ||
92 | hyperg_2F1_e :: Double -> Double -> Double -> Double -> (Double,Double) | 92 | hyperg_2F1_e :: Double -> Double -> Double -> Double -> (Double,Double) |
93 | hyperg_2F1_e a b c x = createSFR "hyperg_2F1_e" $ gsl_sf_hyperg_2F1_e a b c x | 93 | hyperg_2F1_e a b c x = createSFR "hyperg_2F1_e" $ gsl_sf_hyperg_2F1_e a b c x |
94 | foreign import ccall unsafe "gsl_sf_hyperg_2F1_e" gsl_sf_hyperg_2F1_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 94 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F1_e" gsl_sf_hyperg_2F1_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
95 | 95 | ||
96 | hyperg_2F1 :: Double -> Double -> Double -> Double -> Double | 96 | hyperg_2F1 :: Double -> Double -> Double -> Double -> Double |
97 | hyperg_2F1 = gsl_sf_hyperg_2F1 | 97 | hyperg_2F1 = gsl_sf_hyperg_2F1 |
98 | foreign import ccall unsafe "gsl_sf_hyperg_2F1" gsl_sf_hyperg_2F1 :: Double -> Double -> Double -> Double -> Double | 98 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F1" gsl_sf_hyperg_2F1 :: Double -> Double -> Double -> Double -> Double |
99 | 99 | ||
100 | hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> (Double,Double) | 100 | hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> (Double,Double) |
101 | hyperg_2F1_conj_e aR aI c x = createSFR "hyperg_2F1_conj_e" $ gsl_sf_hyperg_2F1_conj_e aR aI c x | 101 | hyperg_2F1_conj_e aR aI c x = createSFR "hyperg_2F1_conj_e" $ gsl_sf_hyperg_2F1_conj_e aR aI c x |
102 | foreign import ccall unsafe "gsl_sf_hyperg_2F1_conj_e" gsl_sf_hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 102 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F1_conj_e" gsl_sf_hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
103 | 103 | ||
104 | hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double | 104 | hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double |
105 | hyperg_2F1_conj = gsl_sf_hyperg_2F1_conj | 105 | hyperg_2F1_conj = gsl_sf_hyperg_2F1_conj |
106 | foreign import ccall unsafe "gsl_sf_hyperg_2F1_conj" gsl_sf_hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double | 106 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F1_conj" gsl_sf_hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double |
107 | 107 | ||
108 | hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) | 108 | hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) |
109 | hyperg_2F1_renorm_e a b c x = createSFR "hyperg_2F1_renorm_e" $ gsl_sf_hyperg_2F1_renorm_e a b c x | 109 | hyperg_2F1_renorm_e a b c x = createSFR "hyperg_2F1_renorm_e" $ gsl_sf_hyperg_2F1_renorm_e a b c x |
110 | foreign import ccall unsafe "gsl_sf_hyperg_2F1_renorm_e" gsl_sf_hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 110 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F1_renorm_e" gsl_sf_hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
111 | 111 | ||
112 | hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double | 112 | hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double |
113 | hyperg_2F1_renorm = gsl_sf_hyperg_2F1_renorm | 113 | hyperg_2F1_renorm = gsl_sf_hyperg_2F1_renorm |
114 | foreign import ccall unsafe "gsl_sf_hyperg_2F1_renorm" gsl_sf_hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double | 114 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F1_renorm" gsl_sf_hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double |
115 | 115 | ||
116 | hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) | 116 | hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) |
117 | hyperg_2F1_conj_renorm_e aR aI c x = createSFR "hyperg_2F1_conj_renorm_e" $ gsl_sf_hyperg_2F1_conj_renorm_e aR aI c x | 117 | hyperg_2F1_conj_renorm_e aR aI c x = createSFR "hyperg_2F1_conj_renorm_e" $ gsl_sf_hyperg_2F1_conj_renorm_e aR aI c x |
118 | foreign import ccall unsafe "gsl_sf_hyperg_2F1_conj_renorm_e" gsl_sf_hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 118 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F1_conj_renorm_e" gsl_sf_hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
119 | 119 | ||
120 | hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double | 120 | hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double |
121 | hyperg_2F1_conj_renorm = gsl_sf_hyperg_2F1_conj_renorm | 121 | hyperg_2F1_conj_renorm = gsl_sf_hyperg_2F1_conj_renorm |
122 | foreign import ccall unsafe "gsl_sf_hyperg_2F1_conj_renorm" gsl_sf_hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double | 122 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F1_conj_renorm" gsl_sf_hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double |
123 | 123 | ||
124 | hyperg_2F0_e :: Double -> Double -> Double -> (Double,Double) | 124 | hyperg_2F0_e :: Double -> Double -> Double -> (Double,Double) |
125 | hyperg_2F0_e a b x = createSFR "hyperg_2F0_e" $ gsl_sf_hyperg_2F0_e a b x | 125 | hyperg_2F0_e a b x = createSFR "hyperg_2F0_e" $ gsl_sf_hyperg_2F0_e a b x |
126 | foreign import ccall unsafe "gsl_sf_hyperg_2F0_e" gsl_sf_hyperg_2F0_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 126 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F0_e" gsl_sf_hyperg_2F0_e :: Double -> Double -> Double -> Ptr () -> IO CInt |
127 | 127 | ||
128 | hyperg_2F0 :: Double -> Double -> Double -> Double | 128 | hyperg_2F0 :: Double -> Double -> Double -> Double |
129 | hyperg_2F0 = gsl_sf_hyperg_2F0 | 129 | hyperg_2F0 = gsl_sf_hyperg_2F0 |
130 | foreign import ccall unsafe "gsl_sf_hyperg_2F0" gsl_sf_hyperg_2F0 :: Double -> Double -> Double -> Double | 130 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F0" gsl_sf_hyperg_2F0 :: Double -> Double -> Double -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Laguerre.hs b/packages/special/lib/Numeric/GSL/Special/Laguerre.hs index 4110601..28b3d20 100644 --- a/packages/special/lib/Numeric/GSL/Special/Laguerre.hs +++ b/packages/special/lib/Numeric/GSL/Special/Laguerre.hs | |||
@@ -29,32 +29,32 @@ import Numeric.GSL.Special.Internal | |||
29 | 29 | ||
30 | laguerre_1_e :: Double -> Double -> (Double,Double) | 30 | laguerre_1_e :: Double -> Double -> (Double,Double) |
31 | laguerre_1_e a x = createSFR "laguerre_1_e" $ gsl_sf_laguerre_1_e a x | 31 | laguerre_1_e a x = createSFR "laguerre_1_e" $ gsl_sf_laguerre_1_e a x |
32 | foreign import ccall unsafe "gsl_sf_laguerre_1_e" gsl_sf_laguerre_1_e :: Double -> Double -> Ptr () -> IO CInt | 32 | foreign import ccall SAFE_CHEAP "gsl_sf_laguerre_1_e" gsl_sf_laguerre_1_e :: Double -> Double -> Ptr () -> IO CInt |
33 | 33 | ||
34 | laguerre_2_e :: Double -> Double -> (Double,Double) | 34 | laguerre_2_e :: Double -> Double -> (Double,Double) |
35 | laguerre_2_e a x = createSFR "laguerre_2_e" $ gsl_sf_laguerre_2_e a x | 35 | laguerre_2_e a x = createSFR "laguerre_2_e" $ gsl_sf_laguerre_2_e a x |
36 | foreign import ccall unsafe "gsl_sf_laguerre_2_e" gsl_sf_laguerre_2_e :: Double -> Double -> Ptr () -> IO CInt | 36 | foreign import ccall SAFE_CHEAP "gsl_sf_laguerre_2_e" gsl_sf_laguerre_2_e :: Double -> Double -> Ptr () -> IO CInt |
37 | 37 | ||
38 | laguerre_3_e :: Double -> Double -> (Double,Double) | 38 | laguerre_3_e :: Double -> Double -> (Double,Double) |
39 | laguerre_3_e a x = createSFR "laguerre_3_e" $ gsl_sf_laguerre_3_e a x | 39 | laguerre_3_e a x = createSFR "laguerre_3_e" $ gsl_sf_laguerre_3_e a x |
40 | foreign import ccall unsafe "gsl_sf_laguerre_3_e" gsl_sf_laguerre_3_e :: Double -> Double -> Ptr () -> IO CInt | 40 | foreign import ccall SAFE_CHEAP "gsl_sf_laguerre_3_e" gsl_sf_laguerre_3_e :: Double -> Double -> Ptr () -> IO CInt |
41 | 41 | ||
42 | laguerre_1 :: Double -> Double -> Double | 42 | laguerre_1 :: Double -> Double -> Double |
43 | laguerre_1 = gsl_sf_laguerre_1 | 43 | laguerre_1 = gsl_sf_laguerre_1 |
44 | foreign import ccall unsafe "gsl_sf_laguerre_1" gsl_sf_laguerre_1 :: Double -> Double -> Double | 44 | foreign import ccall SAFE_CHEAP "gsl_sf_laguerre_1" gsl_sf_laguerre_1 :: Double -> Double -> Double |
45 | 45 | ||
46 | laguerre_2 :: Double -> Double -> Double | 46 | laguerre_2 :: Double -> Double -> Double |
47 | laguerre_2 = gsl_sf_laguerre_2 | 47 | laguerre_2 = gsl_sf_laguerre_2 |
48 | foreign import ccall unsafe "gsl_sf_laguerre_2" gsl_sf_laguerre_2 :: Double -> Double -> Double | 48 | foreign import ccall SAFE_CHEAP "gsl_sf_laguerre_2" gsl_sf_laguerre_2 :: Double -> Double -> Double |
49 | 49 | ||
50 | laguerre_3 :: Double -> Double -> Double | 50 | laguerre_3 :: Double -> Double -> Double |
51 | laguerre_3 = gsl_sf_laguerre_3 | 51 | laguerre_3 = gsl_sf_laguerre_3 |
52 | foreign import ccall unsafe "gsl_sf_laguerre_3" gsl_sf_laguerre_3 :: Double -> Double -> Double | 52 | foreign import ccall SAFE_CHEAP "gsl_sf_laguerre_3" gsl_sf_laguerre_3 :: Double -> Double -> Double |
53 | 53 | ||
54 | laguerre_n_e :: CInt -> Double -> Double -> (Double,Double) | 54 | laguerre_n_e :: CInt -> Double -> Double -> (Double,Double) |
55 | laguerre_n_e n a x = createSFR "laguerre_n_e" $ gsl_sf_laguerre_n_e n a x | 55 | laguerre_n_e n a x = createSFR "laguerre_n_e" $ gsl_sf_laguerre_n_e n a x |
56 | foreign import ccall unsafe "gsl_sf_laguerre_n_e" gsl_sf_laguerre_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 56 | foreign import ccall SAFE_CHEAP "gsl_sf_laguerre_n_e" gsl_sf_laguerre_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt |
57 | 57 | ||
58 | laguerre_n :: CInt -> Double -> Double -> Double | 58 | laguerre_n :: CInt -> Double -> Double -> Double |
59 | laguerre_n = gsl_sf_laguerre_n | 59 | laguerre_n = gsl_sf_laguerre_n |
60 | foreign import ccall unsafe "gsl_sf_laguerre_n" gsl_sf_laguerre_n :: CInt -> Double -> Double -> Double | 60 | foreign import ccall SAFE_CHEAP "gsl_sf_laguerre_n" gsl_sf_laguerre_n :: CInt -> Double -> Double -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Lambert.hs b/packages/special/lib/Numeric/GSL/Special/Lambert.hs index 381f54c..44fbfb1 100644 --- a/packages/special/lib/Numeric/GSL/Special/Lambert.hs +++ b/packages/special/lib/Numeric/GSL/Special/Lambert.hs | |||
@@ -25,16 +25,16 @@ import Numeric.GSL.Special.Internal | |||
25 | 25 | ||
26 | lambert_W0_e :: Double -> (Double,Double) | 26 | lambert_W0_e :: Double -> (Double,Double) |
27 | lambert_W0_e x = createSFR "lambert_W0_e" $ gsl_sf_lambert_W0_e x | 27 | lambert_W0_e x = createSFR "lambert_W0_e" $ gsl_sf_lambert_W0_e x |
28 | foreign import ccall unsafe "gsl_sf_lambert_W0_e" gsl_sf_lambert_W0_e :: Double -> Ptr () -> IO CInt | 28 | foreign import ccall SAFE_CHEAP "gsl_sf_lambert_W0_e" gsl_sf_lambert_W0_e :: Double -> Ptr () -> IO CInt |
29 | 29 | ||
30 | lambert_W0 :: Double -> Double | 30 | lambert_W0 :: Double -> Double |
31 | lambert_W0 = gsl_sf_lambert_W0 | 31 | lambert_W0 = gsl_sf_lambert_W0 |
32 | foreign import ccall unsafe "gsl_sf_lambert_W0" gsl_sf_lambert_W0 :: Double -> Double | 32 | foreign import ccall SAFE_CHEAP "gsl_sf_lambert_W0" gsl_sf_lambert_W0 :: Double -> Double |
33 | 33 | ||
34 | lambert_Wm1_e :: Double -> (Double,Double) | 34 | lambert_Wm1_e :: Double -> (Double,Double) |
35 | lambert_Wm1_e x = createSFR "lambert_Wm1_e" $ gsl_sf_lambert_Wm1_e x | 35 | lambert_Wm1_e x = createSFR "lambert_Wm1_e" $ gsl_sf_lambert_Wm1_e x |
36 | foreign import ccall unsafe "gsl_sf_lambert_Wm1_e" gsl_sf_lambert_Wm1_e :: Double -> Ptr () -> IO CInt | 36 | foreign import ccall SAFE_CHEAP "gsl_sf_lambert_Wm1_e" gsl_sf_lambert_Wm1_e :: Double -> Ptr () -> IO CInt |
37 | 37 | ||
38 | lambert_Wm1 :: Double -> Double | 38 | lambert_Wm1 :: Double -> Double |
39 | lambert_Wm1 = gsl_sf_lambert_Wm1 | 39 | lambert_Wm1 = gsl_sf_lambert_Wm1 |
40 | foreign import ccall unsafe "gsl_sf_lambert_Wm1" gsl_sf_lambert_Wm1 :: Double -> Double | 40 | foreign import ccall SAFE_CHEAP "gsl_sf_lambert_Wm1" gsl_sf_lambert_Wm1 :: Double -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Legendre.hs b/packages/special/lib/Numeric/GSL/Special/Legendre.hs index 380c43c..cb33e2e 100644 --- a/packages/special/lib/Numeric/GSL/Special/Legendre.hs +++ b/packages/special/lib/Numeric/GSL/Special/Legendre.hs | |||
@@ -58,176 +58,176 @@ import Numeric.GSL.Special.Internal | |||
58 | 58 | ||
59 | legendre_Pl_e :: CInt -> Double -> (Double,Double) | 59 | legendre_Pl_e :: CInt -> Double -> (Double,Double) |
60 | legendre_Pl_e l x = createSFR "legendre_Pl_e" $ gsl_sf_legendre_Pl_e l x | 60 | legendre_Pl_e l x = createSFR "legendre_Pl_e" $ gsl_sf_legendre_Pl_e l x |
61 | foreign import ccall unsafe "gsl_sf_legendre_Pl_e" gsl_sf_legendre_Pl_e :: CInt -> Double -> Ptr () -> IO CInt | 61 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Pl_e" gsl_sf_legendre_Pl_e :: CInt -> Double -> Ptr () -> IO CInt |
62 | 62 | ||
63 | legendre_Pl :: CInt -> Double -> Double | 63 | legendre_Pl :: CInt -> Double -> Double |
64 | legendre_Pl = gsl_sf_legendre_Pl | 64 | legendre_Pl = gsl_sf_legendre_Pl |
65 | foreign import ccall unsafe "gsl_sf_legendre_Pl" gsl_sf_legendre_Pl :: CInt -> Double -> Double | 65 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Pl" gsl_sf_legendre_Pl :: CInt -> Double -> Double |
66 | 66 | ||
67 | legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt | 67 | legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt |
68 | legendre_Pl_array = gsl_sf_legendre_Pl_array | 68 | legendre_Pl_array = gsl_sf_legendre_Pl_array |
69 | foreign import ccall unsafe "gsl_sf_legendre_Pl_array" gsl_sf_legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt | 69 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Pl_array" gsl_sf_legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt |
70 | 70 | ||
71 | legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 71 | legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
72 | legendre_Pl_deriv_array = gsl_sf_legendre_Pl_deriv_array | 72 | legendre_Pl_deriv_array = gsl_sf_legendre_Pl_deriv_array |
73 | foreign import ccall unsafe "gsl_sf_legendre_Pl_deriv_array" gsl_sf_legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 73 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Pl_deriv_array" gsl_sf_legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
74 | 74 | ||
75 | legendre_P1_e :: Double -> (Double,Double) | 75 | legendre_P1_e :: Double -> (Double,Double) |
76 | legendre_P1_e x = createSFR "legendre_P1_e" $ gsl_sf_legendre_P1_e x | 76 | legendre_P1_e x = createSFR "legendre_P1_e" $ gsl_sf_legendre_P1_e x |
77 | foreign import ccall unsafe "gsl_sf_legendre_P1_e" gsl_sf_legendre_P1_e :: Double -> Ptr () -> IO CInt | 77 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_P1_e" gsl_sf_legendre_P1_e :: Double -> Ptr () -> IO CInt |
78 | 78 | ||
79 | legendre_P2_e :: Double -> (Double,Double) | 79 | legendre_P2_e :: Double -> (Double,Double) |
80 | legendre_P2_e x = createSFR "legendre_P2_e" $ gsl_sf_legendre_P2_e x | 80 | legendre_P2_e x = createSFR "legendre_P2_e" $ gsl_sf_legendre_P2_e x |
81 | foreign import ccall unsafe "gsl_sf_legendre_P2_e" gsl_sf_legendre_P2_e :: Double -> Ptr () -> IO CInt | 81 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_P2_e" gsl_sf_legendre_P2_e :: Double -> Ptr () -> IO CInt |
82 | 82 | ||
83 | legendre_P3_e :: Double -> (Double,Double) | 83 | legendre_P3_e :: Double -> (Double,Double) |
84 | legendre_P3_e x = createSFR "legendre_P3_e" $ gsl_sf_legendre_P3_e x | 84 | legendre_P3_e x = createSFR "legendre_P3_e" $ gsl_sf_legendre_P3_e x |
85 | foreign import ccall unsafe "gsl_sf_legendre_P3_e" gsl_sf_legendre_P3_e :: Double -> Ptr () -> IO CInt | 85 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_P3_e" gsl_sf_legendre_P3_e :: Double -> Ptr () -> IO CInt |
86 | 86 | ||
87 | legendre_P1 :: Double -> Double | 87 | legendre_P1 :: Double -> Double |
88 | legendre_P1 = gsl_sf_legendre_P1 | 88 | legendre_P1 = gsl_sf_legendre_P1 |
89 | foreign import ccall unsafe "gsl_sf_legendre_P1" gsl_sf_legendre_P1 :: Double -> Double | 89 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_P1" gsl_sf_legendre_P1 :: Double -> Double |
90 | 90 | ||
91 | legendre_P2 :: Double -> Double | 91 | legendre_P2 :: Double -> Double |
92 | legendre_P2 = gsl_sf_legendre_P2 | 92 | legendre_P2 = gsl_sf_legendre_P2 |
93 | foreign import ccall unsafe "gsl_sf_legendre_P2" gsl_sf_legendre_P2 :: Double -> Double | 93 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_P2" gsl_sf_legendre_P2 :: Double -> Double |
94 | 94 | ||
95 | legendre_P3 :: Double -> Double | 95 | legendre_P3 :: Double -> Double |
96 | legendre_P3 = gsl_sf_legendre_P3 | 96 | legendre_P3 = gsl_sf_legendre_P3 |
97 | foreign import ccall unsafe "gsl_sf_legendre_P3" gsl_sf_legendre_P3 :: Double -> Double | 97 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_P3" gsl_sf_legendre_P3 :: Double -> Double |
98 | 98 | ||
99 | legendre_Q0_e :: Double -> (Double,Double) | 99 | legendre_Q0_e :: Double -> (Double,Double) |
100 | legendre_Q0_e x = createSFR "legendre_Q0_e" $ gsl_sf_legendre_Q0_e x | 100 | legendre_Q0_e x = createSFR "legendre_Q0_e" $ gsl_sf_legendre_Q0_e x |
101 | foreign import ccall unsafe "gsl_sf_legendre_Q0_e" gsl_sf_legendre_Q0_e :: Double -> Ptr () -> IO CInt | 101 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Q0_e" gsl_sf_legendre_Q0_e :: Double -> Ptr () -> IO CInt |
102 | 102 | ||
103 | legendre_Q0 :: Double -> Double | 103 | legendre_Q0 :: Double -> Double |
104 | legendre_Q0 = gsl_sf_legendre_Q0 | 104 | legendre_Q0 = gsl_sf_legendre_Q0 |
105 | foreign import ccall unsafe "gsl_sf_legendre_Q0" gsl_sf_legendre_Q0 :: Double -> Double | 105 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Q0" gsl_sf_legendre_Q0 :: Double -> Double |
106 | 106 | ||
107 | legendre_Q1_e :: Double -> (Double,Double) | 107 | legendre_Q1_e :: Double -> (Double,Double) |
108 | legendre_Q1_e x = createSFR "legendre_Q1_e" $ gsl_sf_legendre_Q1_e x | 108 | legendre_Q1_e x = createSFR "legendre_Q1_e" $ gsl_sf_legendre_Q1_e x |
109 | foreign import ccall unsafe "gsl_sf_legendre_Q1_e" gsl_sf_legendre_Q1_e :: Double -> Ptr () -> IO CInt | 109 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Q1_e" gsl_sf_legendre_Q1_e :: Double -> Ptr () -> IO CInt |
110 | 110 | ||
111 | legendre_Q1 :: Double -> Double | 111 | legendre_Q1 :: Double -> Double |
112 | legendre_Q1 = gsl_sf_legendre_Q1 | 112 | legendre_Q1 = gsl_sf_legendre_Q1 |
113 | foreign import ccall unsafe "gsl_sf_legendre_Q1" gsl_sf_legendre_Q1 :: Double -> Double | 113 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Q1" gsl_sf_legendre_Q1 :: Double -> Double |
114 | 114 | ||
115 | legendre_Ql_e :: CInt -> Double -> (Double,Double) | 115 | legendre_Ql_e :: CInt -> Double -> (Double,Double) |
116 | legendre_Ql_e l x = createSFR "legendre_Ql_e" $ gsl_sf_legendre_Ql_e l x | 116 | legendre_Ql_e l x = createSFR "legendre_Ql_e" $ gsl_sf_legendre_Ql_e l x |
117 | foreign import ccall unsafe "gsl_sf_legendre_Ql_e" gsl_sf_legendre_Ql_e :: CInt -> Double -> Ptr () -> IO CInt | 117 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Ql_e" gsl_sf_legendre_Ql_e :: CInt -> Double -> Ptr () -> IO CInt |
118 | 118 | ||
119 | legendre_Ql :: CInt -> Double -> Double | 119 | legendre_Ql :: CInt -> Double -> Double |
120 | legendre_Ql = gsl_sf_legendre_Ql | 120 | legendre_Ql = gsl_sf_legendre_Ql |
121 | foreign import ccall unsafe "gsl_sf_legendre_Ql" gsl_sf_legendre_Ql :: CInt -> Double -> Double | 121 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Ql" gsl_sf_legendre_Ql :: CInt -> Double -> Double |
122 | 122 | ||
123 | legendre_Plm_e :: CInt -> CInt -> Double -> (Double,Double) | 123 | legendre_Plm_e :: CInt -> CInt -> Double -> (Double,Double) |
124 | legendre_Plm_e l m x = createSFR "legendre_Plm_e" $ gsl_sf_legendre_Plm_e l m x | 124 | legendre_Plm_e l m x = createSFR "legendre_Plm_e" $ gsl_sf_legendre_Plm_e l m x |
125 | foreign import ccall unsafe "gsl_sf_legendre_Plm_e" gsl_sf_legendre_Plm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 125 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Plm_e" gsl_sf_legendre_Plm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt |
126 | 126 | ||
127 | legendre_Plm :: CInt -> CInt -> Double -> Double | 127 | legendre_Plm :: CInt -> CInt -> Double -> Double |
128 | legendre_Plm = gsl_sf_legendre_Plm | 128 | legendre_Plm = gsl_sf_legendre_Plm |
129 | foreign import ccall unsafe "gsl_sf_legendre_Plm" gsl_sf_legendre_Plm :: CInt -> CInt -> Double -> Double | 129 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Plm" gsl_sf_legendre_Plm :: CInt -> CInt -> Double -> Double |
130 | 130 | ||
131 | legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 131 | legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
132 | legendre_Plm_array = gsl_sf_legendre_Plm_array | 132 | legendre_Plm_array = gsl_sf_legendre_Plm_array |
133 | foreign import ccall unsafe "gsl_sf_legendre_Plm_array" gsl_sf_legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 133 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Plm_array" gsl_sf_legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
134 | 134 | ||
135 | legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 135 | legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
136 | legendre_Plm_deriv_array = gsl_sf_legendre_Plm_deriv_array | 136 | legendre_Plm_deriv_array = gsl_sf_legendre_Plm_deriv_array |
137 | foreign import ccall unsafe "gsl_sf_legendre_Plm_deriv_array" gsl_sf_legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 137 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Plm_deriv_array" gsl_sf_legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
138 | 138 | ||
139 | legendre_sphPlm_e :: CInt -> CInt -> Double -> (Double,Double) | 139 | legendre_sphPlm_e :: CInt -> CInt -> Double -> (Double,Double) |
140 | legendre_sphPlm_e l m x = createSFR "legendre_sphPlm_e" $ gsl_sf_legendre_sphPlm_e l m x | 140 | legendre_sphPlm_e l m x = createSFR "legendre_sphPlm_e" $ gsl_sf_legendre_sphPlm_e l m x |
141 | foreign import ccall unsafe "gsl_sf_legendre_sphPlm_e" gsl_sf_legendre_sphPlm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 141 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_sphPlm_e" gsl_sf_legendre_sphPlm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt |
142 | 142 | ||
143 | legendre_sphPlm :: CInt -> CInt -> Double -> Double | 143 | legendre_sphPlm :: CInt -> CInt -> Double -> Double |
144 | legendre_sphPlm = gsl_sf_legendre_sphPlm | 144 | legendre_sphPlm = gsl_sf_legendre_sphPlm |
145 | foreign import ccall unsafe "gsl_sf_legendre_sphPlm" gsl_sf_legendre_sphPlm :: CInt -> CInt -> Double -> Double | 145 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_sphPlm" gsl_sf_legendre_sphPlm :: CInt -> CInt -> Double -> Double |
146 | 146 | ||
147 | legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 147 | legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
148 | legendre_sphPlm_array = gsl_sf_legendre_sphPlm_array | 148 | legendre_sphPlm_array = gsl_sf_legendre_sphPlm_array |
149 | foreign import ccall unsafe "gsl_sf_legendre_sphPlm_array" gsl_sf_legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 149 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_sphPlm_array" gsl_sf_legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
150 | 150 | ||
151 | legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 151 | legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
152 | legendre_sphPlm_deriv_array = gsl_sf_legendre_sphPlm_deriv_array | 152 | legendre_sphPlm_deriv_array = gsl_sf_legendre_sphPlm_deriv_array |
153 | foreign import ccall unsafe "gsl_sf_legendre_sphPlm_deriv_array" gsl_sf_legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 153 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_sphPlm_deriv_array" gsl_sf_legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
154 | 154 | ||
155 | legendre_array_size :: CInt -> CInt -> CInt | 155 | legendre_array_size :: CInt -> CInt -> CInt |
156 | legendre_array_size = gsl_sf_legendre_array_size | 156 | legendre_array_size = gsl_sf_legendre_array_size |
157 | foreign import ccall unsafe "gsl_sf_legendre_array_size" gsl_sf_legendre_array_size :: CInt -> CInt -> CInt | 157 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_array_size" gsl_sf_legendre_array_size :: CInt -> CInt -> CInt |
158 | 158 | ||
159 | conicalP_half_e :: Double -> Double -> (Double,Double) | 159 | conicalP_half_e :: Double -> Double -> (Double,Double) |
160 | conicalP_half_e lambda x = createSFR "conicalP_half_e" $ gsl_sf_conicalP_half_e lambda x | 160 | conicalP_half_e lambda x = createSFR "conicalP_half_e" $ gsl_sf_conicalP_half_e lambda x |
161 | foreign import ccall unsafe "gsl_sf_conicalP_half_e" gsl_sf_conicalP_half_e :: Double -> Double -> Ptr () -> IO CInt | 161 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_half_e" gsl_sf_conicalP_half_e :: Double -> Double -> Ptr () -> IO CInt |
162 | 162 | ||
163 | conicalP_half :: Double -> Double -> Double | 163 | conicalP_half :: Double -> Double -> Double |
164 | conicalP_half = gsl_sf_conicalP_half | 164 | conicalP_half = gsl_sf_conicalP_half |
165 | foreign import ccall unsafe "gsl_sf_conicalP_half" gsl_sf_conicalP_half :: Double -> Double -> Double | 165 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_half" gsl_sf_conicalP_half :: Double -> Double -> Double |
166 | 166 | ||
167 | conicalP_mhalf_e :: Double -> Double -> (Double,Double) | 167 | conicalP_mhalf_e :: Double -> Double -> (Double,Double) |
168 | conicalP_mhalf_e lambda x = createSFR "conicalP_mhalf_e" $ gsl_sf_conicalP_mhalf_e lambda x | 168 | conicalP_mhalf_e lambda x = createSFR "conicalP_mhalf_e" $ gsl_sf_conicalP_mhalf_e lambda x |
169 | foreign import ccall unsafe "gsl_sf_conicalP_mhalf_e" gsl_sf_conicalP_mhalf_e :: Double -> Double -> Ptr () -> IO CInt | 169 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_mhalf_e" gsl_sf_conicalP_mhalf_e :: Double -> Double -> Ptr () -> IO CInt |
170 | 170 | ||
171 | conicalP_mhalf :: Double -> Double -> Double | 171 | conicalP_mhalf :: Double -> Double -> Double |
172 | conicalP_mhalf = gsl_sf_conicalP_mhalf | 172 | conicalP_mhalf = gsl_sf_conicalP_mhalf |
173 | foreign import ccall unsafe "gsl_sf_conicalP_mhalf" gsl_sf_conicalP_mhalf :: Double -> Double -> Double | 173 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_mhalf" gsl_sf_conicalP_mhalf :: Double -> Double -> Double |
174 | 174 | ||
175 | conicalP_0_e :: Double -> Double -> (Double,Double) | 175 | conicalP_0_e :: Double -> Double -> (Double,Double) |
176 | conicalP_0_e lambda x = createSFR "conicalP_0_e" $ gsl_sf_conicalP_0_e lambda x | 176 | conicalP_0_e lambda x = createSFR "conicalP_0_e" $ gsl_sf_conicalP_0_e lambda x |
177 | foreign import ccall unsafe "gsl_sf_conicalP_0_e" gsl_sf_conicalP_0_e :: Double -> Double -> Ptr () -> IO CInt | 177 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_0_e" gsl_sf_conicalP_0_e :: Double -> Double -> Ptr () -> IO CInt |
178 | 178 | ||
179 | conicalP_0 :: Double -> Double -> Double | 179 | conicalP_0 :: Double -> Double -> Double |
180 | conicalP_0 = gsl_sf_conicalP_0 | 180 | conicalP_0 = gsl_sf_conicalP_0 |
181 | foreign import ccall unsafe "gsl_sf_conicalP_0" gsl_sf_conicalP_0 :: Double -> Double -> Double | 181 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_0" gsl_sf_conicalP_0 :: Double -> Double -> Double |
182 | 182 | ||
183 | conicalP_1_e :: Double -> Double -> (Double,Double) | 183 | conicalP_1_e :: Double -> Double -> (Double,Double) |
184 | conicalP_1_e lambda x = createSFR "conicalP_1_e" $ gsl_sf_conicalP_1_e lambda x | 184 | conicalP_1_e lambda x = createSFR "conicalP_1_e" $ gsl_sf_conicalP_1_e lambda x |
185 | foreign import ccall unsafe "gsl_sf_conicalP_1_e" gsl_sf_conicalP_1_e :: Double -> Double -> Ptr () -> IO CInt | 185 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_1_e" gsl_sf_conicalP_1_e :: Double -> Double -> Ptr () -> IO CInt |
186 | 186 | ||
187 | conicalP_1 :: Double -> Double -> Double | 187 | conicalP_1 :: Double -> Double -> Double |
188 | conicalP_1 = gsl_sf_conicalP_1 | 188 | conicalP_1 = gsl_sf_conicalP_1 |
189 | foreign import ccall unsafe "gsl_sf_conicalP_1" gsl_sf_conicalP_1 :: Double -> Double -> Double | 189 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_1" gsl_sf_conicalP_1 :: Double -> Double -> Double |
190 | 190 | ||
191 | conicalP_sph_reg_e :: CInt -> Double -> Double -> (Double,Double) | 191 | conicalP_sph_reg_e :: CInt -> Double -> Double -> (Double,Double) |
192 | conicalP_sph_reg_e l lambda x = createSFR "conicalP_sph_reg_e" $ gsl_sf_conicalP_sph_reg_e l lambda x | 192 | conicalP_sph_reg_e l lambda x = createSFR "conicalP_sph_reg_e" $ gsl_sf_conicalP_sph_reg_e l lambda x |
193 | foreign import ccall unsafe "gsl_sf_conicalP_sph_reg_e" gsl_sf_conicalP_sph_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 193 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_sph_reg_e" gsl_sf_conicalP_sph_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt |
194 | 194 | ||
195 | conicalP_sph_reg :: CInt -> Double -> Double -> Double | 195 | conicalP_sph_reg :: CInt -> Double -> Double -> Double |
196 | conicalP_sph_reg = gsl_sf_conicalP_sph_reg | 196 | conicalP_sph_reg = gsl_sf_conicalP_sph_reg |
197 | foreign import ccall unsafe "gsl_sf_conicalP_sph_reg" gsl_sf_conicalP_sph_reg :: CInt -> Double -> Double -> Double | 197 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_sph_reg" gsl_sf_conicalP_sph_reg :: CInt -> Double -> Double -> Double |
198 | 198 | ||
199 | conicalP_cyl_reg_e :: CInt -> Double -> Double -> (Double,Double) | 199 | conicalP_cyl_reg_e :: CInt -> Double -> Double -> (Double,Double) |
200 | conicalP_cyl_reg_e m lambda x = createSFR "conicalP_cyl_reg_e" $ gsl_sf_conicalP_cyl_reg_e m lambda x | 200 | conicalP_cyl_reg_e m lambda x = createSFR "conicalP_cyl_reg_e" $ gsl_sf_conicalP_cyl_reg_e m lambda x |
201 | foreign import ccall unsafe "gsl_sf_conicalP_cyl_reg_e" gsl_sf_conicalP_cyl_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 201 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_cyl_reg_e" gsl_sf_conicalP_cyl_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt |
202 | 202 | ||
203 | conicalP_cyl_reg :: CInt -> Double -> Double -> Double | 203 | conicalP_cyl_reg :: CInt -> Double -> Double -> Double |
204 | conicalP_cyl_reg = gsl_sf_conicalP_cyl_reg | 204 | conicalP_cyl_reg = gsl_sf_conicalP_cyl_reg |
205 | foreign import ccall unsafe "gsl_sf_conicalP_cyl_reg" gsl_sf_conicalP_cyl_reg :: CInt -> Double -> Double -> Double | 205 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_cyl_reg" gsl_sf_conicalP_cyl_reg :: CInt -> Double -> Double -> Double |
206 | 206 | ||
207 | legendre_H3d_0_e :: Double -> Double -> (Double,Double) | 207 | legendre_H3d_0_e :: Double -> Double -> (Double,Double) |
208 | legendre_H3d_0_e lambda eta = createSFR "legendre_H3d_0_e" $ gsl_sf_legendre_H3d_0_e lambda eta | 208 | legendre_H3d_0_e lambda eta = createSFR "legendre_H3d_0_e" $ gsl_sf_legendre_H3d_0_e lambda eta |
209 | foreign import ccall unsafe "gsl_sf_legendre_H3d_0_e" gsl_sf_legendre_H3d_0_e :: Double -> Double -> Ptr () -> IO CInt | 209 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_H3d_0_e" gsl_sf_legendre_H3d_0_e :: Double -> Double -> Ptr () -> IO CInt |
210 | 210 | ||
211 | legendre_H3d_0 :: Double -> Double -> Double | 211 | legendre_H3d_0 :: Double -> Double -> Double |
212 | legendre_H3d_0 = gsl_sf_legendre_H3d_0 | 212 | legendre_H3d_0 = gsl_sf_legendre_H3d_0 |
213 | foreign import ccall unsafe "gsl_sf_legendre_H3d_0" gsl_sf_legendre_H3d_0 :: Double -> Double -> Double | 213 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_H3d_0" gsl_sf_legendre_H3d_0 :: Double -> Double -> Double |
214 | 214 | ||
215 | legendre_H3d_1_e :: Double -> Double -> (Double,Double) | 215 | legendre_H3d_1_e :: Double -> Double -> (Double,Double) |
216 | legendre_H3d_1_e lambda eta = createSFR "legendre_H3d_1_e" $ gsl_sf_legendre_H3d_1_e lambda eta | 216 | legendre_H3d_1_e lambda eta = createSFR "legendre_H3d_1_e" $ gsl_sf_legendre_H3d_1_e lambda eta |
217 | foreign import ccall unsafe "gsl_sf_legendre_H3d_1_e" gsl_sf_legendre_H3d_1_e :: Double -> Double -> Ptr () -> IO CInt | 217 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_H3d_1_e" gsl_sf_legendre_H3d_1_e :: Double -> Double -> Ptr () -> IO CInt |
218 | 218 | ||
219 | legendre_H3d_1 :: Double -> Double -> Double | 219 | legendre_H3d_1 :: Double -> Double -> Double |
220 | legendre_H3d_1 = gsl_sf_legendre_H3d_1 | 220 | legendre_H3d_1 = gsl_sf_legendre_H3d_1 |
221 | foreign import ccall unsafe "gsl_sf_legendre_H3d_1" gsl_sf_legendre_H3d_1 :: Double -> Double -> Double | 221 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_H3d_1" gsl_sf_legendre_H3d_1 :: Double -> Double -> Double |
222 | 222 | ||
223 | legendre_H3d_e :: CInt -> Double -> Double -> (Double,Double) | 223 | legendre_H3d_e :: CInt -> Double -> Double -> (Double,Double) |
224 | legendre_H3d_e l lambda eta = createSFR "legendre_H3d_e" $ gsl_sf_legendre_H3d_e l lambda eta | 224 | legendre_H3d_e l lambda eta = createSFR "legendre_H3d_e" $ gsl_sf_legendre_H3d_e l lambda eta |
225 | foreign import ccall unsafe "gsl_sf_legendre_H3d_e" gsl_sf_legendre_H3d_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 225 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_H3d_e" gsl_sf_legendre_H3d_e :: CInt -> Double -> Double -> Ptr () -> IO CInt |
226 | 226 | ||
227 | legendre_H3d :: CInt -> Double -> Double -> Double | 227 | legendre_H3d :: CInt -> Double -> Double -> Double |
228 | legendre_H3d = gsl_sf_legendre_H3d | 228 | legendre_H3d = gsl_sf_legendre_H3d |
229 | foreign import ccall unsafe "gsl_sf_legendre_H3d" gsl_sf_legendre_H3d :: CInt -> Double -> Double -> Double | 229 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_H3d" gsl_sf_legendre_H3d :: CInt -> Double -> Double -> Double |
230 | 230 | ||
231 | legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt | 231 | legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt |
232 | legendre_H3d_array = gsl_sf_legendre_H3d_array | 232 | legendre_H3d_array = gsl_sf_legendre_H3d_array |
233 | foreign import ccall unsafe "gsl_sf_legendre_H3d_array" gsl_sf_legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt | 233 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_H3d_array" gsl_sf_legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt |
diff --git a/packages/special/lib/Numeric/GSL/Special/Log.hs b/packages/special/lib/Numeric/GSL/Special/Log.hs index bbc88fe..3becf15 100644 --- a/packages/special/lib/Numeric/GSL/Special/Log.hs +++ b/packages/special/lib/Numeric/GSL/Special/Log.hs | |||
@@ -30,36 +30,36 @@ import Numeric.GSL.Special.Internal | |||
30 | 30 | ||
31 | log_e :: Double -> (Double,Double) | 31 | log_e :: Double -> (Double,Double) |
32 | log_e x = createSFR "log_e" $ gsl_sf_log_e x | 32 | log_e x = createSFR "log_e" $ gsl_sf_log_e x |
33 | foreign import ccall unsafe "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt | 33 | foreign import ccall SAFE_CHEAP "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt |
34 | 34 | ||
35 | log :: Double -> Double | 35 | log :: Double -> Double |
36 | log = gsl_sf_log | 36 | log = gsl_sf_log |
37 | foreign import ccall unsafe "gsl_sf_log" gsl_sf_log :: Double -> Double | 37 | foreign import ccall SAFE_CHEAP "gsl_sf_log" gsl_sf_log :: Double -> Double |
38 | 38 | ||
39 | log_abs_e :: Double -> (Double,Double) | 39 | log_abs_e :: Double -> (Double,Double) |
40 | log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x | 40 | log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x |
41 | foreign import ccall unsafe "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt | 41 | foreign import ccall SAFE_CHEAP "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt |
42 | 42 | ||
43 | log_abs :: Double -> Double | 43 | log_abs :: Double -> Double |
44 | log_abs = gsl_sf_log_abs | 44 | log_abs = gsl_sf_log_abs |
45 | foreign import ccall unsafe "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double | 45 | foreign import ccall SAFE_CHEAP "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double |
46 | 46 | ||
47 | complex_log_e :: Double -> Double -> ((Double,Double),(Double,Double)) | 47 | complex_log_e :: Double -> Double -> ((Double,Double),(Double,Double)) |
48 | complex_log_e zr zi = create2SFR "complex_log_e" $ gsl_sf_complex_log_e zr zi | 48 | complex_log_e zr zi = create2SFR "complex_log_e" $ gsl_sf_complex_log_e zr zi |
49 | foreign import ccall unsafe "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 49 | foreign import ccall SAFE_CHEAP "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
50 | 50 | ||
51 | log_1plusx_e :: Double -> (Double,Double) | 51 | log_1plusx_e :: Double -> (Double,Double) |
52 | log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x | 52 | log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x |
53 | foreign import ccall unsafe "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt | 53 | foreign import ccall SAFE_CHEAP "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt |
54 | 54 | ||
55 | log_1plusx :: Double -> Double | 55 | log_1plusx :: Double -> Double |
56 | log_1plusx = gsl_sf_log_1plusx | 56 | log_1plusx = gsl_sf_log_1plusx |
57 | foreign import ccall unsafe "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double | 57 | foreign import ccall SAFE_CHEAP "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double |
58 | 58 | ||
59 | log_1plusx_mx_e :: Double -> (Double,Double) | 59 | log_1plusx_mx_e :: Double -> (Double,Double) |
60 | log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x | 60 | log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x |
61 | foreign import ccall unsafe "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt | 61 | foreign import ccall SAFE_CHEAP "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt |
62 | 62 | ||
63 | log_1plusx_mx :: Double -> Double | 63 | log_1plusx_mx :: Double -> Double |
64 | log_1plusx_mx = gsl_sf_log_1plusx_mx | 64 | log_1plusx_mx = gsl_sf_log_1plusx_mx |
65 | foreign import ccall unsafe "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double | 65 | foreign import ccall SAFE_CHEAP "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Pow_int.hs b/packages/special/lib/Numeric/GSL/Special/Pow_int.hs index b9dcdc3..08fd497 100644 --- a/packages/special/lib/Numeric/GSL/Special/Pow_int.hs +++ b/packages/special/lib/Numeric/GSL/Special/Pow_int.hs | |||
@@ -23,8 +23,8 @@ import Numeric.GSL.Special.Internal | |||
23 | 23 | ||
24 | pow_int_e :: Double -> CInt -> (Double,Double) | 24 | pow_int_e :: Double -> CInt -> (Double,Double) |
25 | pow_int_e x n = createSFR "pow_int_e" $ gsl_sf_pow_int_e x n | 25 | pow_int_e x n = createSFR "pow_int_e" $ gsl_sf_pow_int_e x n |
26 | foreign import ccall unsafe "gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt | 26 | foreign import ccall SAFE_CHEAP "gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt |
27 | 27 | ||
28 | pow_int :: Double -> CInt -> Double | 28 | pow_int :: Double -> CInt -> Double |
29 | pow_int = gsl_sf_pow_int | 29 | pow_int = gsl_sf_pow_int |
30 | foreign import ccall unsafe "gsl_sf_pow_int" gsl_sf_pow_int :: Double -> CInt -> Double | 30 | foreign import ccall SAFE_CHEAP "gsl_sf_pow_int" gsl_sf_pow_int :: Double -> CInt -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Psi.hs b/packages/special/lib/Numeric/GSL/Special/Psi.hs index 2aede62..da53d1b 100644 --- a/packages/special/lib/Numeric/GSL/Special/Psi.hs +++ b/packages/special/lib/Numeric/GSL/Special/Psi.hs | |||
@@ -34,52 +34,52 @@ import Numeric.GSL.Special.Internal | |||
34 | 34 | ||
35 | psi_int_e :: CInt -> (Double,Double) | 35 | psi_int_e :: CInt -> (Double,Double) |
36 | psi_int_e n = createSFR "psi_int_e" $ gsl_sf_psi_int_e n | 36 | psi_int_e n = createSFR "psi_int_e" $ gsl_sf_psi_int_e n |
37 | foreign import ccall unsafe "gsl_sf_psi_int_e" gsl_sf_psi_int_e :: CInt -> Ptr () -> IO CInt | 37 | foreign import ccall SAFE_CHEAP "gsl_sf_psi_int_e" gsl_sf_psi_int_e :: CInt -> Ptr () -> IO CInt |
38 | 38 | ||
39 | psi_int :: CInt -> Double | 39 | psi_int :: CInt -> Double |
40 | psi_int = gsl_sf_psi_int | 40 | psi_int = gsl_sf_psi_int |
41 | foreign import ccall unsafe "gsl_sf_psi_int" gsl_sf_psi_int :: CInt -> Double | 41 | foreign import ccall SAFE_CHEAP "gsl_sf_psi_int" gsl_sf_psi_int :: CInt -> Double |
42 | 42 | ||
43 | psi_e :: Double -> (Double,Double) | 43 | psi_e :: Double -> (Double,Double) |
44 | psi_e x = createSFR "psi_e" $ gsl_sf_psi_e x | 44 | psi_e x = createSFR "psi_e" $ gsl_sf_psi_e x |
45 | foreign import ccall unsafe "gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr () -> IO CInt | 45 | foreign import ccall SAFE_CHEAP "gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr () -> IO CInt |
46 | 46 | ||
47 | psi :: Double -> Double | 47 | psi :: Double -> Double |
48 | psi = gsl_sf_psi | 48 | psi = gsl_sf_psi |
49 | foreign import ccall unsafe "gsl_sf_psi" gsl_sf_psi :: Double -> Double | 49 | foreign import ccall SAFE_CHEAP "gsl_sf_psi" gsl_sf_psi :: Double -> Double |
50 | 50 | ||
51 | psi_1piy_e :: Double -> (Double,Double) | 51 | psi_1piy_e :: Double -> (Double,Double) |
52 | psi_1piy_e y = createSFR "psi_1piy_e" $ gsl_sf_psi_1piy_e y | 52 | psi_1piy_e y = createSFR "psi_1piy_e" $ gsl_sf_psi_1piy_e y |
53 | foreign import ccall unsafe "gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr () -> IO CInt | 53 | foreign import ccall SAFE_CHEAP "gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr () -> IO CInt |
54 | 54 | ||
55 | psi_1piy :: Double -> Double | 55 | psi_1piy :: Double -> Double |
56 | psi_1piy = gsl_sf_psi_1piy | 56 | psi_1piy = gsl_sf_psi_1piy |
57 | foreign import ccall unsafe "gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double | 57 | foreign import ccall SAFE_CHEAP "gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double |
58 | 58 | ||
59 | complex_psi_e :: Double -> Double -> ((Double,Double),(Double,Double)) | 59 | complex_psi_e :: Double -> Double -> ((Double,Double),(Double,Double)) |
60 | complex_psi_e x y = create2SFR "complex_psi_e" $ gsl_sf_complex_psi_e x y | 60 | complex_psi_e x y = create2SFR "complex_psi_e" $ gsl_sf_complex_psi_e x y |
61 | foreign import ccall unsafe "gsl_sf_complex_psi_e" gsl_sf_complex_psi_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 61 | foreign import ccall SAFE_CHEAP "gsl_sf_complex_psi_e" gsl_sf_complex_psi_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
62 | 62 | ||
63 | psi_1_int_e :: CInt -> (Double,Double) | 63 | psi_1_int_e :: CInt -> (Double,Double) |
64 | psi_1_int_e n = createSFR "psi_1_int_e" $ gsl_sf_psi_1_int_e n | 64 | psi_1_int_e n = createSFR "psi_1_int_e" $ gsl_sf_psi_1_int_e n |
65 | foreign import ccall unsafe "gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: CInt -> Ptr () -> IO CInt | 65 | foreign import ccall SAFE_CHEAP "gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: CInt -> Ptr () -> IO CInt |
66 | 66 | ||
67 | psi_1_int :: CInt -> Double | 67 | psi_1_int :: CInt -> Double |
68 | psi_1_int = gsl_sf_psi_1_int | 68 | psi_1_int = gsl_sf_psi_1_int |
69 | foreign import ccall unsafe "gsl_sf_psi_1_int" gsl_sf_psi_1_int :: CInt -> Double | 69 | foreign import ccall SAFE_CHEAP "gsl_sf_psi_1_int" gsl_sf_psi_1_int :: CInt -> Double |
70 | 70 | ||
71 | psi_1_e :: Double -> (Double,Double) | 71 | psi_1_e :: Double -> (Double,Double) |
72 | psi_1_e x = createSFR "psi_1_e" $ gsl_sf_psi_1_e x | 72 | psi_1_e x = createSFR "psi_1_e" $ gsl_sf_psi_1_e x |
73 | foreign import ccall unsafe "gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr () -> IO CInt | 73 | foreign import ccall SAFE_CHEAP "gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr () -> IO CInt |
74 | 74 | ||
75 | psi_1 :: Double -> Double | 75 | psi_1 :: Double -> Double |
76 | psi_1 = gsl_sf_psi_1 | 76 | psi_1 = gsl_sf_psi_1 |
77 | foreign import ccall unsafe "gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double | 77 | foreign import ccall SAFE_CHEAP "gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double |
78 | 78 | ||
79 | psi_n_e :: CInt -> Double -> (Double,Double) | 79 | psi_n_e :: CInt -> Double -> (Double,Double) |
80 | psi_n_e n x = createSFR "psi_n_e" $ gsl_sf_psi_n_e n x | 80 | psi_n_e n x = createSFR "psi_n_e" $ gsl_sf_psi_n_e n x |
81 | foreign import ccall unsafe "gsl_sf_psi_n_e" gsl_sf_psi_n_e :: CInt -> Double -> Ptr () -> IO CInt | 81 | foreign import ccall SAFE_CHEAP "gsl_sf_psi_n_e" gsl_sf_psi_n_e :: CInt -> Double -> Ptr () -> IO CInt |
82 | 82 | ||
83 | psi_n :: CInt -> Double -> Double | 83 | psi_n :: CInt -> Double -> Double |
84 | psi_n = gsl_sf_psi_n | 84 | psi_n = gsl_sf_psi_n |
85 | foreign import ccall unsafe "gsl_sf_psi_n" gsl_sf_psi_n :: CInt -> Double -> Double | 85 | foreign import ccall SAFE_CHEAP "gsl_sf_psi_n" gsl_sf_psi_n :: CInt -> Double -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Synchrotron.hs b/packages/special/lib/Numeric/GSL/Special/Synchrotron.hs index 06d5967..b3292a6 100644 --- a/packages/special/lib/Numeric/GSL/Special/Synchrotron.hs +++ b/packages/special/lib/Numeric/GSL/Special/Synchrotron.hs | |||
@@ -25,16 +25,16 @@ import Numeric.GSL.Special.Internal | |||
25 | 25 | ||
26 | synchrotron_1_e :: Double -> (Double,Double) | 26 | synchrotron_1_e :: Double -> (Double,Double) |
27 | synchrotron_1_e x = createSFR "synchrotron_1_e" $ gsl_sf_synchrotron_1_e x | 27 | synchrotron_1_e x = createSFR "synchrotron_1_e" $ gsl_sf_synchrotron_1_e x |
28 | foreign import ccall unsafe "gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr () -> IO CInt | 28 | foreign import ccall SAFE_CHEAP "gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr () -> IO CInt |
29 | 29 | ||
30 | synchrotron_1 :: Double -> Double | 30 | synchrotron_1 :: Double -> Double |
31 | synchrotron_1 = gsl_sf_synchrotron_1 | 31 | synchrotron_1 = gsl_sf_synchrotron_1 |
32 | foreign import ccall unsafe "gsl_sf_synchrotron_1" gsl_sf_synchrotron_1 :: Double -> Double | 32 | foreign import ccall SAFE_CHEAP "gsl_sf_synchrotron_1" gsl_sf_synchrotron_1 :: Double -> Double |
33 | 33 | ||
34 | synchrotron_2_e :: Double -> (Double,Double) | 34 | synchrotron_2_e :: Double -> (Double,Double) |
35 | synchrotron_2_e x = createSFR "synchrotron_2_e" $ gsl_sf_synchrotron_2_e x | 35 | synchrotron_2_e x = createSFR "synchrotron_2_e" $ gsl_sf_synchrotron_2_e x |
36 | foreign import ccall unsafe "gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr () -> IO CInt | 36 | foreign import ccall SAFE_CHEAP "gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr () -> IO CInt |
37 | 37 | ||
38 | synchrotron_2 :: Double -> Double | 38 | synchrotron_2 :: Double -> Double |
39 | synchrotron_2 = gsl_sf_synchrotron_2 | 39 | synchrotron_2 = gsl_sf_synchrotron_2 |
40 | foreign import ccall unsafe "gsl_sf_synchrotron_2" gsl_sf_synchrotron_2 :: Double -> Double | 40 | foreign import ccall SAFE_CHEAP "gsl_sf_synchrotron_2" gsl_sf_synchrotron_2 :: Double -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Transport.hs b/packages/special/lib/Numeric/GSL/Special/Transport.hs index f2d83a2..b92b578 100644 --- a/packages/special/lib/Numeric/GSL/Special/Transport.hs +++ b/packages/special/lib/Numeric/GSL/Special/Transport.hs | |||
@@ -29,32 +29,32 @@ import Numeric.GSL.Special.Internal | |||
29 | 29 | ||
30 | transport_2_e :: Double -> (Double,Double) | 30 | transport_2_e :: Double -> (Double,Double) |
31 | transport_2_e x = createSFR "transport_2_e" $ gsl_sf_transport_2_e x | 31 | transport_2_e x = createSFR "transport_2_e" $ gsl_sf_transport_2_e x |
32 | foreign import ccall unsafe "gsl_sf_transport_2_e" gsl_sf_transport_2_e :: Double -> Ptr () -> IO CInt | 32 | foreign import ccall SAFE_CHEAP "gsl_sf_transport_2_e" gsl_sf_transport_2_e :: Double -> Ptr () -> IO CInt |
33 | 33 | ||
34 | transport_2 :: Double -> Double | 34 | transport_2 :: Double -> Double |
35 | transport_2 = gsl_sf_transport_2 | 35 | transport_2 = gsl_sf_transport_2 |
36 | foreign import ccall unsafe "gsl_sf_transport_2" gsl_sf_transport_2 :: Double -> Double | 36 | foreign import ccall SAFE_CHEAP "gsl_sf_transport_2" gsl_sf_transport_2 :: Double -> Double |
37 | 37 | ||
38 | transport_3_e :: Double -> (Double,Double) | 38 | transport_3_e :: Double -> (Double,Double) |
39 | transport_3_e x = createSFR "transport_3_e" $ gsl_sf_transport_3_e x | 39 | transport_3_e x = createSFR "transport_3_e" $ gsl_sf_transport_3_e x |
40 | foreign import ccall unsafe "gsl_sf_transport_3_e" gsl_sf_transport_3_e :: Double -> Ptr () -> IO CInt | 40 | foreign import ccall SAFE_CHEAP "gsl_sf_transport_3_e" gsl_sf_transport_3_e :: Double -> Ptr () -> IO CInt |
41 | 41 | ||
42 | transport_3 :: Double -> Double | 42 | transport_3 :: Double -> Double |
43 | transport_3 = gsl_sf_transport_3 | 43 | transport_3 = gsl_sf_transport_3 |
44 | foreign import ccall unsafe "gsl_sf_transport_3" gsl_sf_transport_3 :: Double -> Double | 44 | foreign import ccall SAFE_CHEAP "gsl_sf_transport_3" gsl_sf_transport_3 :: Double -> Double |
45 | 45 | ||
46 | transport_4_e :: Double -> (Double,Double) | 46 | transport_4_e :: Double -> (Double,Double) |
47 | transport_4_e x = createSFR "transport_4_e" $ gsl_sf_transport_4_e x | 47 | transport_4_e x = createSFR "transport_4_e" $ gsl_sf_transport_4_e x |
48 | foreign import ccall unsafe "gsl_sf_transport_4_e" gsl_sf_transport_4_e :: Double -> Ptr () -> IO CInt | 48 | foreign import ccall SAFE_CHEAP "gsl_sf_transport_4_e" gsl_sf_transport_4_e :: Double -> Ptr () -> IO CInt |
49 | 49 | ||
50 | transport_4 :: Double -> Double | 50 | transport_4 :: Double -> Double |
51 | transport_4 = gsl_sf_transport_4 | 51 | transport_4 = gsl_sf_transport_4 |
52 | foreign import ccall unsafe "gsl_sf_transport_4" gsl_sf_transport_4 :: Double -> Double | 52 | foreign import ccall SAFE_CHEAP "gsl_sf_transport_4" gsl_sf_transport_4 :: Double -> Double |
53 | 53 | ||
54 | transport_5_e :: Double -> (Double,Double) | 54 | transport_5_e :: Double -> (Double,Double) |
55 | transport_5_e x = createSFR "transport_5_e" $ gsl_sf_transport_5_e x | 55 | transport_5_e x = createSFR "transport_5_e" $ gsl_sf_transport_5_e x |
56 | foreign import ccall unsafe "gsl_sf_transport_5_e" gsl_sf_transport_5_e :: Double -> Ptr () -> IO CInt | 56 | foreign import ccall SAFE_CHEAP "gsl_sf_transport_5_e" gsl_sf_transport_5_e :: Double -> Ptr () -> IO CInt |
57 | 57 | ||
58 | transport_5 :: Double -> Double | 58 | transport_5 :: Double -> Double |
59 | transport_5 = gsl_sf_transport_5 | 59 | transport_5 = gsl_sf_transport_5 |
60 | foreign import ccall unsafe "gsl_sf_transport_5" gsl_sf_transport_5 :: Double -> Double | 60 | foreign import ccall SAFE_CHEAP "gsl_sf_transport_5" gsl_sf_transport_5 :: Double -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Trig.hs b/packages/special/lib/Numeric/GSL/Special/Trig.hs index 6180144..43fdc95 100644 --- a/packages/special/lib/Numeric/GSL/Special/Trig.hs +++ b/packages/special/lib/Numeric/GSL/Special/Trig.hs | |||
@@ -44,100 +44,100 @@ import Numeric.GSL.Special.Internal | |||
44 | 44 | ||
45 | sin_e :: Double -> (Double,Double) | 45 | sin_e :: Double -> (Double,Double) |
46 | sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x | 46 | sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x |
47 | foreign import ccall unsafe "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt | 47 | foreign import ccall SAFE_CHEAP "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt |
48 | 48 | ||
49 | sin :: Double -> Double | 49 | sin :: Double -> Double |
50 | sin = gsl_sf_sin | 50 | sin = gsl_sf_sin |
51 | foreign import ccall unsafe "gsl_sf_sin" gsl_sf_sin :: Double -> Double | 51 | foreign import ccall SAFE_CHEAP "gsl_sf_sin" gsl_sf_sin :: Double -> Double |
52 | 52 | ||
53 | cos_e :: Double -> (Double,Double) | 53 | cos_e :: Double -> (Double,Double) |
54 | cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x | 54 | cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x |
55 | foreign import ccall unsafe "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt | 55 | foreign import ccall SAFE_CHEAP "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt |
56 | 56 | ||
57 | cos :: Double -> Double | 57 | cos :: Double -> Double |
58 | cos = gsl_sf_cos | 58 | cos = gsl_sf_cos |
59 | foreign import ccall unsafe "gsl_sf_cos" gsl_sf_cos :: Double -> Double | 59 | foreign import ccall SAFE_CHEAP "gsl_sf_cos" gsl_sf_cos :: Double -> Double |
60 | 60 | ||
61 | hypot_e :: Double -> Double -> (Double,Double) | 61 | hypot_e :: Double -> Double -> (Double,Double) |
62 | hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y | 62 | hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y |
63 | foreign import ccall unsafe "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt | 63 | foreign import ccall SAFE_CHEAP "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt |
64 | 64 | ||
65 | hypot :: Double -> Double -> Double | 65 | hypot :: Double -> Double -> Double |
66 | hypot = gsl_sf_hypot | 66 | hypot = gsl_sf_hypot |
67 | foreign import ccall unsafe "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double | 67 | foreign import ccall SAFE_CHEAP "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double |
68 | 68 | ||
69 | complex_sin_e :: Double -> Double -> ((Double,Double),(Double,Double)) | 69 | complex_sin_e :: Double -> Double -> ((Double,Double),(Double,Double)) |
70 | complex_sin_e zr zi = create2SFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi | 70 | complex_sin_e zr zi = create2SFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi |
71 | foreign import ccall unsafe "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 71 | foreign import ccall SAFE_CHEAP "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
72 | 72 | ||
73 | complex_cos_e :: Double -> Double -> ((Double,Double),(Double,Double)) | 73 | complex_cos_e :: Double -> Double -> ((Double,Double),(Double,Double)) |
74 | complex_cos_e zr zi = create2SFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi | 74 | complex_cos_e zr zi = create2SFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi |
75 | foreign import ccall unsafe "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 75 | foreign import ccall SAFE_CHEAP "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
76 | 76 | ||
77 | complex_logsin_e :: Double -> Double -> ((Double,Double),(Double,Double)) | 77 | complex_logsin_e :: Double -> Double -> ((Double,Double),(Double,Double)) |
78 | complex_logsin_e zr zi = create2SFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi | 78 | complex_logsin_e zr zi = create2SFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi |
79 | foreign import ccall unsafe "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 79 | foreign import ccall SAFE_CHEAP "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
80 | 80 | ||
81 | sinc_e :: Double -> (Double,Double) | 81 | sinc_e :: Double -> (Double,Double) |
82 | sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x | 82 | sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x |
83 | foreign import ccall unsafe "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt | 83 | foreign import ccall SAFE_CHEAP "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt |
84 | 84 | ||
85 | sinc :: Double -> Double | 85 | sinc :: Double -> Double |
86 | sinc = gsl_sf_sinc | 86 | sinc = gsl_sf_sinc |
87 | foreign import ccall unsafe "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double | 87 | foreign import ccall SAFE_CHEAP "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double |
88 | 88 | ||
89 | lnsinh_e :: Double -> (Double,Double) | 89 | lnsinh_e :: Double -> (Double,Double) |
90 | lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x | 90 | lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x |
91 | foreign import ccall unsafe "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt | 91 | foreign import ccall SAFE_CHEAP "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt |
92 | 92 | ||
93 | lnsinh :: Double -> Double | 93 | lnsinh :: Double -> Double |
94 | lnsinh = gsl_sf_lnsinh | 94 | lnsinh = gsl_sf_lnsinh |
95 | foreign import ccall unsafe "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double | 95 | foreign import ccall SAFE_CHEAP "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double |
96 | 96 | ||
97 | lncosh_e :: Double -> (Double,Double) | 97 | lncosh_e :: Double -> (Double,Double) |
98 | lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x | 98 | lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x |
99 | foreign import ccall unsafe "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt | 99 | foreign import ccall SAFE_CHEAP "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt |
100 | 100 | ||
101 | lncosh :: Double -> Double | 101 | lncosh :: Double -> Double |
102 | lncosh = gsl_sf_lncosh | 102 | lncosh = gsl_sf_lncosh |
103 | foreign import ccall unsafe "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double | 103 | foreign import ccall SAFE_CHEAP "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double |
104 | 104 | ||
105 | polar_to_rect :: Double -> Double -> ((Double,Double),(Double,Double)) | 105 | polar_to_rect :: Double -> Double -> ((Double,Double),(Double,Double)) |
106 | polar_to_rect r theta = create2SFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta | 106 | polar_to_rect r theta = create2SFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta |
107 | foreign import ccall unsafe "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 107 | foreign import ccall SAFE_CHEAP "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
108 | 108 | ||
109 | rect_to_polar :: Double -> Double -> ((Double,Double),(Double,Double)) | 109 | rect_to_polar :: Double -> Double -> ((Double,Double),(Double,Double)) |
110 | rect_to_polar x y = create2SFR "rect_to_polar" $ gsl_sf_rect_to_polar x y | 110 | rect_to_polar x y = create2SFR "rect_to_polar" $ gsl_sf_rect_to_polar x y |
111 | foreign import ccall unsafe "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 111 | foreign import ccall SAFE_CHEAP "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
112 | 112 | ||
113 | sin_err_e :: Double -> Double -> (Double,Double) | 113 | sin_err_e :: Double -> Double -> (Double,Double) |
114 | sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx | 114 | sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx |
115 | foreign import ccall unsafe "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt | 115 | foreign import ccall SAFE_CHEAP "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt |
116 | 116 | ||
117 | cos_err_e :: Double -> Double -> (Double,Double) | 117 | cos_err_e :: Double -> Double -> (Double,Double) |
118 | cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx | 118 | cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx |
119 | foreign import ccall unsafe "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt | 119 | foreign import ccall SAFE_CHEAP "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt |
120 | 120 | ||
121 | angle_restrict_symm_e :: Ptr Double -> CInt | 121 | angle_restrict_symm_e :: Ptr Double -> CInt |
122 | angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e | 122 | angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e |
123 | foreign import ccall unsafe "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt | 123 | foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt |
124 | 124 | ||
125 | angle_restrict_symm :: Double -> Double | 125 | angle_restrict_symm :: Double -> Double |
126 | angle_restrict_symm = gsl_sf_angle_restrict_symm | 126 | angle_restrict_symm = gsl_sf_angle_restrict_symm |
127 | foreign import ccall unsafe "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double | 127 | foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double |
128 | 128 | ||
129 | angle_restrict_pos_e :: Ptr Double -> CInt | 129 | angle_restrict_pos_e :: Ptr Double -> CInt |
130 | angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e | 130 | angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e |
131 | foreign import ccall unsafe "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt | 131 | foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt |
132 | 132 | ||
133 | angle_restrict_pos :: Double -> Double | 133 | angle_restrict_pos :: Double -> Double |
134 | angle_restrict_pos = gsl_sf_angle_restrict_pos | 134 | angle_restrict_pos = gsl_sf_angle_restrict_pos |
135 | foreign import ccall unsafe "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double | 135 | foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double |
136 | 136 | ||
137 | angle_restrict_symm_err_e :: Double -> (Double,Double) | 137 | angle_restrict_symm_err_e :: Double -> (Double,Double) |
138 | angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta | 138 | angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta |
139 | foreign import ccall unsafe "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt | 139 | foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt |
140 | 140 | ||
141 | angle_restrict_pos_err_e :: Double -> (Double,Double) | 141 | angle_restrict_pos_err_e :: Double -> (Double,Double) |
142 | angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta | 142 | angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta |
143 | foreign import ccall unsafe "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt | 143 | foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt |
diff --git a/packages/special/lib/Numeric/GSL/Special/Zeta.hs b/packages/special/lib/Numeric/GSL/Special/Zeta.hs index 5b59630..a57a918 100644 --- a/packages/special/lib/Numeric/GSL/Special/Zeta.hs +++ b/packages/special/lib/Numeric/GSL/Special/Zeta.hs | |||
@@ -35,56 +35,56 @@ import Numeric.GSL.Special.Internal | |||
35 | 35 | ||
36 | zeta_int_e :: CInt -> (Double,Double) | 36 | zeta_int_e :: CInt -> (Double,Double) |
37 | zeta_int_e n = createSFR "zeta_int_e" $ gsl_sf_zeta_int_e n | 37 | zeta_int_e n = createSFR "zeta_int_e" $ gsl_sf_zeta_int_e n |
38 | foreign import ccall unsafe "gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: CInt -> Ptr () -> IO CInt | 38 | foreign import ccall SAFE_CHEAP "gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: CInt -> Ptr () -> IO CInt |
39 | 39 | ||
40 | zeta_int :: CInt -> Double | 40 | zeta_int :: CInt -> Double |
41 | zeta_int = gsl_sf_zeta_int | 41 | zeta_int = gsl_sf_zeta_int |
42 | foreign import ccall unsafe "gsl_sf_zeta_int" gsl_sf_zeta_int :: CInt -> Double | 42 | foreign import ccall SAFE_CHEAP "gsl_sf_zeta_int" gsl_sf_zeta_int :: CInt -> Double |
43 | 43 | ||
44 | zeta_e :: Double -> (Double,Double) | 44 | zeta_e :: Double -> (Double,Double) |
45 | zeta_e s = createSFR "zeta_e" $ gsl_sf_zeta_e s | 45 | zeta_e s = createSFR "zeta_e" $ gsl_sf_zeta_e s |
46 | foreign import ccall unsafe "gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr () -> IO CInt | 46 | foreign import ccall SAFE_CHEAP "gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr () -> IO CInt |
47 | 47 | ||
48 | zeta :: Double -> Double | 48 | zeta :: Double -> Double |
49 | zeta = gsl_sf_zeta | 49 | zeta = gsl_sf_zeta |
50 | foreign import ccall unsafe "gsl_sf_zeta" gsl_sf_zeta :: Double -> Double | 50 | foreign import ccall SAFE_CHEAP "gsl_sf_zeta" gsl_sf_zeta :: Double -> Double |
51 | 51 | ||
52 | zetam1_e :: Double -> (Double,Double) | 52 | zetam1_e :: Double -> (Double,Double) |
53 | zetam1_e s = createSFR "zetam1_e" $ gsl_sf_zetam1_e s | 53 | zetam1_e s = createSFR "zetam1_e" $ gsl_sf_zetam1_e s |
54 | foreign import ccall unsafe "gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr () -> IO CInt | 54 | foreign import ccall SAFE_CHEAP "gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr () -> IO CInt |
55 | 55 | ||
56 | zetam1 :: Double -> Double | 56 | zetam1 :: Double -> Double |
57 | zetam1 = gsl_sf_zetam1 | 57 | zetam1 = gsl_sf_zetam1 |
58 | foreign import ccall unsafe "gsl_sf_zetam1" gsl_sf_zetam1 :: Double -> Double | 58 | foreign import ccall SAFE_CHEAP "gsl_sf_zetam1" gsl_sf_zetam1 :: Double -> Double |
59 | 59 | ||
60 | zetam1_int_e :: CInt -> (Double,Double) | 60 | zetam1_int_e :: CInt -> (Double,Double) |
61 | zetam1_int_e s = createSFR "zetam1_int_e" $ gsl_sf_zetam1_int_e s | 61 | zetam1_int_e s = createSFR "zetam1_int_e" $ gsl_sf_zetam1_int_e s |
62 | foreign import ccall unsafe "gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: CInt -> Ptr () -> IO CInt | 62 | foreign import ccall SAFE_CHEAP "gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: CInt -> Ptr () -> IO CInt |
63 | 63 | ||
64 | zetam1_int :: CInt -> Double | 64 | zetam1_int :: CInt -> Double |
65 | zetam1_int = gsl_sf_zetam1_int | 65 | zetam1_int = gsl_sf_zetam1_int |
66 | foreign import ccall unsafe "gsl_sf_zetam1_int" gsl_sf_zetam1_int :: CInt -> Double | 66 | foreign import ccall SAFE_CHEAP "gsl_sf_zetam1_int" gsl_sf_zetam1_int :: CInt -> Double |
67 | 67 | ||
68 | hzeta_e :: Double -> Double -> (Double,Double) | 68 | hzeta_e :: Double -> Double -> (Double,Double) |
69 | hzeta_e s q = createSFR "hzeta_e" $ gsl_sf_hzeta_e s q | 69 | hzeta_e s q = createSFR "hzeta_e" $ gsl_sf_hzeta_e s q |
70 | foreign import ccall unsafe "gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr () -> IO CInt | 70 | foreign import ccall SAFE_CHEAP "gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr () -> IO CInt |
71 | 71 | ||
72 | hzeta :: Double -> Double -> Double | 72 | hzeta :: Double -> Double -> Double |
73 | hzeta = gsl_sf_hzeta | 73 | hzeta = gsl_sf_hzeta |
74 | foreign import ccall unsafe "gsl_sf_hzeta" gsl_sf_hzeta :: Double -> Double -> Double | 74 | foreign import ccall SAFE_CHEAP "gsl_sf_hzeta" gsl_sf_hzeta :: Double -> Double -> Double |
75 | 75 | ||
76 | eta_int_e :: CInt -> (Double,Double) | 76 | eta_int_e :: CInt -> (Double,Double) |
77 | eta_int_e n = createSFR "eta_int_e" $ gsl_sf_eta_int_e n | 77 | eta_int_e n = createSFR "eta_int_e" $ gsl_sf_eta_int_e n |
78 | foreign import ccall unsafe "gsl_sf_eta_int_e" gsl_sf_eta_int_e :: CInt -> Ptr () -> IO CInt | 78 | foreign import ccall SAFE_CHEAP "gsl_sf_eta_int_e" gsl_sf_eta_int_e :: CInt -> Ptr () -> IO CInt |
79 | 79 | ||
80 | eta_int :: CInt -> Double | 80 | eta_int :: CInt -> Double |
81 | eta_int = gsl_sf_eta_int | 81 | eta_int = gsl_sf_eta_int |
82 | foreign import ccall unsafe "gsl_sf_eta_int" gsl_sf_eta_int :: CInt -> Double | 82 | foreign import ccall SAFE_CHEAP "gsl_sf_eta_int" gsl_sf_eta_int :: CInt -> Double |
83 | 83 | ||
84 | eta_e :: Double -> (Double,Double) | 84 | eta_e :: Double -> (Double,Double) |
85 | eta_e s = createSFR "eta_e" $ gsl_sf_eta_e s | 85 | eta_e s = createSFR "eta_e" $ gsl_sf_eta_e s |
86 | foreign import ccall unsafe "gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr () -> IO CInt | 86 | foreign import ccall SAFE_CHEAP "gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr () -> IO CInt |
87 | 87 | ||
88 | eta :: Double -> Double | 88 | eta :: Double -> Double |
89 | eta = gsl_sf_eta | 89 | eta = gsl_sf_eta |
90 | foreign import ccall unsafe "gsl_sf_eta" gsl_sf_eta :: Double -> Double | 90 | foreign import ccall SAFE_CHEAP "gsl_sf_eta" gsl_sf_eta :: Double -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/auto.hs b/packages/special/lib/Numeric/GSL/Special/auto.hs index d628eff..36947ad 100755 --- a/packages/special/lib/Numeric/GSL/Special/auto.hs +++ b/packages/special/lib/Numeric/GSL/Special/auto.hs | |||
@@ -186,7 +186,7 @@ showCt (Pointer s) = s ++ "*" | |||
186 | 186 | ||
187 | showCa (t, a) = showCt t ++" "++ a | 187 | showCa (t, a) = showCt t ++" "++ a |
188 | 188 | ||
189 | showH hc h@(Header t n args) = "foreign import ccall unsafe \""++n++"\" "++n++" :: "++ (concat$intersperse" -> "$map showHa args) ++" -> " ++ t' | 189 | showH hc h@(Header t n args) = "foreign import ccall SAFE_CHEAP \""++n++"\" "++n++" :: "++ (concat$intersperse" -> "$map showHa args) ++" -> " ++ t' |
190 | where t' | pure h = showHt t | 190 | where t' | pure h = showHt t |
191 | | otherwise = "IO "++showHt t | 191 | | otherwise = "IO "++showHt t |
192 | 192 | ||