File: caset.c

package info (click to toggle)
fftw3 3.1.2-3.1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 14,024 kB
  • ctags: 10,197
  • sloc: ansic: 154,845; asm: 33,960; ml: 12,962; sh: 9,019; perl: 1,392; makefile: 883; fortran: 108
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);
     }
}