Convert real to complex (zero imaginary part)

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