ADDED   mttroot/mtt/bin/trans/m/split_port.m
Index: mttroot/mtt/bin/trans/m/split_port.m
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/m/split_port.m
@@ -0,0 +1,42 @@
+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;
+
+
+
+
+