@@ -848,17 +848,17 @@ for (fJ, fC, T, N, K) in ((:lmul!, :ft_execute_sph2fourier, Float64, 2, SPHERE),
848
848
@eval begin
849
849
function $fJ (p:: FTPlan{$T, $N, $K} , x:: Array{$T, $N} )
850
850
checksize (p, x)
851
- ccall (($ (string (fC)), libfasttransforms), Cvoid, (Cint, Ptr{ft_plan_struct}, Ptr{$ T}, Cint, Cint), ' N' , p, x, size (x) ... )
851
+ ccall (($ (string (fC)), libfasttransforms), Cvoid, (Cint, Ptr{ft_plan_struct}, Ptr{$ T}, Cint, Cint), ' N' , p, x, size (x, 1 ), size (x, 2 ) )
852
852
return x
853
853
end
854
854
function $fJ (p:: AdjointFTPlan{$T, FTPlan{$T, $N, $K}} , x:: Array{$T, $N} )
855
855
checksize (p, x)
856
- ccall (($ (string (fC)), libfasttransforms), Cvoid, (Cint, Ptr{ft_plan_struct}, Ptr{$ T}, Cint, Cint), ' T' , p, x, size (x) ... )
856
+ ccall (($ (string (fC)), libfasttransforms), Cvoid, (Cint, Ptr{ft_plan_struct}, Ptr{$ T}, Cint, Cint), ' T' , p, x, size (x, 1 ), size (x, 2 ) )
857
857
return x
858
858
end
859
859
function $fJ (p:: TransposeFTPlan{$T, FTPlan{$T, $N, $K}} , x:: Array{$T, $N} )
860
860
checksize (p, x)
861
- ccall (($ (string (fC)), libfasttransforms), Cvoid, (Cint, Ptr{ft_plan_struct}, Ptr{$ T}, Cint, Cint), ' T' , p, x, size (x) ... )
861
+ ccall (($ (string (fC)), libfasttransforms), Cvoid, (Cint, Ptr{ft_plan_struct}, Ptr{$ T}, Cint, Cint), ' T' , p, x, size (x, 1 ), size (x, 2 ) )
862
862
return x
863
863
end
864
864
end
@@ -869,17 +869,17 @@ for (fJ, fC) in ((:lmul!, :ft_execute_tet2cheb),
869
869
@eval begin
870
870
function $fJ (p:: FTPlan{Float64, 3, TETRAHEDRON} , x:: Array{Float64, 3} )
871
871
checksize (p, x)
872
- ccall (($ (string (fC)), libfasttransforms), Cvoid, (Cint, Ptr{ft_plan_struct}, Ptr{Float64}, Cint, Cint, Cint), ' N' , p, x, size (x) ... )
872
+ ccall (($ (string (fC)), libfasttransforms), Cvoid, (Cint, Ptr{ft_plan_struct}, Ptr{Float64}, Cint, Cint, Cint), ' N' , p, x, size (x, 1 ), size (x, 2 ), size (x, 3 ) )
873
873
return x
874
874
end
875
875
function $fJ (p:: AdjointFTPlan{Float64, FTPlan{Float64, 3, TETRAHEDRON}} , x:: Array{Float64, 3} )
876
876
checksize (p, x)
877
- ccall (($ (string (fC)), libfasttransforms), Cvoid, (Cint, Ptr{ft_plan_struct}, Ptr{Float64}, Cint, Cint, Cint), ' T' , p, x, size (x) ... )
877
+ ccall (($ (string (fC)), libfasttransforms), Cvoid, (Cint, Ptr{ft_plan_struct}, Ptr{Float64}, Cint, Cint, Cint), ' T' , p, x, size (x, 1 ), size (x, 2 ), size (x, 3 ) )
878
878
return x
879
879
end
880
880
function $fJ (p:: TransposeFTPlan{Float64, FTPlan{Float64, 3, TETRAHEDRON}} , x:: Array{Float64, 3} )
881
881
checksize (p, x)
882
- ccall (($ (string (fC)), libfasttransforms), Cvoid, (Cint, Ptr{ft_plan_struct}, Ptr{Float64}, Cint, Cint, Cint), ' T' , p, x, size (x) ... )
882
+ ccall (($ (string (fC)), libfasttransforms), Cvoid, (Cint, Ptr{ft_plan_struct}, Ptr{Float64}, Cint, Cint, Cint), ' T' , p, x, size (x, 1 ), size (x, 2 ), size (x, 3 ) )
883
883
return x
884
884
end
885
885
end
0 commit comments