with data_types, IO;
use data_types, IO;

package body control_procedures is
   procedure Control_CS(ST2: Temperatura; SC1: out Caudal) is
   begin
      SC1:= 50.0;
      Put_Line("Control del sistema del campo solar");
      delay 0.6;
      Put_Line("");
   end;

   procedure Control_MD(ST2: Temperatura; SC2: out Caudal) is
   begin
      SC2:= 50.0;
      if ST2 > 100.0 then
    Put_Line("--FALLO EN EL BLOQUE DE CONTROL DEL MODULO DE DESTILACION--");
   else
      Put_Line("Modulo de destilacion correcto");
      end if;
      end;

   procedure Control_Seguridad(ST2: Temperatura; SC1: out Caudal; SC2: out Caudal) is
      begin
      SC1:= 50.0;
      SC2:= 50.0;
      Put_Line("Control del sistema de seguridad");
      if ST2 > 100.0 then
    Put_Line("--FALLO DE SEGURIDAD EN BOMBA 1--");
   else
      Put_Line("Condiciones de seguridad correctas");
     end if;
      end;

end control_procedures;