%
% [tagDef, tagTable] = inttagdef([SecPP, BlkPP, Channels])
%
% version 0.2 (1999-12-01)

function [tagDef, tagTable] = inittagdef(SecPP, BlkPP, Channels) 
  tagDef=zeros(1,38);
  if (nargin==0)
    tagDef(1,2)=20;
    tagDef(1,3)=8;
    tagDef(1,4)=0;
  elseif (nargin==1)
    tagDef(1,2)=SecPP;
    tagDef(1,3)=8;
    tagDef(1,4)=0;
  elseif (nargin==2)
    tagDef(1,2)=SecPP;
    tagDef(1,3)=BlkPP;
    tagDef(1,4)=0;
  elseif (nargin==3)
    tagDef(1,2)=SecPP;
    tagDef(1,3)=BlkPP;
    tagDef(1,4)=Channels;
  end
  
  tagTable=zeros(1,5);