function [tags]=da_instg(tag_number,insert_tag,tags);
%
% Inserts tag number tag_number into names
% 
[D L]=size(tags);
for i=1:D
	if i==tag_number
		if i==1
			tgs=insert_tag;
		else
			tgs=str2mat(tgs,insert_tag);
		end
	else
		if i==1
			tgs=tags(i,:);
		else
			tgs=str2mat(tgs,tags(i,:));
		end
	end
end
tags=tgs;