/***************  m_amat_wvec.c  (in su3.a) **********************
*									*
*  void mult_adj_mat_wilson_vec( su3_matrix *mat,			*
*	wilson_vector *src,*dest)					*
*  multiply a Wilson vector by the adjoint of a matrix			*
*/
#include "complex.h"
#include "su3.h"

void mult_adj_mat_wilson_vec(  su3_matrix *mat, wilson_vector *src,
       wilson_vector *dest ){
    register int i;
    for(i=0;i<4;i++)mult_adj_su3_mat_vec(mat, &(src->d[i]), &(dest->d[i]) );
}