Extracting a color column vector from a half fermion or Dirac fermion spinor

Syntax	void QLA_V_eqop_colorvec_T( restrict QLA_ColorVector *r, Type *a,
	int i_s)
Meaning	$r_{i_c} = a_{i_c,i_s}\ \ \ \mbox{for $i_c = 0\ldots{}n_c-1$}$
T	H, D
eqop	eq