% [bonds,status] = abg2cbg(system_name, system_type, full_name, port_bonds, infofile)

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.33  1998/07/29 13:36:37  peterg
% %% Don't set port status if there aren't any ports.
% %%
% %% Revision 1.32  1998/07/28 19:06:11  peterg
% %% *** empty log message ***
% %%
% %% Revision 1.31  1998/07/28 13:15:10  peterg
% %% Vector SS ports included.
% %%
% %% Revision 1.30  1998/07/27 20:29:49  peterg

  mtt_error(sprintf('%s: %1.0f port bonds incompatible with %1.0f ports', ...
               full_name, n_port_bonds, n_ports), errorfile);

  else % Copy the port bonds & status
    for j = 1:n_port_bonds
      jj = port_bond_index(j);
      for k = 1:2
#	if bonds(jj,k)==0 % only copy if not already set
	if bonds(jj,k)==0 % only copy if not already set
	bonds(jj,k) = port_bonds(j,k);
#	end;
	end;
      end;
#      status(1:N_ports) = port_status;
    end
  end
else
  n_port_bonds=0;
end;