/******************  s_m_vec.c  (in u1.a) ******************************
*									*
* void scalar_mult_u1_vector(u1_vector *a, float s, u1_vector *c);   *
* C <- s*A,  A and C vectors 						*
*/
#include "complex.h"
#include "u1.h"

void scalar_mult_u1_vector(u1_vector *a, float s, u1_vector *c) {
	c->c.real = s*a->c.real;
	c->c.imag = s*a->c.imag;
}