Global squared norm: float to double

Syntax	void QLA_DF_r_eqop_norm2_T( restrict QLA_Real _D *r,
	Type_F *a)
Meaning	$r = \sum \vert a\vert^2$
eqop	eq
T	I, R, C, V, H, D, M, P