view Lib/fftw-3.2.1/libbench2/.svn/text-base/caset.c.svn-base @ 13:a64055168b9b

Added XML Support
author Geogaddi\David <d.m.ronan@qmul.ac.uk>
date Fri, 05 Feb 2016 19:21:42 +0000
parents 25bf17994ef1
children
line wrap: on
line source
/* 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);
     }
}