function tbalance01(varargin)
% Imprime una tabla con los datos de cualquier número de corrientes
% Para el informe del trabajo se debe llamar con:
% tbalance01(C4,C5,C6,C7,C8,C10,C11,C12,C13,C16A,C16B,C17,CA,CB,CC,CD,CE,FG)
% Siendo FG la de Fuel Gas

% Si se quiere escribir en la pantalla
fid=1;
% Si se quiere escribir en un fichero (poner el nombre y directorio adecuado)
% fid=fopen('c:\pepito95666.res','w');
% Cuando se use un fichero como salida hay que quitar el % en el fclose del final

%Estos son los nombres de las corrientes del resultado final
stream=['C4  ';'C5  ';'C6  ';'C7  ';'C8  ';'C10 ';'C11 ';'C12 ';...
      'C13 ';'C16A';'C16B';'C17 ';'CA  ';'CB  ';'CC  ';'CD  ';'CE  ';'FG  '];
%Los nombres de los componentes
id=['H';'M';'B';'T';'F'];

if nargin>0

   for i=1:nargin
     [F(i),x(:,i),P(i),T(i)]  = deal(varargin{i}{:});
  end
  
   fprintf(fid,'\n--------',0);
   for j=1:nargin
      fprintf(fid,'--------',0);
   end
   
   fprintf(fid,'\nCorriente',0);
   for i=1:nargin
      fprintf(fid,'  %4s  ',stream(i,:));
   end
   
   fprintf(fid,'\n--------',0);
   for j=1:nargin
      fprintf(fid,'--------',0);
   end
   
   fprintf(fid,'\n(kmol/h)',0);
   fprintf(fid,' %6.1f ',F);
   fprintf(fid,'\n(%% mol)',0);
   for i=1:5
      fprintf(fid,'\n   %1s    ',id(i));   
      fprintf(fid,' %6.4f ',x(i,:));
   end
   fprintf(fid,'\n\nP (bar) ',0);
   fprintf(fid,' %6.1f ',P);
   fprintf(fid,'\nT (C)   ',0);
   fprintf(fid,' %6.2f ',T);
   
   fprintf(fid,'\n--------',0);
   for j=1:nargin
      fprintf(fid,'--------',0);
   end
   fprintf(fid,'\n',0);

   else
   
   error('no hay argumentos de entrada')
end

% Quitar el % si la salida es a un fichero
%fclose(fid);