integer maxtag
parameter (maxtag=500)
common /chronos/ tags (maxtag)
common /chronos/ freqs(maxtag)
common /chronos/ dates(maxtag)
common /chronos/ times(maxtag)
if(ntags.gt.maxtag ) then
print *, 'Maximum Number of Alarms = ',maxtag