ADDED   mttroot/mtt/bin/trans/m/replace_name.m
Index: mttroot/mtt/bin/trans/m/replace_name.m
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/m/replace_name.m
@@ -0,0 +1,34 @@
+function string_array = replace_name(string_array, new, index); 
+% Replaces a row of a string vector with a string of arbitary length.
+
+###############################################################
+## Version control history
+###############################################################
+## $Id$
+## $Log$
+###############################################################
+
+
+  [N,M]=size(string_array);
+  L = length(new);
+  
+  if index>N 
+    error(["String array has less than ", num2str(index), " rows"]);
+  end;
+  
+  if L<M			# Pad the new string
+    new = [new, blanks(M-L)];
+  elseif M<L			# Pad the array
+    for i=1:L-M
+      string_array=[string_array, blanks(N)'];
+    end
+  end
+
+  string_array(index,:) = new;	# Replace ith row by new string
+
+endfunction
+
+    
+    
+
+