view src/fftw-3.3.3/libbench2/caset.c @ 24:3c5adc4a864f

Added tag sv_v2.1 for changeset 619f715526df

/* not worth copyrighting */

#include "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);
     }
}