Layer2_MMS_SW_SPARK minor update f_fc.data types

UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_fc-data.ads

@@ -8,11 +8,28 @@ package MMS.F_PT.F_FC.Data is
 
    --  From 6.7.2.3
 
-   type F_FC_Table_Type is array (Positive range <>) of Integer;
+   type Gain_Type is new Integer; --  ??? some bounds
-
+
-   Climb_Gains   : F_FC_Table_Type (1 .. 1);
+   type Gain_Triple is record
-   Cruise_Gains  : F_FC_Table_Type (1 .. 1);
+      Kd : Gain_Type;
-   Descent_Gains : F_FC_Table_Type (1 .. 1);
+      Kp : Gain_Type;
+      Ki : Gain_Type;
+   end record;
+
+   function Climb_Gains
+     (Mass     : Payload_Mass_Type;
+      Altitude : Current_Altitude_Type;
+      Speed    : Current_Speed_Type) return Gain_Triple;
+
+   function Cruise_Gains
+     (Mass     : Payload_Mass_Type;
+      Altitude : Current_Altitude_Type;
+      Speed    : Current_Speed_Type) return Gain_Triple;
+
+   function Descent_Gains
+     (Mass     : Payload_Mass_Type;
+      Altitude : Current_Altitude_Type;
+      Speed    : Current_Speed_Type) return Gain_Triple;
 
    ---------------
    -- Constants --