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

/* c <- s*a, vectors */
#ifdef PROTO
void scalar_mult_su3_vector( su3_vector *a, float s, su3_vector *c){
#else
void scalar_mult_su3_vector(a,s,c) su3_vector *a,*c; float s;{
#endif
register int i;
    for(i=0;i<3;i++){
	c->c[i].real = s*a->c[i].real;
	c->c[i].imag = s*a->c[i].imag;
    }
}