pkg/fizhi/chronos.h

4c46c31842 Andr*0001 C **********************************************************************
                0002 C *****                   Clock Variables                          *****
                0003 C **********************************************************************
                0004
                0005       character*132     tags
                0006       integer          ntags
                0007       integer          nymd,nhms
                0008       integer          nymd0,nhms0
                0009       integer          freqs,dates,times
                0010
                0011       integer          maxtag
                0012       parameter       (maxtag=500)
                0013
                0014       common /chronos/ nymd,nhms
                0015       common /chronos/ nymd0,nhms0
                0016       common /chronos/ ntags
                0017       common /chronos/  tags (maxtag)
                0018       common /chronos/  freqs(maxtag)
                0019       common /chronos/  dates(maxtag)
                0020       common /chronos/  times(maxtag)
                0021