summaryrefslogtreecommitdiff
path: root/packages/special/lib/Numeric/GSL/Special/Internal.hsc
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2010-10-20 07:19:06 +0000
committerAlberto Ruiz <aruiz@um.es>2010-10-20 07:19:06 +0000
commit7cfba6b4eb311590986a888255cd1dc594bd7264 (patch)
treeb01b83260b9d959cd8b32fe4021553bb1aadc8d4 /packages/special/lib/Numeric/GSL/Special/Internal.hsc
parentceb049de0898a2cc58fac8191a049e65bad7a2f6 (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.hsc3
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
33import Data.Packed.Development(check,(//)) 33import Data.Packed.Development(check,(//))
34import Foreign.C.Types(CSize,CInt) 34import Foreign.C.Types(CSize,CInt)
35 35
36
37data Precision = PrecDouble | PrecSingle | PrecApprox 36data Precision = PrecDouble | PrecSingle | PrecApprox
38 37
39precCode :: Precision -> Int 38precCode :: 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
94create2SFR :: String -> (Ptr a -> Ptr a -> IO CInt) -> ((Double, Double),(Double, Double)) 93create2SFR :: String -> (Ptr a -> Ptr a -> IO CInt) -> ((Double, Double),(Double, Double))
95create2SFR s f = unsafePerformIO $ do 94create2SFR s f = unsafePerformIO $ do
96 p1 <- malloc :: IO (Ptr Gsl_sf_result) 95 p1 <- malloc :: IO (Ptr Gsl_sf_result)