File: caset.c

package info (click to toggle)
fftw3 3.2.2-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 16,824 kB
  • ctags: 8,846
  • sloc: ansic: 246,029; sh: 10,285; ml: 5,470; perl: 1,423; makefile: 935; fortran: 110; asm: 26
file content (12 lines) | stat: -rw-r--r-- 207 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
 
/* 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);
     }
}