Global squared norm: double to long double

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