Trace of color matrix

Syntax	void QLA_C_eqop_trace_M( restrict QLA_Complex *r,
	QLA_ColorMatrix *a)
Meaning	$r = \mathop{\rm Tr}a$
eqop	eq