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