Global inner product: double to long double

Syntax	void QLA_QD_c_eqop_T_dot_T( restrict QLA_Complex _Q *r,
	Type_D *a, Type_D *b)
exception	void QLA_QD_r_eqop_R_dot_R( restrict QLA_Real _Q *r,
	QLA_Real _D *a, QLA_Real _D *b)
Meaning	$r = \sum \mathop{\rm Tr}a^\dagger \cdot b$
T	R, C, M, H, D, V, P
eqop	eq

Syntax	void QLA_QD_r_eqop_re_T_dot_T( restrict QLA_Complex _Q *r,
	Type_D *a, Type_D *b)
Meaning	$r = \mathop{\rm Re}\sum \mathop{\rm Tr}a^\dagger \cdot b$
T	C, M, H, D, V, P
eqop	eq