Local squared norm: uniform precision

Syntax	void QLA_R_eqop_norm2_T( restrict QLA_Real *r,
	Type *a)
Meaning	r = |a|2
eqop	eq
T	C, M, H, D, V, P