ADDED   mttroot/mtt/bin/trans/m/name_in_list.m
Index: mttroot/mtt/bin/trans/m/name_in_list.m
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/m/name_in_list.m
@@ -0,0 +1,40 @@
+function index = name_in_list(name,list)
+
+% 
+%     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
+%     %%%%% Model Transformation Tools %%%%%
+%     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% 
+% Matlab function  name_in_list.m
+% Finds name in list and returns index -- zero if not found
+
+
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% %% Version control history
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% %% $Id$
+% %% $Log$
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+[N,M] = size(list);
+if N<1
+  error('list must have at least one element');
+end;
+
+index = 0;
+
+for i = 1:N
+  name,list(i,:)
+ j = findstr(name,list(i,:))
+ if length(j==1)
+    if j(1)==1
+      if index==0
+        index = i;
+      else 
+        index = [index i];
+      end
+    end
+ end;
+end;
+