◆ norm2_complex_array()

template<class Field>

double norm2_complex_array	(	int	n,
		typename Field::element_type *	a )

Definition at line 422 of file NAG.hpp.

{
  double t = 0;
  for (int i = 0; i < n; i++, a++)
    t += a->getreal() * a->getreal() + a->getimaginary() * a->getimaginary();
  return t;
}