diff options
author | Alberto Ruiz <aruiz@um.es> | 2010-10-20 07:19:06 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2010-10-20 07:19:06 +0000 |
commit | 7cfba6b4eb311590986a888255cd1dc594bd7264 (patch) | |
tree | b01b83260b9d959cd8b32fe4021553bb1aadc8d4 /packages/special/lib/Numeric/GSL/Special/Internal.hsc | |
parent | ceb049de0898a2cc58fac8191a049e65bad7a2f6 (diff) |
mkComplex_e and other complex special functions
Diffstat (limited to 'packages/special/lib/Numeric/GSL/Special/Internal.hsc')
-rw-r--r-- | packages/special/lib/Numeric/GSL/Special/Internal.hsc | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/packages/special/lib/Numeric/GSL/Special/Internal.hsc b/packages/special/lib/Numeric/GSL/Special/Internal.hsc index d1a9c57..ae735df 100644 --- a/packages/special/lib/Numeric/GSL/Special/Internal.hsc +++ b/packages/special/lib/Numeric/GSL/Special/Internal.hsc | |||
@@ -33,7 +33,6 @@ import Foreign | |||
33 | import Data.Packed.Development(check,(//)) | 33 | import Data.Packed.Development(check,(//)) |
34 | import Foreign.C.Types(CSize,CInt) | 34 | import Foreign.C.Types(CSize,CInt) |
35 | 35 | ||
36 | |||
37 | data Precision = PrecDouble | PrecSingle | PrecApprox | 36 | data Precision = PrecDouble | PrecSingle | PrecApprox |
38 | 37 | ||
39 | precCode :: Precision -> Int | 38 | precCode :: Precision -> Int |
@@ -90,7 +89,7 @@ createSFR s f = unsafePerformIO $ do | |||
90 | return (val,err) | 89 | return (val,err) |
91 | 90 | ||
92 | ---------------------------------------------------------------- | 91 | ---------------------------------------------------------------- |
93 | -- | access to two sf_result | 92 | -- | access to two sf_result's |
94 | create2SFR :: String -> (Ptr a -> Ptr a -> IO CInt) -> ((Double, Double),(Double, Double)) | 93 | create2SFR :: String -> (Ptr a -> Ptr a -> IO CInt) -> ((Double, Double),(Double, Double)) |
95 | create2SFR s f = unsafePerformIO $ do | 94 | create2SFR s f = unsafePerformIO $ do |
96 | p1 <- malloc :: IO (Ptr Gsl_sf_result) | 95 | p1 <- malloc :: IO (Ptr Gsl_sf_result) |