Global inner product: float to double

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

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