procedure escrituraFichero(esComplejo : Boolean) is
   begin
   Put_Line("Escritura de fichero de salida");
   Create(Archivo, Out_File, "data.txt");
   Set_output(Archivo);
   for k in 1..Max loop
      if(comprobarEstabilidadCampo(ST2 => ST2(k)) = false) then
         SC1(k) := 0.0;
      else
         SC1(k) := SC1Fijo;
      end if;
      if(comprobarEstabilidadModulo(ST2 => ST2(k)) = false) then
         SC2(k) := 0.0;
      else
         SC2(k) := SC2Fijo;
      end if;
      Put(ST1(k));
      Put(ST2(k));
      Put(ST3(k));
      Put(ST4(k));
      Put(SC1(k));
      Put(SC2(k));
      Put(SR1(k));
      Put(SD1(k));
      New_Line;
   end loop;
   close(Archivo);
end escrituraFichero;