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/Elljac.hs | |
| parent | d7b7ff9dff27a6a74785c92c9393704fe0072e0e (diff) | |
ok hmatrix-special
Diffstat (limited to 'packages/special/lib/Numeric/GSL/Special/Elljac.hs')
| -rw-r--r-- | packages/special/lib/Numeric/GSL/Special/Elljac.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/packages/special/lib/Numeric/GSL/Special/Elljac.hs b/packages/special/lib/Numeric/GSL/Special/Elljac.hs index 5b32cfe..18c7f06 100644 --- a/packages/special/lib/Numeric/GSL/Special/Elljac.hs +++ b/packages/special/lib/Numeric/GSL/Special/Elljac.hs | |||
| @@ -16,8 +16,11 @@ module Numeric.GSL.Special.Elljac( | |||
| 16 | elljac_e | 16 | elljac_e |
| 17 | ) where | 17 | ) where |
| 18 | 18 | ||
| 19 | import Foreign | 19 | import System.IO.Unsafe |
| 20 | import Foreign.C.Types(CInt) | 20 | import Foreign.Ptr |
| 21 | import Foreign.Storable | ||
| 22 | import Foreign.Marshal | ||
| 23 | import Foreign.C.Types(CInt(..)) | ||
| 21 | 24 | ||
| 22 | elljac_e :: Double -> Double -> (Double,Double,Double) | 25 | elljac_e :: Double -> Double -> (Double,Double,Double) |
| 23 | elljac_e u m = unsafePerformIO $ do | 26 | elljac_e u m = unsafePerformIO $ do |