package body IO is
   procedure lecturaT(TR : out Temperatura) is
   begin
      TR := 0.00;
      Put_Line("Se lee la temperatura");
   end;
   procedure lecturaR(RD : out Radiacion) is -- Radiacion SR1
   begin
      RD := 0;
      Put_Line("Se lee la irradiancia");
   end;
   procedure lecturaC(CD : out Caudal) is -- Caudales SC1 y SC2
   begin
      CD := 0.00;
      Put_Line("Se lee el caudal");
   end;
   procedure escrituraC(CD : Caudal) is
    begin
      Put_Line("Se escribe el caudal");
   end;
end IO;