Convert long double to double

Syntax	void QLA_DQ_T_eqop_T( restrictType_D *r,Type_Q *a)
Meaning	r = a
T	R, C, H, P, V, D, M
eqop	eq