Global squared norm: uniform precision

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