function [subport,n]=split_port(port_name);
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % $Id$
% % $Log$
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
subport = "";
raw_subport = split(port_name, ','); # Find the components of the vector
# port
[n,m] = size(raw_subport); # Number of ports
for i = 1:n
s = deblank(raw_subport(i,:));
l = length(s);
if s(1)=="[" # Remove leading [ (if any)
l = l-1;
s = substr(s,2,l);
end
if s(l)=="]" # Remove trailing ] (if any)
l = l-1;
s = substr(s,1,l);
end
s = ["[",s,"]"]; # Surround by []
subport = [subport ;s]; # Return to the array
end;
endfunction;