Convert double to float

Syntax	void QLA_FD_T_eqop_T( restrictType_F *r,Type_D *a)
Meaning	r = a
T	R, C, V, H, D, M, P
eqop	eq