From aef0333b5180ea79e539bd53194f1dfed20b7db5 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sun, 7 Feb 2010 09:29:50 +0000 Subject: added odeSolve --- lib/Numeric/GSL/Internal.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'lib/Numeric/GSL/Internal.hs') diff --git a/lib/Numeric/GSL/Internal.hs b/lib/Numeric/GSL/Internal.hs index 834dfc2..37bcc1b 100644 --- a/lib/Numeric/GSL/Internal.hs +++ b/lib/Numeric/GSL/Internal.hs @@ -30,6 +30,9 @@ foreign import ccall "wrapper" foreign import ccall "wrapper" mkVecVecfun :: TVV -> IO (FunPtr TVV) +foreign import ccall "wrapper" + mkDoubleVecVecfun :: (Double -> TVV) -> IO (FunPtr (Double -> TVV)) + aux_vTov :: (Vector Double -> Vector Double) -> TVV aux_vTov f n p nr r = g where V {fptr = pr} = f x @@ -43,6 +46,9 @@ aux_vTov f n p nr r = g where foreign import ccall "wrapper" mkVecMatfun :: TVM -> IO (FunPtr TVM) +foreign import ccall "wrapper" + mkDoubleVecMatfun :: (Double -> TVM) -> IO (FunPtr (Double -> TVM)) + aux_vTom :: (Vector Double -> Matrix Double) -> TVM aux_vTom f n p rr cr r = g where V {fptr = pr} = flatten $ f x -- cgit v1.2.3