diff options
| author | Alberto Ruiz <aruiz@um.es> | 2009-06-19 07:37:05 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2009-06-19 07:37:05 +0000 |
| commit | a9722cf16fe322985c998ab290cf03213b539e49 (patch) | |
| tree | fc06b55ff719a7908eae23748bacfe140ce5374f /lib/Numeric/GSL/Special/Dawson.hs | |
| parent | f589b9e673c3aef62834b3e2e88d96226bb7c24f (diff) | |
minor changes
Diffstat (limited to 'lib/Numeric/GSL/Special/Dawson.hs')
| -rw-r--r-- | lib/Numeric/GSL/Special/Dawson.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Numeric/GSL/Special/Dawson.hs b/lib/Numeric/GSL/Special/Dawson.hs index 37cc68e..0bddbaf 100644 --- a/lib/Numeric/GSL/Special/Dawson.hs +++ b/lib/Numeric/GSL/Special/Dawson.hs | |||
| @@ -20,9 +20,11 @@ module Numeric.GSL.Special.Dawson( | |||
| 20 | import Foreign(Ptr) | 20 | import Foreign(Ptr) |
| 21 | import Foreign.C.Types(CInt) | 21 | import Foreign.C.Types(CInt) |
| 22 | import Numeric.GSL.Special.Internal | 22 | import Numeric.GSL.Special.Internal |
| 23 | |||
| 23 | dawson_e :: Double -> (Double,Double) | 24 | dawson_e :: Double -> (Double,Double) |
| 24 | dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x | 25 | dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x |
| 25 | foreign import ccall "gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt | 26 | foreign import ccall "gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt |
| 27 | |||
| 26 | dawson :: Double -> Double | 28 | dawson :: Double -> Double |
| 27 | dawson = gsl_sf_dawson | 29 | dawson = gsl_sf_dawson |
| 28 | foreign import ccall "gsl_sf_dawson" gsl_sf_dawson :: Double -> Double | 30 | foreign import ccall "gsl_sf_dawson" gsl_sf_dawson :: Double -> Double |