common /chronos/ ntags
integer ntags
tags(ntags) = tag
freqs(ntags) = freq
dates(ntags) = datein
times(ntags) = timein
do n=1,ntags
ntags = 1
ntags = ntags+1
if(ntags.gt.maxtag ) then
dates(ntags) = date
times(ntags) = time
if( myid.eq.1 ) write(6,100) date,time,freq,tags(ntags)