From 7924c8a885a371ef4c535ab685bb1676f10ac5eb Mon Sep 17 00:00:00 2001 From: Rob Everest Date: Wed, 27 Aug 2014 17:37:41 +1000 Subject: [PATCH] Another place dimensions should be reversed --- Data/Array/Accelerate/Math/FFT.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Data/Array/Accelerate/Math/FFT.hs b/Data/Array/Accelerate/Math/FFT.hs index c0fa62b..361de29 100644 --- a/Data/Array/Accelerate/Math/FFT.hs +++ b/Data/Array/Accelerate/Math/FFT.hs @@ -274,8 +274,8 @@ cudaFFT mode sh = cudaFFT' hndl = unsafePerformIO $ do plan <- case shapeToList sh of [width] -> plan1D width types 1 - [height, width] -> plan2D height width types - [depth, height, width] -> plan3D depth height width types + [width, height] -> plan2D height width types + [width, height, depth] -> plan3D depth height width types _ -> error "Accelerate-fft cannot use CUFFT for arrays of dimensions higher than 3" addFinalizer plan (destroy plan) return plan