package sistematiemporeal is

   Max : constant Integer := 15;
   type TemperList is array (0..Max) of Float;
   procedure lecturaFichero;
   procedure calculoFijo;
   procedure calculoDinamico;
   procedure escrituraFichero(esComplejo : Boolean);
   function comprobarEstabilidadCampo(ST2 : Float) return Boolean;
   function comprobarEstabilidadModulo(ST2 : Float) return Boolean;

end sistematiemporeal;