ADDED   mttroot/mtt/lib/comp/simple/comp_ports.m
Index: mttroot/mtt/lib/comp/simple/comp_ports.m
==================================================================
--- /dev/null
+++ mttroot/mtt/lib/comp/simple/comp_ports.m
@@ -0,0 +1,34 @@
+function ports = comp_ports(comp_type)
+%
+%     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
+%     %%%%% Model Transformation Tools %%%%%
+%     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% 
+% Matlab function  comp_ports
+% ports = comp_ports(comp_type)
+% Returns the port list for simple components
+
+
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% %% Version control history
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% %% $Id$
+% %% $Log$
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+one_ports = '-SS-R-C-I-';
+two_ports = '-TF-GY-AE-AF-FMR-';
+
+comp_type = ['-', comp_type, '-'];
+
+if length(findstr(comp_type,one_ports))==1
+  ports = ['in'];
+elseif length(findstr(comp_type,two_ports))==1
+  ports = ['in';'out'];
+elseif length(findstr(comp_type,'-EMTF-'))==1
+  ports = ['in';'out';'mod'];
+end;
+
+
+