1package Complex1_Pkg is
2
3  procedure Coord (x,y : out Float);
4
5end Complex1_Pkg;
6