Mercurial > hg > sv-dependency-builds

diff src/fftw-3.3.8/libbench2/caset.c @ 167:bd3cc4d1df30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add FFTW 3.3.8 source, and a Linux build
author Chris Cannam <cannam@all-day-breakfast.com>
date Tue, 19 Nov 2019 14:52:55 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/fftw-3.3.8/libbench2/caset.c	Tue Nov 19 14:52:55 2019 +0000
@@ -0,0 +1,12 @@
+/* not worth copyrighting */
+
+#include "libbench2/bench.h"
+
+void caset(bench_complex *A, int n, bench_complex x)
+{
+     int i;
+     for (i = 0; i < n; ++i) {
+	  c_re(A[i]) = c_re(x);
+	  c_im(A[i]) = c_im(x);
+     }
+}