Global sums: float to double

Syntax	void QLA_DF_t_eqop_sum_T( restrictQLA_Type_D *r,Type_F *a)
Meaning	$r = \sum a$
T	I, R, C, V, H, D, M, P
eqop	eq