Global sums

Syntax	`void QLA_`t`_`eqop`_`sum`_`T`( restrict`Type* `r,`Type* `a)`
exception	`void QLA_r_`eqop`_`sum`_I( restrict QLA_Real r, QLA_Int a)`
Meaning	$r = \sum a$
T	`I, R, C, V, H, D, M, P`
eqop	`eq`