package Sin_Cos is
subtype T is Float;
procedure Sin_Cos (Angle : T; SinA, CosA : out T);
end Sin_Cos;