/*******************  cs_m_vec.c  (in su3.a) ****************************
*									*
*  c_scalar_mult_su3vec():						*
*  multiply an su3 vector by a complex scalar				*
*  v1 <- number*v2 							*
*/
#include "complex.h"
#include "su3.h"

void c_scalar_mult_su3vec(v1,phase,v2) su3_vector *v1,*v2; complex *phase; {
register int i;
    for(i=0;i<3;i++){
	v1->c[i] = cmul(&v2->c[i],phase);
    }
}