Mercurial > hg > sv-dependency-builds
annotate src/fftw-3.3.3/libbench2/caset.c @ 169:223a55898ab9 tip default
Add null config files
author | Chris Cannam <cannam@all-day-breakfast.com> |
---|---|
date | Mon, 02 Mar 2020 14:03:47 +0000 |
parents | 89f5e221ed7b |
children |
rev | line source |
---|---|
cannam@95 | 1 /* not worth copyrighting */ |
cannam@95 | 2 |
cannam@95 | 3 #include "bench.h" |
cannam@95 | 4 |
cannam@95 | 5 void caset(bench_complex *A, int n, bench_complex x) |
cannam@95 | 6 { |
cannam@95 | 7 int i; |
cannam@95 | 8 for (i = 0; i < n; ++i) { |
cannam@95 | 9 c_re(A[i]) = c_re(x); |
cannam@95 | 10 c_im(A[i]) = c_im(x); |
cannam@95 | 11 } |
cannam@95 | 12 } |