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/Fourier.hs | |
| parent | 33a9909d0d59f468039597c405306b8d5fa9e008 (diff) | |
withMatrix
Diffstat (limited to 'lib/Numeric/GSL/Fourier.hs')
| -rw-r--r-- | lib/Numeric/GSL/Fourier.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Numeric/GSL/Fourier.hs b/lib/Numeric/GSL/Fourier.hs index e975fbf..4b08625 100644 --- a/lib/Numeric/GSL/Fourier.hs +++ b/lib/Numeric/GSL/Fourier.hs | |||
| @@ -26,7 +26,8 @@ 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 | c_fft code // vec v // vec r // check "fft" [v] | 29 | ww2 withVector v withVector r $ \ v r -> |
| 30 | c_fft code // v // r // check "fft" | ||
| 30 | return r | 31 | return r |
| 31 | 32 | ||
| 32 | foreign import ccall "gsl-aux.h fft" c_fft :: Int -> TCVCV | 33 | foreign import ccall "gsl-aux.h fft" c_fft :: Int -> TCVCV |