Skip to content
Snippets Groups Projects
Commit b966b76d authored by Sumant Oemrawsingh's avatar Sumant Oemrawsingh
Browse files

Unpack now also uses stride in determining the size.

parent 3c6a2d2e
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment