/*******************  cs_m_vec.c  (in u1.a) ****************************
*									*
*  c_scalar_mult_u1vec():						*
*  multiply an u1 vector by a complex scalar				*
*  v1 <- number*v2 							*
*  NOTE: non-standard order of target and source v1 and v2!             *
*/
#include "complex.h"
#include "u1.h"

void c_scalar_mult_u1vec(u1_vector *v1, complex *phase, u1_vector *v2) {

  CMUL(v2->c, *phase, v1->c);
}