diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-11-22 17:03:41 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-11-22 17:03:41 +0000 |
| commit | 01a14ad32e0fd8586498ead61a426f20b724652b (patch) | |
| tree | b894c4d09700c2cf1f6abf2c89e6df81eebddb71 /lib/Numeric/GSL/Fourier.hs | |
| parent | 2f45fdd97f80c0ffd0e10cce68d1cd24a43696c0 (diff) | |
app1, app2, ...
Diffstat (limited to 'lib/Numeric/GSL/Fourier.hs')
| -rw-r--r-- | lib/Numeric/GSL/Fourier.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Numeric/GSL/Fourier.hs b/lib/Numeric/GSL/Fourier.hs index 4b08625..149c1e1 100644 --- a/lib/Numeric/GSL/Fourier.hs +++ b/lib/Numeric/GSL/Fourier.hs | |||
| @@ -26,8 +26,7 @@ import Foreign | |||
| 26 | 26 | ||
| 27 | genfft code v = unsafePerformIO $ do | 27 | genfft code v = unsafePerformIO $ do |
| 28 | r <- createVector (dim v) | 28 | r <- createVector (dim v) |
| 29 | ww2 withVector v withVector r $ \ v r -> | 29 | app2 (c_fft code) vec v vec r "fft" |
| 30 | c_fft code // v // r // check "fft" | ||
| 31 | return r | 30 | return r |
| 32 | 31 | ||
| 33 | foreign import ccall "gsl-aux.h fft" c_fft :: Int -> TCVCV | 32 | foreign import ccall "gsl-aux.h fft" c_fft :: Int -> TCVCV |