Updates
This commit is contained in:
12
fftw-3.3.10/libbench2/caset.c
Normal file
12
fftw-3.3.10/libbench2/caset.c
Normal file
@@ -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);
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user