PARAMETER ( NSDAY = 86400 )
NSEC = IDAY *NSDAY + SEC
INTEGER NSDAY, NCYCLE
NSEC0 = IDAY0*NSDAY + SEC0