--------------------------------------------------------------------------------
--                                                                            --
-- File    : matrix_gain.adb                                 $Revision: 1.1 $ --
-- Abstract:                                                                  --
--      Spec for Ada S-Function: ada_matrix_gain                              --
--                                                                            --
-- Author  : Murali Yeddanapudi, 7-May-1999                                   --
--                                                                            --
-- Copyright (c) 1990-1999 The MathWorks, Inc. All Rights Reserved.           --
--                                                                            --
--------------------------------------------------------------------------------

with Simulink; use Simulink;

package Matrix_Gain is

   -- The "ada_" prefix for the S-Function name makes it easy to identify
   -- this example S-Function in the MATLAB workspace. Normally you would
   -- use the same name for S_FUNCTION_NAME and the package.
   S_FUNCTION_NAME : constant String := "ada_matrix_gain";

   procedure mdlInitializeSizes(S : in SimStruct);
   pragma Export(C, mdlInitializeSizes, "mdlInitializeSizes");

   procedure mdlOutputs(S : in SimStruct; TID : in Integer);
   pragma Export(C, mdlOutputs, "mdlOutputs");

end Matrix_Gain;

-- EOF: marix_gain.ads