diff options
author | Alberto Ruiz <aruiz@um.es> | 2012-03-13 11:21:21 +0100 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2012-03-13 11:21:21 +0100 |
commit | 9c4a8a37291f902312215452d0bdd9ad95408ae9 (patch) | |
tree | 72d468cfa9999dc079466f250883dfb131d016ba | |
parent | 6f6455593c0490e4710854b08fc63a2d0993dcac (diff) | |
parent | 032fe19ddfa6e4cfba33f76aaa13043b54568fcf (diff) |
Merge remote-tracking branch 'wowus/master' into unsafe
47 files changed, 591 insertions, 591 deletions
diff --git a/examples/devel/ej1/wrappers.hs b/examples/devel/ej1/wrappers.hs index b329464..a88f74b 100644 --- a/examples/devel/ej1/wrappers.hs +++ b/examples/devel/ej1/wrappers.hs | |||
@@ -15,7 +15,7 @@ main = do | |||
15 | 15 | ||
16 | ----------------------------------------------------- | 16 | ----------------------------------------------------- |
17 | 17 | ||
18 | foreign import ccall "c_scale_vector" | 18 | foreign import ccall unsafe "c_scale_vector" |
19 | cScaleVector :: Double -- scale | 19 | cScaleVector :: Double -- scale |
20 | -> CInt -> Ptr Double -- argument | 20 | -> CInt -> Ptr Double -- argument |
21 | -> CInt -> Ptr Double -- result | 21 | -> CInt -> Ptr Double -- result |
@@ -29,7 +29,7 @@ myScale s x = unsafePerformIO $ do | |||
29 | ----------------------------------------------------- | 29 | ----------------------------------------------------- |
30 | -- forcing row order | 30 | -- forcing row order |
31 | 31 | ||
32 | foreign import ccall "c_diag" | 32 | foreign import ccall unsafe "c_diag" |
33 | cDiag :: CInt -> CInt -> Ptr Double -- argument | 33 | cDiag :: CInt -> CInt -> Ptr Double -- argument |
34 | -> CInt -> Ptr Double -- result1 | 34 | -> CInt -> Ptr Double -- result1 |
35 | -> CInt -> CInt -> Ptr Double -- result2 | 35 | -> CInt -> CInt -> Ptr Double -- result2 |
diff --git a/examples/devel/ej2/wrappers.hs b/examples/devel/ej2/wrappers.hs index 399c5a9..1c02a24 100644 --- a/examples/devel/ej2/wrappers.hs +++ b/examples/devel/ej2/wrappers.hs | |||
@@ -15,7 +15,7 @@ main = do | |||
15 | ----------------------------------------------------- | 15 | ----------------------------------------------------- |
16 | -- arbitrary data order | 16 | -- arbitrary data order |
17 | 17 | ||
18 | foreign import ccall "c_diag" | 18 | foreign import ccall unsafe "c_diag" |
19 | cDiag :: CInt -- matrix order | 19 | cDiag :: CInt -- matrix order |
20 | -> CInt -> CInt -> Ptr Double -- argument | 20 | -> CInt -> CInt -> Ptr Double -- argument |
21 | -> CInt -> Ptr Double -- result1 | 21 | -> CInt -> Ptr Double -- result1 |
diff --git a/lib/Data/Packed/Internal/Common.hs b/lib/Data/Packed/Internal/Common.hs index a8c3c3e..49f17b0 100644 --- a/lib/Data/Packed/Internal/Common.hs +++ b/lib/Data/Packed/Internal/Common.hs | |||
@@ -140,7 +140,7 @@ errorCode n = "code "++show n | |||
140 | 140 | ||
141 | 141 | ||
142 | -- | clear the fpu | 142 | -- | clear the fpu |
143 | foreign import ccall "asm_finit" finit :: IO () | 143 | foreign import ccall unsafe "asm_finit" finit :: IO () |
144 | 144 | ||
145 | -- | check the error code | 145 | -- | check the error code |
146 | check :: String -> IO CInt -> IO () | 146 | check :: String -> IO CInt -> IO () |
@@ -158,7 +158,7 @@ check msg f = do | |||
158 | return () | 158 | return () |
159 | 159 | ||
160 | -- | description of GSL error codes | 160 | -- | description of GSL error codes |
161 | foreign import ccall "gsl_strerror" gsl_strerror :: CInt -> IO (Ptr CChar) | 161 | foreign import ccall unsafe "gsl_strerror" gsl_strerror :: CInt -> IO (Ptr CChar) |
162 | 162 | ||
163 | -- | Error capture and conversion to Maybe | 163 | -- | Error capture and conversion to Maybe |
164 | mbCatch :: IO x -> IO (Maybe x) | 164 | mbCatch :: IO x -> IO (Maybe x) |
diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs index 257e4fc..b8ed18d 100644 --- a/lib/Data/Packed/Internal/Matrix.hs +++ b/lib/Data/Packed/Internal/Matrix.hs | |||
@@ -331,11 +331,11 @@ transdataP c1 d c2 = | |||
331 | sz = sizeOf (d @> 0) | 331 | sz = sizeOf (d @> 0) |
332 | noneed = r1 == 1 || c1 == 1 | 332 | noneed = r1 == 1 || c1 == 1 |
333 | 333 | ||
334 | foreign import ccall "transF" ctransF :: TFMFM | 334 | foreign import ccall unsafe "transF" ctransF :: TFMFM |
335 | foreign import ccall "transR" ctransR :: TMM | 335 | foreign import ccall unsafe "transR" ctransR :: TMM |
336 | foreign import ccall "transQ" ctransQ :: TQMQM | 336 | foreign import ccall unsafe "transQ" ctransQ :: TQMQM |
337 | foreign import ccall "transC" ctransC :: TCMCM | 337 | foreign import ccall unsafe "transC" ctransC :: TCMCM |
338 | foreign import ccall "transP" ctransP :: CInt -> CInt -> Ptr () -> CInt -> CInt -> CInt -> Ptr () -> CInt -> IO CInt | 338 | foreign import ccall unsafe "transP" ctransP :: CInt -> CInt -> Ptr () -> CInt -> CInt -> CInt -> Ptr () -> CInt -> IO CInt |
339 | 339 | ||
340 | ---------------------------------------------------------------------- | 340 | ---------------------------------------------------------------------- |
341 | 341 | ||
@@ -358,19 +358,19 @@ constantAux fun x n = unsafePerformIO $ do | |||
358 | 358 | ||
359 | constantF :: Float -> Int -> Vector Float | 359 | constantF :: Float -> Int -> Vector Float |
360 | constantF = constantAux cconstantF | 360 | constantF = constantAux cconstantF |
361 | foreign import ccall "constantF" cconstantF :: Ptr Float -> TF | 361 | foreign import ccall unsafe "constantF" cconstantF :: Ptr Float -> TF |
362 | 362 | ||
363 | constantR :: Double -> Int -> Vector Double | 363 | constantR :: Double -> Int -> Vector Double |
364 | constantR = constantAux cconstantR | 364 | constantR = constantAux cconstantR |
365 | foreign import ccall "constantR" cconstantR :: Ptr Double -> TV | 365 | foreign import ccall unsafe "constantR" cconstantR :: Ptr Double -> TV |
366 | 366 | ||
367 | constantQ :: Complex Float -> Int -> Vector (Complex Float) | 367 | constantQ :: Complex Float -> Int -> Vector (Complex Float) |
368 | constantQ = constantAux cconstantQ | 368 | constantQ = constantAux cconstantQ |
369 | foreign import ccall "constantQ" cconstantQ :: Ptr (Complex Float) -> TQV | 369 | foreign import ccall unsafe "constantQ" cconstantQ :: Ptr (Complex Float) -> TQV |
370 | 370 | ||
371 | constantC :: Complex Double -> Int -> Vector (Complex Double) | 371 | constantC :: Complex Double -> Int -> Vector (Complex Double) |
372 | constantC = constantAux cconstantC | 372 | constantC = constantAux cconstantC |
373 | foreign import ccall "constantC" cconstantC :: Ptr (Complex Double) -> TCV | 373 | foreign import ccall unsafe "constantC" cconstantC :: Ptr (Complex Double) -> TCV |
374 | 374 | ||
375 | constantP :: Storable a => a -> Int -> Vector a | 375 | constantP :: Storable a => a -> Int -> Vector a |
376 | constantP a n = unsafePerformIO $ do | 376 | constantP a n = unsafePerformIO $ do |
@@ -381,7 +381,7 @@ constantP a n = unsafePerformIO $ do | |||
381 | poke k a | 381 | poke k a |
382 | cconstantP (castPtr k) (fi n) (castPtr p) (fi sz) // check "constantP" | 382 | cconstantP (castPtr k) (fi n) (castPtr p) (fi sz) // check "constantP" |
383 | return v | 383 | return v |
384 | foreign import ccall "constantP" cconstantP :: Ptr () -> CInt -> Ptr () -> CInt -> IO CInt | 384 | foreign import ccall unsafe "constantP" cconstantP :: Ptr () -> CInt -> Ptr () -> CInt -> IO CInt |
385 | 385 | ||
386 | ---------------------------------------------------------------------- | 386 | ---------------------------------------------------------------------- |
387 | 387 | ||
@@ -427,7 +427,7 @@ saveMatrix filename fmt m = do | |||
427 | free charname | 427 | free charname |
428 | free charfmt | 428 | free charfmt |
429 | 429 | ||
430 | foreign import ccall "matrix_fprintf" matrix_fprintf :: Ptr CChar -> Ptr CChar -> CInt -> TM | 430 | foreign import ccall unsafe "matrix_fprintf" matrix_fprintf :: Ptr CChar -> Ptr CChar -> CInt -> TM |
431 | 431 | ||
432 | ---------------------------------------------------------------------- | 432 | ---------------------------------------------------------------------- |
433 | 433 | ||
diff --git a/lib/Data/Packed/Internal/Vector.hs b/lib/Data/Packed/Internal/Vector.hs index 936479d..d3b80ff 100644 --- a/lib/Data/Packed/Internal/Vector.hs +++ b/lib/Data/Packed/Internal/Vector.hs | |||
@@ -308,8 +308,8 @@ double2FloatV v = unsafePerformIO $ do | |||
308 | return r | 308 | return r |
309 | 309 | ||
310 | 310 | ||
311 | foreign import ccall "float2double" c_float2double:: TFV | 311 | foreign import ccall unsafe "float2double" c_float2double:: TFV |
312 | foreign import ccall "double2float" c_double2float:: TVF | 312 | foreign import ccall unsafe "double2float" c_double2float:: TVF |
313 | 313 | ||
314 | --------------------------------------------------------------- | 314 | --------------------------------------------------------------- |
315 | 315 | ||
@@ -325,8 +325,8 @@ stepD v = unsafePerformIO $ do | |||
325 | app2 c_stepD vec v vec r "stepD" | 325 | app2 c_stepD vec v vec r "stepD" |
326 | return r | 326 | return r |
327 | 327 | ||
328 | foreign import ccall "stepF" c_stepF :: TFF | 328 | foreign import ccall unsafe "stepF" c_stepF :: TFF |
329 | foreign import ccall "stepD" c_stepD :: TVV | 329 | foreign import ccall unsafe "stepD" c_stepD :: TVV |
330 | 330 | ||
331 | --------------------------------------------------------------- | 331 | --------------------------------------------------------------- |
332 | 332 | ||
@@ -342,8 +342,8 @@ condD x y l e g = unsafePerformIO $ do | |||
342 | app6 c_condD vec x vec y vec l vec e vec g vec r "condD" | 342 | app6 c_condD vec x vec y vec l vec e vec g vec r "condD" |
343 | return r | 343 | return r |
344 | 344 | ||
345 | foreign import ccall "condF" c_condF :: CInt -> PF -> CInt -> PF -> CInt -> PF -> TFFF | 345 | foreign import ccall unsafe "condF" c_condF :: CInt -> PF -> CInt -> PF -> CInt -> PF -> TFFF |
346 | foreign import ccall "condD" c_condD :: CInt -> PD -> CInt -> PD -> CInt -> PD -> TVVV | 346 | foreign import ccall unsafe "condD" c_condD :: CInt -> PD -> CInt -> PD -> CInt -> PD -> TVVV |
347 | 347 | ||
348 | -------------------------------------------------------------------------------- | 348 | -------------------------------------------------------------------------------- |
349 | 349 | ||
@@ -354,11 +354,11 @@ conjugateAux fun x = unsafePerformIO $ do | |||
354 | 354 | ||
355 | conjugateQ :: Vector (Complex Float) -> Vector (Complex Float) | 355 | conjugateQ :: Vector (Complex Float) -> Vector (Complex Float) |
356 | conjugateQ = conjugateAux c_conjugateQ | 356 | conjugateQ = conjugateAux c_conjugateQ |
357 | foreign import ccall "conjugateQ" c_conjugateQ :: TQVQV | 357 | foreign import ccall unsafe "conjugateQ" c_conjugateQ :: TQVQV |
358 | 358 | ||
359 | conjugateC :: Vector (Complex Double) -> Vector (Complex Double) | 359 | conjugateC :: Vector (Complex Double) -> Vector (Complex Double) |
360 | conjugateC = conjugateAux c_conjugateC | 360 | conjugateC = conjugateAux c_conjugateC |
361 | foreign import ccall "conjugateC" c_conjugateC :: TCVCV | 361 | foreign import ccall unsafe "conjugateC" c_conjugateC :: TCVCV |
362 | 362 | ||
363 | -------------------------------------------------------------------------------- | 363 | -------------------------------------------------------------------------------- |
364 | 364 | ||
@@ -547,7 +547,7 @@ fscanfVector filename n = do | |||
547 | free charname | 547 | free charname |
548 | return res | 548 | return res |
549 | 549 | ||
550 | foreign import ccall "vector_fscanf" gsl_vector_fscanf:: Ptr CChar -> TV | 550 | foreign import ccall unsafe "vector_fscanf" gsl_vector_fscanf:: Ptr CChar -> TV |
551 | 551 | ||
552 | -- | Saves the elements of a vector, with a given format (%f, %e, %g), to an ASCII file. | 552 | -- | Saves the elements of a vector, with a given format (%f, %e, %g), to an ASCII file. |
553 | fprintfVector :: FilePath -> String -> Vector Double -> IO () | 553 | fprintfVector :: FilePath -> String -> Vector Double -> IO () |
@@ -558,7 +558,7 @@ fprintfVector filename fmt v = do | |||
558 | free charname | 558 | free charname |
559 | free charfmt | 559 | free charfmt |
560 | 560 | ||
561 | foreign import ccall "vector_fprintf" gsl_vector_fprintf :: Ptr CChar -> Ptr CChar -> TV | 561 | foreign import ccall unsafe "vector_fprintf" gsl_vector_fprintf :: Ptr CChar -> Ptr CChar -> TV |
562 | 562 | ||
563 | -- | Loads a vector from a binary file (the number of elements must be known in advance). | 563 | -- | Loads a vector from a binary file (the number of elements must be known in advance). |
564 | freadVector :: FilePath -> Int -> IO (Vector Double) | 564 | freadVector :: FilePath -> Int -> IO (Vector Double) |
@@ -569,7 +569,7 @@ freadVector filename n = do | |||
569 | free charname | 569 | free charname |
570 | return res | 570 | return res |
571 | 571 | ||
572 | foreign import ccall "vector_fread" gsl_vector_fread:: Ptr CChar -> TV | 572 | foreign import ccall unsafe "vector_fread" gsl_vector_fread:: Ptr CChar -> TV |
573 | 573 | ||
574 | -- | Saves the elements of a vector to a binary file. | 574 | -- | Saves the elements of a vector to a binary file. |
575 | fwriteVector :: FilePath -> Vector Double -> IO () | 575 | fwriteVector :: FilePath -> Vector Double -> IO () |
@@ -578,5 +578,5 @@ fwriteVector filename v = do | |||
578 | app1 (gsl_vector_fwrite charname) vec v "gsl_vector_fwrite" | 578 | app1 (gsl_vector_fwrite charname) vec v "gsl_vector_fwrite" |
579 | free charname | 579 | free charname |
580 | 580 | ||
581 | foreign import ccall "vector_fwrite" gsl_vector_fwrite :: Ptr CChar -> TV | 581 | foreign import ccall unsafe "vector_fwrite" gsl_vector_fwrite :: Ptr CChar -> TV |
582 | 582 | ||
diff --git a/lib/Numeric/GSL.hs b/lib/Numeric/GSL.hs index e53022e..5f39a3e 100644 --- a/lib/Numeric/GSL.hs +++ b/lib/Numeric/GSL.hs | |||
@@ -40,4 +40,4 @@ import Data.Complex | |||
40 | 40 | ||
41 | -- | This action removes the GSL default error handler (which aborts the program), so that | 41 | -- | This action removes the GSL default error handler (which aborts the program), so that |
42 | -- GSL errors can be handled by Haskell (using Control.Exception) and ghci doesn't abort. | 42 | -- GSL errors can be handled by Haskell (using Control.Exception) and ghci doesn't abort. |
43 | foreign import ccall "GSL/gsl-aux.h no_abort_on_error" setErrorHandlerOff :: IO () | 43 | foreign import ccall unsafe "GSL/gsl-aux.h no_abort_on_error" setErrorHandlerOff :: IO () |
diff --git a/lib/Numeric/GSL/Differentiation.hs b/lib/Numeric/GSL/Differentiation.hs index ab5eb50..d2a332c 100644 --- a/lib/Numeric/GSL/Differentiation.hs +++ b/lib/Numeric/GSL/Differentiation.hs | |||
@@ -48,7 +48,7 @@ derivGen c h f x = unsafePerformIO $ do | |||
48 | freeHaskellFunPtr fp | 48 | freeHaskellFunPtr fp |
49 | return result | 49 | return result |
50 | 50 | ||
51 | foreign import ccall "gsl-aux.h deriv" | 51 | foreign import ccall safe "gsl-aux.h deriv" |
52 | c_deriv :: CInt -> FunPtr (Double -> Ptr () -> Double) -> Double -> Double | 52 | c_deriv :: CInt -> FunPtr (Double -> Ptr () -> Double) -> Double -> Double |
53 | -> Ptr Double -> Ptr Double -> IO CInt | 53 | -> Ptr Double -> Ptr Double -> IO CInt |
54 | 54 | ||
@@ -84,4 +84,4 @@ derivBackward = derivGen 2 | |||
84 | 84 | ||
85 | {- | conversion of Haskell functions into function pointers that can be used in the C side | 85 | {- | conversion of Haskell functions into function pointers that can be used in the C side |
86 | -} | 86 | -} |
87 | foreign import ccall "wrapper" mkfun:: (Double -> Ptr() -> Double) -> IO( FunPtr (Double -> Ptr() -> Double)) | 87 | foreign import ccall safe "wrapper" mkfun:: (Double -> Ptr() -> Double) -> IO( FunPtr (Double -> Ptr() -> Double)) |
diff --git a/lib/Numeric/GSL/Fitting.hs b/lib/Numeric/GSL/Fitting.hs index 79db23f..6343b76 100644 --- a/lib/Numeric/GSL/Fitting.hs +++ b/lib/Numeric/GSL/Fitting.hs | |||
@@ -90,7 +90,7 @@ nlFitGen m f jac xiv epsabs epsrel maxit = unsafePerformIO $ do | |||
90 | freeHaskellFunPtr jp | 90 | freeHaskellFunPtr jp |
91 | return (subVector 2 p sol, path) | 91 | return (subVector 2 p sol, path) |
92 | 92 | ||
93 | foreign import ccall "nlfit" | 93 | foreign import ccall safe "nlfit" |
94 | c_nlfit:: CInt -> FunPtr TVV -> FunPtr TVM -> Double -> Double -> CInt -> CInt -> TVM | 94 | c_nlfit:: CInt -> FunPtr TVV -> FunPtr TVM -> Double -> Double -> CInt -> CInt -> TVM |
95 | 95 | ||
96 | ------------------------------------------------------- | 96 | ------------------------------------------------------- |
diff --git a/lib/Numeric/GSL/Fourier.hs b/lib/Numeric/GSL/Fourier.hs index 71bc8a1..4ef19b3 100644 --- a/lib/Numeric/GSL/Fourier.hs +++ b/lib/Numeric/GSL/Fourier.hs | |||
@@ -30,7 +30,7 @@ genfft code v = unsafePerformIO $ do | |||
30 | app2 (c_fft code) vec v vec r "fft" | 30 | app2 (c_fft code) vec v vec r "fft" |
31 | return r | 31 | return r |
32 | 32 | ||
33 | foreign import ccall "gsl-aux.h fft" c_fft :: CInt -> TCVCV | 33 | foreign import ccall unsafe "gsl-aux.h fft" c_fft :: CInt -> TCVCV |
34 | 34 | ||
35 | 35 | ||
36 | {- | Fast 1D Fourier transform of a 'Vector' @(@'Complex' 'Double'@)@ using /gsl_fft_complex_forward/. It uses the same scaling conventions as GNU Octave. | 36 | {- | Fast 1D Fourier transform of a 'Vector' @(@'Complex' 'Double'@)@ using /gsl_fft_complex_forward/. It uses the same scaling conventions as GNU Octave. |
diff --git a/lib/Numeric/GSL/Integration.hs b/lib/Numeric/GSL/Integration.hs index 2330fc6..defbf80 100644 --- a/lib/Numeric/GSL/Integration.hs +++ b/lib/Numeric/GSL/Integration.hs | |||
@@ -32,7 +32,7 @@ import System.IO.Unsafe(unsafePerformIO) | |||
32 | 32 | ||
33 | {- | conversion of Haskell functions into function pointers that can be used in the C side | 33 | {- | conversion of Haskell functions into function pointers that can be used in the C side |
34 | -} | 34 | -} |
35 | foreign import ccall "wrapper" mkfun:: (Double -> Ptr() -> Double) -> IO( FunPtr (Double -> Ptr() -> Double)) | 35 | foreign import ccall safe "wrapper" mkfun:: (Double -> Ptr() -> Double) -> IO( FunPtr (Double -> Ptr() -> Double)) |
36 | 36 | ||
37 | -------------------------------------------------------------------- | 37 | -------------------------------------------------------------------- |
38 | {- | Numerical integration using /gsl_integration_qags/ (adaptive integration with singularities). For example: | 38 | {- | Numerical integration using /gsl_integration_qags/ (adaptive integration with singularities). For example: |
@@ -63,7 +63,7 @@ integrateQAGS prec n f a b = unsafePerformIO $ do | |||
63 | freeHaskellFunPtr fp | 63 | freeHaskellFunPtr fp |
64 | return result | 64 | return result |
65 | 65 | ||
66 | foreign import ccall "gsl-aux.h integrate_qags" | 66 | foreign import ccall safe "gsl-aux.h integrate_qags" |
67 | c_integrate_qags :: FunPtr (Double-> Ptr() -> Double) -> Double -> Double -> Double -> CInt | 67 | c_integrate_qags :: FunPtr (Double-> Ptr() -> Double) -> Double -> Double -> Double -> CInt |
68 | -> Ptr Double -> Ptr Double -> IO CInt | 68 | -> Ptr Double -> Ptr Double -> IO CInt |
69 | 69 | ||
@@ -94,7 +94,7 @@ integrateQNG prec f a b = unsafePerformIO $ do | |||
94 | freeHaskellFunPtr fp | 94 | freeHaskellFunPtr fp |
95 | return result | 95 | return result |
96 | 96 | ||
97 | foreign import ccall "gsl-aux.h integrate_qng" | 97 | foreign import ccall safe "gsl-aux.h integrate_qng" |
98 | c_integrate_qng :: FunPtr (Double-> Ptr() -> Double) -> Double -> Double -> Double | 98 | c_integrate_qng :: FunPtr (Double-> Ptr() -> Double) -> Double -> Double -> Double |
99 | -> Ptr Double -> Ptr Double -> IO CInt | 99 | -> Ptr Double -> Ptr Double -> IO CInt |
100 | 100 | ||
@@ -126,7 +126,7 @@ integrateQAGI prec n f = unsafePerformIO $ do | |||
126 | freeHaskellFunPtr fp | 126 | freeHaskellFunPtr fp |
127 | return result | 127 | return result |
128 | 128 | ||
129 | foreign import ccall "gsl-aux.h integrate_qagi" | 129 | foreign import ccall safe "gsl-aux.h integrate_qagi" |
130 | c_integrate_qagi :: FunPtr (Double-> Ptr() -> Double) -> Double -> CInt | 130 | c_integrate_qagi :: FunPtr (Double-> Ptr() -> Double) -> Double -> CInt |
131 | -> Ptr Double -> Ptr Double -> IO CInt | 131 | -> Ptr Double -> Ptr Double -> IO CInt |
132 | 132 | ||
@@ -159,7 +159,7 @@ integrateQAGIU prec n f a = unsafePerformIO $ do | |||
159 | freeHaskellFunPtr fp | 159 | freeHaskellFunPtr fp |
160 | return result | 160 | return result |
161 | 161 | ||
162 | foreign import ccall "gsl-aux.h integrate_qagiu" | 162 | foreign import ccall safe "gsl-aux.h integrate_qagiu" |
163 | c_integrate_qagiu :: FunPtr (Double-> Ptr() -> Double) -> Double -> Double -> CInt | 163 | c_integrate_qagiu :: FunPtr (Double-> Ptr() -> Double) -> Double -> Double -> CInt |
164 | -> Ptr Double -> Ptr Double -> IO CInt | 164 | -> Ptr Double -> Ptr Double -> IO CInt |
165 | 165 | ||
@@ -192,7 +192,7 @@ integrateQAGIL prec n f b = unsafePerformIO $ do | |||
192 | freeHaskellFunPtr fp | 192 | freeHaskellFunPtr fp |
193 | return result | 193 | return result |
194 | 194 | ||
195 | foreign import ccall "gsl-aux.h integrate_qagil" | 195 | foreign import ccall safe "gsl-aux.h integrate_qagil" |
196 | c_integrate_qagil :: FunPtr (Double-> Ptr() -> Double) -> Double -> Double -> CInt | 196 | c_integrate_qagil :: FunPtr (Double-> Ptr() -> Double) -> Double -> Double -> CInt |
197 | -> Ptr Double -> Ptr Double -> IO CInt | 197 | -> Ptr Double -> Ptr Double -> IO CInt |
198 | 198 | ||
diff --git a/lib/Numeric/GSL/Internal.hs b/lib/Numeric/GSL/Internal.hs index 303e7e1..84417ce 100644 --- a/lib/Numeric/GSL/Internal.hs +++ b/lib/Numeric/GSL/Internal.hs | |||
@@ -26,14 +26,14 @@ iv f n p = f (createV (fromIntegral n) copy "iv") where | |||
26 | return 0 | 26 | return 0 |
27 | 27 | ||
28 | -- | conversion of Haskell functions into function pointers that can be used in the C side | 28 | -- | conversion of Haskell functions into function pointers that can be used in the C side |
29 | foreign import ccall "wrapper" | 29 | foreign import ccall safe "wrapper" |
30 | mkVecfun :: (CInt -> Ptr Double -> Double) | 30 | mkVecfun :: (CInt -> Ptr Double -> Double) |
31 | -> IO( FunPtr (CInt -> Ptr Double -> Double)) | 31 | -> IO( FunPtr (CInt -> Ptr Double -> Double)) |
32 | 32 | ||
33 | foreign import ccall "wrapper" | 33 | foreign import ccall safe "wrapper" |
34 | mkVecVecfun :: TVV -> IO (FunPtr TVV) | 34 | mkVecVecfun :: TVV -> IO (FunPtr TVV) |
35 | 35 | ||
36 | foreign import ccall "wrapper" | 36 | foreign import ccall safe "wrapper" |
37 | mkDoubleVecVecfun :: (Double -> TVV) -> IO (FunPtr (Double -> TVV)) | 37 | mkDoubleVecVecfun :: (Double -> TVV) -> IO (FunPtr (Double -> TVV)) |
38 | 38 | ||
39 | aux_vTov :: (Vector Double -> Vector Double) -> TVV | 39 | aux_vTov :: (Vector Double -> Vector Double) -> TVV |
@@ -46,10 +46,10 @@ aux_vTov f n p nr r = g where | |||
46 | g = do unsafeWith v $ \p' -> copyArray r p' (fromIntegral nr) | 46 | g = do unsafeWith v $ \p' -> copyArray r p' (fromIntegral nr) |
47 | return 0 | 47 | return 0 |
48 | 48 | ||
49 | foreign import ccall "wrapper" | 49 | foreign import ccall safe "wrapper" |
50 | mkVecMatfun :: TVM -> IO (FunPtr TVM) | 50 | mkVecMatfun :: TVM -> IO (FunPtr TVM) |
51 | 51 | ||
52 | foreign import ccall "wrapper" | 52 | foreign import ccall safe "wrapper" |
53 | mkDoubleVecMatfun :: (Double -> TVM) -> IO (FunPtr (Double -> TVM)) | 53 | mkDoubleVecMatfun :: (Double -> TVM) -> IO (FunPtr (Double -> TVM)) |
54 | 54 | ||
55 | aux_vTom :: (Vector Double -> Matrix Double) -> TVM | 55 | aux_vTom :: (Vector Double -> Matrix Double) -> TVM |
diff --git a/lib/Numeric/GSL/Minimization.hs b/lib/Numeric/GSL/Minimization.hs index 88acfac..af85135 100644 --- a/lib/Numeric/GSL/Minimization.hs +++ b/lib/Numeric/GSL/Minimization.hs | |||
@@ -122,7 +122,7 @@ minimizeV method eps maxit szv f xiv = unsafePerformIO $ do | |||
122 | return (sol, path) | 122 | return (sol, path) |
123 | 123 | ||
124 | 124 | ||
125 | foreign import ccall "gsl-aux.h minimize" | 125 | foreign import ccall safe "gsl-aux.h minimize" |
126 | c_minimize:: CInt -> FunPtr (CInt -> Ptr Double -> Double) -> Double -> CInt -> TVVM | 126 | c_minimize:: CInt -> FunPtr (CInt -> Ptr Double -> Double) -> Double -> CInt -> TVVM |
127 | 127 | ||
128 | ---------------------------------------------------------------------------------- | 128 | ---------------------------------------------------------------------------------- |
@@ -179,7 +179,7 @@ minimizeVD method eps maxit istep tol f df xiv = unsafePerformIO $ do | |||
179 | freeHaskellFunPtr dfp | 179 | freeHaskellFunPtr dfp |
180 | return (sol,path) | 180 | return (sol,path) |
181 | 181 | ||
182 | foreign import ccall "gsl-aux.h minimizeD" | 182 | foreign import ccall safe "gsl-aux.h minimizeD" |
183 | c_minimizeD :: CInt | 183 | c_minimizeD :: CInt |
184 | -> FunPtr (CInt -> Ptr Double -> Double) | 184 | -> FunPtr (CInt -> Ptr Double -> Double) |
185 | -> FunPtr TVV | 185 | -> FunPtr TVV |
diff --git a/lib/Numeric/GSL/ODE.hs b/lib/Numeric/GSL/ODE.hs index c243f4b..3994210 100644 --- a/lib/Numeric/GSL/ODE.hs +++ b/lib/Numeric/GSL/ODE.hs | |||
@@ -116,7 +116,7 @@ odeSolveV' method mbjac h epsAbs epsRel f xiv ts = unsafePerformIO $ do | |||
116 | freeHaskellFunPtr fp | 116 | freeHaskellFunPtr fp |
117 | return sol | 117 | return sol |
118 | 118 | ||
119 | foreign import ccall "ode" | 119 | foreign import ccall safe "ode" |
120 | ode_c :: CInt -> Double -> Double -> Double -> FunPtr (Double -> TVV) -> FunPtr (Double -> TVM) -> TVVM | 120 | ode_c :: CInt -> Double -> Double -> Double -> FunPtr (Double -> TVV) -> FunPtr (Double -> TVM) -> TVVM |
121 | 121 | ||
122 | ------------------------------------------------------- | 122 | ------------------------------------------------------- |
diff --git a/lib/Numeric/GSL/Polynomials.hs b/lib/Numeric/GSL/Polynomials.hs index b21b1b6..694c003 100644 --- a/lib/Numeric/GSL/Polynomials.hs +++ b/lib/Numeric/GSL/Polynomials.hs | |||
@@ -55,4 +55,4 @@ polySolve' v | dim v > 1 = unsafePerformIO $ do | |||
55 | return r | 55 | return r |
56 | | otherwise = error "polySolve on a polynomial of degree zero" | 56 | | otherwise = error "polySolve on a polynomial of degree zero" |
57 | 57 | ||
58 | foreign import ccall "gsl-aux.h polySolve" c_polySolve:: TVCV | 58 | foreign import ccall unsafe "gsl-aux.h polySolve" c_polySolve:: TVCV |
diff --git a/lib/Numeric/GSL/Root.hs b/lib/Numeric/GSL/Root.hs index 41f7fb3..cd2982a 100644 --- a/lib/Numeric/GSL/Root.hs +++ b/lib/Numeric/GSL/Root.hs | |||
@@ -91,7 +91,7 @@ rootGen m f xi epsabs maxit = unsafePerformIO $ do | |||
91 | return (take n $ drop 1 sol, path) | 91 | return (take n $ drop 1 sol, path) |
92 | 92 | ||
93 | 93 | ||
94 | foreign import ccall "root" | 94 | foreign import ccall safe "root" |
95 | c_root:: CInt -> FunPtr TVV -> Double -> CInt -> TVM | 95 | c_root:: CInt -> FunPtr TVV -> Double -> CInt -> TVM |
96 | 96 | ||
97 | ------------------------------------------------------------------------- | 97 | ------------------------------------------------------------------------- |
@@ -130,7 +130,7 @@ rootJGen m f jac xi epsabs maxit = unsafePerformIO $ do | |||
130 | return (take n $ drop 1 sol, path) | 130 | return (take n $ drop 1 sol, path) |
131 | 131 | ||
132 | 132 | ||
133 | foreign import ccall "rootj" | 133 | foreign import ccall safe "rootj" |
134 | c_rootj:: CInt -> FunPtr TVV -> FunPtr TVM -> Double -> CInt -> TVM | 134 | c_rootj:: CInt -> FunPtr TVV -> FunPtr TVM -> Double -> CInt -> TVM |
135 | 135 | ||
136 | ------------------------------------------------------- | 136 | ------------------------------------------------------- |
diff --git a/lib/Numeric/GSL/Vector.hs b/lib/Numeric/GSL/Vector.hs index b8c6d04..db34041 100644 --- a/lib/Numeric/GSL/Vector.hs +++ b/lib/Numeric/GSL/Vector.hs | |||
@@ -109,10 +109,10 @@ sumC x = unsafePerformIO $ do | |||
109 | app2 c_sumC vec x vec r "sumC" | 109 | app2 c_sumC vec x vec r "sumC" |
110 | return $ r @> 0 | 110 | return $ r @> 0 |
111 | 111 | ||
112 | foreign import ccall safe "gsl-aux.h sumF" c_sumF :: TFF | 112 | foreign import ccall unsafe "gsl-aux.h sumF" c_sumF :: TFF |
113 | foreign import ccall safe "gsl-aux.h sumR" c_sumR :: TVV | 113 | foreign import ccall unsafe "gsl-aux.h sumR" c_sumR :: TVV |
114 | foreign import ccall safe "gsl-aux.h sumQ" c_sumQ :: TQVQV | 114 | foreign import ccall unsafe "gsl-aux.h sumQ" c_sumQ :: TQVQV |
115 | foreign import ccall safe "gsl-aux.h sumC" c_sumC :: TCVCV | 115 | foreign import ccall unsafe "gsl-aux.h sumC" c_sumC :: TCVCV |
116 | 116 | ||
117 | -- | product of elements | 117 | -- | product of elements |
118 | prodF :: Vector Float -> Float | 118 | prodF :: Vector Float -> Float |
@@ -142,10 +142,10 @@ prodC x = unsafePerformIO $ do | |||
142 | app2 c_prodC vec x vec r "prodC" | 142 | app2 c_prodC vec x vec r "prodC" |
143 | return $ r @> 0 | 143 | return $ r @> 0 |
144 | 144 | ||
145 | foreign import ccall safe "gsl-aux.h prodF" c_prodF :: TFF | 145 | foreign import ccall unsafe "gsl-aux.h prodF" c_prodF :: TFF |
146 | foreign import ccall safe "gsl-aux.h prodR" c_prodR :: TVV | 146 | foreign import ccall unsafe "gsl-aux.h prodR" c_prodR :: TVV |
147 | foreign import ccall safe "gsl-aux.h prodQ" c_prodQ :: TQVQV | 147 | foreign import ccall unsafe "gsl-aux.h prodQ" c_prodQ :: TQVQV |
148 | foreign import ccall safe "gsl-aux.h prodC" c_prodC :: TCVCV | 148 | foreign import ccall unsafe "gsl-aux.h prodC" c_prodC :: TCVCV |
149 | 149 | ||
150 | -- | dot product | 150 | -- | dot product |
151 | dotF :: Vector Float -> Vector Float -> Float | 151 | dotF :: Vector Float -> Vector Float -> Float |
@@ -175,10 +175,10 @@ dotC x y = unsafePerformIO $ do | |||
175 | app3 c_dotC vec x vec y vec r "dotC" | 175 | app3 c_dotC vec x vec y vec r "dotC" |
176 | return $ r @> 0 | 176 | return $ r @> 0 |
177 | 177 | ||
178 | foreign import ccall safe "gsl-aux.h dotF" c_dotF :: TFFF | 178 | foreign import ccall unsafe "gsl-aux.h dotF" c_dotF :: TFFF |
179 | foreign import ccall safe "gsl-aux.h dotR" c_dotR :: TVVV | 179 | foreign import ccall unsafe "gsl-aux.h dotR" c_dotR :: TVVV |
180 | foreign import ccall safe "gsl-aux.h dotQ" c_dotQ :: TQVQVQV | 180 | foreign import ccall unsafe "gsl-aux.h dotQ" c_dotQ :: TQVQVQV |
181 | foreign import ccall safe "gsl-aux.h dotC" c_dotC :: TCVCVCV | 181 | foreign import ccall unsafe "gsl-aux.h dotC" c_dotC :: TCVCVCV |
182 | 182 | ||
183 | ------------------------------------------------------------------ | 183 | ------------------------------------------------------------------ |
184 | 184 | ||
@@ -210,25 +210,25 @@ vectorZipAux fun code u v = unsafePerformIO $ do | |||
210 | toScalarR :: FunCodeS -> Vector Double -> Double | 210 | toScalarR :: FunCodeS -> Vector Double -> Double |
211 | toScalarR oper = toScalarAux c_toScalarR (fromei oper) | 211 | toScalarR oper = toScalarAux c_toScalarR (fromei oper) |
212 | 212 | ||
213 | foreign import ccall safe "gsl-aux.h toScalarR" c_toScalarR :: CInt -> TVV | 213 | foreign import ccall unsafe "gsl-aux.h toScalarR" c_toScalarR :: CInt -> TVV |
214 | 214 | ||
215 | -- | obtains different functions of a vector: norm1, norm2, max, min, posmax, posmin, etc. | 215 | -- | obtains different functions of a vector: norm1, norm2, max, min, posmax, posmin, etc. |
216 | toScalarF :: FunCodeS -> Vector Float -> Float | 216 | toScalarF :: FunCodeS -> Vector Float -> Float |
217 | toScalarF oper = toScalarAux c_toScalarF (fromei oper) | 217 | toScalarF oper = toScalarAux c_toScalarF (fromei oper) |
218 | 218 | ||
219 | foreign import ccall safe "gsl-aux.h toScalarF" c_toScalarF :: CInt -> TFF | 219 | foreign import ccall unsafe "gsl-aux.h toScalarF" c_toScalarF :: CInt -> TFF |
220 | 220 | ||
221 | -- | obtains different functions of a vector: only norm1, norm2 | 221 | -- | obtains different functions of a vector: only norm1, norm2 |
222 | toScalarC :: FunCodeS -> Vector (Complex Double) -> Double | 222 | toScalarC :: FunCodeS -> Vector (Complex Double) -> Double |
223 | toScalarC oper = toScalarAux c_toScalarC (fromei oper) | 223 | toScalarC oper = toScalarAux c_toScalarC (fromei oper) |
224 | 224 | ||
225 | foreign import ccall safe "gsl-aux.h toScalarC" c_toScalarC :: CInt -> TCVV | 225 | foreign import ccall unsafe "gsl-aux.h toScalarC" c_toScalarC :: CInt -> TCVV |
226 | 226 | ||
227 | -- | obtains different functions of a vector: only norm1, norm2 | 227 | -- | obtains different functions of a vector: only norm1, norm2 |
228 | toScalarQ :: FunCodeS -> Vector (Complex Float) -> Float | 228 | toScalarQ :: FunCodeS -> Vector (Complex Float) -> Float |
229 | toScalarQ oper = toScalarAux c_toScalarQ (fromei oper) | 229 | toScalarQ oper = toScalarAux c_toScalarQ (fromei oper) |
230 | 230 | ||
231 | foreign import ccall safe "gsl-aux.h toScalarQ" c_toScalarQ :: CInt -> TQVF | 231 | foreign import ccall unsafe "gsl-aux.h toScalarQ" c_toScalarQ :: CInt -> TQVF |
232 | 232 | ||
233 | ------------------------------------------------------------------ | 233 | ------------------------------------------------------------------ |
234 | 234 | ||
@@ -236,25 +236,25 @@ foreign import ccall safe "gsl-aux.h toScalarQ" c_toScalarQ :: CInt -> TQVF | |||
236 | vectorMapR :: FunCodeV -> Vector Double -> Vector Double | 236 | vectorMapR :: FunCodeV -> Vector Double -> Vector Double |
237 | vectorMapR = vectorMapAux c_vectorMapR | 237 | vectorMapR = vectorMapAux c_vectorMapR |
238 | 238 | ||
239 | foreign import ccall safe "gsl-aux.h mapR" c_vectorMapR :: CInt -> TVV | 239 | foreign import ccall unsafe "gsl-aux.h mapR" c_vectorMapR :: CInt -> TVV |
240 | 240 | ||
241 | -- | map of complex vectors with given function | 241 | -- | map of complex vectors with given function |
242 | vectorMapC :: FunCodeV -> Vector (Complex Double) -> Vector (Complex Double) | 242 | vectorMapC :: FunCodeV -> Vector (Complex Double) -> Vector (Complex Double) |
243 | vectorMapC oper = vectorMapAux c_vectorMapC (fromei oper) | 243 | vectorMapC oper = vectorMapAux c_vectorMapC (fromei oper) |
244 | 244 | ||
245 | foreign import ccall safe "gsl-aux.h mapC" c_vectorMapC :: CInt -> TCVCV | 245 | foreign import ccall unsafe "gsl-aux.h mapC" c_vectorMapC :: CInt -> TCVCV |
246 | 246 | ||
247 | -- | map of real vectors with given function | 247 | -- | map of real vectors with given function |
248 | vectorMapF :: FunCodeV -> Vector Float -> Vector Float | 248 | vectorMapF :: FunCodeV -> Vector Float -> Vector Float |
249 | vectorMapF = vectorMapAux c_vectorMapF | 249 | vectorMapF = vectorMapAux c_vectorMapF |
250 | 250 | ||
251 | foreign import ccall safe "gsl-aux.h mapF" c_vectorMapF :: CInt -> TFF | 251 | foreign import ccall unsafe "gsl-aux.h mapF" c_vectorMapF :: CInt -> TFF |
252 | 252 | ||
253 | -- | map of real vectors with given function | 253 | -- | map of real vectors with given function |
254 | vectorMapQ :: FunCodeV -> Vector (Complex Float) -> Vector (Complex Float) | 254 | vectorMapQ :: FunCodeV -> Vector (Complex Float) -> Vector (Complex Float) |
255 | vectorMapQ = vectorMapAux c_vectorMapQ | 255 | vectorMapQ = vectorMapAux c_vectorMapQ |
256 | 256 | ||
257 | foreign import ccall safe "gsl-aux.h mapQ" c_vectorMapQ :: CInt -> TQVQV | 257 | foreign import ccall unsafe "gsl-aux.h mapQ" c_vectorMapQ :: CInt -> TQVQV |
258 | 258 | ||
259 | ------------------------------------------------------------------- | 259 | ------------------------------------------------------------------- |
260 | 260 | ||
@@ -262,25 +262,25 @@ foreign import ccall safe "gsl-aux.h mapQ" c_vectorMapQ :: CInt -> TQVQV | |||
262 | vectorMapValR :: FunCodeSV -> Double -> Vector Double -> Vector Double | 262 | vectorMapValR :: FunCodeSV -> Double -> Vector Double -> Vector Double |
263 | vectorMapValR oper = vectorMapValAux c_vectorMapValR (fromei oper) | 263 | vectorMapValR oper = vectorMapValAux c_vectorMapValR (fromei oper) |
264 | 264 | ||
265 | foreign import ccall safe "gsl-aux.h mapValR" c_vectorMapValR :: CInt -> Ptr Double -> TVV | 265 | foreign import ccall unsafe "gsl-aux.h mapValR" c_vectorMapValR :: CInt -> Ptr Double -> TVV |
266 | 266 | ||
267 | -- | map of complex vectors with given function | 267 | -- | map of complex vectors with given function |
268 | vectorMapValC :: FunCodeSV -> Complex Double -> Vector (Complex Double) -> Vector (Complex Double) | 268 | vectorMapValC :: FunCodeSV -> Complex Double -> Vector (Complex Double) -> Vector (Complex Double) |
269 | vectorMapValC = vectorMapValAux c_vectorMapValC | 269 | vectorMapValC = vectorMapValAux c_vectorMapValC |
270 | 270 | ||
271 | foreign import ccall safe "gsl-aux.h mapValC" c_vectorMapValC :: CInt -> Ptr (Complex Double) -> TCVCV | 271 | foreign import ccall unsafe "gsl-aux.h mapValC" c_vectorMapValC :: CInt -> Ptr (Complex Double) -> TCVCV |
272 | 272 | ||
273 | -- | map of real vectors with given function | 273 | -- | map of real vectors with given function |
274 | vectorMapValF :: FunCodeSV -> Float -> Vector Float -> Vector Float | 274 | vectorMapValF :: FunCodeSV -> Float -> Vector Float -> Vector Float |
275 | vectorMapValF oper = vectorMapValAux c_vectorMapValF (fromei oper) | 275 | vectorMapValF oper = vectorMapValAux c_vectorMapValF (fromei oper) |
276 | 276 | ||
277 | foreign import ccall safe "gsl-aux.h mapValF" c_vectorMapValF :: CInt -> Ptr Float -> TFF | 277 | foreign import ccall unsafe "gsl-aux.h mapValF" c_vectorMapValF :: CInt -> Ptr Float -> TFF |
278 | 278 | ||
279 | -- | map of complex vectors with given function | 279 | -- | map of complex vectors with given function |
280 | vectorMapValQ :: FunCodeSV -> Complex Float -> Vector (Complex Float) -> Vector (Complex Float) | 280 | vectorMapValQ :: FunCodeSV -> Complex Float -> Vector (Complex Float) -> Vector (Complex Float) |
281 | vectorMapValQ oper = vectorMapValAux c_vectorMapValQ (fromei oper) | 281 | vectorMapValQ oper = vectorMapValAux c_vectorMapValQ (fromei oper) |
282 | 282 | ||
283 | foreign import ccall safe "gsl-aux.h mapValQ" c_vectorMapValQ :: CInt -> Ptr (Complex Float) -> TQVQV | 283 | foreign import ccall unsafe "gsl-aux.h mapValQ" c_vectorMapValQ :: CInt -> Ptr (Complex Float) -> TQVQV |
284 | 284 | ||
285 | ------------------------------------------------------------------- | 285 | ------------------------------------------------------------------- |
286 | 286 | ||
@@ -288,25 +288,25 @@ foreign import ccall safe "gsl-aux.h mapValQ" c_vectorMapValQ :: CInt -> Ptr (Co | |||
288 | vectorZipR :: FunCodeVV -> Vector Double -> Vector Double -> Vector Double | 288 | vectorZipR :: FunCodeVV -> Vector Double -> Vector Double -> Vector Double |
289 | vectorZipR = vectorZipAux c_vectorZipR | 289 | vectorZipR = vectorZipAux c_vectorZipR |
290 | 290 | ||
291 | foreign import ccall safe "gsl-aux.h zipR" c_vectorZipR :: CInt -> TVVV | 291 | foreign import ccall unsafe "gsl-aux.h zipR" c_vectorZipR :: CInt -> TVVV |
292 | 292 | ||
293 | -- | elementwise operation on complex vectors | 293 | -- | elementwise operation on complex vectors |
294 | vectorZipC :: FunCodeVV -> Vector (Complex Double) -> Vector (Complex Double) -> Vector (Complex Double) | 294 | vectorZipC :: FunCodeVV -> Vector (Complex Double) -> Vector (Complex Double) -> Vector (Complex Double) |
295 | vectorZipC = vectorZipAux c_vectorZipC | 295 | vectorZipC = vectorZipAux c_vectorZipC |
296 | 296 | ||
297 | foreign import ccall safe "gsl-aux.h zipC" c_vectorZipC :: CInt -> TCVCVCV | 297 | foreign import ccall unsafe "gsl-aux.h zipC" c_vectorZipC :: CInt -> TCVCVCV |
298 | 298 | ||
299 | -- | elementwise operation on real vectors | 299 | -- | elementwise operation on real vectors |
300 | vectorZipF :: FunCodeVV -> Vector Float -> Vector Float -> Vector Float | 300 | vectorZipF :: FunCodeVV -> Vector Float -> Vector Float -> Vector Float |
301 | vectorZipF = vectorZipAux c_vectorZipF | 301 | vectorZipF = vectorZipAux c_vectorZipF |
302 | 302 | ||
303 | foreign import ccall safe "gsl-aux.h zipF" c_vectorZipF :: CInt -> TFFF | 303 | foreign import ccall unsafe "gsl-aux.h zipF" c_vectorZipF :: CInt -> TFFF |
304 | 304 | ||
305 | -- | elementwise operation on complex vectors | 305 | -- | elementwise operation on complex vectors |
306 | vectorZipQ :: FunCodeVV -> Vector (Complex Float) -> Vector (Complex Float) -> Vector (Complex Float) | 306 | vectorZipQ :: FunCodeVV -> Vector (Complex Float) -> Vector (Complex Float) -> Vector (Complex Float) |
307 | vectorZipQ = vectorZipAux c_vectorZipQ | 307 | vectorZipQ = vectorZipAux c_vectorZipQ |
308 | 308 | ||
309 | foreign import ccall safe "gsl-aux.h zipQ" c_vectorZipQ :: CInt -> TQVQVQV | 309 | foreign import ccall unsafe "gsl-aux.h zipQ" c_vectorZipQ :: CInt -> TQVQVQV |
310 | 310 | ||
311 | ----------------------------------------------------------------------- | 311 | ----------------------------------------------------------------------- |
312 | 312 | ||
@@ -324,4 +324,4 @@ randomVector seed dist n = unsafePerformIO $ do | |||
324 | app1 (c_random_vector (fi seed) ((fi.fromEnum) dist)) vec r "randomVector" | 324 | app1 (c_random_vector (fi seed) ((fi.fromEnum) dist)) vec r "randomVector" |
325 | return r | 325 | return r |
326 | 326 | ||
327 | foreign import ccall safe "random_vector" c_random_vector :: CInt -> CInt -> TV | 327 | foreign import ccall unsafe "random_vector" c_random_vector :: CInt -> CInt -> TV |
diff --git a/lib/Numeric/LinearAlgebra/LAPACK.hs b/lib/Numeric/LinearAlgebra/LAPACK.hs index 7ad58e1..9bc6669 100644 --- a/lib/Numeric/LinearAlgebra/LAPACK.hs +++ b/lib/Numeric/LinearAlgebra/LAPACK.hs | |||
@@ -53,10 +53,10 @@ import System.IO.Unsafe(unsafePerformIO) | |||
53 | 53 | ||
54 | ----------------------------------------------------------------------------------- | 54 | ----------------------------------------------------------------------------------- |
55 | 55 | ||
56 | foreign import ccall "multiplyR" dgemmc :: CInt -> CInt -> TMMM | 56 | foreign import ccall unsafe "multiplyR" dgemmc :: CInt -> CInt -> TMMM |
57 | foreign import ccall "multiplyC" zgemmc :: CInt -> CInt -> TCMCMCM | 57 | foreign import ccall unsafe "multiplyC" zgemmc :: CInt -> CInt -> TCMCMCM |
58 | foreign import ccall "multiplyF" sgemmc :: CInt -> CInt -> TFMFMFM | 58 | foreign import ccall unsafe "multiplyF" sgemmc :: CInt -> CInt -> TFMFMFM |
59 | foreign import ccall "multiplyQ" cgemmc :: CInt -> CInt -> TQMQMQM | 59 | foreign import ccall unsafe "multiplyQ" cgemmc :: CInt -> CInt -> TQMQMQM |
60 | 60 | ||
61 | isT Matrix{order = ColumnMajor} = 0 | 61 | isT Matrix{order = ColumnMajor} = 0 |
62 | isT Matrix{order = RowMajor} = 1 | 62 | isT Matrix{order = RowMajor} = 1 |
@@ -88,10 +88,10 @@ multiplyQ :: Matrix (Complex Float) -> Matrix (Complex Float) -> Matrix (Complex | |||
88 | multiplyQ a b = multiplyAux cgemmc "cgemmc" a b | 88 | multiplyQ a b = multiplyAux cgemmc "cgemmc" a b |
89 | 89 | ||
90 | ----------------------------------------------------------------------------- | 90 | ----------------------------------------------------------------------------- |
91 | foreign import ccall "svd_l_R" dgesvd :: TMMVM | 91 | foreign import ccall unsafe "svd_l_R" dgesvd :: TMMVM |
92 | foreign import ccall "svd_l_C" zgesvd :: TCMCMVCM | 92 | foreign import ccall unsafe "svd_l_C" zgesvd :: TCMCMVCM |
93 | foreign import ccall "svd_l_Rdd" dgesdd :: TMMVM | 93 | foreign import ccall unsafe "svd_l_Rdd" dgesdd :: TMMVM |
94 | foreign import ccall "svd_l_Cdd" zgesdd :: TCMCMVCM | 94 | foreign import ccall unsafe "svd_l_Cdd" zgesdd :: TCMCMVCM |
95 | 95 | ||
96 | -- | Full SVD of a real matrix using LAPACK's /dgesvd/. | 96 | -- | Full SVD of a real matrix using LAPACK's /dgesvd/. |
97 | svdR :: Matrix Double -> (Matrix Double, Vector Double, Matrix Double) | 97 | svdR :: Matrix Double -> (Matrix Double, Vector Double, Matrix Double) |
@@ -211,10 +211,10 @@ leftSVAux f st x = unsafePerformIO $ do | |||
211 | 211 | ||
212 | ----------------------------------------------------------------------------- | 212 | ----------------------------------------------------------------------------- |
213 | 213 | ||
214 | foreign import ccall "LAPACK/lapack-aux.h eig_l_R" dgeev :: TMMCVM | 214 | foreign import ccall unsafe "LAPACK/lapack-aux.h eig_l_R" dgeev :: TMMCVM |
215 | foreign import ccall "LAPACK/lapack-aux.h eig_l_C" zgeev :: TCMCMCVCM | 215 | foreign import ccall unsafe "LAPACK/lapack-aux.h eig_l_C" zgeev :: TCMCMCVCM |
216 | foreign import ccall "LAPACK/lapack-aux.h eig_l_S" dsyev :: CInt -> TMVM | 216 | foreign import ccall unsafe "LAPACK/lapack-aux.h eig_l_S" dsyev :: CInt -> TMVM |
217 | foreign import ccall "LAPACK/lapack-aux.h eig_l_H" zheev :: CInt -> TCMVCM | 217 | foreign import ccall unsafe "LAPACK/lapack-aux.h eig_l_H" zheev :: CInt -> TCMVCM |
218 | 218 | ||
219 | eigAux f st m = unsafePerformIO $ do | 219 | eigAux f st m = unsafePerformIO $ do |
220 | l <- createVector r | 220 | l <- createVector r |
@@ -325,10 +325,10 @@ eigOnlyH = vrev . fst. eigSHAux (zheev 1) "eigH'" . fmat | |||
325 | vrev = flatten . flipud . reshape 1 | 325 | vrev = flatten . flipud . reshape 1 |
326 | 326 | ||
327 | ----------------------------------------------------------------------------- | 327 | ----------------------------------------------------------------------------- |
328 | foreign import ccall "linearSolveR_l" dgesv :: TMMM | 328 | foreign import ccall unsafe "linearSolveR_l" dgesv :: TMMM |
329 | foreign import ccall "linearSolveC_l" zgesv :: TCMCMCM | 329 | foreign import ccall unsafe "linearSolveC_l" zgesv :: TCMCMCM |
330 | foreign import ccall "cholSolveR_l" dpotrs :: TMMM | 330 | foreign import ccall unsafe "cholSolveR_l" dpotrs :: TMMM |
331 | foreign import ccall "cholSolveC_l" zpotrs :: TCMCMCM | 331 | foreign import ccall unsafe "cholSolveC_l" zpotrs :: TCMCMCM |
332 | 332 | ||
333 | linearSolveSQAux f st a b | 333 | linearSolveSQAux f st a b |
334 | | n1==n2 && n1==r = unsafePerformIO $ do | 334 | | n1==n2 && n1==r = unsafePerformIO $ do |
@@ -359,10 +359,10 @@ cholSolveC :: Matrix (Complex Double) -> Matrix (Complex Double) -> Matrix (Comp | |||
359 | cholSolveC a b = linearSolveSQAux zpotrs "cholSolveC" (fmat a) (fmat b) | 359 | cholSolveC a b = linearSolveSQAux zpotrs "cholSolveC" (fmat a) (fmat b) |
360 | 360 | ||
361 | ----------------------------------------------------------------------------------- | 361 | ----------------------------------------------------------------------------------- |
362 | foreign import ccall "LAPACK/lapack-aux.h linearSolveLSR_l" dgels :: TMMM | 362 | foreign import ccall unsafe "LAPACK/lapack-aux.h linearSolveLSR_l" dgels :: TMMM |
363 | foreign import ccall "LAPACK/lapack-aux.h linearSolveLSC_l" zgels :: TCMCMCM | 363 | foreign import ccall unsafe "LAPACK/lapack-aux.h linearSolveLSC_l" zgels :: TCMCMCM |
364 | foreign import ccall "LAPACK/lapack-aux.h linearSolveSVDR_l" dgelss :: Double -> TMMM | 364 | foreign import ccall unsafe "LAPACK/lapack-aux.h linearSolveSVDR_l" dgelss :: Double -> TMMM |
365 | foreign import ccall "LAPACK/lapack-aux.h linearSolveSVDC_l" zgelss :: Double -> TCMCMCM | 365 | foreign import ccall unsafe "LAPACK/lapack-aux.h linearSolveSVDC_l" zgelss :: Double -> TCMCMCM |
366 | 366 | ||
367 | linearSolveAux f st a b = unsafePerformIO $ do | 367 | linearSolveAux f st a b = unsafePerformIO $ do |
368 | r <- createMatrix ColumnMajor (max m n) nrhs | 368 | r <- createMatrix ColumnMajor (max m n) nrhs |
@@ -401,8 +401,8 @@ linearSolveSVDC (Just rcond) a b = subMatrix (0,0) (cols a, cols b) $ | |||
401 | linearSolveSVDC Nothing a b = linearSolveSVDC (Just (-1)) (fmat a) (fmat b) | 401 | linearSolveSVDC Nothing a b = linearSolveSVDC (Just (-1)) (fmat a) (fmat b) |
402 | 402 | ||
403 | ----------------------------------------------------------------------------------- | 403 | ----------------------------------------------------------------------------------- |
404 | foreign import ccall "LAPACK/lapack-aux.h chol_l_H" zpotrf :: TCMCM | 404 | foreign import ccall unsafe "LAPACK/lapack-aux.h chol_l_H" zpotrf :: TCMCM |
405 | foreign import ccall "LAPACK/lapack-aux.h chol_l_S" dpotrf :: TMM | 405 | foreign import ccall unsafe "LAPACK/lapack-aux.h chol_l_S" dpotrf :: TMM |
406 | 406 | ||
407 | cholAux f st a = do | 407 | cholAux f st a = do |
408 | r <- createMatrix ColumnMajor n n | 408 | r <- createMatrix ColumnMajor n n |
@@ -427,8 +427,8 @@ mbCholS :: Matrix Double -> Maybe (Matrix Double) | |||
427 | mbCholS = unsafePerformIO . mbCatch . cholAux dpotrf "cholS" . fmat | 427 | mbCholS = unsafePerformIO . mbCatch . cholAux dpotrf "cholS" . fmat |
428 | 428 | ||
429 | ----------------------------------------------------------------------------------- | 429 | ----------------------------------------------------------------------------------- |
430 | foreign import ccall "LAPACK/lapack-aux.h qr_l_R" dgeqr2 :: TMVM | 430 | foreign import ccall unsafe "LAPACK/lapack-aux.h qr_l_R" dgeqr2 :: TMVM |
431 | foreign import ccall "LAPACK/lapack-aux.h qr_l_C" zgeqr2 :: TCMCVCM | 431 | foreign import ccall unsafe "LAPACK/lapack-aux.h qr_l_C" zgeqr2 :: TCMCVCM |
432 | 432 | ||
433 | -- | QR factorization of a real matrix, using LAPACK's /dgeqr2/. | 433 | -- | QR factorization of a real matrix, using LAPACK's /dgeqr2/. |
434 | qrR :: Matrix Double -> (Matrix Double, Vector Double) | 434 | qrR :: Matrix Double -> (Matrix Double, Vector Double) |
@@ -448,8 +448,8 @@ qrAux f st a = unsafePerformIO $ do | |||
448 | mn = min m n | 448 | mn = min m n |
449 | 449 | ||
450 | ----------------------------------------------------------------------------------- | 450 | ----------------------------------------------------------------------------------- |
451 | foreign import ccall "LAPACK/lapack-aux.h hess_l_R" dgehrd :: TMVM | 451 | foreign import ccall unsafe "LAPACK/lapack-aux.h hess_l_R" dgehrd :: TMVM |
452 | foreign import ccall "LAPACK/lapack-aux.h hess_l_C" zgehrd :: TCMCVCM | 452 | foreign import ccall unsafe "LAPACK/lapack-aux.h hess_l_C" zgehrd :: TCMCVCM |
453 | 453 | ||
454 | -- | Hessenberg factorization of a square real matrix, using LAPACK's /dgehrd/. | 454 | -- | Hessenberg factorization of a square real matrix, using LAPACK's /dgehrd/. |
455 | hessR :: Matrix Double -> (Matrix Double, Vector Double) | 455 | hessR :: Matrix Double -> (Matrix Double, Vector Double) |
@@ -469,8 +469,8 @@ hessAux f st a = unsafePerformIO $ do | |||
469 | mn = min m n | 469 | mn = min m n |
470 | 470 | ||
471 | ----------------------------------------------------------------------------------- | 471 | ----------------------------------------------------------------------------------- |
472 | foreign import ccall "LAPACK/lapack-aux.h schur_l_R" dgees :: TMMM | 472 | foreign import ccall unsafe "LAPACK/lapack-aux.h schur_l_R" dgees :: TMMM |
473 | foreign import ccall "LAPACK/lapack-aux.h schur_l_C" zgees :: TCMCMCM | 473 | foreign import ccall unsafe "LAPACK/lapack-aux.h schur_l_C" zgees :: TCMCMCM |
474 | 474 | ||
475 | -- | Schur factorization of a square real matrix, using LAPACK's /dgees/. | 475 | -- | Schur factorization of a square real matrix, using LAPACK's /dgees/. |
476 | schurR :: Matrix Double -> (Matrix Double, Matrix Double) | 476 | schurR :: Matrix Double -> (Matrix Double, Matrix Double) |
@@ -488,8 +488,8 @@ schurAux f st a = unsafePerformIO $ do | |||
488 | where n = rows a | 488 | where n = rows a |
489 | 489 | ||
490 | ----------------------------------------------------------------------------------- | 490 | ----------------------------------------------------------------------------------- |
491 | foreign import ccall "LAPACK/lapack-aux.h lu_l_R" dgetrf :: TMVM | 491 | foreign import ccall unsafe "LAPACK/lapack-aux.h lu_l_R" dgetrf :: TMVM |
492 | foreign import ccall "LAPACK/lapack-aux.h lu_l_C" zgetrf :: TCMVCM | 492 | foreign import ccall unsafe "LAPACK/lapack-aux.h lu_l_C" zgetrf :: TCMVCM |
493 | 493 | ||
494 | -- | LU factorization of a general real matrix, using LAPACK's /dgetrf/. | 494 | -- | LU factorization of a general real matrix, using LAPACK's /dgetrf/. |
495 | luR :: Matrix Double -> (Matrix Double, [Int]) | 495 | luR :: Matrix Double -> (Matrix Double, [Int]) |
@@ -511,8 +511,8 @@ luAux f st a = unsafePerformIO $ do | |||
511 | type TW a = CInt -> PD -> a | 511 | type TW a = CInt -> PD -> a |
512 | type TQ a = CInt -> CInt -> PC -> a | 512 | type TQ a = CInt -> CInt -> PC -> a |
513 | 513 | ||
514 | foreign import ccall "LAPACK/lapack-aux.h luS_l_R" dgetrs :: TMVMM | 514 | foreign import ccall unsafe "LAPACK/lapack-aux.h luS_l_R" dgetrs :: TMVMM |
515 | foreign import ccall "LAPACK/lapack-aux.h luS_l_C" zgetrs :: TQ (TW (TQ (TQ (IO CInt)))) | 515 | foreign import ccall unsafe "LAPACK/lapack-aux.h luS_l_C" zgetrs :: TQ (TW (TQ (TQ (IO CInt)))) |
516 | 516 | ||
517 | -- | Solve a real linear system from a precomputed LU decomposition ('luR'), using LAPACK's /dgetrs/. | 517 | -- | Solve a real linear system from a precomputed LU decomposition ('luR'), using LAPACK's /dgetrs/. |
518 | lusR :: Matrix Double -> [Int] -> Matrix Double -> Matrix Double | 518 | lusR :: Matrix Double -> [Int] -> Matrix Double -> Matrix Double |
diff --git a/packages/glpk/lib/Numeric/LinearProgramming.hs b/packages/glpk/lib/Numeric/LinearProgramming.hs index b832bac..6a3e186 100644 --- a/packages/glpk/lib/Numeric/LinearProgramming.hs +++ b/packages/glpk/lib/Numeric/LinearProgramming.hs | |||
@@ -214,7 +214,7 @@ mkConstrS n objfun b1 = fromLists (ob ++ co) where | |||
214 | 214 | ||
215 | ----------------------------------------------------- | 215 | ----------------------------------------------------- |
216 | 216 | ||
217 | foreign import ccall "c_simplex_sparse" c_simplex_sparse | 217 | foreign import ccall unsafe "c_simplex_sparse" c_simplex_sparse |
218 | :: CInt -> CInt -- rows and cols | 218 | :: CInt -> CInt -- rows and cols |
219 | -> CInt -> CInt -> Ptr Double -- coeffs | 219 | -> CInt -> CInt -> Ptr Double -- coeffs |
220 | -> CInt -> CInt -> Ptr Double -- bounds | 220 | -> CInt -> CInt -> Ptr Double -- bounds |
diff --git a/packages/special/lib/Numeric/GSL/Special/Airy.hs b/packages/special/lib/Numeric/GSL/Special/Airy.hs index 737de7c..e2009e4 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 SAFE_CHEAP "gsl_sf_airy_Ai_e" gsl_sf_airy_Ai_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 49 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_Ai" gsl_sf_airy_Ai :: Double -> Gsl_mode_t -> Double | 53 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_Bi_e" gsl_sf_airy_Bi_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 57 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_Bi" gsl_sf_airy_Bi :: Double -> Gsl_mode_t -> Double | 61 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_Ai_scaled_e" gsl_sf_airy_Ai_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 65 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_Ai_scaled" gsl_sf_airy_Ai_scaled :: Double -> Gsl_mode_t -> Double | 69 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_Bi_scaled_e" gsl_sf_airy_Bi_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 73 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_Bi_scaled" gsl_sf_airy_Bi_scaled :: Double -> Gsl_mode_t -> Double | 77 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_Ai_deriv_e" gsl_sf_airy_Ai_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 81 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_Ai_deriv" gsl_sf_airy_Ai_deriv :: Double -> Gsl_mode_t -> Double | 85 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_Bi_deriv_e" gsl_sf_airy_Bi_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 89 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_Bi_deriv" gsl_sf_airy_Bi_deriv :: Double -> Gsl_mode_t -> Double | 93 | foreign import ccall unsafe "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 SAFE_CHEAP "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 unsafe "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 SAFE_CHEAP "gsl_sf_airy_Ai_deriv_scaled" gsl_sf_airy_Ai_deriv_scaled :: Double -> Gsl_mode_t -> Double | 101 | foreign import ccall unsafe "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 SAFE_CHEAP "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 unsafe "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 SAFE_CHEAP "gsl_sf_airy_Bi_deriv_scaled" gsl_sf_airy_Bi_deriv_scaled :: Double -> Gsl_mode_t -> Double | 109 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_zero_Ai_e" gsl_sf_airy_zero_Ai_e :: CInt -> Ptr () -> IO CInt | 113 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_zero_Ai" gsl_sf_airy_zero_Ai :: CInt -> Double | 117 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_zero_Bi_e" gsl_sf_airy_zero_Bi_e :: CInt -> Ptr () -> IO CInt | 121 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_zero_Bi" gsl_sf_airy_zero_Bi :: CInt -> Double | 125 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_zero_Ai_deriv_e" gsl_sf_airy_zero_Ai_deriv_e :: CInt -> Ptr () -> IO CInt | 129 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_zero_Ai_deriv" gsl_sf_airy_zero_Ai_deriv :: CInt -> Double | 133 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_zero_Bi_deriv_e" gsl_sf_airy_zero_Bi_deriv_e :: CInt -> Ptr () -> IO CInt | 137 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_airy_zero_Bi_deriv" gsl_sf_airy_zero_Bi_deriv :: CInt -> Double | 141 | foreign import ccall unsafe "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 4a80c28..7fda7f7 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 SAFE_CHEAP "gsl_sf_bessel_J0_e" gsl_sf_bessel_J0_e :: Double -> Ptr () -> IO CInt | 113 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_J0" gsl_sf_bessel_J0 :: Double -> Double | 117 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_J1_e" gsl_sf_bessel_J1_e :: Double -> Ptr () -> IO CInt | 121 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_J1" gsl_sf_bessel_J1 :: Double -> Double | 125 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Jn_e" gsl_sf_bessel_Jn_e :: CInt -> Double -> Ptr () -> IO CInt | 129 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Jn" gsl_sf_bessel_Jn :: CInt -> Double -> Double | 133 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Jn_array" gsl_sf_bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 137 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Y0_e" gsl_sf_bessel_Y0_e :: Double -> Ptr () -> IO CInt | 141 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Y0" gsl_sf_bessel_Y0 :: Double -> Double | 145 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Y1_e" gsl_sf_bessel_Y1_e :: Double -> Ptr () -> IO CInt | 149 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Y1" gsl_sf_bessel_Y1 :: Double -> Double | 153 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Yn_e" gsl_sf_bessel_Yn_e :: CInt -> Double -> Ptr () -> IO CInt | 157 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Yn" gsl_sf_bessel_Yn :: CInt -> Double -> Double | 161 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Yn_array" gsl_sf_bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 165 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_I0_e" gsl_sf_bessel_I0_e :: Double -> Ptr () -> IO CInt | 169 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_I0" gsl_sf_bessel_I0 :: Double -> Double | 173 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_I1_e" gsl_sf_bessel_I1_e :: Double -> Ptr () -> IO CInt | 177 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_I1" gsl_sf_bessel_I1 :: Double -> Double | 181 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_In_e" gsl_sf_bessel_In_e :: CInt -> Double -> Ptr () -> IO CInt | 185 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_In" gsl_sf_bessel_In :: CInt -> Double -> Double | 189 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_In_array" gsl_sf_bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 193 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_I0_scaled_e" gsl_sf_bessel_I0_scaled_e :: Double -> Ptr () -> IO CInt | 197 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_I0_scaled" gsl_sf_bessel_I0_scaled :: Double -> Double | 201 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_I1_scaled_e" gsl_sf_bessel_I1_scaled_e :: Double -> Ptr () -> IO CInt | 205 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_I1_scaled" gsl_sf_bessel_I1_scaled :: Double -> Double | 209 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_In_scaled_e" gsl_sf_bessel_In_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 213 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_In_scaled" gsl_sf_bessel_In_scaled :: CInt -> Double -> Double | 217 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_In_scaled_array" gsl_sf_bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 221 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_K0_e" gsl_sf_bessel_K0_e :: Double -> Ptr () -> IO CInt | 225 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_K0" gsl_sf_bessel_K0 :: Double -> Double | 229 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_K1_e" gsl_sf_bessel_K1_e :: Double -> Ptr () -> IO CInt | 233 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_K1" gsl_sf_bessel_K1 :: Double -> Double | 237 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Kn_e" gsl_sf_bessel_Kn_e :: CInt -> Double -> Ptr () -> IO CInt | 241 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Kn" gsl_sf_bessel_Kn :: CInt -> Double -> Double | 245 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Kn_array" gsl_sf_bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 249 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_K0_scaled_e" gsl_sf_bessel_K0_scaled_e :: Double -> Ptr () -> IO CInt | 253 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_K0_scaled" gsl_sf_bessel_K0_scaled :: Double -> Double | 257 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_K1_scaled_e" gsl_sf_bessel_K1_scaled_e :: Double -> Ptr () -> IO CInt | 261 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_K1_scaled" gsl_sf_bessel_K1_scaled :: Double -> Double | 265 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Kn_scaled_e" gsl_sf_bessel_Kn_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 269 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Kn_scaled" gsl_sf_bessel_Kn_scaled :: CInt -> Double -> Double | 273 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Kn_scaled_array" gsl_sf_bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 277 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_j0_e" gsl_sf_bessel_j0_e :: Double -> Ptr () -> IO CInt | 281 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_j0" gsl_sf_bessel_j0 :: Double -> Double | 285 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_j1_e" gsl_sf_bessel_j1_e :: Double -> Ptr () -> IO CInt | 289 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_j1" gsl_sf_bessel_j1 :: Double -> Double | 293 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_j2_e" gsl_sf_bessel_j2_e :: Double -> Ptr () -> IO CInt | 297 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_j2" gsl_sf_bessel_j2 :: Double -> Double | 301 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_jl_e" gsl_sf_bessel_jl_e :: CInt -> Double -> Ptr () -> IO CInt | 305 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_jl" gsl_sf_bessel_jl :: CInt -> Double -> Double | 309 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_jl_array" gsl_sf_bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt | 313 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_jl_steed_array" gsl_sf_bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt | 317 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_y0_e" gsl_sf_bessel_y0_e :: Double -> Ptr () -> IO CInt | 321 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_y0" gsl_sf_bessel_y0 :: Double -> Double | 325 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_y1_e" gsl_sf_bessel_y1_e :: Double -> Ptr () -> IO CInt | 329 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_y1" gsl_sf_bessel_y1 :: Double -> Double | 333 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_y2_e" gsl_sf_bessel_y2_e :: Double -> Ptr () -> IO CInt | 337 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_y2" gsl_sf_bessel_y2 :: Double -> Double | 341 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_yl_e" gsl_sf_bessel_yl_e :: CInt -> Double -> Ptr () -> IO CInt | 345 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_yl" gsl_sf_bessel_yl :: CInt -> Double -> Double | 349 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_yl_array" gsl_sf_bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt | 353 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_i0_scaled_e" gsl_sf_bessel_i0_scaled_e :: Double -> Ptr () -> IO CInt | 357 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_i0_scaled" gsl_sf_bessel_i0_scaled :: Double -> Double | 361 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_i1_scaled_e" gsl_sf_bessel_i1_scaled_e :: Double -> Ptr () -> IO CInt | 365 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_i1_scaled" gsl_sf_bessel_i1_scaled :: Double -> Double | 369 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_i2_scaled_e" gsl_sf_bessel_i2_scaled_e :: Double -> Ptr () -> IO CInt | 373 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_i2_scaled" gsl_sf_bessel_i2_scaled :: Double -> Double | 377 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_il_scaled_e" gsl_sf_bessel_il_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 381 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_il_scaled" gsl_sf_bessel_il_scaled :: CInt -> Double -> Double | 385 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_il_scaled_array" gsl_sf_bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt | 389 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_k0_scaled_e" gsl_sf_bessel_k0_scaled_e :: Double -> Ptr () -> IO CInt | 393 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_k0_scaled" gsl_sf_bessel_k0_scaled :: Double -> Double | 397 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_k1_scaled_e" gsl_sf_bessel_k1_scaled_e :: Double -> Ptr () -> IO CInt | 401 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_k1_scaled" gsl_sf_bessel_k1_scaled :: Double -> Double | 405 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_k2_scaled_e" gsl_sf_bessel_k2_scaled_e :: Double -> Ptr () -> IO CInt | 409 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_k2_scaled" gsl_sf_bessel_k2_scaled :: Double -> Double | 413 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_kl_scaled_e" gsl_sf_bessel_kl_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 417 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_kl_scaled" gsl_sf_bessel_kl_scaled :: CInt -> Double -> Double | 421 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_kl_scaled_array" gsl_sf_bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt | 425 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Jnu_e" gsl_sf_bessel_Jnu_e :: Double -> Double -> Ptr () -> IO CInt | 429 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Jnu" gsl_sf_bessel_Jnu :: Double -> Double -> Double | 433 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Ynu_e" gsl_sf_bessel_Ynu_e :: Double -> Double -> Ptr () -> IO CInt | 437 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Ynu" gsl_sf_bessel_Ynu :: Double -> Double -> Double | 441 | foreign import ccall unsafe "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 SAFE_CHEAP "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 unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Inu_scaled_e" gsl_sf_bessel_Inu_scaled_e :: Double -> Double -> Ptr () -> IO CInt | 449 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Inu_scaled" gsl_sf_bessel_Inu_scaled :: Double -> Double -> Double | 453 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Inu_e" gsl_sf_bessel_Inu_e :: Double -> Double -> Ptr () -> IO CInt | 457 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Inu" gsl_sf_bessel_Inu :: Double -> Double -> Double | 461 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Knu_scaled_e" gsl_sf_bessel_Knu_scaled_e :: Double -> Double -> Ptr () -> IO CInt | 465 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Knu_scaled" gsl_sf_bessel_Knu_scaled :: Double -> Double -> Double | 469 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Knu_scaled_e10_e" gsl_sf_bessel_Knu_scaled_e10_e :: Double -> Double -> Ptr () -> IO CInt | 473 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr () -> IO CInt | 477 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_Knu" gsl_sf_bessel_Knu :: Double -> Double -> Double | 481 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_lnKnu_e" gsl_sf_bessel_lnKnu_e :: Double -> Double -> Ptr () -> IO CInt | 485 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_lnKnu" gsl_sf_bessel_lnKnu :: Double -> Double -> Double | 489 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_zero_J0_e" gsl_sf_bessel_zero_J0_e :: CInt -> Ptr () -> IO CInt | 493 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_zero_J0" gsl_sf_bessel_zero_J0 :: CInt -> Double | 497 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_zero_J1_e" gsl_sf_bessel_zero_J1_e :: CInt -> Ptr () -> IO CInt | 501 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_zero_J1" gsl_sf_bessel_zero_J1 :: CInt -> Double | 505 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_zero_Jnu_e" gsl_sf_bessel_zero_Jnu_e :: Double -> CInt -> Ptr () -> IO CInt | 509 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_bessel_zero_Jnu" gsl_sf_bessel_zero_Jnu :: Double -> CInt -> Double | 513 | foreign import ccall unsafe "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 80bd45c..de7d605 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 SAFE_CHEAP "gsl_sf_clausen_e" gsl_sf_clausen_e :: Double -> Ptr () -> IO CInt | 26 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_clausen" gsl_sf_clausen :: Double -> Double | 30 | foreign import ccall unsafe "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 218213a..1d47d4e 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 SAFE_CHEAP "gsl_sf_hydrogenicR_1_e" gsl_sf_hydrogenicR_1_e :: Double -> Double -> Ptr () -> IO CInt | 29 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hydrogenicR_1" gsl_sf_hydrogenicR_1 :: Double -> Double -> Double | 33 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hydrogenicR_e" gsl_sf_hydrogenicR_e :: CInt -> CInt -> Double -> Double -> Ptr () -> IO CInt | 37 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hydrogenicR" gsl_sf_hydrogenicR :: CInt -> CInt -> Double -> Double -> Double | 41 | foreign import ccall unsafe "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 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 | 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 |
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 SAFE_CHEAP "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 unsafe "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 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 | 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 |
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 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 | 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 |
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 SAFE_CHEAP "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 unsafe "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 SAFE_CHEAP "gsl_sf_coulomb_CL_e" gsl_sf_coulomb_CL_e :: Double -> Double -> Ptr () -> IO CInt | 65 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_coulomb_CL_array" gsl_sf_coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt | 69 | foreign import ccall unsafe "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 326f53f..777e410 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 SAFE_CHEAP "gsl_sf_coupling_3j_e" gsl_sf_coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 32 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_coupling_3j" gsl_sf_coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 36 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_coupling_6j_e" gsl_sf_coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 40 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_coupling_6j" gsl_sf_coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 44 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_coupling_RacahW_e" gsl_sf_coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 48 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_coupling_RacahW" gsl_sf_coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 52 | foreign import ccall unsafe "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 SAFE_CHEAP "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 unsafe "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 SAFE_CHEAP "gsl_sf_coupling_9j" gsl_sf_coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 60 | foreign import ccall unsafe "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 SAFE_CHEAP "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 unsafe "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 SAFE_CHEAP "gsl_sf_coupling_6j_INCORRECT" gsl_sf_coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 68 | foreign import ccall unsafe "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 9f73767..64b6ced 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 SAFE_CHEAP "gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt | 26 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_dawson" gsl_sf_dawson :: Double -> Double | 30 | foreign import ccall unsafe "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 7ca17e4..27b25e2 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 SAFE_CHEAP "gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr () -> IO CInt | 36 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_debye_1" gsl_sf_debye_1 :: Double -> Double | 40 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr () -> IO CInt | 44 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_debye_2" gsl_sf_debye_2 :: Double -> Double | 48 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr () -> IO CInt | 52 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_debye_3" gsl_sf_debye_3 :: Double -> Double | 56 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr () -> IO CInt | 60 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double | 64 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt | 68 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double | 72 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt | 76 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double | 80 | foreign import ccall unsafe "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 32cceba..2c9810f 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 SAFE_CHEAP "gsl_sf_dilog_e" gsl_sf_dilog_e :: Double -> Ptr () -> IO CInt | 29 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_dilog" gsl_sf_dilog :: Double -> Double | 33 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_complex_dilog_xy_e" gsl_sf_complex_dilog_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 37 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_complex_dilog_e" gsl_sf_complex_dilog_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 41 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_complex_spence_xy_e" gsl_sf_complex_spence_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 45 | foreign import ccall unsafe "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 e58a697..609081b 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 SAFE_CHEAP "gsl_sf_multiply_e" gsl_sf_multiply_e :: Double -> Double -> Ptr () -> IO CInt | 27 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_multiply" gsl_sf_multiply :: Double -> Double -> Double | 31 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_multiply_err_e" gsl_sf_multiply_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 35 | foreign import ccall unsafe "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 365c366..5837a7f 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 SAFE_CHEAP "gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 48 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_Kcomp" gsl_sf_ellint_Kcomp :: Double -> Gsl_mode_t -> Double | 52 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 56 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double | 60 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 64 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double | 68 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 72 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double | 76 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 80 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_F" gsl_sf_ellint_F :: Double -> Double -> Gsl_mode_t -> Double | 84 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 88 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_E" gsl_sf_ellint_E :: Double -> Double -> Gsl_mode_t -> Double | 92 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 96 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_P" gsl_sf_ellint_P :: Double -> Double -> Double -> Gsl_mode_t -> Double | 100 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 104 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_D" gsl_sf_ellint_D :: Double -> Double -> Double -> Gsl_mode_t -> Double | 108 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 112 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_RC" gsl_sf_ellint_RC :: Double -> Double -> Gsl_mode_t -> Double | 116 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 120 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_RD" gsl_sf_ellint_RD :: Double -> Double -> Double -> Gsl_mode_t -> Double | 124 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 128 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_RF" gsl_sf_ellint_RF :: Double -> Double -> Double -> Gsl_mode_t -> Double | 132 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 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 |
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 SAFE_CHEAP "gsl_sf_ellint_RJ" gsl_sf_ellint_RJ :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Double | 140 | foreign import ccall unsafe "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 553350c..555e3ff 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 "gsl_sf_elljac_e" gsl_sf_elljac_e :: Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO CInt | 41 | foreign import ccall unsafe "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 171a3c5..ddbc376 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 SAFE_CHEAP "gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr () -> IO CInt | 36 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_erfc" gsl_sf_erfc :: Double -> Double | 40 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr () -> IO CInt | 44 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_log_erfc" gsl_sf_log_erfc :: Double -> Double | 48 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr () -> IO CInt | 52 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_erf" gsl_sf_erf :: Double -> Double | 56 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr () -> IO CInt | 60 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr () -> IO CInt | 64 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_erf_Z" gsl_sf_erf_Z :: Double -> Double | 68 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_erf_Q" gsl_sf_erf_Q :: Double -> Double | 72 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr () -> IO CInt | 76 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hazard" gsl_sf_hazard :: Double -> Double | 80 | foreign import ccall unsafe "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 3b70078..c8a0b63 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 SAFE_CHEAP "gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr () -> IO CInt | 43 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_exp" gsl_sf_exp :: Double -> Double | 47 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO CInt | 51 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr () -> IO CInt | 55 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double | 59 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO CInt | 63 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr () -> IO CInt | 67 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double | 71 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr () -> IO CInt | 75 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_exprel" gsl_sf_exprel :: Double -> Double | 79 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr () -> IO CInt | 83 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double | 87 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: CInt -> Double -> Ptr () -> IO CInt | 91 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_exprel_n" gsl_sf_exprel_n :: CInt -> Double -> Double | 95 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_exprel_n_CF_e" gsl_sf_exprel_n_CF_e :: Double -> Double -> Ptr () -> IO CInt | 99 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr () -> IO CInt | 103 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO CInt | 107 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 111 | foreign import ccall unsafe "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 SAFE_CHEAP "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 unsafe "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 06f4594..babed46 100644 --- a/packages/special/lib/Numeric/GSL/Special/Expint.hs +++ b/packages/special/lib/Numeric/GSL/Special/Expint.hs | |||
@@ -49,112 +49,112 @@ import Numeric.GSL.Special.Internal | |||
49 | 49 | ||
50 | expint_E1_e :: Double -> (Double,Double) | 50 | expint_E1_e :: Double -> (Double,Double) |
51 | expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x | 51 | expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x |
52 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt | 52 | foreign import ccall unsafe "gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt |
53 | 53 | ||
54 | expint_E1 :: Double -> Double | 54 | expint_E1 :: Double -> Double |
55 | expint_E1 = gsl_sf_expint_E1 | 55 | expint_E1 = gsl_sf_expint_E1 |
56 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double | 56 | foreign import ccall unsafe "gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double |
57 | 57 | ||
58 | expint_E2_e :: Double -> (Double,Double) | 58 | expint_E2_e :: Double -> (Double,Double) |
59 | expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x | 59 | expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x |
60 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt | 60 | foreign import ccall unsafe "gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt |
61 | 61 | ||
62 | expint_E2 :: Double -> Double | 62 | expint_E2 :: Double -> Double |
63 | expint_E2 = gsl_sf_expint_E2 | 63 | expint_E2 = gsl_sf_expint_E2 |
64 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double | 64 | foreign import ccall unsafe "gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double |
65 | 65 | ||
66 | expint_En_e :: CInt -> Double -> (Double,Double) | 66 | expint_En_e :: CInt -> Double -> (Double,Double) |
67 | expint_En_e n x = createSFR "expint_En_e" $ gsl_sf_expint_En_e n x | 67 | expint_En_e n x = createSFR "expint_En_e" $ gsl_sf_expint_En_e n x |
68 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_En_e" gsl_sf_expint_En_e :: CInt -> Double -> Ptr () -> IO CInt | 68 | foreign import ccall unsafe "gsl_sf_expint_En_e" gsl_sf_expint_En_e :: CInt -> Double -> Ptr () -> IO CInt |
69 | 69 | ||
70 | expint_En :: CInt -> Double -> Double | 70 | expint_En :: CInt -> Double -> Double |
71 | expint_En = gsl_sf_expint_En | 71 | expint_En = gsl_sf_expint_En |
72 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_En" gsl_sf_expint_En :: CInt -> Double -> Double | 72 | foreign import ccall unsafe "gsl_sf_expint_En" gsl_sf_expint_En :: CInt -> Double -> Double |
73 | 73 | ||
74 | expint_E1_scaled_e :: Double -> (Double,Double) | 74 | expint_E1_scaled_e :: Double -> (Double,Double) |
75 | expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x | 75 | expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x |
76 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt | 76 | foreign import ccall unsafe "gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt |
77 | 77 | ||
78 | expint_E1_scaled :: Double -> Double | 78 | expint_E1_scaled :: Double -> Double |
79 | expint_E1_scaled = gsl_sf_expint_E1_scaled | 79 | expint_E1_scaled = gsl_sf_expint_E1_scaled |
80 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double | 80 | foreign import ccall unsafe "gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double |
81 | 81 | ||
82 | expint_E2_scaled_e :: Double -> (Double,Double) | 82 | expint_E2_scaled_e :: Double -> (Double,Double) |
83 | expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x | 83 | expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x |
84 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt | 84 | foreign import ccall unsafe "gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt |
85 | 85 | ||
86 | expint_E2_scaled :: Double -> Double | 86 | expint_E2_scaled :: Double -> Double |
87 | expint_E2_scaled = gsl_sf_expint_E2_scaled | 87 | expint_E2_scaled = gsl_sf_expint_E2_scaled |
88 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double | 88 | foreign import ccall unsafe "gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double |
89 | 89 | ||
90 | expint_En_scaled_e :: CInt -> Double -> (Double,Double) | 90 | expint_En_scaled_e :: CInt -> Double -> (Double,Double) |
91 | expint_En_scaled_e n x = createSFR "expint_En_scaled_e" $ gsl_sf_expint_En_scaled_e n x | 91 | expint_En_scaled_e n x = createSFR "expint_En_scaled_e" $ gsl_sf_expint_En_scaled_e n x |
92 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_En_scaled_e" gsl_sf_expint_En_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 92 | foreign import ccall unsafe "gsl_sf_expint_En_scaled_e" gsl_sf_expint_En_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
93 | 93 | ||
94 | expint_En_scaled :: CInt -> Double -> Double | 94 | expint_En_scaled :: CInt -> Double -> Double |
95 | expint_En_scaled = gsl_sf_expint_En_scaled | 95 | expint_En_scaled = gsl_sf_expint_En_scaled |
96 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_En_scaled" gsl_sf_expint_En_scaled :: CInt -> Double -> Double | 96 | foreign import ccall unsafe "gsl_sf_expint_En_scaled" gsl_sf_expint_En_scaled :: CInt -> Double -> Double |
97 | 97 | ||
98 | expint_Ei_e :: Double -> (Double,Double) | 98 | expint_Ei_e :: Double -> (Double,Double) |
99 | expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x | 99 | expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x |
100 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt | 100 | foreign import ccall unsafe "gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt |
101 | 101 | ||
102 | expint_Ei :: Double -> Double | 102 | expint_Ei :: Double -> Double |
103 | expint_Ei = gsl_sf_expint_Ei | 103 | expint_Ei = gsl_sf_expint_Ei |
104 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double | 104 | foreign import ccall unsafe "gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double |
105 | 105 | ||
106 | expint_Ei_scaled_e :: Double -> (Double,Double) | 106 | expint_Ei_scaled_e :: Double -> (Double,Double) |
107 | expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x | 107 | expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x |
108 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt | 108 | foreign import ccall unsafe "gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt |
109 | 109 | ||
110 | expint_Ei_scaled :: Double -> Double | 110 | expint_Ei_scaled :: Double -> Double |
111 | expint_Ei_scaled = gsl_sf_expint_Ei_scaled | 111 | expint_Ei_scaled = gsl_sf_expint_Ei_scaled |
112 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double | 112 | foreign import ccall unsafe "gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double |
113 | 113 | ||
114 | shi_e :: Double -> (Double,Double) | 114 | shi_e :: Double -> (Double,Double) |
115 | shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x | 115 | shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x |
116 | foreign import ccall SAFE_CHEAP "gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt | 116 | foreign import ccall unsafe "gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt |
117 | 117 | ||
118 | shi :: Double -> Double | 118 | shi :: Double -> Double |
119 | shi = gsl_sf_Shi | 119 | shi = gsl_sf_Shi |
120 | foreign import ccall SAFE_CHEAP "gsl_sf_Shi" gsl_sf_Shi :: Double -> Double | 120 | foreign import ccall unsafe "gsl_sf_Shi" gsl_sf_Shi :: Double -> Double |
121 | 121 | ||
122 | chi_e :: Double -> (Double,Double) | 122 | chi_e :: Double -> (Double,Double) |
123 | chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x | 123 | chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x |
124 | foreign import ccall SAFE_CHEAP "gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt | 124 | foreign import ccall unsafe "gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt |
125 | 125 | ||
126 | chi :: Double -> Double | 126 | chi :: Double -> Double |
127 | chi = gsl_sf_Chi | 127 | chi = gsl_sf_Chi |
128 | foreign import ccall SAFE_CHEAP "gsl_sf_Chi" gsl_sf_Chi :: Double -> Double | 128 | foreign import ccall unsafe "gsl_sf_Chi" gsl_sf_Chi :: Double -> Double |
129 | 129 | ||
130 | expint_3_e :: Double -> (Double,Double) | 130 | expint_3_e :: Double -> (Double,Double) |
131 | expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x | 131 | expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x |
132 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt | 132 | foreign import ccall unsafe "gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt |
133 | 133 | ||
134 | expint_3 :: Double -> Double | 134 | expint_3 :: Double -> Double |
135 | expint_3 = gsl_sf_expint_3 | 135 | expint_3 = gsl_sf_expint_3 |
136 | foreign import ccall SAFE_CHEAP "gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double | 136 | foreign import ccall unsafe "gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double |
137 | 137 | ||
138 | si_e :: Double -> (Double,Double) | 138 | si_e :: Double -> (Double,Double) |
139 | si_e x = createSFR "si_e" $ gsl_sf_Si_e x | 139 | si_e x = createSFR "si_e" $ gsl_sf_Si_e x |
140 | foreign import ccall SAFE_CHEAP "gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt | 140 | foreign import ccall unsafe "gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt |
141 | 141 | ||
142 | si :: Double -> Double | 142 | si :: Double -> Double |
143 | si = gsl_sf_Si | 143 | si = gsl_sf_Si |
144 | foreign import ccall SAFE_CHEAP "gsl_sf_Si" gsl_sf_Si :: Double -> Double | 144 | foreign import ccall unsafe "gsl_sf_Si" gsl_sf_Si :: Double -> Double |
145 | 145 | ||
146 | ci_e :: Double -> (Double,Double) | 146 | ci_e :: Double -> (Double,Double) |
147 | ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x | 147 | ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x |
148 | foreign import ccall SAFE_CHEAP "gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt | 148 | foreign import ccall unsafe "gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt |
149 | 149 | ||
150 | ci :: Double -> Double | 150 | ci :: Double -> Double |
151 | ci = gsl_sf_Ci | 151 | ci = gsl_sf_Ci |
152 | foreign import ccall SAFE_CHEAP "gsl_sf_Ci" gsl_sf_Ci :: Double -> Double | 152 | foreign import ccall unsafe "gsl_sf_Ci" gsl_sf_Ci :: Double -> Double |
153 | 153 | ||
154 | atanint_e :: Double -> (Double,Double) | 154 | atanint_e :: Double -> (Double,Double) |
155 | atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x | 155 | atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x |
156 | foreign import ccall SAFE_CHEAP "gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt | 156 | foreign import ccall unsafe "gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt |
157 | 157 | ||
158 | atanint :: Double -> Double | 158 | atanint :: Double -> Double |
159 | atanint = gsl_sf_atanint | 159 | atanint = gsl_sf_atanint |
160 | foreign import ccall SAFE_CHEAP "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double | 160 | foreign import ccall unsafe "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double |
diff --git a/packages/special/lib/Numeric/GSL/Special/Fermi_dirac.hs b/packages/special/lib/Numeric/GSL/Special/Fermi_dirac.hs index c39c096..11ed8a2 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 SAFE_CHEAP "gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr () -> IO CInt | 42 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1 :: Double -> Double | 46 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr () -> IO CInt | 50 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 :: Double -> Double | 54 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr () -> IO CInt | 58 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 :: Double -> Double | 62 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr () -> IO CInt | 66 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 :: Double -> Double | 70 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: CInt -> Double -> Ptr () -> IO CInt | 74 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: CInt -> Double -> Double | 78 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr () -> IO CInt | 82 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac_mhalf :: Double -> Double | 86 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr () -> IO CInt | 90 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_half :: Double -> Double | 94 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr () -> IO CInt | 98 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac_3half :: Double -> Double | 102 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_inc_0_e" gsl_sf_fermi_dirac_inc_0_e :: Double -> Double -> Ptr () -> IO CInt | 106 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fermi_dirac_inc_0" gsl_sf_fermi_dirac_inc_0 :: Double -> Double -> Double | 110 | foreign import ccall unsafe "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 78115f1..bf4d920 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 SAFE_CHEAP "gsl_sf_lngamma_e" gsl_sf_lngamma_e :: Double -> Ptr () -> IO CInt | 65 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lngamma" gsl_sf_lngamma :: Double -> Double | 69 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lngamma_sgn_e" gsl_sf_lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt | 73 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gamma_e" gsl_sf_gamma_e :: Double -> Ptr () -> IO CInt | 77 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gamma" gsl_sf_gamma :: Double -> Double | 81 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gammastar_e" gsl_sf_gammastar_e :: Double -> Ptr () -> IO CInt | 85 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gammastar" gsl_sf_gammastar :: Double -> Double | 89 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gammainv_e" gsl_sf_gammainv_e :: Double -> Ptr () -> IO CInt | 93 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double | 97 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 101 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_taylorcoeff_e" gsl_sf_taylorcoeff_e :: CInt -> Double -> Ptr () -> IO CInt | 105 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_taylorcoeff" gsl_sf_taylorcoeff :: CInt -> Double -> Double | 109 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fact_e" gsl_sf_fact_e :: CInt -> Ptr () -> IO CInt | 113 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_fact" gsl_sf_fact :: CInt -> Double | 117 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_doublefact_e" gsl_sf_doublefact_e :: CInt -> Ptr () -> IO CInt | 121 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_doublefact" gsl_sf_doublefact :: CInt -> Double | 125 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lnfact_e" gsl_sf_lnfact_e :: CInt -> Ptr () -> IO CInt | 129 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lnfact" gsl_sf_lnfact :: CInt -> Double | 133 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lndoublefact_e" gsl_sf_lndoublefact_e :: CInt -> Ptr () -> IO CInt | 137 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lndoublefact" gsl_sf_lndoublefact :: CInt -> Double | 141 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lnchoose_e" gsl_sf_lnchoose_e :: CInt -> CInt -> Ptr () -> IO CInt | 145 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lnchoose" gsl_sf_lnchoose :: CInt -> CInt -> Double | 149 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_choose_e" gsl_sf_choose_e :: CInt -> CInt -> Ptr () -> IO CInt | 153 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_choose" gsl_sf_choose :: CInt -> CInt -> Double | 157 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lnpoch_e" gsl_sf_lnpoch_e :: Double -> Double -> Ptr () -> IO CInt | 161 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lnpoch" gsl_sf_lnpoch :: Double -> Double -> Double | 165 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lnpoch_sgn_e" gsl_sf_lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt | 169 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_poch_e" gsl_sf_poch_e :: Double -> Double -> Ptr () -> IO CInt | 173 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_poch" gsl_sf_poch :: Double -> Double -> Double | 177 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_pochrel_e" gsl_sf_pochrel_e :: Double -> Double -> Ptr () -> IO CInt | 181 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_pochrel" gsl_sf_pochrel :: Double -> Double -> Double | 185 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gamma_inc_Q_e" gsl_sf_gamma_inc_Q_e :: Double -> Double -> Ptr () -> IO CInt | 189 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gamma_inc_Q" gsl_sf_gamma_inc_Q :: Double -> Double -> Double | 193 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gamma_inc_P_e" gsl_sf_gamma_inc_P_e :: Double -> Double -> Ptr () -> IO CInt | 197 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gamma_inc_P" gsl_sf_gamma_inc_P :: Double -> Double -> Double | 201 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gamma_inc_e" gsl_sf_gamma_inc_e :: Double -> Double -> Ptr () -> IO CInt | 205 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gamma_inc" gsl_sf_gamma_inc :: Double -> Double -> Double | 209 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lnbeta_e" gsl_sf_lnbeta_e :: Double -> Double -> Ptr () -> IO CInt | 213 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lnbeta" gsl_sf_lnbeta :: Double -> Double -> Double | 217 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lnbeta_sgn_e" gsl_sf_lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt | 221 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_beta_e" gsl_sf_beta_e :: Double -> Double -> Ptr () -> IO CInt | 225 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_beta" gsl_sf_beta :: Double -> Double -> Double | 229 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_beta_inc_e" gsl_sf_beta_inc_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 233 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_beta_inc" gsl_sf_beta_inc :: Double -> Double -> Double -> Double | 237 | foreign import ccall unsafe "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 a3c998a..bf8c08e 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 SAFE_CHEAP "gsl_sf_gegenpoly_1_e" gsl_sf_gegenpoly_1_e :: Double -> Double -> Ptr () -> IO CInt | 32 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gegenpoly_2_e" gsl_sf_gegenpoly_2_e :: Double -> Double -> Ptr () -> IO CInt | 36 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gegenpoly_3_e" gsl_sf_gegenpoly_3_e :: Double -> Double -> Ptr () -> IO CInt | 40 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gegenpoly_1" gsl_sf_gegenpoly_1 :: Double -> Double -> Double | 44 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gegenpoly_2" gsl_sf_gegenpoly_2 :: Double -> Double -> Double | 48 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gegenpoly_3" gsl_sf_gegenpoly_3 :: Double -> Double -> Double | 52 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gegenpoly_n_e" gsl_sf_gegenpoly_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 56 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gegenpoly_n" gsl_sf_gegenpoly_n :: CInt -> Double -> Double -> Double | 60 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_gegenpoly_array" gsl_sf_gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt | 64 | foreign import ccall unsafe "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 ac237a5..ec974a4 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 SAFE_CHEAP "gsl_sf_hyperg_0F1_e" gsl_sf_hyperg_0F1_e :: Double -> Double -> Ptr () -> IO CInt | 46 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_0F1" gsl_sf_hyperg_0F1 :: Double -> Double -> Double | 50 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_1F1_int_e" gsl_sf_hyperg_1F1_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 54 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_1F1_int" gsl_sf_hyperg_1F1_int :: CInt -> CInt -> Double -> Double | 58 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_1F1_e" gsl_sf_hyperg_1F1_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 62 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_1F1" gsl_sf_hyperg_1F1 :: Double -> Double -> Double -> Double | 66 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_U_int_e" gsl_sf_hyperg_U_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 70 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_U_int" gsl_sf_hyperg_U_int :: CInt -> CInt -> Double -> Double | 74 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_U_int_e10_e" gsl_sf_hyperg_U_int_e10_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 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 |
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 SAFE_CHEAP "gsl_sf_hyperg_U_e" gsl_sf_hyperg_U_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 82 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_U" gsl_sf_hyperg_U :: Double -> Double -> Double -> Double | 86 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_U_e10_e" gsl_sf_hyperg_U_e10_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 90 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_2F1_e" gsl_sf_hyperg_2F1_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 94 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_2F1" gsl_sf_hyperg_2F1 :: Double -> Double -> Double -> Double -> Double | 98 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_2F1_conj_e" gsl_sf_hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 102 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_2F1_conj" gsl_sf_hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double | 106 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_2F1_renorm_e" gsl_sf_hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 110 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_2F1_renorm" gsl_sf_hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double | 114 | foreign import ccall unsafe "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 SAFE_CHEAP "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 unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_2F1_conj_renorm" gsl_sf_hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double | 122 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_2F0_e" gsl_sf_hyperg_2F0_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 126 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hyperg_2F0" gsl_sf_hyperg_2F0 :: Double -> Double -> Double -> Double | 130 | foreign import ccall unsafe "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 28b3d20..4110601 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 SAFE_CHEAP "gsl_sf_laguerre_1_e" gsl_sf_laguerre_1_e :: Double -> Double -> Ptr () -> IO CInt | 32 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_laguerre_2_e" gsl_sf_laguerre_2_e :: Double -> Double -> Ptr () -> IO CInt | 36 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_laguerre_3_e" gsl_sf_laguerre_3_e :: Double -> Double -> Ptr () -> IO CInt | 40 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_laguerre_1" gsl_sf_laguerre_1 :: Double -> Double -> Double | 44 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_laguerre_2" gsl_sf_laguerre_2 :: Double -> Double -> Double | 48 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_laguerre_3" gsl_sf_laguerre_3 :: Double -> Double -> Double | 52 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_laguerre_n_e" gsl_sf_laguerre_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 56 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_laguerre_n" gsl_sf_laguerre_n :: CInt -> Double -> Double -> Double | 60 | foreign import ccall unsafe "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 44fbfb1..381f54c 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 SAFE_CHEAP "gsl_sf_lambert_W0_e" gsl_sf_lambert_W0_e :: Double -> Ptr () -> IO CInt | 28 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lambert_W0" gsl_sf_lambert_W0 :: Double -> Double | 32 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lambert_Wm1_e" gsl_sf_lambert_Wm1_e :: Double -> Ptr () -> IO CInt | 36 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lambert_Wm1" gsl_sf_lambert_Wm1 :: Double -> Double | 40 | foreign import ccall unsafe "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 cb33e2e..380c43c 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 SAFE_CHEAP "gsl_sf_legendre_Pl_e" gsl_sf_legendre_Pl_e :: CInt -> Double -> Ptr () -> IO CInt | 61 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_Pl" gsl_sf_legendre_Pl :: CInt -> Double -> Double | 65 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_Pl_array" gsl_sf_legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt | 69 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_Pl_deriv_array" gsl_sf_legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 73 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_P1_e" gsl_sf_legendre_P1_e :: Double -> Ptr () -> IO CInt | 77 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_P2_e" gsl_sf_legendre_P2_e :: Double -> Ptr () -> IO CInt | 81 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_P3_e" gsl_sf_legendre_P3_e :: Double -> Ptr () -> IO CInt | 85 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_P1" gsl_sf_legendre_P1 :: Double -> Double | 89 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_P2" gsl_sf_legendre_P2 :: Double -> Double | 93 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_P3" gsl_sf_legendre_P3 :: Double -> Double | 97 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_Q0_e" gsl_sf_legendre_Q0_e :: Double -> Ptr () -> IO CInt | 101 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_Q0" gsl_sf_legendre_Q0 :: Double -> Double | 105 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_Q1_e" gsl_sf_legendre_Q1_e :: Double -> Ptr () -> IO CInt | 109 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_Q1" gsl_sf_legendre_Q1 :: Double -> Double | 113 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_Ql_e" gsl_sf_legendre_Ql_e :: CInt -> Double -> Ptr () -> IO CInt | 117 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_Ql" gsl_sf_legendre_Ql :: CInt -> Double -> Double | 121 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_Plm_e" gsl_sf_legendre_Plm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 125 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_Plm" gsl_sf_legendre_Plm :: CInt -> CInt -> Double -> Double | 129 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_Plm_array" gsl_sf_legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 133 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_Plm_deriv_array" gsl_sf_legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 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 |
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 SAFE_CHEAP "gsl_sf_legendre_sphPlm_e" gsl_sf_legendre_sphPlm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 141 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_sphPlm" gsl_sf_legendre_sphPlm :: CInt -> CInt -> Double -> Double | 145 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_sphPlm_array" gsl_sf_legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 149 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_sphPlm_deriv_array" gsl_sf_legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 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 |
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 SAFE_CHEAP "gsl_sf_legendre_array_size" gsl_sf_legendre_array_size :: CInt -> CInt -> CInt | 157 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_conicalP_half_e" gsl_sf_conicalP_half_e :: Double -> Double -> Ptr () -> IO CInt | 161 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_conicalP_half" gsl_sf_conicalP_half :: Double -> Double -> Double | 165 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_conicalP_mhalf_e" gsl_sf_conicalP_mhalf_e :: Double -> Double -> Ptr () -> IO CInt | 169 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_conicalP_mhalf" gsl_sf_conicalP_mhalf :: Double -> Double -> Double | 173 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_conicalP_0_e" gsl_sf_conicalP_0_e :: Double -> Double -> Ptr () -> IO CInt | 177 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_conicalP_0" gsl_sf_conicalP_0 :: Double -> Double -> Double | 181 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_conicalP_1_e" gsl_sf_conicalP_1_e :: Double -> Double -> Ptr () -> IO CInt | 185 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_conicalP_1" gsl_sf_conicalP_1 :: Double -> Double -> Double | 189 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_conicalP_sph_reg_e" gsl_sf_conicalP_sph_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 193 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_conicalP_sph_reg" gsl_sf_conicalP_sph_reg :: CInt -> Double -> Double -> Double | 197 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_conicalP_cyl_reg_e" gsl_sf_conicalP_cyl_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 201 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_conicalP_cyl_reg" gsl_sf_conicalP_cyl_reg :: CInt -> Double -> Double -> Double | 205 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_H3d_0_e" gsl_sf_legendre_H3d_0_e :: Double -> Double -> Ptr () -> IO CInt | 209 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_H3d_0" gsl_sf_legendre_H3d_0 :: Double -> Double -> Double | 213 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_H3d_1_e" gsl_sf_legendre_H3d_1_e :: Double -> Double -> Ptr () -> IO CInt | 217 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_H3d_1" gsl_sf_legendre_H3d_1 :: Double -> Double -> Double | 221 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_H3d_e" gsl_sf_legendre_H3d_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 225 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_H3d" gsl_sf_legendre_H3d :: CInt -> Double -> Double -> Double | 229 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_legendre_H3d_array" gsl_sf_legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt | 233 | foreign import ccall unsafe "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 3becf15..bbc88fe 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 SAFE_CHEAP "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt | 33 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_log" gsl_sf_log :: Double -> Double | 37 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt | 41 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double | 45 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 49 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt | 53 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double | 57 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt | 61 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double | 65 | foreign import ccall unsafe "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 08fd497..b9dcdc3 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 SAFE_CHEAP "gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt | 26 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_pow_int" gsl_sf_pow_int :: Double -> CInt -> Double | 30 | foreign import ccall unsafe "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 da53d1b..2aede62 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 SAFE_CHEAP "gsl_sf_psi_int_e" gsl_sf_psi_int_e :: CInt -> Ptr () -> IO CInt | 37 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_psi_int" gsl_sf_psi_int :: CInt -> Double | 41 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr () -> IO CInt | 45 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_psi" gsl_sf_psi :: Double -> Double | 49 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr () -> IO CInt | 53 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double | 57 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_complex_psi_e" gsl_sf_complex_psi_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 61 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: CInt -> Ptr () -> IO CInt | 65 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_psi_1_int" gsl_sf_psi_1_int :: CInt -> Double | 69 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr () -> IO CInt | 73 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double | 77 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_psi_n_e" gsl_sf_psi_n_e :: CInt -> Double -> Ptr () -> IO CInt | 81 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_psi_n" gsl_sf_psi_n :: CInt -> Double -> Double | 85 | foreign import ccall unsafe "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 b3292a6..06d5967 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 SAFE_CHEAP "gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr () -> IO CInt | 28 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_synchrotron_1" gsl_sf_synchrotron_1 :: Double -> Double | 32 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr () -> IO CInt | 36 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_synchrotron_2" gsl_sf_synchrotron_2 :: Double -> Double | 40 | foreign import ccall unsafe "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 b92b578..f2d83a2 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 SAFE_CHEAP "gsl_sf_transport_2_e" gsl_sf_transport_2_e :: Double -> Ptr () -> IO CInt | 32 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_transport_2" gsl_sf_transport_2 :: Double -> Double | 36 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_transport_3_e" gsl_sf_transport_3_e :: Double -> Ptr () -> IO CInt | 40 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_transport_3" gsl_sf_transport_3 :: Double -> Double | 44 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_transport_4_e" gsl_sf_transport_4_e :: Double -> Ptr () -> IO CInt | 48 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_transport_4" gsl_sf_transport_4 :: Double -> Double | 52 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_transport_5_e" gsl_sf_transport_5_e :: Double -> Ptr () -> IO CInt | 56 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_transport_5" gsl_sf_transport_5 :: Double -> Double | 60 | foreign import ccall unsafe "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 43fdc95..6180144 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 SAFE_CHEAP "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt | 47 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_sin" gsl_sf_sin :: Double -> Double | 51 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt | 55 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_cos" gsl_sf_cos :: Double -> Double | 59 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt | 63 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double | 67 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 71 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 75 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 79 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt | 83 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double | 87 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt | 91 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double | 95 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt | 99 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double | 103 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 107 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 111 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt | 115 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt | 119 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt | 123 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double | 127 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt | 131 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double | 135 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt | 139 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt | 143 | foreign import ccall unsafe "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 a57a918..5b59630 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 SAFE_CHEAP "gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: CInt -> Ptr () -> IO CInt | 38 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_zeta_int" gsl_sf_zeta_int :: CInt -> Double | 42 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr () -> IO CInt | 46 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_zeta" gsl_sf_zeta :: Double -> Double | 50 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr () -> IO CInt | 54 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_zetam1" gsl_sf_zetam1 :: Double -> Double | 58 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: CInt -> Ptr () -> IO CInt | 62 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_zetam1_int" gsl_sf_zetam1_int :: CInt -> Double | 66 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr () -> IO CInt | 70 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_hzeta" gsl_sf_hzeta :: Double -> Double -> Double | 74 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_eta_int_e" gsl_sf_eta_int_e :: CInt -> Ptr () -> IO CInt | 78 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_eta_int" gsl_sf_eta_int :: CInt -> Double | 82 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr () -> IO CInt | 86 | foreign import ccall unsafe "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 SAFE_CHEAP "gsl_sf_eta" gsl_sf_eta :: Double -> Double | 90 | foreign import ccall unsafe "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 36947ad..d628eff 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 SAFE_CHEAP \""++n++"\" "++n++" :: "++ (concat$intersperse" -> "$map showHa args) ++" -> " ++ t' | 189 | showH hc h@(Header t n args) = "foreign import ccall unsafe \""++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 | ||