1 package body Case_Optimization_Pkg2 is
3 procedure Initialize (Radar : in Radar_T) is
4 Antenna1 : Antenna_Type_T;
5 Antenna2 : Antenna_Type_T;
7 case Radar.Sensor_Type is
9 Antenna1 := Radar.Sensor_Type;
10 Antenna2 := Radar.Sensor_Type;
18 if Antenna1 /= radpr or Antenna2 /= radssr then
23 end Case_Optimization_Pkg2;