Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Matrices/standard_integer_norms.ads, Revision 1.1.1.1
1.1 maekawa 1: with Standard_Integer_Vectors; use Standard_Integer_Vectors;
2:
3: package Standard_Integer_Norms is
4:
5: -- DESCRIPTION :
6: -- This package defines the norm of an integer vector as the gcd of
7: -- all its entries. An integer vector is normalized if its elements
8: -- are relative prime with respect to each other.
9:
10: function gcd ( v : Vector ) return integer;
11:
12: -- DESCRIPTION :
13: -- Returns the positive gcd(v(v'first),..,v(v'last)).
14:
15: procedure Normalize ( v : in out Vector );
16:
17: -- DESCRIPTION :
18: -- All elements in the vector are divided by gcd(v).
19:
20: end Standard_Integer_Norms;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>