procedure LeerTemperatura(TR: out TemperList);
   procedure LeerPresion(PR : out TemperList);
   procedure LeerCaudal(CA: out TemperList);
   procedure LeerRadiacion(RAD:out TemperList);
   procedure EscribirSC1(SC1: out TemperList);
   procedure EscribirSC2(SC2: out TemperList);
   procedure LeerTemperaturas(ST1: out TemperList;ST2: out TemperList;ST3: out TemperList; ST4: out TemperList);