common /chronos/ tags (maxtag)
character*132 tags
tags(ntags) = tag
if (tag.eq.tags(n)) then
if( tags(n).eq.tag ) then
tags(1) = tag
if(tag.eq.tags(n)) then
if( myid.eq.1 ) write(6,100) date,time,freq,tags(1)
if( myid.eq.1 ) write(6,100) date,time,freq,tags(ntags)