diff options
author | Alberto Ruiz <aruiz@um.es> | 2011-12-22 18:16:58 +0100 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2011-12-22 18:16:58 +0100 |
commit | 863fd69b44d6e65544973871043d89d1d6c50a9e (patch) | |
tree | 06f7e95e42975b2b75dc246128775c2fbbe456e5 /packages/special/lib/Numeric/GSL/Special/Bessel.hs | |
parent | d7b7ff9dff27a6a74785c92c9393704fe0072e0e (diff) |
ok hmatrix-special
Diffstat (limited to 'packages/special/lib/Numeric/GSL/Special/Bessel.hs')
-rw-r--r-- | packages/special/lib/Numeric/GSL/Special/Bessel.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/packages/special/lib/Numeric/GSL/Special/Bessel.hs b/packages/special/lib/Numeric/GSL/Special/Bessel.hs index 66d6c5b..e88c3b0 100644 --- a/packages/special/lib/Numeric/GSL/Special/Bessel.hs +++ b/packages/special/lib/Numeric/GSL/Special/Bessel.hs | |||
@@ -1,7 +1,7 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | -- | | 2 | -- | |
3 | -- Module : Numeric.GSL.Special.Bessel | 3 | -- Module : Numeric.GSL.Special.Bessel |
4 | -- Copyright : (c) Alberto Ruiz 2006 | 4 | -- Copyright : (c) Alberto Ruiz 2006-11 |
5 | -- License : GPL | 5 | -- License : GPL |
6 | -- Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | -- Maintainer : Alberto Ruiz (aruiz at um dot es) |
7 | -- Stability : provisional | 7 | -- Stability : provisional |
@@ -91,6 +91,7 @@ module Numeric.GSL.Special.Bessel( | |||
91 | , bessel_Inu | 91 | , bessel_Inu |
92 | , bessel_Knu_scaled_e | 92 | , bessel_Knu_scaled_e |
93 | , bessel_Knu_scaled | 93 | , bessel_Knu_scaled |
94 | , bessel_Knu_scaled_e10_e | ||
94 | , bessel_Knu_e | 95 | , bessel_Knu_e |
95 | , bessel_Knu | 96 | , bessel_Knu |
96 | , bessel_lnKnu_e | 97 | , bessel_lnKnu_e |
@@ -104,7 +105,7 @@ module Numeric.GSL.Special.Bessel( | |||
104 | ) where | 105 | ) where |
105 | 106 | ||
106 | import Foreign(Ptr) | 107 | import Foreign(Ptr) |
107 | import Foreign.C.Types(CInt) | 108 | import Foreign.C.Types(CInt(..),CSize(..)) |
108 | import Numeric.GSL.Special.Internal | 109 | import Numeric.GSL.Special.Internal |
109 | 110 | ||
110 | bessel_J0_e :: Double -> (Double,Double) | 111 | bessel_J0_e :: Double -> (Double,Double) |
@@ -467,6 +468,10 @@ bessel_Knu_scaled :: Double -> Double -> Double | |||
467 | bessel_Knu_scaled = gsl_sf_bessel_Knu_scaled | 468 | bessel_Knu_scaled = gsl_sf_bessel_Knu_scaled |
468 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Knu_scaled" gsl_sf_bessel_Knu_scaled :: Double -> Double -> Double | 469 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Knu_scaled" gsl_sf_bessel_Knu_scaled :: Double -> Double -> Double |
469 | 470 | ||
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 | ||
473 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Knu_scaled_e10_e" gsl_sf_bessel_Knu_scaled_e10_e :: Double -> Double -> Ptr () -> IO CInt | ||
474 | |||
470 | bessel_Knu_e :: Double -> Double -> (Double,Double) | 475 | bessel_Knu_e :: Double -> Double -> (Double,Double) |
471 | 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 |
472 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr () -> IO CInt | 477 | foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr () -> IO CInt |