Imaginary trace of color matrix

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