/********************  sub_wvec.c  (in su3.a) ********************
*
*void sub_wilson_vector(wilson_vector *src1,*src2,*dest)
*  sub two Wilson vectors
* dest  <-  src1 + src2
*/
#include "complex.h"
#include "su3.h"

void sub_wilson_vector( wilson_vector *src1, wilson_vector *src2,
       wilson_vector *dest ){
   register int i;
   for(i=0;i<4;i++)sub_su3_vector( &(src1->d[i]), &(src2->d[i]), &(dest->d[i]));
}