%
% tagsOut=addblocktag(tags, tag, page, block)
%
% version 0.1 (1999-12-01)

function tagOut=addblocktag(tags, tag, page, block)
if (nargin~=4)
   error('tagsOut=addblocktag(tags, tag, page, block)');
   return;
end

if (tags(1,1)==0)
   index=1;
else	
   index=size(tags,1)+1;
end	

tagOut=zeros(index, 5);
if index~=1
   tagOut(1:index-1,:)=tags(1:index-1,:);
end

tagOut(index, 1)=2;
tagOut(index, 2)=tag;
tagOut(index, 3)=page;
tagOut(index, 4)=block;