Real to integer (truncate)

Syntax	void QLA_I_eqop_trunc_R ( restrict QLA_Int *r, QLA_Real *a)
Meaning	r = a
eqop	eq