diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-11-12 12:24:12 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-11-12 12:24:12 +0000 |
| commit | 25d7892ac78f0f1a4fda538dd35430ebff02baaa (patch) | |
| tree | 170572a869a5d73cd09bdf39b17fbb37b6e451fd /lib/Numeric/GSL/Integration.hs | |
| parent | 33a9909d0d59f468039597c405306b8d5fa9e008 (diff) | |
withMatrix
Diffstat (limited to 'lib/Numeric/GSL/Integration.hs')
| -rw-r--r-- | lib/Numeric/GSL/Integration.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Numeric/GSL/Integration.hs b/lib/Numeric/GSL/Integration.hs index d756417..747b34c 100644 --- a/lib/Numeric/GSL/Integration.hs +++ b/lib/Numeric/GSL/Integration.hs | |||
| @@ -44,7 +44,7 @@ integrateQAGS prec n f a b = unsafePerformIO $ do | |||
| 44 | r <- malloc | 44 | r <- malloc |
| 45 | e <- malloc | 45 | e <- malloc |
| 46 | fp <- mkfun (\x _ -> f x) | 46 | fp <- mkfun (\x _ -> f x) |
| 47 | c_integrate_qags fp a b prec n r e // check "integrate_qags" [] | 47 | c_integrate_qags fp a b prec n r e // check "integrate_qags" |
| 48 | vr <- peek r | 48 | vr <- peek r |
| 49 | ve <- peek e | 49 | ve <- peek e |
| 50 | let result = (vr,ve) | 50 | let result = (vr,ve) |
| @@ -75,7 +75,7 @@ integrateQNG prec f a b = unsafePerformIO $ do | |||
| 75 | r <- malloc | 75 | r <- malloc |
| 76 | e <- malloc | 76 | e <- malloc |
| 77 | fp <- mkfun (\x _ -> f x) | 77 | fp <- mkfun (\x _ -> f x) |
| 78 | c_integrate_qng fp a b prec r e // check "integrate_qng" [] | 78 | c_integrate_qng fp a b prec r e // check "integrate_qng" |
| 79 | vr <- peek r | 79 | vr <- peek r |
| 80 | ve <- peek e | 80 | ve <- peek e |
| 81 | let result = (vr,ve) | 81 | let result = (vr,ve) |