Imaginary part of complex

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