Commit b966b76d authored by Sumant Oemrawsingh's avatar Sumant Oemrawsingh
Browse files

Unpack now also uses stride in determining the size.

parent 3c6a2d2e
......@@ -14,13 +14,13 @@
&key (stride 1)
(output
(eltcase single-float
(make-marray '(complex single-float) :dimensions (size vector))
(make-marray '(complex single-float) :dimensions (floor (size vector) stride))
t
(make-marray '(complex double-float) :dimensions (size vector)))))
(make-marray '(complex double-float) :dimensions (floor (size vector) stride)))))
("gsl_fft_real" :type "_unpack")
(((c-pointer vector) :pointer)
((c-pointer output) :pointer)
(stride sizet) ((size vector) sizet))
(stride sizet) ((floor (size vector) stride) sizet))
:definition :generic
:element-types :float
:inputs (vector output)
......@@ -38,13 +38,13 @@
&key (stride 1)
(output
(eltcase single-float
(make-marray '(complex single-float) :dimensions (size vector))
(make-marray '(complex single-float) :dimensions (floor (size vector) stride))
t
(make-marray '(complex double-float) :dimensions (size vector)))))
(make-marray '(complex double-float) :dimensions (floor (size vector) stride)))))
("gsl_fft_halfcomplex" :type "_radix2_unpack")
(((c-pointer vector) :pointer)
((c-pointer output) :pointer)
(stride sizet) ((size vector) sizet))
(stride sizet) ((floor (size vector) stride) sizet))
:definition :generic
:element-types :float
:inputs (vector output)
......@@ -61,13 +61,13 @@
&key (stride 1)
(output
(eltcase single-float
(make-marray '(complex single-float) :dimensions (size vector))
(make-marray '(complex single-float) :dimensions (floor (size vector) stride))
t
(make-marray '(complex double-float) :dimensions (size vector)))))
(make-marray '(complex double-float) :dimensions (floor (size vector) stride)))))
("gsl_fft_halfcomplex" :type "_unpack")
(((c-pointer vector) :pointer)
((c-pointer output) :pointer)
(stride sizet) ((size vector) sizet))
(stride sizet) ((floor (size vector) stride) sizet))
:definition :generic
:element-types :float
:inputs (vector output)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment